OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
thickini.F File Reference
#include "implicit_f.inc"
#include "com01_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine thickini (jft, jlt, nft, ptsh, numel, thk, thke, ix, nix, nsigsh, sigsh)

Function/Subroutine Documentation

◆ thickini()

subroutine thickini ( integer jft,
integer jlt,
integer nft,
integer, dimension(*) ptsh,
integer numel,
thk,
thke,
integer, dimension(nix,*) ix,
integer nix,
integer nsigsh,
sigsh )

Definition at line 33 of file thickini.F.

36C-----------------------------------------------
37C M o d u l e s
38C-----------------------------------------------
39 USE message_mod
40C-----------------------------------------------
41C I m p l i c i t T y p e s
42C-----------------------------------------------
43#include "implicit_f.inc"
44C-----------------------------------------------
45C C o m m o n B l o c k s
46C-----------------------------------------------
47#include "com01_c.inc"
48C-----------------------------------------------
49C D u m m y A r g u m e n t s
50C-----------------------------------------------
51 INTEGER JFT,JLT,NUMEL,NIX,NFT,NSIGSH
52 INTEGER IX(NIX,*),PTSH(*)
54 . thk(*),thke(*),sigsh(nsigsh,*)
55C------------------------------------------------------
56C L o c a l V a r i a b l e s
57C-----------------------------------------------
58 INTEGER I,II,J,JJ,N
59C=======================================================================
60!
61 DO i=jft,jlt
62 IF (abs(isigi) /= 3.AND.abs(isigi) /= 4.AND.abs(isigi) /= 5) THEN
63 ii = i+nft
64 n = nint(sigsh(1,ii))
65 IF (n /= ix(nix,ii)) THEN
66 jj = ii
67 DO j = 1,numel
68 ii= j
69 n = nint(sigsh(1,ii))
70 IF (n == 0) GOTO 100
71 IF (n == ix(nix,jj)) GOTO 60
72 ENDDO
73 60 CONTINUE
74 ENDIF
75 ELSE
76 jj=nft+i
77 n =ix(nix,jj)
78 ii=ptsh(jj)
79 IF (ii == 0) GOTO 100
80 ENDIF
81!
82 IF (sigsh(3,ii) /= zero) THEN
83 thk(i)=sigsh(3,ii)
84 thke(i)=thk(i)
85 ENDIF
86!
87 100 CONTINUE
88 ENDDO ! DO I=JFT,JLT
89C-----------
90 RETURN
#define my_real
Definition cppsort.cpp:32