OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
outp_n_v.F File Reference
#include "implicit_f.inc"
#include "units_c.inc"
#include "task_c.inc"
#include "scr16_c.inc"
#include "spmd_c.inc"
#include "com01_c.inc"
#include "com04_c.inc"
#include "param_c.inc"
#include "scr17_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine outp_n_v (key, text, len, vect, numnod, itab, itabg, leng, nodglob, weight)
subroutine outp_n_v2 (fopt, npby, nom_sect, nom_wall)
subroutine outp_n_vc (key, text, len, vect, numnod, itab, itabg, leng, nodglob, weight)

Function/Subroutine Documentation

◆ outp_n_v()

subroutine outp_n_v ( character*10 key,
character*40 text,
integer len,
vect,
integer numnod,
integer, dimension(*) itab,
integer, dimension(*) itabg,
integer leng,
integer, dimension(*) nodglob,
integer, dimension(*) weight )

Definition at line 30 of file outp_n_v.F.

32C-----------------------------------------------
33C I m p l i c i t T y p e s
34C-----------------------------------------------
35#include "implicit_f.inc"
36C-----------------------------------------------
37C C o m m o n B l o c k s
38C-----------------------------------------------
39#include "units_c.inc"
40#include "task_c.inc"
41#include "scr16_c.inc"
42#include "spmd_c.inc"
43#include "com01_c.inc"
44C-----------------------------------------------
45C D u m m y A r g u m e n t s
46C-----------------------------------------------
47 CHARACTER*10 KEY
48 CHARACTER*40 TEXT
49 INTEGER ITAB(*), LEN, NUMNOD,WEIGHT(*),ITABG(*),LENG,
50 . NODGLOB(*)
51 my_real
52 . vect(3,*)
53C-----------------------------------------------
54C L o c a l V a r i a b l e s
55C-----------------------------------------------
56 INTEGER I,J,K
57
58 my_real
59 . vglob(3,leng)
60C-----------------------------------------------
61
62 IF (nspmd > 1) THEN
63
64 CALL spmd_doutp_vgath(vect,nodglob,weight,vglob)
65 IF (ispmd/=0) RETURN
66 ENDIF
67
68C
69 WRITE(iugeo,'(2A)')'/NODAL /VECTOR /',key
70 WRITE(iugeo,'(A)')text(1:len)
71 IF (outyy_fmt==2) THEN
72 WRITE(iugeo,'(A)')'#FORMAT: (I8,1P3E16.9) '
73 ELSE
74 WRITE(iugeo,'(A)')'#FORMAT: (I10,1P3E20.13) '
75 ENDIF
76 WRITE(iugeo,'(2A)')'# USRNOD X',
77 . ' Y Z'
78
79 IF (nspmd == 1) THEN
80 IF (outyy_fmt==2) THEN
81 WRITE(iugeo,'(I8,1P3E16.9)')
82 . (itab(j),(vect(i,j),i=1,3),j=1,numnod)
83 ELSE
84 WRITE(iugeo,'(I10,1P3E20.13)')
85 . (itab(j),(vect(i,j),i=1,3),j=1,numnod)
86 ENDIF
87 ELSE
88 IF (outyy_fmt==2) THEN
89 WRITE(iugeo,'(I8,1P3E16.9)')
90 . (itabg(j),(vglob(i,j),i=1,3),j=1,numnodg)
91 ELSE
92 WRITE(iugeo,'(I10,1P3E20.13)')
93 . (itabg(j),(vglob(i,j),i=1,3),j=1,numnodg)
94 ENDIF
95 ENDIF
96 RETURN
my_real
#define my_real
Definition cppsort.cpp:32
spmd_doutp_vgath
subroutine spmd_doutp_vgath(v, nodglob, weight, vgath)
Definition spmd_outp.F:714

◆ outp_n_v2()

subroutine outp_n_v2 ( fopt,
integer, dimension(nnpby,*) npby,
integer, dimension(lnopt1,*) nom_sect,
integer, dimension(lnopt1,*) nom_wall )

Definition at line 106 of file outp_n_v.F.

