convert2slapcol.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	convert2slapcol (au, ad, jq, nzs, nef, aua)

Function/Subroutine Documentation

convert2slapcol()

subroutine convert2slapcol	(	real*8, dimension(*)	au,
		real*8, dimension(*)	ad,
		integer, dimension(*)	jq,
		integer	nzs,
		integer	nef,
		real*8, dimension(*)	aua
	)

!
      implicit none
!
      integer jq(*),nzs,nef,i,j,k
      real*8 au(*),ad(*),aua(*)
!
!     converting the CalculiX format into the SLAP column format
!
      k=nzs+nef
!
      do i=nef,1,-1
         do j=jq(i+1)-1,jq(i),-1
            aua(k)=au(j)
            k=k-1
         enddo
         aua(k)=ad(i)
         k=k-1
      enddo
!
      return