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

Go to the source code of this file.

Functions/Subroutines

subroutine c3eoff (jft, jlt, ixtg, etag, off)

Function/Subroutine Documentation

◆ c3eoff()

subroutine c3eoff ( integer jft,
integer jlt,
integer, dimension(nixtg,*) ixtg,
integer, dimension(*) etag,
off )

Definition at line 28 of file c3eoff.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-----------------------------------------------
36C-----------------------------------------------------------------
37C D u m m y A r g u m e n t s
38C-----------------------------------------------
39 INTEGER :: JFT, JLT, IXTG(NIXTG,*), ETAG(*)
40 my_real :: off(*)
41C-----------------------------------------------
42C L o c a l V a r i a b l e s
43C-----------------------------------------------
44 INTEGER IEL, N1, N2, N3, NALL
45
46 DO iel=jft,jlt
47 n1=ixtg(2,iel)
48 n2=ixtg(3,iel)
49 n3=ixtg(4,iel)
50 nall=etag(n1)*etag(n2)*etag(n3)
51 off(iel)=min(nall,1)
52 ENDDO
53
54 RETURN
#define my_real
Definition cppsort.cpp:32
#define min(a, b)
Definition macros.h:20