107C-----------------------------------------------
108C M o d u l e s
109C-----------------------------------------------
110C
111C-----------------------------------------------
112C I m p l i c i t T y p e s
113C-----------------------------------------------
114#include "implicit_f.inc"
115C-----------------------------------------------
116C C o m m o n B l o c k s
117C-----------------------------------------------
118#include "com04_c.inc"
119#include "param_c.inc"
120#include "scr16_c.inc"
121#include "scr17_c.inc"
122#include "task_c.inc"
123#include "units_c.inc"
124#include "com01_c.inc"
125C-----------------------------------------------
126C D u m m y A r g u m e n t s
127C-----------------------------------------------
128 INTEGER NPBY(NNPBY,*),NOM_SECT(LNOPT1,*),NOM_WALL(LNOPT1,*)
129 my_real fopt(6,*)
130C-----------------------------------------------
131C L o c a l V a r i a b l e s
132C-----------------------------------------------
133 INTEGER I,N
134C-----------------------------------------------
135 IF(nspmd > 1)THEN
136 CALL spmd_glob_dsum9(fopt,6*(nsect+nrbody+nrwall))
137 IF (ispmd/=0) THEN
138 DO n=1,nsect+nrbody+nrwall
139 DO i=1,6
140 fopt(i,n) = zero
141 ENDDO
142 ENDDO
143 RETURN
144 ENDIF
145 END IF
146C
147C----
148 WRITE(iugeo,'(A)')'/RBODY /VECTOR /FORCE'
149 WRITE(iugeo,'(A)')
150 . 'Rigid bodies : forces and moments'
151 IF (outyy_fmt==2) THEN
152 WRITE(iugeo,'(A)')'#FORMAT: (I8,1P3E16.9,/,8X,,1P3E16.9) '
153 WRITE(iugeo,'(2A,/,2A)')'#RBODYID',
154 . ' FX FY FZ',
155 . '# ',
156 . ' MX MY MZ'
157 ELSE
158 WRITE(iugeo,'(A)')'#FORMAT: (I10,1P3E20.13,/,10X,1P3E20.13) '
159 WRITE(iugeo,'(2A,/,2A)')'# RBODY_ID',
160 . ' FX FY FZ',
161 . '# ',
162 . ' MX MY MZ'
163C 12
164 END IF
165C
166C----
167 IF (outyy_fmt==2) THEN
168 WRITE(iugeo,'(I8,1P3E16.9,/,8X,1P3E16.9)')
169 . (npby(6,n),(fopt(i,nsect+n),i=1,3),
170 . (fopt(i,nsect+n),i=4,6),n=1,nrbody)
171 ELSE
172 WRITE(iugeo,'(I10,1P3E20.13,/,10X,1P3E20.13)')
173 . (npby(6,n),(fopt(i,nsect+n),i=1,3),
174 . (fopt(i,nsect+n),i=4,6),n=1,nrbody)
175 END IF
176C
177C----
178C
179C----
180 WRITE(iugeo,'(A)')'/SECTION /VECTOR /FORCE'
181 WRITE(iugeo,'(a)')
182 . 'sections forces and moments'
183 IF (OUTYY_FMT==2) THEN
184 WRITE(IUGEO,'(a)')'#FORMAT: (I8,1P3E16.9,/,16X,,1P3E16.9) '
185 WRITE(iugeo,'(2A,/,2A)')'#SECT_ID',
186 . ' FX FY FZ',
187 . '# ',
188 . ' MX MY MZ'
189 ELSE
190 WRITE(iugeo,'(A)')'#FORMAT: (I10,1P3E20.13,/,10X,1P3E20.13) '
191 WRITE(iugeo,'(2A,/,2A)')'# SECT_ID',
192 . ' FX FY FZ',
193 . '# ',
194 . ' MX MY MZ'
195C 12
196 ENDIF
197C
198C----
199 IF (outyy_fmt==2) THEN
200 WRITE(iugeo,'(I8,1P3E16.9,/,8X,1P3E16.9)')
201 . (nom_sect(1,n),(fopt(i,n),i=1,3),
202 . (fopt(i,n),i=4,6),n=1,nsect)
203 ELSE
204 WRITE(iugeo,'(I10,1P3E20.13,/,10X,1P3E20.13)')
205 . (nom_sect(1,n),(fopt(i,n),i=1,3),
206 . (fopt(i,n),i=4,6),n=1,nsect)
207 ENDIF
208C
209 WRITE(iugeo,'(A)')'/RWALL /VECTOR /FORCE'
210 WRITE(iugeo,'(A)')
211 . 'Rigid wall forces'
212 IF (outyy_fmt==2) THEN
213 WRITE(iugeo,'(A)')'#FORMAT: (2I8,1P3E16.9) '
214 WRITE(iugeo,'(2A)')'#RWAL_ID',
215 . ' FX FY FZ'
216 ELSE
217 WRITE(iugeo,'(A)')'#FORMAT: (2I10,1P3E20.13) '
218 WRITE(iugeo,'(2A)')'# RWAL_ID',
219 . ' FX FY FZ'
220C 12
221 ENDIF
222C
223 IF (outyy_fmt==2) THEN
224 WRITE(iugeo,'(I8,1P3E16.9)')
225 . (nom_wall(1,n),(fopt(i,nsect+nrbody+n),i=1,3),n=1,nrwall)
226 ELSE
227 WRITE(iugeo,'(I10,1P3E20.13)')
228 . (nom_wall(1,n),(fopt(i,nsect+nrbody+n),i=1,3),n=1,nrwall)
229 ENDIF
230C
231
232 RETURN
spmd_glob_dsum9
subroutine spmd_glob_dsum9(v, len)
Definition spmd_th.F:380

