norm.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	norm (vel, velnorm, nef)

Function/Subroutine Documentation

norm()

subroutine norm	(	real*8, dimension(nef,0:7)	vel,
		real*8, dimension(0:4)	velnorm,
		integer	nef
	)

!
!     calculation of the norm of all field components at
!     the element centers
!
      implicit none
!
      integer i,j,nef
!
      real*8 velnorm(0:4),vel(nef,0:7)
!     
      do i=1,nef
         do j=0,4
            velnorm(j)=velnorm(j)+vel(i,j)**2
         enddo
      enddo
!            
      return