sigeps122.F File Reference

#include "implicit_f.inc"
#include "tabsiz_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	sigeps122 (nel, nuparam, nuvar, uparam, uvar, rho0, epsxx, epsyy, epszz, pla, dpla, depsxx, depsyy, depszz, depsxy, depsyz, depszx, sigoyy, sigozz, sigoxy, sigoyz, sigozx, signxx, signyy, signzz, signxy, signyz, signzx, off, sigy, et, dmg, seq, epsd, soundsp, nfunc, ifunc, npf, tf, nvartmp, vartmp)

Function/Subroutine Documentation

sigeps122()

subroutine sigeps122	(	integer, intent(in)	nel,
		integer, intent(in)	nuparam,
		integer, intent(in)	nuvar,
		dimension(nuparam), intent(in)	uparam,
		intent(inout)	uvar,
		intent(in)	rho0,
		intent(in)	epsxx,
		intent(in)	epsyy,
		intent(in)	epszz,
		intent(inout)	pla,
		intent(inout)	dpla,
		intent(in)	depsxx,
		intent(in)	depsyy,
		intent(in)	depszz,
		intent(in)	depsxy,
		intent(in)	depsyz,
		intent(in)	depszx,
		intent(in)	sigoyy,
		intent(in)	sigozz,
		intent(in)	sigoxy,
		intent(in)	sigoyz,
		intent(in)	sigozx,
		intent(out)	signxx,
		intent(out)	signyy,
		intent(out)	signzz,
		intent(out)	signxy,
		intent(out)	signyz,
		intent(out)	signzx,
		intent(inout)	off,
		intent(out)	sigy,
		intent(out)	et,
		intent(inout)	dmg,
		intent(inout)	seq,
		intent(inout)	epsd,
		intent(out)	soundsp,
		integer, intent(in)	nfunc,
		integer, dimension(nfunc), intent(in)	ifunc,
		integer, dimension(snpc), intent(in)	npf,
		dimension(stf), intent(in)	tf,
		integer, intent(in)	nvartmp,
		integer, dimension(nel,nvartmp), intent(inout)	vartmp )

Definition at line 33 of file sigeps122.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE elbufdef_mod        
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C O M M O N
C-----------------------------------------------
#include      "tabsiz_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER, INTENT(IN) :: NEL,NUPARAM,NUVAR,
     .   NFUNC,IFUNC(NFUNC),NPF(SNPC),NVARTMP
      my_real, INTENT(IN) :: 
     .   uparam(nuparam),tf(stf)
      my_real,DIMENSION(NEL), INTENT(IN)     :: 
     .   rho0,epsxx,epsyy,epszz,
     .   depsxx,depsyy,depszz,depsxy,depsyz,depszx,
     .   sigoyy,sigozz,sigoxy,sigoyz,sigozx
      my_real ,DIMENSION(NEL), INTENT(OUT)   :: 
     .   signxx,signyy,signzz,signxy,signyz,signzx,
     .   soundsp,sigy,et
      my_real ,DIMENSION(NEL), INTENT(INOUT)       :: 
     .   pla,dpla,epsd,off,seq
      my_real ,DIMENSION(NEL,6), INTENT(INOUT)     :: 
     .   dmg
      my_real ,DIMENSION(NEL,NUVAR), INTENT(INOUT) :: 
     .   uvar
      INTEGER, DIMENSION(NEL,NVARTMP), INTENT(INOUT) :: VARTMP 
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER IRES
C=======================================================================
c
      ires    = nint(uparam(17)) ! Plastic projection method
                                 !  = 1 => Nice method
                                 !  = 2 => Cutting plane
c--------------------------                              
      SELECT CASE (ires)
c      
        CASE(1)   ! Nice explicit return mapping
c
          CALL mat122_nice(
     1      nel     ,nuparam ,nuvar   ,uparam  ,uvar    ,rho0    , 
     2      epsxx   ,epsyy   ,epszz   ,pla     ,dpla    ,
     3      depsxx  ,depsyy  ,depszz  ,depsxy  ,depsyz  ,depszx  ,
     4      sigoyy  ,sigozz  ,sigoxy  ,sigoyz  ,sigozx  ,
     5      signxx  ,signyy  ,signzz  ,signxy  ,signyz  ,signzx  ,
     6      off     ,sigy    ,et      ,dmg     ,seq     ,epsd    ,
     7      soundsp ,nfunc   ,ifunc   ,npf     ,tf      ,nvartmp ,
     8      vartmp  )
c
        CASE(2)   ! Cutting plane semi-implicit method
c 
          CALL mat122_newton(
     1      nel     ,nuparam ,nuvar   ,uparam  ,uvar    ,rho0    , 
     2      epsxx   ,epsyy   ,epszz   ,pla     ,dpla    ,
     3      depsxx  ,depsyy  ,depszz  ,depsxy  ,depsyz  ,depszx  ,
     4      sigoyy  ,sigozz  ,sigoxy  ,sigoyz  ,sigozx  ,
     5      signxx  ,signyy  ,signzz  ,signxy  ,signyz  ,signzx  ,
     6      off     ,sigy    ,et      ,dmg     ,seq     ,epsd    ,
     7      soundsp ,nfunc   ,ifunc   ,npf     ,tf      ,nvartmp ,
     8      vartmp  )
c
      END SELECT
c-----------