#include "implicit_f.inc"

Functions/Subroutines

subroutine sigeps85c_void (nel, nuparam, nuvar, nfunc, ifunc, npf, npt, ipt, iflag, tf, time, timestep, uparam, rho0, area, eint, thkly, epspxx, epspyy, epspxy, epspyz, epspzx, depsxx, depsyy, depsxy, depsyz, depszx, epsxx, epsyy, epsxy, epsyz, epszx, sigoxx, sigoyy, sigoxy, sigoyz, sigozx, signxx, signyy, signxy, signyz, signzx, sigvxx, sigvyy, sigvxy, sigvyz, sigvzx, soundsp, viscmax, thk, pla, uvar, off, ngl, shf)

Function/Subroutine Documentation

◆ sigeps85c_void()

subroutine sigeps85c_void	(	integer	nel,
		integer	nuparam,
		integer	nuvar,
		integer	nfunc,
		integer, dimension(nfunc)	ifunc,
		integer, dimension(*)	npf,
		integer	npt,
		integer	ipt,
		integer, dimension(*)	iflag,
			tf,
			time,
			timestep,
			uparam,
			rho0,
			area,
			eint,
			thkly,
			epspxx,
			epspyy,
			epspxy,
			epspyz,
			epspzx,
			depsxx,
			depsyy,
			depsxy,
			depsyz,
			depszx,
			epsxx,
			epsyy,
			epsxy,
			epsyz,
			epszx,
			sigoxx,
			sigoyy,
			sigoxy,
			sigoyz,
			sigozx,
			signxx,
			signyy,
			signxy,
			signyz,
			signzx,
			sigvxx,
			sigvyy,
			sigvxy,
			sigvyz,
			sigvzx,
			soundsp,
			viscmax,
			thk,
			pla,
			uvar,
			off,
		integer, dimension(nel)	ngl,
			shf )

Definition at line 30 of file sigeps85c_void.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   G l o b a l   P a r a m e t e r s
C-----------------------------------------------
C---------+---------+---+---+--------------------------------------------
C VAR     | SIZE    |TYP| RW| DEFINITION
C---------+---------+---+---+--------------------------------------------
C NEL     |  1      | I | R | SIZE OF THE ELEMENT GROUP NEL 
C NUPARAM |  1      | I | R | SIZE OF THE USER PARAMETER ARRAY
C NUVAR   |  1      | I | R | NUMBER OF USER ELEMENT VARIABLES
C---------+---------+---+---+--------------------------------------------
C NFUNC   |  1      | I | R | NUMBER FUNCTION USED FOR THIS USER LAW
C IFUNC   | NFUNC   | I | R | FUNCTION INDEX 
C NPF     |  *      | I | R | FUNCTION ARRAY   
C NPT     |  1      | I | R | NUMBER OF LAYERS OR INTEGRATION POINTS   
C IPT     |  1      | I | R | LAYER OR INTEGRATION POINT NUMBER   
C IFLAG   |  *      | I | R | GEOMETRICAL FLAGS   
C TF      |  *      | F | R | FUNCTION ARRAY 
C NGL     | NEL     | I | R | ELEMENT NUMBER
C SHF     | NEL     | F | R | SHEAR FACTOR
C---------+---------+---+---+--------------------------------------------
C TIME    |  1      | F | R | CURRENT TIME
C TIMESTEP|  1      | F | R | CURRENT TIME STEP
C UPARAM  | NUPARAM | F | R | USER MATERIAL PARAMETER ARRAY
C RHO0    | NEL     | F | R | INITIAL DENSITY
C AREA    | NEL     | F | R | AREA
C EINT    | 2*NEL   | F | R | INTERNAL ENERGY(MEMBRANE,BENDING)
C THKLY   | NEL     | F | R | LAYER THICKNESS
C EPSPXX  | NEL     | F | R | STRAIN RATE XX
C EPSPYY  | NEL     | F | R | STRAIN RATE YY
C ...     |         |   |   |
C DEPSXX  | NEL     | F | R | STRAIN INCREMENT XX
C DEPSYY  | NEL     | F | R | STRAIN INCREMENT YY
C ...     |         |   |   |
C EPSXX   | NEL     | F | R | STRAIN XX
C EPSYY   | NEL     | F | R | STRAIN YY
C ...     |         |   |   |
C SIGOXX  | NEL     | F | R | OLD ELASTO PLASTIC STRESS XX 
C SIGOYY  | NEL     | F | R | OLD ELASTO PLASTIC STRESS YY
C ...     |         |   |   |    
C---------+---------+---+---+--------------------------------------------
C SIGNXX  | NEL     | F | W | NEW ELASTO PLASTIC STRESS XX
C SIGNYY  | NEL     | F | W | NEW ELASTO PLASTIC STRESS YY
C ...     |         |   |   |
C SIGVXX  | NEL     | F | W | VISCOUS STRESS XX
C SIGVYY  | NEL     | F | W | VISCOUS STRESS YY
C ...     |         |   |   |
C SOUNDSP | NEL     | F | W | SOUND SPEED (NEEDED FOR TIME STEP)
C VISCMAX | NEL     | F | W | MAXIMUM DAMPING MODULUS(NEEDED FOR TIME STEP)
C---------+---------+---+---+--------------------------------------------
C THK     | NEL     | F |R/W| THICKNESS
C PLA     | NEL     | F |R/W| PLASTIC STRAIN
C UVAR    |NEL*NUVAR| F |R/W| USER ELEMENT VARIABLE ARRAY
C OFF     | NEL     | F |R/W| DELETED ELEMENT FLAG (=1. ON, =0. OFF)
C---------+---------+---+---+--------------------------------------------
C-----------------------------------------------
C   I N P U T   A r g u m e n t s
C-----------------------------------------------
C
      INTEGER NEL, NUPARAM, NUVAR, NPT, IPT,IFLAG(*),
     .   NGL(NEL)
      my_real time,timestep,uparam(nuparam),
     .   area(nel),rho0(nel),eint(nel,2),
     .   thkly(nel),pla(nel),shf(nel),
     .   epspxx(nel),epspyy(nel),
     .   epspxy(nel),epspyz(nel),epspzx(nel),
     .   depsxx(nel),depsyy(nel),
     .   depsxy(nel),depsyz(nel),depszx(nel),
     .   epsxx(nel) ,epsyy(nel) ,
     .   epsxy(nel) ,epsyz(nel) ,epszx(nel) ,
     .   sigoxx(nel),sigoyy(nel),
     .   sigoxy(nel),sigoyz(nel),sigozx(nel)
