sigeps112c.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"
#include "comlock.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	sigeps112c (nel, ngl, nuparam, nuvar, nfunc, ifunc, npf, tf, timestep, time, uparam, uvar, jthe, rho, pla, dpla, soundsp, epsd, off, depsxx, depsyy, depsxy, depsyz, depszx, shf, sigoxx, sigoyy, sigoxy, sigoyz, sigozx, sigy, signxx, signyy, signxy, signyz, signzx, et, numtabl, itable, table, nvartmp, vartmp)

Function/Subroutine Documentation

sigeps112c()

subroutine sigeps112c	(	integer	nel,
		integer, dimension(nel)	ngl,
		integer	nuparam,
		integer	nuvar,
		integer	nfunc,
		integer, dimension(nfunc)	ifunc,
		integer, dimension(*)	npf,
			tf,
			timestep,
			time,
			uparam,
		intent(inout)	uvar,
		integer	jthe,
		intent(in)	rho,
		intent(inout)	pla,
		intent(inout)	dpla,
		intent(out)	soundsp,
		intent(inout)	epsd,
		intent(inout)	off,
		intent(in)	depsxx,
		intent(in)	depsyy,
		intent(in)	depsxy,
		intent(in)	depsyz,
		intent(in)	depszx,
		intent(in)	shf,
		intent(in)	sigoxx,
		intent(in)	sigoyy,
		intent(in)	sigoxy,
		intent(in)	sigoyz,
		intent(in)	sigozx,
		dimension(nel)	sigy,
		intent(out)	signxx,
		intent(out)	signyy,
		intent(out)	signxy,
		intent(out)	signyz,
		intent(out)	signzx,
		dimension(nel)	et,
		integer	numtabl,
		integer, dimension(numtabl)	itable,
		type(ttable), dimension(ntable)	table,
		integer	nvartmp,
		integer, dimension(nel,nvartmp)	vartmp )

Definition at line 35 of file sigeps112c.F.

C     
      !=======================================================================
      !      Modules
      !=======================================================================
      USE table_mod
      USE interface_table_mod
      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      "com04_c.inc"
#include      "comlock.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NEL,NUPARAM,NUVAR,NFUNC,JTHE,NUMTABL,NVARTMP
      INTEGER NPF(*),NGL(NEL),IFUNC(NFUNC),ITABLE(NUMTABL)
      my_real 
     .   timestep,time,tf(*),uparam(nuparam)
      INTEGER :: VARTMP(NEL,NVARTMP)
      my_real,DIMENSION(NEL), INTENT(IN) :: 
     .   rho,depsxx,depsyy,depsxy,depsyz,depszx,
     .   sigoxx,sigoyy,sigoxy,sigoyz,sigozx,
     .   shf
c
      my_real ,DIMENSION(NEL), INTENT(OUT)   :: 
     .   soundsp,signxx,signyy,signxy,signyz,signzx
c
      my_real ,DIMENSION(NEL) :: 
     .   sigy,et
      my_real ,DIMENSION(NEL), INTENT(INOUT) :: 
     .   off,dpla
      my_real ,DIMENSION(NEL,4),INTENT(INOUT) :: 
     .   pla,epsd
      my_real ,DIMENSION(NEL,NUVAR), INTENT(INOUT) :: 
     .   uvar
c
      TYPE(TTABLE), DIMENSION(NTABLE) ::  TABLE
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER IRES
C=======================================================================
      ires  = nint(uparam(13)) ! Plastic projection method
                               !  = 1 => Nice method
                               !  = 2 => Newton-iteration method
c=======================================================================           
        ! Choice of return mapping algorithm
        SELECT CASE (ires)
          ! Nice explicit return mapping      
          CASE(1)        
            CALL mat112c_xia_nice(
     1         nel     ,ngl     ,nuparam ,nuvar   ,time    ,timestep,
     2         uparam  ,uvar    ,jthe    ,off     ,rho     ,
     3         pla     ,dpla    ,epsd    ,soundsp ,shf     ,
     4         depsxx  ,depsyy  ,depsxy  ,depsyz  ,depszx  ,
     5         sigoxx  ,sigoyy  ,sigoxy  ,sigoyz  ,sigozx  ,
     6         signxx  ,signyy  ,signxy  ,signyz  ,signzx  ,
     7         sigy    ,et      ,
     8         numtabl ,itable  ,table   ,nvartmp ,vartmp  )        
          ! Newton cutting plane return mapping
          CASE(2)
            CALL mat112c_xia_newton(
     1         nel     ,ngl     ,nuparam ,nuvar   ,time    ,timestep,
     2         uparam  ,uvar    ,jthe    ,off     ,rho     ,
     3         pla     ,dpla    ,epsd    ,soundsp ,shf     ,
     4         depsxx  ,depsyy  ,depsxy  ,depsyz  ,depszx  ,
     5         sigoxx  ,sigoyy  ,sigoxy  ,sigoyz  ,sigozx  ,
     6         signxx  ,signyy  ,signxy  ,signyz  ,signzx  ,
     7         sigy    ,et      ,
     8         numtabl ,itable  ,table   ,nvartmp ,vartmp  )
        END SELECT
c-----------