meannode.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	meannode (nk, inum, v)

Function/Subroutine Documentation

meannode()

subroutine meannode	(	integer	nk,
		integer, dimension(*)	inum,
		real*8, dimension(0:4,*)	v
	)

!
!     taking the mean at the nodes
!
      implicit none
!
      integer nk,inum(*),i,j
!
      real*8 v(0:4,*)
!
      do i=1,nk
         if(inum(i).ne.0) then
            inum(i)=abs(inum(i))
            do j=0,4
               v(j,i)=v(j,i)/inum(i)
            enddo
         endif
         write(*,*) 'meannode ',i,(v(j,i),j=1,3)
      enddo
!  
      return