h3d_fld_tsh.F

Go to the documentation of this file.

Copyright>        OpenRadioss
Copyright>        Copyright (C) 1986-2025 Altair Engineering Inc.
Copyright>
Copyright>        This program is free software: you can redistribute it and/or modify
Copyright>        it under the terms of the GNU Affero General Public License as published by
Copyright>        the Free Software Foundation, either version 3 of the License, or
Copyright>        (at your option) any later version.
Copyright>
Copyright>        This program is distributed in the hope that it will be useful,
Copyright>        but WITHOUT ANY WARRANTY; without even the implied warranty of
Copyright>        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Copyright>        GNU Affero General Public License for more details.
Copyright>
Copyright>        You should have received a copy of the GNU Affero General Public License
Copyright>        along with this program.  If not, see <https://www.gnu.org/licenses/>.
Copyright>
Copyright>
Copyright>        Commercial Alternative: Altair Radioss Software
Copyright>
Copyright>        As an alternative to this open-source version, Altair also offers Altair Radioss
Copyright>        software under a commercial license.  Contact Altair to discuss further if the
Copyright>        commercial version may interest you: https://www.altair.com/radioss/.
!||====================================================================
!||    h3d_fld_tsh       ../engine/source/output/h3d/h3d_results/h3d_fld_tsh.F
!||--- called by ------------------------------------------------------
!||    h3d_skin_scalar   ../engine/source/output/h3d/h3d_results/h3d_skin_scalar.F
!||--- calls      -----------------------------------------------------
!||    fail_fld_tsh      ../engine/source/materials/fail/fld/fail_fld_tsh.F
!||--- uses       -----------------------------------------------------
!||    elbufdef_mod      ../common_source/modules/mat_elem/elbufdef_mod.F90
!||    fail_param_mod    ../common_source/modules/mat_elem/fail_param_mod.F90
!||====================================================================
      SUBROUTINE h3d_fld_tsh(ELBUF_TAB,FAIL,
     .                       IR,IS,IT,ILAY,IFAIL,
     .                       NPF,TF,NGL,EVAR,NEL )
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
      END SUBROUTINE h3d_fld_tsh