OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
anin_ply_init.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!|| get_ply_nodid ../engine/source/output/anim/generate/anin_ply_init.F
25!||--- called by ------------------------------------------------------
26!|| parsor_ply ../engine/source/output/anim/generate/parsor_ply.F
27!||--- uses -----------------------------------------------------
28!|| plyxfem_mod ../engine/share/modules/plyxfem_mod.F
29!||====================================================================
30 INTEGER FUNCTION get_ply_nodid(IPLY,NODID,OFFSET)
31C-----------------------------------------------
32C M o d u l e s
33C-----------------------------------------------
34 USE plyxfem_mod
35C-----------------------------------------------
36C I m p l i c i t T y p e s
37C-----------------------------------------------
38#include "implicit_f.inc"
39C-----------------------------------------------
40C D u m m y A r g u m e n t s
41C-----------------------------------------------
42 INTEGER iply,nodid,offset
43C-----------------------------------------------
44C L O C A L V A R I A B L E S
45C-----------------------------------------------
46 INTEGER i,binf,bsup,milieu,size,empl,taille
47C-----------------------------------------------
48 size=plynod(iply)%PLYNUMNODS
49
50 binf=1
51 bsup=SIZE
52 empl = 0
53 IF (plynod(iply)%NODES(binf)==nodid)THEN
54 empl=binf
55 GOTO 100
56 ENDIF
57
58 IF (plynod(iply)%NODES(bsup)==nodid)THEN
59 empl=bsup
60 GOTO 100
61 ENDIF
62
63 taille = bsup-binf+1
64 DO WHILE ( taille > 5)
65 milieu = (bsup-binf)/2 + binf
66
67 IF (plynod(iply)%NODES(milieu) == nodid) THEN
68 empl = milieu
69 GOTO 100
70 ENDIF
71 IF ( plynod(iply)%NODES(milieu) < nodid) THEN
72 binf = milieu
73 ELSE
74 bsup = milieu
75 ENDIF
76 taille = bsup-binf+1
77 ENDDO
78
79 DO i=binf,bsup
80 IF (plynod(iply)%NODES(i) == nodid) THEN
81 empl = i
82 GOTO 100
83 ENDIF
84 ENDDO
85
86 100 CONTINUE
87
88 get_ply_nodid = plynod(iply)%PLYNODID(empl)+offset
89
90 RETURN
91 END
92!||====================================================================
93!|| get_ply_nod ../engine/source/output/anim/generate/anin_ply_init.F
94!||--- called by ------------------------------------------------------
95!|| parsor_ply ../engine/source/output/anim/generate/parsor_ply.F
96!|| spmd_iget_partn_ply ../engine/source/mpi/anim/spmd_iget_partn_ply.F
97!||--- uses -----------------------------------------------------
98!|| plyxfem_mod ../engine/share/modules/plyxfem_mod.F
99!||====================================================================
100 INTEGER FUNCTION get_ply_nod(IPLY,NODID)
101C-----------------------------------------------
102C M o d u l e s
103C-----------------------------------------------
104 USE plyxfem_mod
105C-----------------------------------------------
106C I m p l i c i t T y p e s
107C-----------------------------------------------
108#include "implicit_f.inc"
109C-----------------------------------------------
110C D u m m y A r g u m e n t s
111C-----------------------------------------------
112 INTEGER iply,nodid
113C-----------------------------------------------
114C L O C A L V A R I A B L E S
115C-----------------------------------------------
116 INTEGER i,binf,bsup,milieu,size,empl,taille
117C-----------------------------------------------
118 empl = 0
119 size=plynod(iply)%PLYNUMNODS
120
121 binf=1
122 bsup=SIZE
123
124 IF (plynod(iply)%NODES(binf)==nodid)THEN
125 empl=binf
126 GOTO 100
127 ENDIF
128
129 IF (plynod(iply)%NODES(bsup)==nodid)THEN
130 empl=bsup
131 GOTO 100
132 ENDIF
133
134 taille = bsup-binf+1
135 DO WHILE ( taille > 5)
136 milieu = (bsup-binf)/2 + binf
137
138 IF (plynod(iply)%NODES(milieu) == nodid) THEN
139 empl = milieu
140 GOTO 100
141 ENDIF
142 IF ( plynod(iply)%NODES(milieu) < nodid) THEN
143 binf = milieu
144 ELSE
145 bsup = milieu
146 ENDIF
147 taille = bsup-binf+1
148 ENDDO
149
150 DO i=binf,bsup
151 IF (plynod(iply)%NODES(i) == nodid) THEN
152 empl = i
153 GOTO 100
154 ENDIF
155 ENDDO
156
157 100 CONTINUE
158
159 get_ply_nod = empl
160
161 RETURN
162 END
163
164
165!||====================================================================
166!|| get_ply_elem ../engine/source/output/anim/generate/anin_ply_init.F
167!||--- called by ------------------------------------------------------
168!|| delnumbc_ply ../engine/source/output/anim/generate/delnumbc_ply.F
169!||--- uses -----------------------------------------------------
170!|| plyxfem_mod ../engine/share/modules/plyxfem_mod.F
171!||====================================================================
172 INTEGER FUNCTION get_ply_elem(IPLY,ELEMID)
173C-----------------------------------------------
174C M o d u l e s
175C-----------------------------------------------
176 USE plyxfem_mod
177C-----------------------------------------------
178C I m p l i c i t T y p e s
179C-----------------------------------------------
180#include "implicit_f.inc"
181C-----------------------------------------------
182C D u m m y A r g u m e n t s
183C-----------------------------------------------
184 INTEGER iply,elemid
185C-----------------------------------------------
186C L O C A L V A R I A B L E S
187C-----------------------------------------------
188 INTEGER i,binf,bsup,milieu,size,empl,taille
189C-----------------------------------------------
190 size=plyshell(iply)%PLYNUMSHELL
191 empl = 0
192 binf=1
193 bsup=SIZE
194
195 IF (plyshell(iply)%SHID(binf)==elemid)THEN
196 empl=binf
197 GOTO 100
198 ENDIF
199
200 IF (plyshell(iply)%SHID(bsup)==elemid)THEN
201 empl=bsup
202 GOTO 100
203 ENDIF
204
205 taille = bsup-binf+1
206 DO WHILE ( taille > 5)
207 milieu = (bsup-binf)/2 + binf
208
209 IF (plyshell(iply)%SHID(milieu) == elemid) THEN
210 empl = milieu
211 GOTO 100
212 ENDIF
213 IF ( plyshell(iply)%SHID(milieu) < elemid) THEN
214 binf = milieu
215 ELSE
216 bsup = milieu
217 ENDIF
218 taille = bsup-binf+1
219 ENDDO
220
221 DO i=binf,bsup
222 IF (plyshell(iply)%SHID(i) == elemid) THEN
223 empl = i
224 GOTO 100
225 ENDIF
226 ENDDO
227
228 100 CONTINUE
229
230 get_ply_elem = empl
231
232 RETURN
233 END
234
235
get_ply_nodid
integer function get_ply_nodid(iply, nodid, offset)
Definition anin_ply_init.F:31
get_ply_nod
integer function get_ply_nod(iply, nodid)
Definition anin_ply_init.F:101
get_ply_elem
integer function get_ply_elem(iply, elemid)
Definition anin_ply_init.F:173
plyxfem_mod
Definition plyxfem_mod.F:31
plyxfem_mod::plynod
type(plynods), dimension(:), allocatable plynod
Definition plyxfem_mod.F:44
plyxfem_mod::plyshell
type(plyshells), dimension(:), allocatable plyshell
Definition plyxfem_mod.F:56