h3d_fld_tsh.F File Reference

#include "implicit_f.inc"
#include "mvsiz_p.inc"
#include "com04_c.inc"
#include "com08_c.inc"
#include "param_c.inc"
#include "tabsiz_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	h3d_fld_tsh (elbuf_tab, fail, ir, is, it, ilay, ifail, npf, tf, ngl, evar, nel)

Function/Subroutine Documentation

h3d_fld_tsh()

subroutine h3d_fld_tsh	(	type (elbuf_struct_), target	elbuf_tab,
		type (fail_param_), intent(in)	fail,
		integer, intent(in)	ir,
		integer, intent(in)	is,
		integer, intent(in)	it,
		integer, intent(in)	ilay,
		integer, intent(in)	ifail,
		integer, dimension(snpc), intent(in)	npf,
		intent(in)	tf,
		integer, dimension(nel), intent(in)	ngl,
		intent(in)	evar,
		integer, intent(in)	nel )

Definition at line 33 of file h3d_fld_tsh.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE elbufdef_mod    
      USE fail_param_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   B l o c k s
C-----------------------------------------------
#include      "mvsiz_p.inc"
#include      "com04_c.inc"
#include      "com08_c.inc"
#include      "param_c.inc"
#include      "tabsiz_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER , INTENT(IN) :: IR,IS,IT,ILAY,IFAIL,NEL 
      INTEGER , DIMENSION(NEL), INTENT(IN) ::  NGL
      my_real , DIMENSION(3,MVSIZ), INTENT(IN) ::  evar
      my_real , DIMENSION(STF), INTENT(IN) ::  tf
      INTEGER , DIMENSION(SNPC), INTENT(IN) ::  NPF
      TYPE (ELBUF_STRUCT_), TARGET :: ELBUF_TAB
      TYPE (FAIL_PARAM_) ,INTENT(IN) :: FAIL
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C----------------------------------------------- 
      INTEGER I,I1,II,J,IL
      INTEGER NPAR,NFUNC,IPG,NVARF,NIPAR,LF_DAMMX
      INTEGER, DIMENSION(:) ,POINTER   :: FLD_IDX,FOFF
      my_real, DIMENSION(:), POINTER   :: uvarf,dfmax,tdel,dam
      my_real, DIMENSION(NEL) :: es1,es2,es4,es5,es6
 
      TYPE(G_BUFEL_)  ,POINTER :: GBUF     
      TYPE(L_BUFEL_)  ,POINTER :: LBUF     
      TYPE(BUF_FAIL_) ,POINTER :: FBUF 
C-----------------------------------------------
      gbuf => elbuf_tab%GBUF
      lbuf => elbuf_tab%BUFLY(ilay)%LBUF(ir,is,it)                            
      fbuf => elbuf_tab%BUFLY(ilay)%FAIL(ir,is,it)                            
      npar   = fail%NUPARAM
      nipar  = fail%NIPARAM
      nfunc  = fail%NFUNC   
      lf_dammx = fbuf%FLOC(ifail)%LF_DAMMX 
      uvarf => fbuf%FLOC(ifail)%VAR  
      nvarf  = fbuf%FLOC(ifail)%NVAR 
      dfmax => fbuf%FLOC(ifail)%DAMMX 
      tdel  => fbuf%FLOC(ifail)%TDEL   
      fld_idx=> fbuf%FLOC(ifail)%INDX
      foff   => fbuf%FLOC(ifail)%OFF
      dam    => fbuf%FLOC(ifail)%DAM
      es1(1:nel) = evar(1,1:nel)
      es2(1:nel) = evar(2,1:nel)
      es4(1:nel) = two*evar(3,1:nel)
 
      CALL fail_fld_tsh(
     1          nel       ,npar      ,nvarf     ,nfunc    ,fail%IFUNC ,
     2          npf       ,tf        ,tt        ,dt1      ,fail%UPARAM,   
     3          uvarf     ,ngl       ,it        ,ilay     ,it         ,
     4          es1       ,es2       ,es4       ,es5      ,es6        ,
     5          lbuf%OFF  ,foff      ,fld_idx   ,dam      ,dfmax      ,
     6          nipar     ,fail%IPARAM,lbuf%PLA ,lf_dammx )
C-----------
      RETURN