calcvel.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	calcvel (ne, nactdoh, vel, bv, neq, nef)

Function/Subroutine Documentation

calcvel()

subroutine calcvel	(	integer	ne,
		integer, dimension(*)	nactdoh,
		real*8, dimension(nef,0:7)	vel,
		real*8, dimension(neq,3)	bv,
		integer	neq,
		integer	nef
	)

!
!     stores the velocities into field vel
!
      implicit none
!
      integer ne,neq,nactdoh(*),i,j,nef
!
      real*8 vel(nef,0:7),bv(neq,3)
!
      do i=1,ne
         do j=1,3
            vel(i,j)=bv(i,j)
         enddo
c         write(*,*) 'calcvel ',i,(vel(i,j),j=1,3)
      enddo
!     
      return