fail_init.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	fail_init (mat_param, nummat)

Function/Subroutine Documentation

fail_init()

subroutine fail_init	(	type (matparam_struct_), dimension(nummat), intent(inout)	mat_param,
		integer, intent(in)	nummat )

Definition at line 29 of file fail_init.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE matparam_def_mod
C============================================================================
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER ,INTENT(IN) :: NUMMAT
      TYPE (MATPARAM_STRUCT_) ,DIMENSION(NUMMAT) ,INTENT(INOUT) :: MAT_PARAM
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER IMAT,IFL,NFAIL
c======================================================================- 
      DO imat = 1,nummat-1
        nfail = mat_param(imat)%NFAIL
        ALLOCATE (mat_param(imat)%FAIL(nfail))
        IF (nfail > 0) THEN
          DO ifl = 1,nfail
            mat_param(imat)%FAIL(ifl)%KEYWORD = ' '
            mat_param(imat)%FAIL(ifl)%IRUPT   = 0
            mat_param(imat)%FAIL(ifl)%FAIL_ID = 0
            mat_param(imat)%FAIL(ifl)%NUPARAM = 0
            mat_param(imat)%FAIL(ifl)%NIPARAM = 0
            mat_param(imat)%FAIL(ifl)%NUVAR   = 0
            mat_param(imat)%FAIL(ifl)%NFUNC   = 0
            mat_param(imat)%FAIL(ifl)%NTABLE  = 0
            mat_param(imat)%FAIL(ifl)%NMOD    = 0
c
            mat_param(imat)%FAIL(ifl)%FAIL_IP = 0
            mat_param(imat)%FAIL(ifl)%PTHK    = one
          END DO
        END IF      
      END DO
c-----------       
      RETURN