law120_upd.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	law120_upd (nuparam, numtabl, itable, table, uparam)

Function/Subroutine Documentation

law120_upd()

subroutine law120_upd	(	integer	nuparam,
		integer	numtabl,
		integer, dimension(numtabl)	itable,
		type(ttable), dimension(*)	table,
		intent(inout)	uparam )

Definition at line 30 of file law120_upd.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE table_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 NUPARAM,NUMTABL
      INTEGER ,DIMENSION(NUMTABL) :: ITABLE
      my_real, DIMENSION(NUPARAM), INTENT(INOUT) :: uparam
      TYPE(TTABLE) ,DIMENSION(*) ::  TABLE
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER :: TABN,NDIM_YLD
      my_real :: yld0,epspmin,epspmax
C=======================================================================
c     find initial yield value in static yld function
c          and min/max strain rate in table abscissa if available
c
      tabn = itable(1)
      IF (tabn > 0) THEN
        ndim_yld = table(tabn)%NDIM
        yld0 = table(tabn)%Y%VALUES(1)
        uparam(5)  = yld0
        IF (ndim_yld > 1) THEN
          epspmin = minval(table(tabn)%X(2)%VALUES)
          epspmax = maxval(table(tabn)%X(2)%VALUES)
          uparam(22) = epspmin
          uparam(23) = epspmax
        END IF        
      END IF
c-----------
      RETURN