C-----------------------------------------------
C   O U T P U T   A r g u m e n t s
C-----------------------------------------------
      my_real
     .    signxx(nel),signyy(nel),
     .    signxy(nel),signyz(nel),signzx(nel),
     .    sigvxx(nel),sigvyy(nel),
     .    sigvxy(nel),sigvyz(nel),sigvzx(nel),
     .    soundsp(nel),viscmax(nel)
C-----------------------------------------------
C   I N P U T   O U T P U T   A r g u m e n t s 
C-----------------------------------------------
      my_real uvar(nel,nuvar), off(nel),thk(nel)
C-----------------------------------------------
C   VARIABLES FOR FUNCTION INTERPOLATION 
C-----------------------------------------------
      INTEGER NPF(*), NFUNC, IFUNC(NFUNC)
      my_real finter ,tf(*)
      EXTERNAL finter
C        Y = FINTER(IFUNC(J),X,NPF,TF,DYDX)
C        Y       : y = f(x)
C        X       : x
C        DYDX    : f'(x) = dy/dx
C        IFUNC(J): FUNCTION INDEX
C              J : FIRST(J=1), SECOND(J=2) .. FUNCTION USED FOR THIS LAW
C        NPF,TF  : FUNCTION PARAMETER
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
      my_real a1,a2,g
C=======================================================================
        a1  = uparam(4)
        a2  = uparam(5)
        g   = uparam(6)
C
      DO i=1,nel
C
        signxx(i)=sigoxx(i)+a1*depsxx(i)+a2*depsyy(i)
        signyy(i)=sigoyy(i)+a2*depsxx(i)+a1*depsyy(i)
        signxy(i)=sigoxy(i)+g *depsxy(i)
        signyz(i)=sigoyz(i)+g *depsyz(i)
        signzx(i)=sigozx(i)+g *depszx(i)
C
        soundsp(i) = sqrt(a1/rho0(i))
        viscmax(i) = zero
C
      ENDDO
C-----------
      RETURN

OpenRadioss 2025.1.11 OpenRadioss project