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

Go to the source code of this file.

Functions/Subroutines

subroutine lagm_nhf (ncf, iadll, jll, lll, jcihf)

Function/Subroutine Documentation

◆ lagm_nhf()

subroutine lagm_nhf ( integer ncf,
integer, dimension(*) iadll,
integer, dimension(*) jll,
integer, dimension(*) lll,
integer, dimension(*) jcihf )

Definition at line 28 of file lagm_nhf.F.

29C----------------------------------------------------------------
30C I m p l i c i t T y p e s
31C-----------------------------------------------
32#include "implicit_f.inc"
33C-----------------------------------------------
34C C o m m o n B l o c k s
35C-----------------------------------------------
36#include "com04_c.inc"
37C-----------------------------------------------
38C D u m m y A r g u m e n t s
39C-----------------------------------------------
40 INTEGER NCF
41 INTEGER JCIHF(*), IADLL(*), JLL(*), LLL(*)
42C-----------------------------------------------
43C L o c a l V a r i a b l e s
44C-----------------------------------------------
45 INTEGER LTSM(6,NUMNOD)
46 INTEGER IC, IK, JC, IHF, HIJ
47C======================================================================|
48 ltsm = 0
49 ihf = 1
50 DO ic=1,ncf
51 DO ik=iadll(ic),iadll(ic+1)-1
52 ltsm(jll(ik),lll(ik)) = 1
53 ENDDO
54 DO jc=ic+1,ncf
55 hij = 0
56 DO ik=iadll(jc),iadll(jc+1)-1
57 hij = hij + ltsm(jll(ik),lll(ik))
58 ENDDO
59 IF (hij > 0) THEN
60 jcihf(ihf) = jc
61 ihf = ihf + 1
62 ENDIF
63 ENDDO
64 DO ik=iadll(ic),iadll(ic+1)-1
65 ltsm(jll(ik),lll(ik)) = 0
66 ENDDO
67 ENDDO
68C-----------
69 RETURN
subroutine jc(p, t, a, b, cm, cn, tref, tm, epsm, sigmam, jc_yield, tan_jc)
Definition sigeps106.F:339