Exodus 7.22

/exodus_for/test/testwt3.f
1 C Copyright (c) 2005-2017 National Technology & Engineering Solutions
2 C of Sandia, LLC (NTESS). Under the terms of Contract DE-NA0003525 with
3 C NTESS, the U.S. Government retains certain rights in this software.
4 C
5 C Redistribution and use in source and binary forms, with or without
6 C modification, are permitted provided that the following conditions are
7 C met:
8 C
9 C * Redistributions of source code must retain the above copyright
10 C notice, this list of conditions and the following disclaimer.
11 C
12 C * Redistributions in binary form must reproduce the above
13 C copyright notice, this list of conditions and the following
14 C disclaimer in the documentation and/or other materials provided
15 C with the distribution.
16 C
17 C * Neither the name of NTESS nor the names of its
18 C contributors may be used to endorse or promote products derived
19 C from this software without specific prior written permission.
20 C
21 C THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
22 C "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
23 C LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
24 C A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
25 C OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
26 C SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
27 C LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
28 C DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
29 C THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
30 C (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
31 C OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
32 C
33
34 program testwt3
35 c
36 c This is a test program for the Fortran binding of the EXODUS II
37 c database write routines. This test writes GENISIS (geometry)
38 c data to the history file.
39 c
40 c 08/10/93 V.R. Yarberry - Updated for use with 2.01 API
41
42 include 'exodus_app.inc'
43
44 integer iin, iout
45 integer exoid, exoidh, num_dim, num_nodes, num_elem, num_elem_blk
46 integer num_elem_in_block(2), num_node_sets
47 integer num_side_sets, error
48 integer i, j, k, m, elem_map(2), connect(4)
49 integer node_list(10), elem_list(10)
50 integer ebids(2),ids(2), num_nodes_per_set(2), num_elem_per_set(1)
51 integer node_ind(2), elem_ind(1), num_qa_rec, num_info
52 integer num_his_vars, num_glo_vars, num_nod_vars, num_ele_vars
53 integer truth_tab(3,2)
54 integer hist_time_step, whole_time_step, num_time_steps
55 integer cpu_word_size, io_word_size
56
57 real hist_var_vals(10), glob_var_vals(10), nodal_var_vals(8)
58 real time_value, elem_var_vals(20)
59 real x(8), y(8), dummy(1)
60 real attrib(1), dist_fact(8)
61
62 character*(MXLNLN) title
63 character*(MXSTLN) coord_names(3)
64 character*(MXSTLN) cname
65 character*(MXSTLN) var_names(3)
66 character*(MXSTLN) qa_record(4,2)
67 character*(MXLNLN) inform(3)
68
69 logical whole
70
71 data iin /5/, iout /6/
72
73 c
74 c create EXODUS II files
75 c
76 cpu_word_size = 4
77 io_word_size = 4
78 c
79 c first create a "regular" file that contains everything except
80 c history variable info
81 c
82 exoid = excre("test.exo",
83 1 "r", exclob, cpu_word_size, io_word_size, ierr)
84 write (iout,'("after excre for test.exo, id: ", i3)') exoid
85 write (iout,'("after excre, error = ", i3)') ierr
86
87 c
88 c create a "history" file if you will output history variables
89 c
90 exoidh = excre("testh.exo",
91 1 "h", exclob, cpu_word_size, io_word_size, ierr)
92 write (iout,'("after excre for testh.exo, id: ", i3)') exoidh
93 write (iout,'("after excre, error = ", i3)') ierr
94
95 c
96 c initialize file with parameters
97 c
98
99 title = "This is test 3 - genisis data in history file"
100 num_dim = 2
101 num_nodes = 8
102 num_elem = 2
103 num_elem_blk = 2
104 num_node_sets = 2
105 num_side_sets = 1
106
107 call expini (exoid, title, num_dim, num_nodes,
108 1 num_elem, num_elem_blk, num_node_sets,
109 2 num_side_sets, ierr)
110
111 write (iout, '("after expini, error = ", i3)' ) ierr
112
113 call expini (exoidh, title, num_dim, num_nodes,
114 1 num_elem, num_elem_blk, num_node_sets,
115 2 num_side_sets, ierr)
116
117 write (iout, '("after expini (h), error = ", i3)' ) ierr
118
119 c
120 c write nodal coordinates values and names to database
121 c
122
123 x(1) = 0.0
124 x(2) = 1.0
125 x(3) = 1.0
126 x(4) = 0.0
127 x(5) = 1.0
128 x(6) = 2.0
129 x(7) = 2.0
130 x(8) = 1.0
131 y(1) = 0.0
132 y(2) = 0.0
133 y(3) = 1.0
134 y(4) = 1.0
135 y(5) = 0.0
136 y(6) = 0.0
137 y(7) = 1.0
138 y(8) = 1.0
139
140 call expcor (exoid, x, y, dummy, ierr)
141 write (iout, '("after expcor, error = ", i3)' ) ierr
142
143 call expcor (exoidh, x, y, dummy, ierr)
144 write (iout, '("after expcor (h), error = ", i3)' ) ierr
145
146 coord_names(1) = "xcoorjun"
147 coord_names(2) = "ycoorjun"
148
149 call expcon (exoid, coord_names, ierr)
150 write (iout, '("after expcon, error = ", i3)' ) ierr
151
152 call expcon (exoidh, coord_names, ierr)
153 write (iout, '("after expcon (h), error = ", i3)' ) ierr
154
155
156 c
157 c write element order map
158 c
159
160 do 10 i = 1, num_elem
161 elem_map(i) = i
162 10 continue
163
164 call expmap (exoid, elem_map, ierr)
165 write (iout, '("after expmap, error = ", i3)' ) ierr
166
167 call expmap (exoidh, elem_map, ierr)
168 write (iout, '("after expmap (h), error = ", i3)' ) ierr
169
170 c
171 c write element block parameters
172 c
173
174 num_elem_in_block(1) = 1
175 num_elem_in_block(2) = 1
176
177 ebids(1) = 10
178 ebids(2) = 11
179
180 cname = "quadjunk"
181
182 call expelb (exoid, ebids(1), cname, num_elem_in_block(1),
183 1 4,1,ierr)
184 write (iout, '("after expelb, error = ", i3)' ) ierr
185
186 call expelb (exoid, ebids(2), cname, num_elem_in_block(2),
187 1 4,1,ierr)
188 write (iout, '("after expelb, error = ", i3)' ) ierr
189
190 call expelb (exoidh, ebids(1), cname, num_elem_in_block(1),
191 1 4,1,ierr)
192 write (iout, '("after expelb (h), error = ", i3)' ) ierr
193
194 call expelb (exoidh, ebids(2), cname, num_elem_in_block(2),
195 1 4,1,ierr)
196 write (iout, '("after expelbi(h), error = ", i3)' ) ierr
197
198 c
199 c write element connectivity
200 c
201
202 connect(1) = 1
203 connect(2) = 2
204 connect(3) = 3
205 connect(4) = 4
206
207 call expelc (exoid, ebids(1), connect, ierr)
208 write (iout, '("after expelc, error = ", i3)' ) ierr
209
210 call expelc (exoidh, ebids(1), connect, ierr)
211 write (iout, '("after expelci (h), error = ", i3)' ) ierr
212
213 connect(1) = 5
214 connect(2) = 6
215 connect(3) = 7
216 connect(4) = 8
217
218 call expelc (exoid, ebids(2), connect, ierr)
219 write (iout, '("after expelc, error = ", i3)' ) ierr
220
221 call expelc (exoidh, ebids(2), connect, ierr)
222 write (iout, '("after expelc (h), error = ", i3)' ) ierr
223
224 c
225 c write element block attributes
226 c
227
228 attrib(1) = 3.14159
229 call expeat (exoid, ebids(1), attrib, ierr)
230 write (iout, '("after expeat, error = ", i3)' ) ierr
231
232 call expeat (exoidh, ebids(1), attrib, ierr)
233 write (iout, '("after expeat (h), error = ", i3)' ) ierr
234
235 attrib(1) = 6.14159
236 call expeat (exoid, ebids(2), attrib, ierr)
237 write (iout, '("after expeat, error = ", i3)' ) ierr
238
239 call expeat (exoidh, ebids(2), attrib, ierr)
240 write (iout, '("after expeat (h), error = ", i3)' ) ierr
241
242 c
243 c write individual node sets
244 c
245
246 call expnp (exoid, 20, 5, ierr)
247 write (iout, '("after expnp, error = ", i3)' ) ierr
248
249 call expnp (exoidh, 20, 5, ierr)
250 write (iout, '("after expnp (h), error = ", i3)' ) ierr
251
252 node_list(1) = 100
253 node_list(2) = 101
254 node_list(3) = 102
255 node_list(4) = 103
256 node_list(5) = 104
257
258 dist_fact(1) = 1.0
259 dist_fact(2) = 2.0
260 dist_fact(3) = 3.0
261 dist_fact(4) = 4.0
262 dist_fact(5) = 5.0
263
264 call expns (exoid, 20, node_list, dist_fact, ierr)
265 write (iout, '("after expns, error = ", i3)' ) ierr
266
267 call expns (exoidh, 20, node_list, dist_fact, ierr)
268 write (iout, '("after expns (h), error = ", i3)' ) ierr
269
270 call expnp (exoid, 21, 3, ierr)
271 write (iout, '("after expnp, error = ", i3)' ) ierr
272
273 call expnp (exoidh, 21, 3, ierr)
274 write (iout, '("after expnp (h), error = ", i3)' ) ierr
275
276 node_list(1) = 200
277 node_list(2) = 201
278 node_list(3) = 202
279
280 dist_fact(1) = 1.1
281 dist_fact(2) = 2.1
282 dist_fact(3) = 3.1
283
284 call expns (exoid, 21, node_list, dist_fact, ierr)
285 write (iout, '("after expns, error = ", i3)' ) ierr
286
287 call expns (exoidh, 21, node_list, dist_fact, ierr)
288 write (iout, '("after expns (h), error = ", i3)' ) ierr
289
290 c
291 c write concatenated node sets; this produces the same information as
292 c the above code which writes individual node sets
293 c
294
295 c ids(1) = 20
296 c ids(2) = 21
297
298 c num_nodes_per_set(1) = 5
299 c num_nodes_per_set(2) = 3
300
301 c node_ind(1) = 1
302 c node_ind(2) = 6
303
304 c node_list(1) = 100
305 c node_list(2) = 101
306 c node_list(3) = 102
307 c node_list(4) = 103
308 c node_list(5) = 104
309 c node_list(6) = 200
310 c node_list(7) = 201
311 c node_list(8) = 202
312
313 c dist_fact(1) = 1.0
314 c dist_fact(2) = 2.0
315 c dist_fact(3) = 3.0
316 c dist_fact(4) = 4.0
317 c dist_fact(5) = 5.0
318 c dist_fact(6) = 1.1
319 c dist_fact(7) = 2.1
320 c dist_fact(8) = 3.1
321
322 c call expcns (exoid, ids, num_nodes_per_set, node_ind, node_list,
323 c 1 dist_fact, ierr)
324 c write (iout, '("after expcns, error = ", i3)' ) ierr
325
326 c
327 c write individual side sets
328 c
329
330 call expsp (exoid, 30, 2, 4, ierr)
331 write (iout, '("after expsp, error = ", i3)' ) ierr
332
333 call expsp (exoidh, 30, 2, 4, ierr)
334 write (iout, '("after expsp (h), error = ", i3)' ) ierr
335
336 elem_list(1) = 1
337 elem_list(2) = 2
338
339 node_list(1) = 1
340 node_list(2) = 2
341 node_list(3) = 3
342 node_list(4) = 4
343
344 dist_fact(1) = 0.0
345 dist_fact(2) = 0.0
346 dist_fact(3) = 0.0
347 dist_fact(4) = 0.0
348
349 call expss (exoid, 30, elem_list, node_list, ierr)
350 write (iout, '("after expss, error = ", i3)' ) ierr
351
352 call expssd (exoid, 30, dist_fact, ierr)
353 write (iout, '("after expssd, error = ", i3)' ) ierr
354
355 call expss (exoidh, 30, elem_list, node_list, ierr)
356 write (iout, '("after expss (h), error = ", i3)' ) ierr
357
358 call expssd (exoidh, 30, dist_fact, ierr)
359 write (iout, '("after expssd (h), error = ", i3)' ) ierr
360
361 c
362 c write concatenated side sets; this produces the same information as
363 c the above code which writes individual side sets
364 c
365
366 c ids(1) = 30
367
368 c num_elem_per_set(1) = 2
369
370 c num_nodes_per_set(1) = 4
371
372 c elem_ind(1) = 1
373
374 c node_ind(1) = 1
375
376 c elem_list(1) = 1
377 c elem_list(2) = 2
378
379 c node_list(1) = 1
380 c node_list(2) = 2
381 c node_list(3) = 3
382 c node_list(4) = 4
383
384 c dist_fact(1) = 0.0
385 c dist_fact(2) = 0.0
386 c dist_fact(3) = 0.0
387 c dist_fact(4) = 0.0
388
389 c call expcss (exoid, ids, num_elem_per_set, num_nodes_per_set,
390 c 1 elem_ind, node_ind, elem_list, node_list, dist_fact,
391 c 2 ierr)
392 c write (iout, '("after expcss, error = ", i3)' ) ierr
393
394 c
395 c write QA records
396 c
397
398 num_qa_rec = 2
399
400 qa_record(1,1) = "PRONTO2D"
401 qa_record(2,1) = "pronto2d"
402 qa_record(3,1) = "3/10/92"
403 qa_record(4,1) = "15:41:33"
404 qa_record(1,2) = "FASTQ"
405 qa_record(2,2) = "fastq"
406 qa_record(3,2) = "2/10/92"
407 qa_record(4,2) = "11:41:33"
408
409 call expqa (exoid, num_qa_rec, qa_record, ierr)
410 write (iout, '("after expqa, error = ", i3)' ) ierr
411
412 call expqa (exoidh, num_qa_rec, qa_record, ierr)
413 write (iout, '("after expqa (h), error = ", i3)' ) ierr
414
415
416 c
417 c write information records
418 c
419
420 num_info = 3
421
422 inform(1) = "This is the first information record."
423 inform(2) = "This is the second information record."
424 inform(3) = "This is the third information record."
425
426 call expinf (exoid, num_info, inform, ierr)
427 write (iout, '("after expinf, error = ", i3)' ) ierr
428
429 call expinf (exoidh, num_info, inform, ierr)
430 write (iout, '("after expinf (h), error = ", i3)' ) ierr
431
432
433 c write results variables parameters and names
434
435 num_his_vars = 1
436
437 var_names(1) = "his_vars"
438
439 call expvp (exoidh, "h", num_his_vars, ierr)
440 write (iout, '("after expvp, error = ", i3)' ) ierr
441 call expvan (exoidh, "h", num_his_vars, var_names, ierr)
442 write (iout, '("after expvan, error = ", i3)' ) ierr
443
444
445 num_glo_vars = 1
446
447 var_names(1) = "glo_vars"
448
449 call expvp (exoid, "g", num_glo_vars, ierr)
450 write (iout, '("after expvp, error = ", i3)' ) ierr
451 call expvan (exoid, "g", num_glo_vars, var_names, ierr)
452 write (iout, '("after expvan, error = ", i3)' ) ierr
453
454
455 num_nod_vars = 2
456
457 var_names(1) = "nod_var0"
458 var_names(2) = "nod_var1"
459
460 call expvp (exoid, "n", num_nod_vars, ierr)
461 write (iout, '("after expvp, error = ", i3)' ) ierr
462 call expvan (exoid, "n", num_nod_vars, var_names, ierr)
463 write (iout, '("after expvan, error = ", i3)' ) ierr
464
465
466 num_ele_vars = 3
467
468 var_names(1) = "ele_var0"
469 var_names(2) = "ele_var1"
470 var_names(3) = "ele_var2"
471
472 call expvp (exoid, "e", num_ele_vars, ierr)
473 write (iout, '("after expvp, error = ", i3)' ) ierr
474 call expvan (exoid, "e", num_ele_vars, var_names, ierr)
475 write (iout, '("after expvan, error = ", i3)' ) ierr
476
477 c
478 c write element variable truth table
479 c
480
481 k = 0
482
483 do 30 i = 1,num_elem_blk
484 do 20 j = 1,num_ele_vars
485 truth_tab(j,i) = 1
486 20 continue
487 30 continue
488
489 call exgebi (exoid, ebids, ierr)
490 write (iout, '("after exgebi, error = ", i3)' ) ierr
491 call expvtt (exoid, num_elem_blk, num_ele_vars, truth_tab, ebids,
492 & ierr)
493 write (iout, '("after expvtt, error = ", i3)' ) ierr
494
495 c
496 c for each time step, write the analysis results;
497 c the code below fills the arrays hist_var_vals, glob_var_vals,
498 c nodal_var_vals, and elem_var_vals with values for debugging purposes;
499 c obviously the analysis code will populate these arrays
500 c
501
502 whole = .true.
503 hist_time_step = 1
504 whole_time_step = 1
505 num_time_steps = 10
506
507 do 110 i = 1, num_time_steps
508 time_value = real(i)/100
509
510 c
511 c if history time step
512 c
513
514 c
515 c write time value to history file
516 c
517
518 call exptim (exoidh, hist_time_step, time_value, ierr)
519 write (iout, '("after exptim, error = ", i3)' ) ierr
520
521 c
522 c write history variables to history file
523 c
524
525 do 40 j = 1, num_his_vars
526 hist_var_vals(j) = real(j+1) * time_value
527 40 continue
528
529 call exphv (exoidh, hist_time_step, num_his_vars,
530 1 hist_var_vals, ierr)
531 write (iout, '("after exphv, error = ", i3)' ) ierr
532
533 hist_time_step = hist_time_step + 1
534 c
535 c update the history file
536 c
537
538 call exupda (exoidh, ierr)
539 write (iout, '("after exupda, error = ", i3)' ) ierr
540
541 c
542 c if whole time step
543 c
544
545 if (whole) then
546
547 c
548 c write time value to regular file
549 c
550
551 call exptim (exoid, whole_time_step, time_value, ierr)
552 write (iout, '("after exptim, error = ", i3)' ) ierr
553
554 c
555 c write global variables
556 c
557
558 do 50 j = 1, num_glo_vars
559 glob_var_vals(j) = real(j+1) * time_value
560 50 continue
561
562 call expgv (exoid, whole_time_step, num_glo_vars,
563 1 glob_var_vals, ierr)
564 write (iout, '("after expgv, error = ", i3)' ) ierr
565
566 c
567 c write nodal variables
568 c
569
570 do 70 k = 1, num_nod_vars
571 do 60 j = 1, num_nodes
572
573 nodal_var_vals(j) = real(k) + (real(j) * time_value)
574
575 60 continue
576
577 call expnv (exoid, whole_time_step, k, num_nodes,
578 1 nodal_var_vals, ierr)
579 write (iout, '("after expnv, error = ", i3)' ) ierr
580
581 70 continue
582
583 c
584 c write element variables
585 c
586
587 do 100 k = 1, num_ele_vars
588 do 90 j = 1, num_elem_blk
589 do 80 m = 1, num_elem_in_block(j)
590
591 elem_var_vals(m) = real(k+1) + real(j+1) +
592 1 (real(m)*time_value)
593
594 80 continue
595
596 call expev (exoid, whole_time_step, k, ebids(j),
597 1 num_elem_in_block(j), elem_var_vals, ierr)
598 write (iout, '("after expev, error = ", i3)' ) ierr
599
600 90 continue
601 100 continue
602
603 whole_time_step = whole_time_step + 1
604
605 c
606 c update the data file; this should be done at the end of every time
607 c step to ensure that no data is lost if the analysis dies
608 c
609 call exupda (exoid, ierr)
610 write (iout, '("after exupda, error = ", i3)' ) ierr
611
612 endif
613
614 110 continue
615
616 c
617 c close the EXODUS files
618 c
619 call exclos (exoid, ierr)
620 write (iout, '("after exclos, error = ", i3)' ) ierr
621
622 call exclos (exoidh, ierr)
623 write (iout, '("after exclos, error = ", i3)' ) ierr
624
625 stop
626 end
627
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:783
expns
void expns(int *idexo, entity_id *node_set_id, void_int *node_set_node_list, int *ierr)
Definition: exo_jack.c:1529
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:1723
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:1947
exptim
void exptim(int *idexo, int *time_step, real *time_value, int *ierr)
Definition: exo_jack.c:2327
exclos
void exclos(int *idexo, int *ierr)
Definition: exo_jack.c:234
exgebi
void exgebi(int *idexo, void_int *elem_blk_ids, int *ierr)
Definition: exo_jack.c:860
expelc
void expelc(int *idexo, entity_id *elem_blk_id, void_int *connect, int *ierr)
Definition: exo_jack.c:869
expcon
void expcon(int *idexo, char *coord_names, int *ierr, int coord_nameslen)
Definition: exo_jack.c:588
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:1500
expqa
void expqa(int *idexo, int *num_qa_records, char *qa_record, int *ierr, int qa_recordlen)
Definition: exo_jack.c:318
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:1685
expcor
void expcor(int *idexo, real *x_coor, real *y_coor, real *z_coor, int *ierr)
Definition: exo_jack.c:570
expvtt
void expvtt(int *idexo, int *num_elem_blk, int *num_elem_var, int *elem_var_tab, int *ierr)
Definition: exo_jack.c:2056
expeat
void expeat(int *idexo, entity_id *elem_blk_id, real *attrib, int *ierr)
Definition: exo_jack.c:909
real
#define real
Definition: exo_jack-windows.c:86
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:246
expinf
void expinf(int *idexo, int *num_info, char *info, int *ierr, int infolen)
Definition: exo_jack.c:459
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:2143
exupda
void exupda(int *idexo, int *ierr)
Definition: exo_jack.c:240
excre
int excre(char *path, int *clobmode, int *cpu_word_size, int *io_word_size, int *ierr, int pathlen)
Definition: exo_jack.c:182
expgv
void expgv(int *idexo, int *time_step, int *num_glob_vars, real *glob_var_vals, int *ierr)
Definition: exo_jack.c:2112
expssd
void expssd(int *idexo, entity_id *side_set_id, real *side_set_dist_fact, int *ierr)
Definition: exo_jack.c:1743
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:2198
expvp
void expvp(int *idexo, char *var_type, int *num_vars, int *ierr, int var_typelen)
Definition: exo_jack.c:1925
expmap
void expmap(int *idexo, void_int *elem_map, int *ierr)
Definition: exo_jack.c:710