sigeps107c.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	sigeps107c (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

sigeps107c()

subroutine sigeps107c	(	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 sigeps107c.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,6),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 mat107c_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 mat107c_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-----------