calctel.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	calctel (ne, nactdoh, vel, b, nef)

Function/Subroutine Documentation

calctel()

subroutine calctel	(	integer	ne,
		integer, dimension(*)	nactdoh,
		real*8, dimension(nef,0:7)	vel,
		real*8, dimension(*)	b,
		integer	nef
	)

!
!     stores the temperature into field vel
!
      implicit none
!
      integer ne,nactdoh(*),i,nef
!
      real*8 vel(nef,0:7),b(*)
!
      do i=1,ne
         vel(i,0)=b(i)
c         write(*,*) 'calctel ',i,vel(i,0)
      enddo
!     
      return