calcpel.f File Reference

Go to the source code of this file.

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

Function/Subroutine Documentation

calcpel()

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

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