OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
anioffc.F
Go to the documentation of this file.
1Copyright> OpenRadioss
2Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
3Copyright>
4Copyright> This program is free software: you can redistribute it and/or modify
5Copyright> it under the terms of the GNU Affero General Public License as published by
6Copyright> the Free Software Foundation, either version 3 of the License, or
7Copyright> (at your option) any later version.
8Copyright>
9Copyright> This program is distributed in the hope that it will be useful,
10Copyright> but WITHOUT ANY WARRANTY; without even the implied warranty of
11Copyright> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12Copyright> GNU Affero General Public License for more details.
13Copyright>
14Copyright> You should have received a copy of the GNU Affero General Public License
15Copyright> along with this program. If not, see <https://www.gnu.org/licenses/>.
16Copyright>
17Copyright>
18Copyright> Commercial Alternative: Altair Radioss Software
19Copyright>
20Copyright> As an alternative to this open-source version, Altair also offers Altair Radioss
21Copyright> software under a commercial license. Contact Altair to discuss further if the
22Copyright> commercial version may interest you: https://www.altair.com/radioss/.
23!||====================================================================
24!|| anioffc ../starter/source/output/anim/anioffc.F
25!||--- called by ------------------------------------------------------
26!|| genani1 ../starter/source/output/anim/genani1.F
27!||--- calls -----------------------------------------------------
28!||--- uses -----------------------------------------------------
29!||====================================================================
30 SUBROUTINE anioffc(ELBUF_TAB,IPARG,IOFF,EL2FA,NBF )
31C-----------------------------------------------
32C M o d u l e s
33C-----------------------------------------------
34 USE elbufdef_mod
35C-----------------------------------------------
36C I m p l i c i t T y p e s
37C-----------------------------------------------
38#include "implicit_f.inc"
39C-----------------------------------------------
40C C o m m o n B l o c k s
41C-----------------------------------------------
42#include "com01_c.inc"
43#include "com04_c.inc"
44#include "param_c.inc"
45C-----------------------------------------------
46C D u m m y A r g u m e n t s
47C-----------------------------------------------
48 INTEGER IPARG(NPARG,*),EL2FA(*),NBF,IOFF(*)
49 TYPE (ELBUF_STRUCT_), DIMENSION(NGROUP), TARGET :: ELBUF_TAB
50C-----------------------------------------------
51C L o c a l V a r i a b l e s
52C-----------------------------------------------
53C REAL
54 INTEGER I, NG, NEL, NFT, ITY, LFT,LLT, MLW,
55 . N1,N2,N3,N4,NN1,NN2,NN3,NN4,NN5,NN6,NN7,NN8,NN9,N_FA
56 REAL R4
57 my_real
58 . off
59 TYPE(g_bufel_) ,POINTER :: GBUF
60C---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
61 nn1 = 1
62 nn2 = 1
63 nn3 = 1
64 nn4 = nn3 + numelq
65 nn5 = nn4 + numelc
66 nn6 = nn5 + numeltg
67 nn7 = nn6
68 nn8 = nn7
69 nn9 = nn8
70C-----------------------------------------------
71C
72 DO ng=1,ngroup
73 mlw = iparg(1,ng)
74 nel = iparg(2,ng)
75 nft = iparg(3,ng)
76 ity = iparg(5,ng)
77 lft=1
78 llt=nel
79C-----------------------------------------------
80C QUAD
81C-----------------------------------------------
82 IF(ity==2)THEN
83 n_fa = nn3 + nft
84C-----------------------------------------------
85C COQUES 4 N
86C-----------------------------------------------
87 ELSEIF(ity==3)THEN
88 n_fa = nn4 + nft
89C-----------------------------------------------
90C COQUES 3 N
91C-----------------------------------------------
92 ELSEIF(ity==7)THEN
93 n_fa = nn5 + nft
94C-----------------------------------------------
95C RNUR
96C-----------------------------------------------
97 ELSEIF(ity==50)THEN
98 n_fa = nn9 + nft
99 ELSE
100 ity=0
101 ENDIF
102C-----------------------------------------------
103 IF(ity/=0)THEN
104 IF(mlw==0)THEN
105C-----------------------------------------------
106C DUMMY ELEMENTS
107C-----------------------------------------------
108 DO i=lft,llt
109 ioff(el2fa(n_fa+i)) = 0
110 ENDDO
111 ELSE
112C-----------------------------------------------
113C OFF
114C-----------------------------------------------
115 gbuf => elbuf_tab(ng)%GBUF
116 DO i=lft,llt
117 off = huge(off)
118 IF (mlw/=0 .AND. mlw/=13) off = elbuf_tab(ng)%GBUF%OFF(i)
119 ioff(el2fa(n_fa+i)) = nint(min(off,one))
120 ENDDO
121 ENDIF
122 ENDIF
123C-----------------------------------------------
124 ENDDO
125C-----------------------------------------------
126 CALL write_c_c(ioff,nbf)
127C
128 RETURN
129 END
my_real
#define my_real
Definition cppsort.cpp:32
min
#define min(a, b)
Definition macros.h:20
anioffc
subroutine anioffc(elbuf_tab, iparg, ioff, el2fa, nbf)
Definition anioffc.F:31
write_c_c
void write_c_c(int *w, int *len)
Definition write_routtines.c:591