Exodus 8.24
Loading...
Searching...
No Matches
/exodus_for/test/testwt2.f
1C Copyright(C) 1999-2020 National Technology & Engineering Solutions
2C of Sandia, LLC (NTESS). Under the terms of Contract DE-NA0003525 with
3C NTESS, the U.S. Government retains certain rights in this software.
4C
5C See packages/seacas/LICENSE for details
6
7 program testwt2
8
9c This is a test program for the Fortran binding of the EXODUS II
10c database write routines. It tests multiple simultaneous output files.
11
12c 09/07/93 V.R. Yarberry - Revised for 2.00 API
13
14 include 'exodusII.inc'
15
16 integer iin, iout
17 integer exoid, num_dim, num_nodes, num_elem, num_elem_blk
18 integer exoid2, num_dim2, num_nodes2, num_elem2, num_elem_blk2
19 integer num_elem_in_block(10), num_node_sets
20 integer num_elem_in_block2(10), num_node_sets2
21 integer num_side_sets, num_nodes_per_elem(10), numattr(10)
22 integer num_side_sets2, num_nodes_per_elem2(10), numattr2(10)
23 integer i, j, k, m, elem_map(5), connect(10)
24 integer elem_map2(5), connect2(10)
25 integer node_list(100), elem_list(100), side_list(100)
26 integer node_list2(100), elem_list2(100), side_list2(100)
27 integer ebids(10),ids(10),num_nodes_per_set(10)
28 integer num_elem_per_set(10), num_df_per_set(10)
29 integer ebids2(10)
30 integer df_ind(10), node_ind(10), elem_ind(10)
31 integer num_qa_rec, num_info
32 integer num_qa_rec2,num_info2
33 integer num_glo_vars, num_nod_vars, num_ele_vars
34 integer num_glo_vars2, num_nod_vars2, num_ele_vars2
35 integer truth_tab(3,5)
36 integer whole_time_step, num_time_steps
37 integer cpu_word_size, io_word_size
38 integer prop_array(2)
39
40 real glob_var_vals(100), nodal_var_vals(100)
41 real time_value, elem_var_vals(100)
42 real time_value2
43 real x(100), y(100), z(100)
44 real x2(100), y2(100), z2(100)
45 real attrib(100), dist_fact(100)
46 real attrib2(100), dist_fact2(100)
47
48 character*(MXLNLN) title
49 character*(MXLNLN) title2
50 character*(MXSTLN) coord_names(3)
51 character*(MXSTLN) coord_names2(3)
52 character*(MXSTLN) cname
53 character*(MXSTLN) cname2
54 character*(MXSTLN) var_names(3)
55 character*(MXSTLN) var_names2(3)
56 character*(MXSTLN) qa_record(4,2)
57 character*(MXSTLN) qa_record2(4,2)
58 character*(MXLNLN) inform(3)
59 character*(MXLNLN) inform2(3)
60 character*(MXSTLN) prop_names(2)
61
62 data iin /5/, iout /6/
63
64c create EXODUS II files
65
66 cpu_word_size = 0
67 io_word_size = 4
68
69c first create a "regular" file that contains everything except
70c history variable info
71
72 exoid = excre("test.exo",
73 1 exclob, cpu_word_size, io_word_size, ierr)
74 write (iout,'("after excre for test.exo,id: ",i4,", err=",i3)')
75 1 exoid, ierr
76 write (iout,'(" cpu word size: ",i4," io word size: ",i4)')
77 1 cpu_word_size, io_word_size
78 write (iout, '("after excre, error = ", i4)' ) ierr
79
80 exoid2= excre("test2.exo",
81 1 exclob, cpu_word_size, io_word_size, ierr)
82 write (iout,'("after excre for test2.exo,id: ",i4,", err=",i3)')
83 1 exoid2, ierr
84 write (iout, '("after excre (2), error = ", i4)' ) ierr
85
86c initialize file with parameters
87
88 title = "This is test 2"
89 num_dim = 3
90 num_nodes = 26
91 num_elem = 5
92 num_elem_blk = 5
93 num_node_sets = 2
94 num_side_sets = 5
95
96 call expini (exoid, title, num_dim, num_nodes,
97 1 num_elem, num_elem_blk, num_node_sets,
98 2 num_side_sets, ierr)
99
100 write (iout, '("after expini, error = ", i4)' ) ierr
101
102 title2 = "This is test 2"
103 num_dim2 = 3
104 num_nodes2 = 26
105 num_elem2 = 5
106 num_elem_blk2 = 5
107 num_node_sets2 = 2
108 num_side_sets2 = 5
109
110 call expini (exoid2, title2, num_dim2, num_nodes2,
111 1 num_elem2, num_elem_blk2, num_node_sets2,
112 2 num_side_sets2, ierr)
113
114 write (iout, '("after expini (2), error = ", i4)' ) ierr
115
116c write nodal coordinates values and names to database
117
118c Quad #1
119 x(1) = 0.0
120 x(2) = 1.0
121 x(3) = 1.0
122 x(4) = 0.0
123
124 y(1) = 0.0
125 y(2) = 0.0
126 y(3) = 1.0
127 y(4) = 1.0
128
129 z(1) = 0.0
130 z(2) = 0.0
131 z(3) = 0.0
132 z(4) = 0.0
133
134c Quad #2
135 x(5) = 1.0
136 x(6) = 2.0
137 x(7) = 2.0
138 x(8) = 1.0
139
140 y(5) = 0.0
141 y(6) = 0.0
142 y(7) = 1.0
143 y(8) = 1.0
144
145 z(5) = 0.0
146 z(6) = 0.0
147 z(7) = 0.0
148 z(8) = 0.0
149
150c Hex #1
151 x(9) = 0.0
152 x(10) = 10.0
153 x(11) = 10.0
154 x(12) = 1.0
155 x(13) = 1.0
156 x(14) = 10.0
157 x(15) = 10.0
158 x(16) = 1.0
159
160 y(9) = 0.0
161 y(10) = 0.0
162 y(11) = 0.0
163 y(12) = 0.0
164 y(13) = 10.0
165 y(14) = 10.0
166 y(15) = 10.0
167 y(16) = 10.0
168
169 z(9) = 0.0
170 z(10) = 0.0
171 z(11) =-10.0
172 z(12) =-10.0
173 z(13) = 0.0
174 z(14) = 0.0
175 z(15) =-10.0
176 z(16) =-10.0
177
178c Tetra #1
179 x(17) = 0.0
180 x(18) = 1.0
181 x(19) = 10.0
182 x(20) = 7.0
183
184 y(17) = 0.0
185 y(18) = 0.0
186 y(19) = 0.0
187 y(20) = 5.0
188
189 z(17) = 0.0
190 z(18) = 5.0
191 z(19) = 2.0
192 z(20) = 3.0
193
194c Wedge #1
195 x(21) = 3.0
196 x(22) = 6.0
197 x(23) = 0.0
198 x(24) = 3.0
199 x(25) = 6.0
200 x(26) = 0.0
201
202 y(21) = 0.0
203 y(22) = 0.0
204 y(23) = 0.0
205 y(24) = 2.0
206 y(25) = 2.0
207 y(26) = 2.0
208
209 z(21) = 6.0
210 z(22) = 0.0
211 z(23) = 0.0
212 z(24) = 6.0
213 z(25) = 2.0
214 z(26) = 0.0
215
216 call expcor (exoid, x, y, z, ierr)
217 write (iout, '("after expcor, error = ", i4)' ) ierr
218
219c Quad #1
220 x2(1) = 0.0
221 x2(2) = 1.0
222 x2(3) = 1.0
223 x2(4) = 0.0
224
225 y2(1) = 0.0
226 y2(2) = 0.0
227 y2(3) = 1.0
228 y2(4) = 1.0
229
230 z2(1) = 0.0
231 z2(2) = 0.0
232 z2(3) = 0.0
233 z2(4) = 0.0
234
235c Quad #2
236 x2(5) = 1.0
237 x2(6) = 2.0
238 x2(7) = 2.0
239 x2(8) = 1.0
240
241 y2(5) = 0.0
242 y2(6) = 0.0
243 y2(7) = 1.0
244 y2(8) = 1.0
245
246 z2(5) = 0.0
247 z2(6) = 0.0
248 z2(7) = 0.0
249 z2(8) = 0.0
250
251c Hex #1
252 x2(9) = 0.0
253 x2(10) = 10.0
254 x2(11) = 10.0
255 x2(12) = 1.0
256 x2(13) = 1.0
257 x2(14) = 10.0
258 x2(15) = 10.0
259 x2(16) = 1.0
260
261 y2(9) = 0.0
262 y2(10) = 0.0
263 y2(11) = 0.0
264 y2(12) = 0.0
265 y2(13) = 10.0
266 y2(14) = 10.0
267 y2(15) = 10.0
268 y2(16) = 10.0
269
270 z2(9) = 0.0
271 z2(10) = 0.0
272 z2(11) =-10.0
273 z2(12) =-10.0
274 z2(13) = 0.0
275 z2(14) = 0.0
276 z2(15) =-10.0
277 z2(16) =-10.0
278
279c Tetra #1
280 x2(17) = 0.0
281 x2(18) = 1.0
282 x2(19) = 10.0
283 x2(20) = 7.0
284
285 y2(17) = 0.0
286 y2(18) = 0.0
287 y2(19) = 0.0
288 y2(20) = 5.0
289
290 z2(17) = 0.0
291 z2(18) = 5.0
292 z2(19) = 2.0
293 z2(20) = 3.0
294
295c Wedge #1
296 x2(21) = 3.0
297 x2(22) = 6.0
298 x2(23) = 0.0
299 x2(24) = 3.0
300 x2(25) = 6.0
301 x2(26) = 0.0
302
303 y2(21) = 0.0
304 y2(22) = 0.0
305 y2(23) = 0.0
306 y2(24) = 2.0
307 y2(25) = 2.0
308 y2(26) = 2.0
309
310 z2(21) = 6.0
311 z2(22) = 0.0
312 z2(23) = 0.0
313 z2(24) = 6.0
314 z2(25) = 2.0
315 z2(26) = 0.0
316
317 call expcor (exoid2, x2, y2, z2, ierr)
318 write (iout, '("after expcor (2), error = ", i4)' ) ierr
319
320 coord_names(1) = "xcoor"
321 coord_names(2) = "ycoor"
322 coord_names(3) = "zcoor"
323
324 call expcon (exoid, coord_names, ierr)
325 write (iout, '("after expcon, error = ", i4)' ) ierr
326
327 coord_names2(1) = "xcoor"
328 coord_names2(2) = "ycoor"
329 coord_names2(3) = "zcoor"
330
331 call expcon (exoid2, coord_names2, ierr)
332 write (iout, '("after expcon (2), error = ", i4)' ) ierr
333
334c write element order map
335
336 do 10 i = 1, num_elem
337 elem_map(i) = i
33810 continue
339
340 call expmap (exoid, elem_map, ierr)
341 write (iout, '("after expmap, error = ", i4)' ) ierr
342
343 do 12 i = 1, num_elem2
344 elem_map2(i) = i
34512 continue
346
347 call expmap (exoid2, elem_map2, ierr)
348 write (iout, '("after expmap (2), error = ", i4)' ) ierr
349
350c write element block parameters
351
352 num_elem_in_block(1) = 1
353 num_elem_in_block(2) = 1
354 num_elem_in_block(3) = 1
355 num_elem_in_block(4) = 1
356 num_elem_in_block(5) = 1
357
358 num_nodes_per_elem(1) = 4
359 num_nodes_per_elem(2) = 4
360 num_nodes_per_elem(3) = 8
361 num_nodes_per_elem(4) = 4
362 num_nodes_per_elem(5) = 6
363
364 ebids(1) = 10
365 ebids(2) = 11
366 ebids(3) = 12
367 ebids(4) = 13
368 ebids(5) = 14
369
370 numattr(1) = 1
371 numattr(2) = 1
372 numattr(3) = 1
373 numattr(4) = 1
374 numattr(5) = 1
375
376 cname = "quad"
377
378 call expelb (exoid,ebids(1),cname,num_elem_in_block(1),
379 1 num_nodes_per_elem(1),numattr(1),ierr)
380 write (iout, '("after expelb, error = ", i4)' ) ierr
381
382 call expelb (exoid,ebids(2),cname,num_elem_in_block(2),
383 1 num_nodes_per_elem(2),numattr(2),ierr)
384 write (iout, '("after expelb, error = ", i4)' ) ierr
385
386 cname = "hex"
387 call expelb (exoid,ebids(3),cname,num_elem_in_block(3),
388 1 num_nodes_per_elem(3),numattr(3),ierr)
389 write (iout, '("after expelb, error = ", i4)' ) ierr
390
391 cname = "tetra"
392 call expelb (exoid,ebids(4),cname,num_elem_in_block(4),
393 1 num_nodes_per_elem(4),numattr(4),ierr)
394 write (iout, '("after expelb, error = ", i4)' ) ierr
395
396 cname = "wedge"
397 call expelb (exoid,ebids(5),cname,num_elem_in_block(5),
398 1 num_nodes_per_elem(5),numattr(5),ierr)
399 write (iout, '("after expelb, error = ", i4)' ) ierr
400
401 num_elem_in_block2(1) = 1
402 num_elem_in_block2(2) = 1
403 num_elem_in_block2(3) = 1
404 num_elem_in_block2(4) = 1
405 num_elem_in_block2(5) = 1
406
407 num_nodes_per_elem2(1) = 4
408 num_nodes_per_elem2(2) = 4
409 num_nodes_per_elem2(3) = 8
410 num_nodes_per_elem2(4) = 4
411 num_nodes_per_elem2(5) = 6
412
413 ebids2(1) = 10
414 ebids2(2) = 11
415 ebids2(3) = 12
416 ebids2(4) = 13
417 ebids2(5) = 14
418
419 numattr2(1) = 1
420 numattr2(2) = 1
421 numattr2(3) = 1
422 numattr2(4) = 1
423 numattr2(5) = 1
424
425 cname2 = "quad"
426
427 call expelb(exoid2,ebids2(1),cname2,num_elem_in_block2(1),
428 1 num_nodes_per_elem2(1),numattr2(1),ierr)
429 write (iout, '("after expelb (2), error = ", i4)' ) ierr
430
431 call expelb(exoid2,ebids2(2),cname2,num_elem_in_block2(2),
432 1 num_nodes_per_elem2(2),numattr2(2),ierr)
433 write (iout, '("after expelb (2), error = ", i4)' ) ierr
434
435 cname2 = "hex"
436 call expelb(exoid2,ebids2(3),cname2,num_elem_in_block2(3),
437 1 num_nodes_per_elem(3),numattr(3),ierr)
438 write (iout, '("after expelb (2), error = ", i4)' ) ierr
439
440 cname2 = "tetra"
441 call expelb(exoid2,ebids2(4),cname2,num_elem_in_block2(4),
442 1 num_nodes_per_elem2(4),numattr2(4),ierr)
443 write (iout, '("after expelb (2), error = ", i4)' ) ierr
444
445 cname2 = "wedge"
446 call expelb(exoid2,ebids2(5),cname2,num_elem_in_block2(5),
447 1 num_nodes_per_elem2(5),numattr2(5),ierr)
448 write (iout, '("after expelb (2), error = ", i4)' ) ierr
449
450c write element block properties
451
452 prop_names(1) = "MATL"
453 prop_names(2) = "DENSITY"
454 call exppn(exoid,exeblk,2,prop_names,ierr)
455 write (iout, '("after exppn, error = ", i4)' ) ierr
456
457 call expp(exoid, exeblk, ebids(1), "MATL", 10, ierr)
458 write (iout, '("after expp, error = ", i4)' ) ierr
459 call expp(exoid, exeblk, ebids(2), "MATL", 20, ierr)
460 write (iout, '("after expp, error = ", i4)' ) ierr
461 call expp(exoid, exeblk, ebids(3), "MATL", 30, ierr)
462 write (iout, '("after expp, error = ", i4)' ) ierr
463 call expp(exoid, exeblk, ebids(4), "MATL", 40, ierr)
464 write (iout, '("after expp, error = ", i4)' ) ierr
465 call expp(exoid, exeblk, ebids(5), "MATL", 50, ierr)
466 write (iout, '("after expp, error = ", i4)' ) ierr
467
468 call exppn(exoid2,exeblk,2,prop_names,ierr)
469 write (iout, '("after exppn (2), error = ", i4)' ) ierr
470
471 call expp(exoid2, exeblk, ebids(1), "MATL", 100, ierr)
472 write (iout, '("after expp (2), error = ", i4)' ) ierr
473 call expp(exoid2, exeblk, ebids(2), "MATL", 200, ierr)
474 write (iout, '("after expp (2), error = ", i4)' ) ierr
475 call expp(exoid2, exeblk, ebids(3), "MATL", 300, ierr)
476 write (iout, '("after expp (2), error = ", i4)' ) ierr
477 call expp(exoid2, exeblk, ebids(4), "MATL", 400, ierr)
478 write (iout, '("after expp (2), error = ", i4)' ) ierr
479 call expp(exoid2, exeblk, ebids(5), "MATL", 500, ierr)
480 write (iout, '("after expp (2), error = ", i4)' ) ierr
481
482c write element connectivity
483
484 connect(1) = 1
485 connect(2) = 2
486 connect(3) = 3
487 connect(4) = 4
488
489 call expelc (exoid, ebids(1), connect, ierr)
490 write (iout, '("after expelc, error = ", i4)' ) ierr
491
492 connect(1) = 5
493 connect(2) = 6
494 connect(3) = 7
495 connect(4) = 8
496
497 call expelc (exoid, ebids(2), connect, ierr)
498 write (iout, '("after expelc, error = ", i4)' ) ierr
499
500 connect(1) = 9
501 connect(2) = 10
502 connect(3) = 11
503 connect(4) = 12
504 connect(5) = 13
505 connect(6) = 14
506 connect(7) = 15
507 connect(8) = 16
508
509 call expelc (exoid, ebids(3), connect, ierr)
510 write (iout, '("after expelc, error = ", i4)' ) ierr
511
512 connect(1) = 17
513 connect(2) = 18
514 connect(3) = 19
515 connect(4) = 20
516
517 call expelc (exoid, ebids(4), connect, ierr)
518 write (iout, '("after expelc, error = ", i4)' ) ierr
519
520 connect(1) = 21
521 connect(2) = 22
522 connect(3) = 23
523 connect(4) = 24
524 connect(5) = 25
525 connect(6) = 26
526
527 call expelc (exoid, ebids(5), connect, ierr)
528 write (iout, '("after expelc, error = ", i4)' ) ierr
529
530 connect2(1) = 1
531 connect2(2) = 2
532 connect2(3) = 3
533 connect2(4) = 4
534
535 call expelc (exoid2, ebids2(1), connect2, ierr)
536 write (iout, '("after expelc (2), error = ", i4)' ) ierr
537
538 connect2(1) = 5
539 connect2(2) = 6
540 connect2(3) = 7
541 connect2(4) = 8
542
543 call expelc (exoid2, ebids2(2), connect2, ierr)
544 write (iout, '("after expelc (2), error = ", i4)' ) ierr
545
546 connect2(1) = 9
547 connect2(2) = 10
548 connect2(3) = 11
549 connect2(4) = 12
550 connect2(5) = 13
551 connect2(6) = 14
552 connect2(7) = 15
553 connect2(8) = 16
554
555 call expelc (exoid2, ebids2(3), connect2, ierr)
556 write (iout, '("after expelc (2), error = ", i4)' ) ierr
557
558 connect2(1) = 17
559 connect2(2) = 18
560 connect2(3) = 19
561 connect2(4) = 20
562
563 call expelc (exoid2, ebids2(4), connect2, ierr)
564 write (iout, '("after expelc (2), error = ", i4)' ) ierr
565
566 connect2(1) = 21
567 connect2(2) = 22
568 connect2(3) = 23
569 connect2(4) = 24
570 connect2(5) = 25
571 connect2(6) = 26
572
573 call expelc (exoid2, ebids2(5), connect2, ierr)
574 write (iout, '("after expelc (2), error = ", i4)' ) ierr
575
576c write element block attributes
577
578 attrib(1) = 3.14159
579 call expeat (exoid, ebids(1), attrib, ierr)
580 write (iout, '("after expeat, error = ", i4)' ) ierr
581
582 attrib(1) = 6.14159
583 call expeat (exoid, ebids(2), attrib, ierr)
584 write (iout, '("after expeat, error = ", i4)' ) ierr
585
586 call expeat (exoid, ebids(3), attrib, ierr)
587 write (iout, '("after expeat, error = ", i4)' ) ierr
588
589 call expeat (exoid, ebids(4), attrib, ierr)
590 write (iout, '("after expeat, error = ", i4)' ) ierr
591
592 call expeat (exoid, ebids(5), attrib, ierr)
593 write (iout, '("after expeat, error = ", i4)' ) ierr
594
595 attrib2(1) = 3.
596 call expeat (exoid2, ebids2(1), attrib2, ierr)
597 write (iout, '("after expeat (2), error = ", i4)' ) ierr
598
599 attrib2(1) = 6.
600 call expeat (exoid2, ebids2(2), attrib2, ierr)
601 write (iout, '("after expeat (2), error = ", i4)' ) ierr
602
603 call expeat (exoid2, ebids2(3), attrib2, ierr)
604 write (iout, '("after expeat (2), error = ", i4)' ) ierr
605
606 call expeat (exoid2, ebids2(4), attrib2, ierr)
607 write (iout, '("after expeat (2), error = ", i4)' ) ierr
608
609 call expeat (exoid2, ebids(5), attrib2, ierr)
610 write (iout, '("after expeat (2), error = ", i4)' ) ierr
611
612c write individual node sets
613
614 call expnp (exoid, 20, 5, 5, ierr)
615 write (iout, '("after expnp, error = ", i4)' ) ierr
616
617 node_list(1) = 100
618 node_list(2) = 101
619 node_list(3) = 102
620 node_list(4) = 103
621 node_list(5) = 104
622
623 dist_fact(1) = 1.0
624 dist_fact(2) = 2.0
625 dist_fact(3) = 3.0
626 dist_fact(4) = 4.0
627 dist_fact(5) = 5.0
628
629 call expns (exoid, 20, node_list, ierr)
630 write (iout, '("after expns, error = ", i4)' ) ierr
631 call expnsd (exoid, 20, dist_fact, ierr)
632 write (iout, '("after expnsd, error = ", i4)' ) ierr
633
634 call expnp (exoid, 21, 3, 3, ierr)
635 write (iout, '("after expnp, error = ", i4)' ) ierr
636
637 node_list(1) = 200
638 node_list(2) = 201
639 node_list(3) = 202
640
641 dist_fact(1) = 1.1
642 dist_fact(2) = 2.1
643 dist_fact(3) = 3.1
644
645 call expns (exoid, 21, node_list, ierr)
646 write (iout, '("after expns, error = ", i4)' ) ierr
647 call expnsd (exoid, 21, dist_fact, ierr)
648 write (iout, '("after expnsd, error = ", i4)' ) ierr
649
650 prop_names(1) = "FACE"
651 call expp(exoid, exnset, 20, prop_names(1), 4, ierr)
652 write (iout, '("after expp, error = ", i4)' ) ierr
653
654 call expp(exoid, exnset, 21, prop_names(1), 5, ierr)
655 write (iout, '("after expp, error = ", i4)' ) ierr
656
657 prop_array(1) = 1000
658 prop_array(2) = 2000
659
660 prop_names(1) = "VELOCITY"
661 call exppa(exoid, exnset, prop_names(1), prop_array, ierr)
662 write (iout, '("after exppa, error = ", i4)' ) ierr
663
664C**** file 2
665
666 call expnp (exoid2, 20, 5, 5, ierr)
667 write (iout, '("after expnp (2), error = ", i4)' ) ierr
668
669 node_list2(1) = 100
670 node_list2(2) = 101
671 node_list2(3) = 102
672 node_list2(4) = 103
673 node_list2(5) = 104
674
675 dist_fact2(1) = 1.0
676 dist_fact2(2) = 2.0
677 dist_fact2(3) = 3.0
678 dist_fact2(4) = 4.0
679 dist_fact2(5) = 5.0
680
681 call expns (exoid2, 20, node_list2, ierr)
682 write (iout, '("after expns (2), error = ", i4)' ) ierr
683 call expnsd (exoid2, 20, dist_fact2, ierr)
684 write (iout, '("after expnsd (2), error = ", i4)' ) ierr
685
686 call expnp (exoid2, 21, 3, 3, ierr)
687 write (iout, '("after expnp (2), error = ", i4)' ) ierr
688
689 node_list2(1) = 200
690 node_list2(2) = 201
691 node_list2(3) = 202
692
693 dist_fact2(1) = 1.1
694 dist_fact2(2) = 2.1
695 dist_fact2(3) = 3.1
696
697 call expns (exoid2, 21, node_list2, ierr)
698 write (iout, '("after expns (2), error = ", i4)' ) ierr
699 call expnsd (exoid2, 21, dist_fact2, ierr)
700 write (iout, '("after expnsd (2), error = ", i4)' ) ierr
701
702c write concatenated node sets; this produces the same information as
703c the above code which writes individual node sets
704
705 ids(1) = 20
706 ids(2) = 21
707
708 num_nodes_per_set(1) = 5
709 num_nodes_per_set(2) = 3
710
711 node_ind(1) = 1
712 node_ind(2) = 6
713
714 node_list(1) = 100
715 node_list(2) = 101
716 node_list(3) = 102
717 node_list(4) = 103
718 node_list(5) = 104
719 node_list(6) = 200
720 node_list(7) = 201
721 node_list(8) = 202
722
723 dist_fact(1) = 1.0
724 dist_fact(2) = 2.0
725 dist_fact(3) = 3.0
726 dist_fact(4) = 4.0
727 dist_fact(5) = 5.0
728 dist_fact(6) = 1.1
729 dist_fact(7) = 2.1
730 dist_fact(8) = 3.1
731
732c call expcns (exoid, ids, num_nodes_per_set, node_ind, node_list,
733c 1 dist_fact, ierr)
734c write (iout, '("after expcns, error = ", i4)' ) ierr
735
736 prop_names(1) = "FACE"
737 call expp(exoid2, exnset, 20, prop_names(1), 4, ierr)
738 write (iout, '("after expp (2), error = ", i4)' ) ierr
739
740 prop_names(1) = "FACE"
741 call expp(exoid2, exnset, 21, prop_names(1), 5, ierr)
742 write (iout, '("after expp (2), error = ", i4)' ) ierr
743
744 prop_array(1) = 1000
745 prop_array(2) = 2000
746
747 prop_names(1) = "VELOCITY"
748 call exppa(exoid2, exnset, prop_names(1), prop_array, ierr)
749 write (iout, '("after exppa (2), error = ", i4)' ) ierr
750
751c write individual side sets
752
753c side set #1 - quad
754
755 elem_list(1) = 2
756 elem_list(2) = 2
757
758 side_list(1) = 4
759 side_list(2) = 2
760
761 dist_fact(1) = 30.0
762 dist_fact(2) = 30.1
763 dist_fact(3) = 30.2
764 dist_fact(4) = 30.3
765
766 call expsp (exoid, 30, 2, 4, ierr)
767 write (iout, '("after expsp, error = ", i4)' ) ierr
768
769 call expss (exoid, 30, elem_list, side_list, ierr)
770 write (iout, '("after expss, error = ", i4)' ) ierr
771
772 call expssd (exoid, 30, dist_fact, ierr)
773 write (iout, '("after expssd, error = ", i4)' ) ierr
774
775c side set #2 - quad, spanning 2 elements
776
777 elem_list(1) = 1
778 elem_list(2) = 2
779
780 side_list(1) = 2
781 side_list(2) = 3
782
783 dist_fact(1) = 31.0
784 dist_fact(2) = 31.1
785 dist_fact(3) = 31.2
786 dist_fact(4) = 31.3
787
788 call expsp (exoid, 31, 2, 4, ierr)
789 write (iout, '("after expsp, error = ", i3)' ) ierr
790
791 call expss (exoid, 31, elem_list, side_list, ierr)
792 write (iout, '("after expss, error = ", i3)' ) ierr
793
794 call expssd (exoid, 31, dist_fact, ierr)
795 write (iout, '("after expssd, error = ", i3)' ) ierr
796
797c side set #3 - hex
798
799 elem_list(1) = 3
800 elem_list(2) = 3
801 elem_list(3) = 3
802 elem_list(4) = 3
803 elem_list(5) = 3
804 elem_list(6) = 3
805 elem_list(7) = 3
806
807 side_list(1) = 5
808 side_list(2) = 3
809 side_list(3) = 3
810 side_list(4) = 2
811 side_list(5) = 4
812 side_list(6) = 1
813 side_list(7) = 6
814
815 call expsp (exoid, 32, 7, 0, ierr)
816 write (iout, '("after expsp, error = ", i4)' ) ierr
817
818 call expss (exoid, 32, elem_list, side_list, ierr)
819 write (iout, '("after expss, error = ", i4)' ) ierr
820
821c side set #4 - tetras
822
823 elem_list(1) = 4
824 elem_list(2) = 4
825 elem_list(3) = 4
826 elem_list(4) = 4
827
828 side_list(1) = 1
829 side_list(2) = 2
830 side_list(3) = 3
831 side_list(4) = 4
832
833 call expsp (exoid, 33, 4, 0, ierr)
834 write (iout, '("after expsp, error = ", i4)' ) ierr
835
836 call expss (exoid, 33, elem_list, side_list, ierr)
837 write (iout, '("after expss, error = ", i4)' ) ierr
838
839c side set #5 - wedges
840
841 elem_list(1) = 5
842 elem_list(2) = 5
843 elem_list(3) = 5
844 elem_list(4) = 5
845 elem_list(5) = 5
846
847 side_list(1) = 1
848 side_list(2) = 2
849 side_list(3) = 3
850 side_list(4) = 4
851 side_list(5) = 5
852
853 call expsp (exoid, 34, 5, 0, ierr)
854 write (iout, '("after expsp, error = ", i4)' ) ierr
855
856 call expss (exoid, 34, elem_list, side_list, ierr)
857 write (iout, '("after expss, error = ", i4)' ) ierr
858
859c side set #1 - quad
860
861 elem_list2(1) = 2
862 elem_list2(2) = 2
863
864 side_list2(1) = 4
865 side_list2(2) = 2
866
867 dist_fact2(1) = 30.0
868 dist_fact2(2) = 30.1
869 dist_fact2(3) = 30.2
870 dist_fact2(4) = 30.3
871
872 call expsp (exoid2, 30, 2, 4, ierr)
873 write (iout, '("after expsp (2), error = ", i4)' ) ierr
874
875 call expss (exoid2, 30, elem_list2, side_list2, ierr)
876 write (iout, '("after expss (2), error = ", i4)' ) ierr
877
878 call expssd (exoid2, 30, dist_fact2, ierr)
879 write (iout, '("after expssd (2), error = ", i4)' ) ierr
880
881c side set #2 - quad, spanning 2 elements
882
883 elem_list2(1) = 1
884 elem_list2(2) = 2
885
886 side_list2(1) = 2
887 side_list2(2) = 3
888
889 dist_fact2(1) = 31.0
890 dist_fact2(2) = 31.1
891 dist_fact2(3) = 31.2
892 dist_fact2(4) = 31.3
893
894 call expsp (exoid2, 31, 2, 4, ierr)
895 write (iout, '("after expsp (2), error = ", i3)' ) ierr
896
897 call expss (exoid2, 31, elem_list2, side_list2, ierr)
898 write (iout, '("after expss (2), error = ", i3)' ) ierr
899
900 call expssd (exoid2, 31, dist_fact2, ierr)
901 write (iout, '("after expssd (2), error = ", i3)' ) ierr
902
903c side set #3 - hex
904
905 elem_list2(1) = 3
906 elem_list2(2) = 3
907 elem_list2(3) = 3
908 elem_list2(4) = 3
909 elem_list2(5) = 3
910 elem_list2(6) = 3
911 elem_list2(7) = 3
912
913 side_list2(1) = 5
914 side_list2(2) = 3
915 side_list2(3) = 3
916 side_list2(4) = 2
917 side_list2(5) = 4
918 side_list2(6) = 1
919 side_list2(7) = 6
920
921 call expsp (exoid2, 32, 7, 0, ierr)
922 write (iout, '("after expsp (2), error = ", i4)' ) ierr
923
924 call expss (exoid2, 32, elem_list2, side_list2, ierr)
925 write (iout, '("after expss (2), error = ", i4)' ) ierr
926
927c side set #4 - tetras
928
929 elem_list2(1) = 4
930 elem_list2(2) = 4
931 elem_list2(3) = 4
932 elem_list2(4) = 4
933
934 side_list2(1) = 1
935 side_list2(2) = 2
936 side_list2(3) = 3
937 side_list2(4) = 4
938
939 call expsp (exoid2, 33, 4, 0, ierr)
940 write (iout, '("after expsp (2), error = ", i4)' ) ierr
941
942 call expss (exoid2, 33, elem_list2, side_list2, ierr)
943 write (iout, '("after expss (2), error = ", i4)' ) ierr
944
945c side set #5 - wedges
946
947 elem_list2(1) = 5
948 elem_list2(2) = 5
949 elem_list2(3) = 5
950 elem_list2(4) = 5
951 elem_list2(5) = 5
952
953 side_list2(1) = 1
954 side_list2(2) = 2
955 side_list2(3) = 3
956 side_list2(4) = 4
957 side_list2(5) = 5
958
959 call expsp (exoid2, 34, 5, 0, ierr)
960 write (iout, '("after expsp (2), error = ", i4)' ) ierr
961
962 call expss (exoid2, 34, elem_list2, side_list2, ierr)
963 write (iout, '("after expss (2), error = ", i4)' ) ierr
964
965c write concatenated side sets; this produces the same information as
966c the above code which writes individual side sets
967
968 ids(1) = 30
969 ids(2) = 31
970 ids(3) = 32
971 ids(4) = 33
972 ids(5) = 34
973
974c side set #1
975 node_list(1) = 8
976 node_list(2) = 5
977 node_list(3) = 6
978 node_list(4) = 7
979
980c side set #2
981 node_list(5) = 2
982 node_list(6) = 3
983 node_list(7) = 7
984 node_list(8) = 8
985
986c side set #3
987 node_list(9) = 9
988 node_list(10) = 12
989 node_list(11) = 11
990 node_list(12) = 10
991
992 node_list(13) = 11
993 node_list(14) = 12
994 node_list(15) = 16
995 node_list(16) = 15
996
997 node_list(17) = 16
998 node_list(18) = 15
999 node_list(19) = 11
1000 node_list(20) = 12
1001
1002 node_list(21) = 10
1003 node_list(22) = 11
1004 node_list(23) = 15
1005 node_list(24) = 14
1006
1007 node_list(25) = 13
1008 node_list(26) = 16
1009 node_list(27) = 12
1010 node_list(28) = 9
1011
1012 node_list(29) = 14
1013 node_list(30) = 13
1014 node_list(31) = 9
1015 node_list(32) = 10
1016
1017 node_list(33) = 16
1018 node_list(34) = 13
1019 node_list(35) = 14
1020 node_list(36) = 15
1021
1022c side set #4
1023 node_list(37) = 17
1024 node_list(38) = 18
1025 node_list(39) = 20
1026
1027 node_list(40) = 18
1028 node_list(41) = 19
1029 node_list(42) = 20
1030
1031 node_list(43) = 20
1032 node_list(44) = 19
1033 node_list(45) = 17
1034
1035 node_list(46) = 19
1036 node_list(47) = 18
1037 node_list(48) = 17
1038
1039c side set #5
1040 node_list(49) = 25
1041 node_list(50) = 24
1042 node_list(51) = 21
1043 node_list(52) = 22
1044
1045 node_list(53) = 26
1046 node_list(54) = 25
1047 node_list(55) = 22
1048 node_list(56) = 23
1049
1050 node_list(57) = 26
1051 node_list(58) = 23
1052 node_list(59) = 21
1053 node_list(60) = 24
1054
1055 node_list(61) = 23
1056 node_list(62) = 22
1057 node_list(63) = 21
1058
1059 node_list(64) = 24
1060 node_list(65) = 25
1061 node_list(66) = 26
1062
1063 num_elem_per_set(1) = 2
1064 num_elem_per_set(2) = 2
1065 num_elem_per_set(3) = 7
1066 num_elem_per_set(4) = 4
1067 num_elem_per_set(5) = 5
1068
1069 num_nodes_per_set(1) = 4
1070 num_nodes_per_set(2) = 4
1071 num_nodes_per_set(3) = 28
1072 num_nodes_per_set(4) = 12
1073 num_nodes_per_set(5) = 20
1074
1075 elem_ind(1) = 1
1076 elem_ind(2) = 3
1077 elem_ind(3) = 5
1078 elem_ind(4) = 12
1079 elem_ind(5) = 16
1080
1081 node_ind(1) = 1
1082 node_ind(2) = 5
1083 node_ind(3) = 9
1084 node_ind(4) = 37
1085 node_ind(5) = 48
1086
1087 elem_list(1) = 3
1088 elem_list(2) = 3
1089 elem_list(3) = 1
1090 elem_list(4) = 3
1091 elem_list(5) = 4
1092 elem_list(6) = 4
1093 elem_list(7) = 4
1094 elem_list(8) = 4
1095 elem_list(9) = 4
1096 elem_list(10) = 4
1097 elem_list(11) = 4
1098 elem_list(12) = 5
1099 elem_list(13) = 5
1100 elem_list(14) = 5
1101 elem_list(15) = 5
1102 elem_list(16) = 6
1103 elem_list(17) = 6
1104 elem_list(18) = 6
1105 elem_list(19) = 6
1106 elem_list(20) = 6
1107
1108c side_list(1) = 1
1109c side_list(2) = 2
1110c side_list(3) = 3
1111c side_list(4) = 4
1112
1113c call excn2s(exoid, num_elem_per_set, num_nodes_per_set, elem_ind,
1114c 1 node_ind, elem_list, node_list, side_list, ierr)
1115c write (iout, '("after excn2s, error = ", i4)' ) ierr
1116
1117 num_df_per_set(1) = 4
1118 num_df_per_set(2) = 4
1119 num_df_per_set(3) = 0
1120 num_df_per_set(4) = 0
1121 num_df_per_set(5) = 0
1122
1123 df_ind(1) = 1
1124 df_ind(2) = 5
1125
1126 dist_fact(1) = 30.0
1127 dist_fact(2) = 30.1
1128 dist_fact(3) = 30.2
1129 dist_fact(4) = 30.3
1130 dist_fact(5) = 31.0
1131 dist_fact(6) = 31.1
1132 dist_fact(7) = 31.2
1133 dist_fact(8) = 31.3
1134
1135c call expcss (exoid, ids, num_elem_per_set, num_df_per_set,
1136c 1 elem_ind, df_ind, elem_list, side_list, dist_fact,
1137c 2 ierr)
1138c write (iout, '("after expcss, error = ", i4)' ) ierr
1139
1140c call expcss (exoid2, ids, num_elem_per_set, num_df_per_set,
1141c 1 elem_ind, df_ind, elem_list, side_list, dist_fact,
1142c 2 ierr)
1143c write (iout, '("after expcss (2), error = ", i4)' ) ierr
1144
1145 prop_names(1) = "COLOR"
1146 call expp(exoid, exsset, 30, prop_names(1), 100, ierr)
1147 write (iout, '("after expp, error = ", i4)' ) ierr
1148
1149 call expp(exoid, exsset, 31, prop_names(1), 101, ierr)
1150 write (iout, '("after expp, error = ", i4)' ) ierr
1151
1152 prop_names(1) = "COLOR"
1153 call expp(exoid2, exsset, 30, prop_names(1), 100, ierr)
1154 write (iout, '("after expp (2), error = ", i4)' ) ierr
1155
1156 call expp(exoid2, exsset, 31, prop_names(1), 101, ierr)
1157 write (iout, '("after expp (2), error = ", i4)' ) ierr
1158
1159c write QA records
1160
1161 num_qa_rec = 2
1162
1163 qa_record(1,1) = "TESTWT2 fortran version"
1164 qa_record(2,1) = "testwt2"
1165 qa_record(3,1) = "07/07/93"
1166 qa_record(4,1) = "15:41:33"
1167 qa_record(1,2) = "FASTQ"
1168 qa_record(2,2) = "fastq"
1169 qa_record(3,2) = "07/07/93"
1170 qa_record(4,2) = "16:41:33"
1171
1172 call expqa (exoid, num_qa_rec, qa_record, ierr)
1173 write (iout, '("after expqa, error = ", i4)' ) ierr
1174
1175 num_qa_rec2 = 2
1176
1177 qa_record2(1,1) = "TESTWT2 fortran version"
1178 qa_record2(2,1) = "testwt2"
1179 qa_record2(3,1) = "07/07/93"
1180 qa_record2(4,1) = "15:41:33"
1181 qa_record2(1,2) = "FASTQ"
1182 qa_record2(2,2) = "fastq"
1183 qa_record2(3,2) = "07/07/93"
1184 qa_record2(4,2) = "16:41:33"
1185
1186 call expqa (exoid2, num_qa_rec2, qa_record2, ierr)
1187 write (iout, '("after expqa (2), error = ", i4)' ) ierr
1188
1189c write information records
1190
1191 num_info = 3
1192
1193 inform(1) = "This is the first information record."
1194 inform(2) = "This is the second information record."
1195 inform(3) = "This is the third information record."
1196
1197 call expinf (exoid, num_info, inform, ierr)
1198 write (iout, '("after expinf, error = ", i4)' ) ierr
1199
1200 num_info2 = 3
1201
1202 inform2(1) = "This is the first information record."
1203 inform2(2) = "This is the second information record."
1204 inform2(3) = "This is the third information record."
1205
1206 call expinf (exoid2, num_info2, inform2, ierr)
1207 write (iout, '("after expinf (2), error = ", i4)' ) ierr
1208
1209c write results variables parameters and names
1210
1211 num_glo_vars = 1
1212
1213 var_names(1) = "glo_vars"
1214
1215 call expvp (exoid, "g", num_glo_vars, ierr)
1216 write (iout, '("after expvp, error = ", i4)' ) ierr
1217 call expvan (exoid, "g", num_glo_vars, var_names, ierr)
1218 write (iout, '("after expvan, error = ", i4)' ) ierr
1219
1220 num_glo_vars2 = 1
1221
1222 var_names2(1) = "glo_vars"
1223
1224 call expvp (exoid2, "g", num_glo_vars2, ierr)
1225 write (iout, '("after expvp (2), error = ", i4)' ) ierr
1226 call expvan (exoid2, "g", num_glo_vars2, var_names2, ierr)
1227 write (iout, '("after expvan (2), error = ", i4)' ) ierr
1228
1229 num_nod_vars = 2
1230
1231 var_names(1) = "nod_var0"
1232 var_names(2) = "nod_var1"
1233
1234 call expvp (exoid, "n", num_nod_vars, ierr)
1235 write (iout, '("after expvp, error = ", i4)' ) ierr
1236 call expvan (exoid, "n", num_nod_vars, var_names, ierr)
1237 write (iout, '("after expvan, error = ", i4)' ) ierr
1238
1239 num_nod_vars2 = 2
1240
1241 var_names2(1) = "nod_var0"
1242 var_names2(2) = "nod_var1"
1243
1244 call expvp (exoid2, "n", num_nod_vars2, ierr)
1245 write (iout, '("after expvp (2), error = ", i4)' ) ierr
1246 call expvan (exoid2, "n", num_nod_vars2, var_names2, ierr)
1247 write (iout, '("after expvan (2), error = ", i4)' ) ierr
1248
1249 num_ele_vars = 3
1250
1251 var_names(1) = "ele_var0"
1252 var_names(2) = "ele_var1"
1253 var_names(3) = "ele_var2"
1254
1255 call expvp (exoid, "e", num_ele_vars, ierr)
1256 write (iout, '("after expvp, error = ", i4)' ) ierr
1257 call expvan (exoid, "e", num_ele_vars, var_names, ierr)
1258 write (iout, '("after expvan, error = ", i4)' ) ierr
1259
1260 num_ele_vars2 = 3
1261
1262 var_names2(1) = "ele_var0"
1263 var_names2(2) = "ele_var1"
1264 var_names2(3) = "ele_var2"
1265
1266 call expvp (exoid2, "e", num_ele_vars2, ierr)
1267 write (iout, '("after expvp (2), error = ", i4)' ) ierr
1268 call expvan (exoid2, "e", num_ele_vars2, var_names2, ierr)
1269 write (iout, '("after expvan, error = ", i4)' ) ierr
1270
1271c write element variable truth table
1272
1273 k = 0
1274
1275 do 30 i = 1,num_elem_blk
1276 do 20 j = 1,num_ele_vars
1277 truth_tab(j,i) = 1
127820 continue
127930 continue
1280
1281 call exgebi (exoid, ebids, ierr)
1282 write (iout, '("after exgebi, error = ", i4)' ) ierr
1283 call exgebi (exoid2, ebids2, ierr)
1284 write (iout, '("after exgebi (2), error = ", i4)' ) ierr
1285 call expvtt (exoid, num_elem_blk, num_ele_vars, truth_tab, ierr)
1286 write (iout, '("after expvtt, error = ", i4)' ) ierr
1287 call expvtt (exoid2, num_elem_blk, num_ele_vars, truth_tab, ierr)
1288 write (iout, '("after expvtt, error = ", i4)' ) ierr
1289
1290c for each time step, write the analysis results;
1291c the code below fills the arrays glob_var_vals,
1292c nodal_var_vals, and elem_var_vals with values for debugging purposes;
1293c obviously the analysis code will populate these arrays
1294
1295 whole_time_step = 1
1296 num_time_steps = 10
1297
1298 do 110 i = 1, num_time_steps
1299 time_value = real(i)/100
1300 time_value2 = real(i)/100
1301
1302c write time value to regular file
1303
1304 call exptim (exoid, whole_time_step, time_value, ierr)
1305 write (iout, '("after exptim, error = ", i4)' ) ierr
1306
1307 call exptim (exoid2, whole_time_step, time_value2, ierr)
1308 write (iout, '("after exptim (2), error = ", i4)' ) ierr
1309
1310c write global variables
1311
1312 do 50 j = 1, num_glo_vars
1313 glob_var_vals(j) = real(j+1) * time_value
131450 continue
1315
1316 call expgv (exoid, whole_time_step, num_glo_vars,
1317 1 glob_var_vals, ierr)
1318 write (iout, '("after expgv, error = ", i4)' ) ierr
1319
1320 call expgv (exoid2, whole_time_step, num_glo_vars,
1321 1 glob_var_vals, ierr)
1322 write (iout, '("after expgv (2), error = ", i4)' ) ierr
1323
1324c write nodal variables
1325
1326 do 70 k = 1, num_nod_vars
1327 do 60 j = 1, num_nodes
1328
1329 nodal_var_vals(j) = real(k) + (real(j) * time_value)
1330
133160 continue
1332
1333 call expnv (exoid, whole_time_step, k, num_nodes,
1334 1 nodal_var_vals, ierr)
1335 write (iout, '("after expnv, error = ", i4)' ) ierr
1336
1337 call expnv (exoid2, whole_time_step, k, num_nodes,
1338 1 nodal_var_vals, ierr)
1339 write (iout, '("after expnv (2), error = ", i4)' ) ierr
1340
134170 continue
1342
1343c write element variables
1344
1345 do 100 k = 1, num_ele_vars
1346 do 90 j = 1, num_elem_blk
1347 do 80 m = 1, num_elem_in_block(j)
1348
1349 elem_var_vals(m) = real(k+1) + real(j+1) +
1350 1 (real(m)*time_value)
1351
135280 continue
1353
1354 call expev (exoid, whole_time_step, k, ebids(j),
1355 1 num_elem_in_block(j), elem_var_vals, ierr)
1356 write (iout, '("after expev, error = ", i4)' ) ierr
1357 call expev (exoid2, whole_time_step, k, ebids(j),
1358 1 num_elem_in_block(j), elem_var_vals, ierr)
1359 write (iout, '("after expev (2), error = ", i4)' ) ierr
1360
136190 continue
1362100 continue
1363
1364 whole_time_step = whole_time_step + 1
1365
1366c update the data file; this should be done at the end of every time
1367c step to ensure that no data is lost if the analysis dies
1368
1369 call exupda (exoid, ierr)
1370 write (iout, '("after exupda, error = ", i4)' ) ierr
1371 call exupda (exoid2, ierr)
1372 write (iout, '("after exupda (2), error = ", i4)' ) ierr
1373
1374110 continue
1375
1376c close the EXODUS files
1377
1378 call exclos (exoid, ierr)
1379 write (iout, '("after exclos, error = ", i4)' ) ierr
1380
1381 call exclos (exoid2, ierr)
1382 write (iout, '("after exclos (2), error = ", i4)' ) ierr
1383
1384 stop
1385 end
real
#define real
Definition exo_jack-windows.c:59
expgv
void expgv(int *idexo, int *time_step, int *num_glob_vars, real *glob_var_vals, int *ierr)
Definition exo_jack.c:2184
excre
int excre(char *path, int *clobmode, int *cpu_word_size, int *io_word_size, int *ierr, int pathlen)
Definition exo_jack.c:179
expini
void expini(int *idexo, char *title, void_int *num_dim, void_int *num_nodes, void_int *num_elem, void_int *num_elem_blk, void_int *num_node_sets, void_int *num_side_sets, int *ierr, int titlelen)
Definition exo_jack.c:242
exgebi
void exgebi(int *idexo, void_int *elem_blk_ids, int *ierr)
Definition exo_jack.c:837
expcor
void expcor(int *idexo, real *x_coor, real *y_coor, real *z_coor, int *ierr)
Definition exo_jack.c:558
expnp
void expnp(int *idexo, entity_id *node_set_id, void_int *num_nodes_in_set, void_int *num_dist_in_set, int *ierr)
Definition exo_jack.c:1505
expssd
void expssd(int *idexo, entity_id *side_set_id, real *side_set_dist_fact, int *ierr)
Definition exo_jack.c:1744
expnv
void expnv(int *idexo, int *time_step, int *nodal_var_index, void_int *num_nodes, real *nodal_var_vals, int *ierr)
Definition exo_jack.c:2215
expsp
void expsp(int *idexo, entity_id *side_set_id, void_int *num_sides_in_set, void_int *num_df_in_set, int *ierr)
Definition exo_jack.c:1686
expvan
void expvan(int *idexo, char *var_type, int *num_vars, char *var_names, int *ierr, int var_typelen, int var_nameslen)
Definition exo_jack.c:1942
expqa
void expqa(int *idexo, int *num_qa_records, char *qa_record, int *ierr, int qa_recordlen)
Definition exo_jack.c:313
expeat
void expeat(int *idexo, entity_id *elem_blk_id, real *attrib, int *ierr)
Definition exo_jack.c:928
exclos
void exclos(int *idexo, int *ierr)
Definition exo_jack.c:230
expnsd
void expnsd(int *idexo, entity_id *node_set_id, real *node_set_dist_fact, int *ierr)
Definition exo_jack.c:1543
expev
void expev(int *idexo, int *time_step, int *elem_var_index, entity_id *elem_blk_id, void_int *num_elem_this_blk, real *elem_var_vals, int *ierr)
Definition exo_jack.c:2270
expp
void expp(int *idexo, int *obj_type, entity_id *obj_id, char *prop_name, entity_id *value, int *ierr, int prop_namelen)
Definition exo_jack.c:1369
expss
void expss(int *idexo, entity_id *side_set_id, void_int *side_set_elem_list, void_int *side_set_side_list, int *ierr)
Definition exo_jack.c:1724
expelb
void expelb(int *idexo, entity_id *elem_blk_id, char *elem_type, void_int *num_elem_this_blk, void_int *num_nodes_per_elem, void_int *num_attr, int *ierr, int elem_typelen)
Definition exo_jack.c:764
exppn
void exppn(int *idexo, int *obj_type, int *num_props, char *prop_names, int *ierr, int prop_nameslen)
Definition exo_jack.c:1228
expvtt
void expvtt(int *idexo, int *num_entity, int *num_var, int *var_tab, int *ierr)
Definition exo_jack.c:2062
expns
void expns(int *idexo, entity_id *node_set_id, void_int *node_set_node_list, int *ierr)
Definition exo_jack.c:1534
expmap
void expmap(int *idexo, void_int *elem_map, int *ierr)
Definition exo_jack.c:695
expelc
void expelc(int *idexo, entity_id *elem_blk_id, void_int *connect, int *ierr)
Definition exo_jack.c:846
expcon
void expcon(int *idexo, char *coord_names, int *ierr, int coord_nameslen)
Definition exo_jack.c:576
expinf
void expinf(int *idexo, int *num_info, char *info, int *ierr, int infolen)
Definition exo_jack.c:449
expvp
void expvp(int *idexo, char *var_type, int *num_vars, int *ierr, int var_typelen)
Definition exo_jack.c:1920
exppa
void exppa(int *idexo, int *obj_type, char *prop_name, void_int *values, int *ierr, int prop_namelen)
Definition exo_jack.c:1471
exupda
void exupda(int *idexo, int *ierr)
Definition exo_jack.c:236
exptim
void exptim(int *idexo, int *time_step, real *time_value, int *ierr)
Definition exo_jack.c:2399