m95init.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	m95init (nel, nuvar, uvar)

Function/Subroutine Documentation

m95init()

subroutine m95init	(	integer, intent(in)	nel,
		integer, intent(in)	nuvar,
		intent(inout)	uvar )

Definition at line 28 of file m95init.F.

C-----------------------------------------------
C   I M P L I C I T   T Y P E S
C-----------------------------------------------
#include "implicit_f.inc"
C----------------------------------------------------------------
C  I N P U T   A R G U M E N T S
C----------------------------------------------------------------
      INTEGER                        , INTENT(IN)     ::NEL, NUVAR
      my_real,  DIMENSION(NEL,NUVAR) , INTENT(INOUT)  :: uvar
C----------------------------------------------------------------
C  L O C A L  V A R I B L E S
C----------------------------------------------------------------
      INTEGER         I
C=======================================================================
       DO i=1,nel                    
         uvar(i,1) = one
         uvar(i,2) = one
         uvar(i,3) = one
         uvar(i,4) = zero
         uvar(i,5) = zero
         uvar(i,6) = zero
         uvar(i,7) = zero
         uvar(i,8) = zero
         uvar(i,9) = zero
         uvar(i,10) = zero
       ENDDO
 
      RETURN