OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
userwindow_interface_routines.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!|| userwi_read ../engine/source/user_interface/userwindow_interface_routines.F
25!||--- called by ------------------------------------------------------
26!|| rdresb ../engine/source/output/restart/rdresb.F
27!||--- calls -----------------------------------------------------
28!|| read_db ../common_source/tools/input_output/read_db.F
29!|| read_i_c ../common_source/tools/input_output/write_routtines.c
30!||--- uses -----------------------------------------------------
31!|| message_mod ../engine/share/message_module/message_mod.f
32!|| user_windows_mod ../common_source/modules/user_windows_mod.f
33!||====================================================================
34 SUBROUTINE userwi_read(USER_WINDOWS,ISPMD,NSPMD,NUMNOD)
35!$COMMENT
36! -----------------------------------------------
37! ROUTINE DESCRIPTION :
38! ===================
39! Read Userlib Restart
40! ------------------------------------------------
41! DUMMY ARGUMENTS DESCRIPTION:
42! ===================
43!
44! NAME DESCRIPTION
45!
46! USER_WINDOWS USER Windows type
47! ISPMD Current SPMD domains
48! NSPMD #SPMD domains
49!------------------------------------------------------------------
50!$ENDCOMMENT
51C-----------------------------------------------
52C M o d u l e s
53C-----------------------------------------------
54 USE message_mod
55 USE user_windows_mod
56C-----------------------------------------------
57C I m p l i c i t T y p e s
58C-----------------------------------------------
59#include "implicit_f.inc"
60C-----------------------------------------------
61C D u m m y A r g u m e n t s
62C-----------------------------------------------
63 TYPE(user_windows_),INTENT(INOUT) :: USER_WINDOWS
64 INTEGER ,INTENT(IN) :: ISPMD
65 INTEGER ,INTENT(IN) :: NSPMD
66 INTEGER ,INTENT(IN) :: NUMNOD
67C-----------------------------------------------
68C L o c a l V a r i a b l e s
69C-----------------------------------------------
70C-----------------------------------------------
71C S o u r c e L i n e s
72C-----------------------------------------------
73 CALL read_i_c(user_windows%HAS_USER_WINDOW,1)
74
75 IF(user_windows%HAS_USER_WINDOW /= 0 ) THEN
76
77 IF (ispmd == 0)THEN
78 CALL read_i_c(user_windows%NUVAR,1)
79 CALL read_i_c(user_windows%NUVARI,1)
80 CALL read_i_c(user_windows%S_IUSER,1)
81 CALL read_i_c(user_windows%S_USER,1)
82 CALL read_i_c(user_windows%N_USERNODS,1)
83
84 ALLOCATE(user_windows%IUSER(user_windows%S_IUSER))
85 ALLOCATE(user_windows%USER(user_windows%S_USER))
86 ALLOCATE(user_windows%USERNODS(user_windows%N_USERNODS))
87
88 CALL read_i_c(user_windows%IUSER,user_windows%S_IUSER)
89 CALL read_db(user_windows%USREINT,1)
90 CALL read_db(user_windows%USER,user_windows%S_USER)
91 CALL read_i_c(user_windows%USERNODS,user_windows%N_USERNODS)
92
93 ! SPMD Structures
94 CALL read_i_c(user_windows%S_FR_USERW,1)
95 ALLOCATE(user_windows%IAD_USERW(nspmd+1))
96 ALLOCATE(user_windows%FR_USERW(user_windows%S_FR_USERW))
97
98 CALL read_i_c(user_windows%IAD_USERW,nspmd+1)
99 CALL read_i_c(user_windows%FR_USERW,user_windows%S_FR_USERW)
100
101 ! SAV & AR_SAV on ispmd==0
102 ALLOCATE(user_windows%A_SAV(3,numnod))
103 ALLOCATE(user_windows%AR_SAV(3,numnod))
104 CALL read_db(user_windows%A_SAV,3*numnod)
105 CALL read_db(user_windows%AR_SAV,3*numnod)
106
107 ! ALLOCATE WA to 3x NUMNOD
108 user_windows%S_WA = 3*numnod
109 ALLOCATE(user_windows%WA(3*numnod))
110 ELSE
111 CALL read_i_c(user_windows%S_FR_USERW,1)
112
113 ALLOCATE(user_windows%FR_USERW(user_windows%S_FR_USERW))
114
115 CALL read_i_c(user_windows%FR_USERW,user_windows%S_FR_USERW)
116
117 ENDIF
118 ENDIF
119 END
120!||====================================================================
121!|| userwi_write ../engine/source/user_interface/userwindow_interface_routines.f
122!||--- called by ------------------------------------------------------
123!|| wrrestp ../engine/source/output/restart/wrrestp.F
124!||--- calls -----------------------------------------------------
125!|| write_db ../common_source/tools/input_output/write_db.F
126!|| write_i_c ../common_source/tools/input_output/write_routtines.c
127!||--- uses -----------------------------------------------------
128!|| message_mod ../engine/share/message_module/message_mod.F
129!|| user_windows_mod ../common_source/modules/user_windows_mod.F
130!||====================================================================
131 SUBROUTINE userwi_write(USER_WINDOWS,ISPMD,NSPMD,NUMNOD)
132!$COMMENT
133 ! -----------------------------------------------
134 ! ROUTINE DESCRIPTION :
135 ! ===================
136 ! WRITE Userlib Restart
137 ! ------------------------------------------------
138 ! DUMMY ARGUMENTS DESCRIPTION:
139 ! ===================
140 !
141 ! NAME DESCRIPTION
142 !
143 ! USER_WINDOWS USER Windows type
144 ! ISPMD Current SPMD domains
145 ! NSPMD #SPMD domains
146 !------------------------------------------------------------------
147!$ENDCOMMENT
148C-----------------------------------------------
149C M o d u l e s
150C-----------------------------------------------
151 USE message_mod
152 USE user_windows_mod
153C-----------------------------------------------
154C I m p l i c i t T y p e s
155C-----------------------------------------------
156#include "implicit_f.inc"
157C-----------------------------------------------
158C D u m m y A r g u m e n t s
159C-----------------------------------------------
160 TYPE(user_windows_),INTENT(IN) :: USER_WINDOWS
161 INTEGER ,INTENT(IN) :: ISPMD
162 INTEGER ,INTENT(IN) :: NSPMD
163 INTEGER ,INTENT(IN) :: NUMNOD
164
165 CALL write_i_c(user_windows%HAS_USER_WINDOW,1)
166 IF(user_windows%HAS_USER_WINDOW /= 0 ) THEN
167
168 IF (ispmd == 0)THEN
169
170 CALL write_i_c(user_windows%NUVAR,1)
171 CALL write_i_c(user_windows%NUVARI,1)
172 CALL write_i_c(user_windows%S_IUSER,1)
173 CALL write_i_c(user_windows%S_USER,1)
174 CALL write_i_c(user_windows%N_USERNODS,1)
175
176 CALL write_i_c(user_windows%IUSER,user_windows%S_IUSER)
177 CALL write_db(user_windows%USREINT,1)
178 CALL write_db(user_windows%USER,user_windows%S_USER)
179 CALL write_i_c(user_windows%USERNODS,user_windows%N_USERNODS)
180
181 ! SPMD Structures
182 CALL write_i_c(user_windows%S_FR_USERW,1)
183 CALL write_i_c(user_windows%IAD_USERW,nspmd+1)
184 CALL write_i_c(user_windows%FR_USERW,user_windows%S_FR_USERW)
185
186 ! A_SAV & AR_SAV
187 CALL write_db(user_windows%A_SAV,3*numnod)
188 CALL write_db(user_windows%AR_SAV,3*numnod)
189
190 ELSE
191
192 CALL write_i_c(user_windows%S_FR_USERW,1)
193 CALL write_i_c(user_windows%FR_USERW,user_windows%S_FR_USERW)
194
195 ENDIF
196 ENDIF
197
198 END
199!||====================================================================
200!|| get_user_window_nodes ../engine/source/user_interface/userwindow_interface_routines.F
201!||--- uses -----------------------------------------------------
202!|| restmod ../engine/share/modules/restart_mod.F
203!|| user_interface_mod ../engine/source/modules/user_interface_mod.F90
204!||====================================================================
205 SUBROUTINE get_user_window_nodes(INTERNAL_ID,USER_ID)
206!$COMMENT
207 ! -----------------------------------------------
208 ! ROUTINE DESCRIPTION :
209 ! ===================
210 ! CALLBACK Routine Give to user Windows the list of nodes
211 ! As engine nodes & user nodes
212 ! ------------------------------------------------
213 ! DUMMY ARGUMENTS DESCRIPTION:
214 ! ===================
215 !
216 ! NAME DESCRIPTION
217 !
218 ! INTERNAL_ID : internal list
219 ! USER_ID : user id list
220 !------------------------------------------------------------------
221!$ENDCOMMENT
222C-----------------------------------------------
223C M o d u l e s
224C-----------------------------------------------
225 USE user_interface_mod
226 USE restmod
227C-----------------------------------------------
228C C o m m o n B l o c k s
229C-----------------------------------------------
230#include "implicit_f.inc"
231C-----------------------------------------------
232C D u m m y A r g u m e n t s
233C-----------------------------------------------
234 INTEGER,intent(INOUT),DIMENSION(USER_WINDOWS%N_USERNODS) :: INTERNAL_ID
235 INTEGER,intent(INOUT),DIMENSION(USER_WINDOWS%N_USERNODS) :: USER_ID
236C-----------------------------------------------
237C L o c a l V a r i a b l e s
238C-----------------------------------------------
239 INTEGER I,ND
240C-----------------------------------------------
241 IF(user_windows%HAS_USER_WINDOW /= 0)THEN
242 DO i=1,user_windows%N_USERNODS
243 nd = user_windows%USERNODS(i)
244 internal_id(i)=nd
245! USER_ID(I)=ITAB(ND)
246 user_id(i) = 0
247 ENDDO
248 ENDIF
249 END
250
251
252!||====================================================================
253!|| userwindow_get_a ../engine/source/user_interface/userwindow_interface_routines.F
254!||--- uses -----------------------------------------------------
255!|| user_interface_mod ../engine/source/modules/user_interface_mod.F90
256!||====================================================================
257 SUBROUTINE userwindow_get_a(A_BUF)
258C-----------------------------------------------
259C M o d u l e s
260C-----------------------------------------------
261 USE user_interface_mod
262C-----------------------------------------------
263C I m p l i c i t T y p e s
264C-----------------------------------------------
265#include "implicit_f.inc"
266C-----------------------------------------------
267C C o m m o n B l o c k s
268C-----------------------------------------------
269#include "com04_c.inc"
270C-----------------------------------------------
271C D u m m y A r g u m e n t s
272C-----------------------------------------------
273 DOUBLE PRECISION A_BUF(3,NUMNOD)
274C-----------------------------------------------
275C L o c a l V a r i a b l e s
276C-----------------------------------------------
277 INTEGER I,ND
278C-----------------------------------------------
279 IF(user_windows%HAS_USER_WINDOW /= 0)THEN
280 DO i=1,user_windows%N_USERNODS
281 nd = user_windows%USERNODS(i)
282 a_buf(1,i)=user_windows%A_SAV(1,nd)
283 a_buf(2,i)=user_windows%A_SAV(2,nd)
284 a_buf(3,i)=user_windows%A_SAV(3,nd)
285 ENDDO
286 ENDIF
287 END
288!||====================================================================
289!|| userwindow_get_ar ../engine/source/user_interface/userwindow_interface_routines.F
290!||--- uses -----------------------------------------------------
291!|| user_interface_mod ../engine/source/modules/user_interface_mod.F90
292!||====================================================================
293 SUBROUTINE userwindow_get_ar(AR_BUF)
294C-----------------------------------------------
295C M o d u l e s
296C-----------------------------------------------
297 USE user_interface_mod
298C-----------------------------------------------
299C I m p l i c i t T y p e s
300C-----------------------------------------------
301#include "implicit_f.inc"
302C-----------------------------------------------
303C C o m m o n B l o c k s
304C-----------------------------------------------
305#include "com04_c.inc"
306C-----------------------------------------------
307C D u m m y A r g u m e n t s
308C-----------------------------------------------
309 DOUBLE PRECISION AR_BUF(3,NUMNOD)
310C-----------------------------------------------
311C L o c a l V a r i a b l e s
312C-----------------------------------------------
313 INTEGER I,ND
314C-----------------------------------------------
315 IF(user_windows%HAS_USER_WINDOW /= 0)THEN
316 DO i=1,user_windows%N_USERNODS
317 nd = user_windows%USERNODS(i)
318 ar_buf(1,i)=user_windows%AR_SAV(1,nd)
319 ar_buf(2,i)=user_windows%AR_SAV(2,nd)
320 ar_buf(3,i)=user_windows%AR_SAV(3,nd)
321 ENDDO
322 ENDIF
323 END
message_mod
Definition message_mod.F:1249
user_windows_mod
Definition user_windows_mod.F:48
read_db
subroutine read_db(a, n)
Definition read_db.F:88
user_windows_mod::user_windows_
Definition user_windows_mod.F:58
userwi_write
subroutine userwi_write(user_windows, ispmd, nspmd, numnod)
Definition userwindow_interface_routines.F:132
userwindow_get_a
subroutine userwindow_get_a(a_buf)
Definition userwindow_interface_routines.F:258
userwi_read
subroutine userwi_read(user_windows, ispmd, nspmd, numnod)
Definition userwindow_interface_routines.F:35
userwindow_get_ar
subroutine userwindow_get_ar(ar_buf)
Definition userwindow_interface_routines.F:294
get_user_window_nodes
subroutine get_user_window_nodes(internal_id, user_id)
Definition userwindow_interface_routines.F:206
write_db
subroutine write_db(a, n)
Definition write_db.F:140
write_i_c
void write_i_c(int *w, int *len)
Definition write_routtines.c:645
read_i_c
void read_i_c(int *w, int *len)
Definition write_routtines.c:805