◆ outp_n_vc()

subroutine outp_n_vc ( character*10 key,
character*40 text,
integer len,
vect,
integer numnod,
integer, dimension(*) itab,
integer, dimension(*) itabg,
integer leng,
integer, dimension(*) nodglob,
integer, dimension(*) weight )

Definition at line 242 of file outp_n_v.F.

244C-----------------------------------------------
245C I m p l i c i t T y p e s
246C-----------------------------------------------
247#include "implicit_f.inc"
248C-----------------------------------------------
249C C o m m o n B l o c k s
250C-----------------------------------------------
251#include "units_c.inc"
252#include "task_c.inc"
253#include "scr16_c.inc"
254#include "spmd_c.inc"
255#include "com01_c.inc"
256C-----------------------------------------------
257C D u m m y A r g u m e n t s
258C-----------------------------------------------
259 CHARACTER*10 KEY
260 CHARACTER*40 TEXT
261 INTEGER ITAB(*), LEN, NUMNOD,WEIGHT(*),ITABG(*),LENG,
262 . NODGLOB(*)
263
264 my_real
265 . vect(3,*)
266C-----------------------------------------------
267C L o c a l V a r i a b l e s
268C-----------------------------------------------
269 INTEGER I,J,K
270
271 my_real
272 . vglob(3,numnodg)
273C-----------------------------------------------
274
275 IF (nspmd > 1) THEN
276
277 DO i=1,numnodg
278 vglob(1,i)=zero
279 vglob(2,i)=zero
280 vglob(3,i)=zero
281 ENDDO
282
283 DO k = 1, numnod
284 i = nodglob(k)
285 vglob(1,i) = vect(1,k)
286 vglob(2,i) = vect(2,k)
287 vglob(3,i) = vect(3,k)
288 END DO
289
290 CALL spmd_glob_dsum9(vglob,3*numnodg)
291 IF (ispmd/=0) RETURN
292 ENDIF
293
294C
295 WRITE(iugeo,'(2A)')'/NODAL /VECTOR /',key
296 WRITE(iugeo,'(A)')text(1:len)
297
298 IF (outyy_fmt==2) THEN
299 WRITE(iugeo,'(A)')'#FORMAT: (I8,1P3E16.9) '
300 ELSE
301 WRITE(iugeo,'(A)')'#FORMAT: (I10,1P3E20.13) '
302 ENDIF
303 WRITE(iugeo,'(2A)')'# USRNOD X',
304 . ' Y Z'
305
306 IF (nspmd == 1) THEN
307
308 IF (outyy_fmt==2) THEN
309 WRITE(iugeo,'(I8,1P3E16.9)')
310 . (itab(j),(vect(i,j),i=1,3),j=1,numnod)
311 ELSE
312 WRITE(iugeo,'(I10,1P3E20.13)')
313 . (itab(j),(vect(i,j),i=1,3),j=1,numnod)
314 ENDIF
315
316 ELSE
317
318 IF (outyy_fmt==2) THEN
319 WRITE(iugeo,'(I8,1P3E16.9)')
320 . (itabg(j),(vglob(i,j),i=1,3),j=1,numnodg)
321
322 ELSE
323
324 WRITE(iugeo,'(I10,1P3E20.13)')
325 . (itabg(j),(vglob(i,j),i=1,3),j=1,numnodg)
326
327 ENDIF
328
329
330 ENDIF
331 RETURN