MED fichier: Fichier source de medfield.f

MED fichier

- Documentation MED
- Guides d'utilisation
- Guides de référence

medfield.f
Aller à la documentation de ce fichier.
1 C* This file is part of MED.
2 C*
3 C* COPYRIGHT (C) 1999 - 2019 EDF R&D, CEA/DEN
4 C* MED is free software: you can redistribute it and/or modify
5 C* it under the terms of the GNU Lesser General Public License as published by
6 C* the Free Software Foundation, either version 3 of the License, or
7 C* (at your option) any later version.
8 C*
9 C* MED is distributed in the hope that it will be useful,
10 C* but WITHOUT ANY WARRANTY; without even the implied warranty of
11 C* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 C* GNU Lesser General Public License for more details.
13 C*
14 C* You should have received a copy of the GNU Lesser General Public License
15 C* along with MED. If not, see <http://www.gnu.org/licenses/>.
16 C*
17 c
18 c
19 c
20 subroutine mfdcre(fid,fname,ftype,ncomp,cname,cunit,
21 & dtunit,mname,cret)
22 c DEC$ ATTRIBUTES DLLEXPORT :: mfdcre
23 c
24 implicit none
25 save
26 character*(*) fname,cname,cunit,dtunit,mname
27 integer*8 fid
28 integer ncomp,cret,ftype
29 integer mfdfcre
30 c
31 cret = mfdfcre(fid,fname,len(fname),ftype,
32 & ncomp,cname,16*ncomp,cunit,16*ncomp,
33 & dtunit,len(dtunit),mname,len(mname))
34 c
35 return
36 end
37 c
38 c
39 c
40 subroutine mfdrvw(fid,fname,numdt,numit,dt,
41 & etype,gtype,swm,cs,n,val,cret)
42 c DEC$ ATTRIBUTES DLLEXPORT :: mfdrvw
43 c
44 implicit none
45 save
46 character*(*) fname
47 integer numdt,numit
48 real*8 dt,val(*)
49 integer*8 fid
50 integer cret,etype,gtype,swm,cs,n
51 integer mfdfrvw
52 c
53 cret = mfdfrvw(fid,fname,len(fname),numdt,numit,dt,
54 & etype,gtype,swm,cs,n,val)
55 c
56 return
57 end
58 c
59 c
60 c
61 subroutine mfdivw(fid,fname,numdt,numit,dt,
62 & etype,gtype,swm,cs,n,val,cret)
63 c DEC$ ATTRIBUTES DLLEXPORT :: mfdivw
64 c
65 implicit none
66 save
67 character*(*) fname
68 integer numdt,numit
69 real*8 dt
70 integer val(*)
71 integer*8 fid
72 integer cret,etype,gtype,swm,cs,n
73 integer mfdfivw
74 c
75 cret = mfdfivw(fid,fname,len(fname),numdt,numit,dt,
76 & etype,gtype,swm,cs,n,val)
77 c
78 return
79 end
80 c
81 c
82 c
83 subroutine mfdrpw(fid,fname,numdt,numit,dt,
84 & etype,gtype,
85 & stm,pname,lname,
86 & swm,cs,n,val,cret)
87 c DEC$ ATTRIBUTES DLLEXPORT :: mfdrpw
88 c
89 implicit none
90 save
91 character*(*) fname,pname,lname
92 integer numdt,numit
93 real*8 dt,val(*)
94 integer*8 fid
95 integer cret,etype,gtype,swm,cs,n,stm
96 integer mfdfrpw
97 c
98 cret = mfdfrpw(fid,fname,len(fname),numdt,numit,dt,
99 & etype,gtype,stm,pname,len(pname),
100 & lname,len(lname),swm,cs,n,val)
101 c
102 return
103 end
104 c
105 c
106 c
107 subroutine mfdipw(fid,fname,numdt,numit,dt,
108 & etype,gtype,
109 & stm,pname,lname,
110 & swm,cs,n,val,cret)
111 c DEC$ ATTRIBUTES DLLEXPORT :: mfdipw
112 c
113 implicit none
114 save
115 character*(*) fname,pname,lname
116 integer numdt,numit
117 real*8 dt
118 integer val(*)
119 integer*8 fid
120 integer cret,etype,gtype,swm,cs,n,stm
121 integer mfdfipw
122 c
123 cret = mfdfipw(fid,fname,len(fname),numdt,numit,dt,
124 & etype,gtype,stm,pname,len(pname),
125 & lname,len(lname),swm,cs,n,val,cret)
126 c
127 return
128 end
129 c
130 c
131 c
132 subroutine mfdraw(fid,fname,numdt,numit,dt,
133 & etype,gtype,lname,flt,
134 & val,cret)
135 c DEC$ ATTRIBUTES DLLEXPORT :: mfdraw
136 c
137 implicit none
138 save
139 character*(*) fname,lname
140 integer numdt,numit
141 real*8 dt,val(*)
142 integer*8 flt(*)
143 integer*8 fid
144 integer cret,etype,gtype
145 integer mfdfraw
146 c
147 cret = mfdfraw(fid,fname,len(fname),numdt,numit,dt,
148 & etype,gtype,lname,len(lname),flt,val)
149 c
150 return
151 end
152 c
153 c
154 c
155 subroutine mfdiaw(fid,fname,numdt,numit,dt,
156 & etype,gtype,lname,flt,
157 & val,cret)
158 c DEC$ ATTRIBUTES DLLEXPORT :: mfdiaw
159 c
160 implicit none
161 save
162 character*(*) fname,lname
163 integer numdt,numit
164 real*8 dt
165 integer val(*)
166 integer*8 flt(*)
167 integer*8 fid
168 integer cret,etype,gtype
169 integer mfdfiaw
170 c
171 cret = mfdfiaw(fid,fname,len(fname),numdt,numit,dt,
172 & etype,gtype,lname,len(lname),flt,val)
173 c
174 return
175 end
176 c
177 c
178 c
179 subroutine mfdnfd(fid,n,cret)
180 c DEC$ ATTRIBUTES DLLEXPORT :: mfdnfd
181 c
182 implicit none
183 save
184 integer*8 fid
185 integer n,cret
186 integer mfdfnfd
187 c
188 n = mfdfnfd(fid)
189 c
190 if (n.lt.0) then
191 cret = -1
192 else
193 cret = 0
194 endif
195 c
196 return
197 end
198 c
199 c
200 c
201 subroutine mfdnfc(fid,ind,n,cret)
202 c DEC$ ATTRIBUTES DLLEXPORT :: mfdnfc
203 c
204 implicit none
205 save
206 integer*8 fid
207 integer n,cret,ind
208 integer mfdfnfc
209 c
210 n = mfdfnfc(fid,ind)
211 c
212 if (n.lt.0) then
213 cret = -1
214 else
215 cret = 0
216 endif
217 c
218 return
219 end
220 c
221 c
222 c
223 subroutine mfdncn(fid,fname,n,cret)
224 c DEC$ ATTRIBUTES DLLEXPORT :: mfdncn
225 c
226 implicit none
227 save
228 integer*8 fid
229 integer n,cret
230 character *(*) fname
231 integer mfdfncn
232 c
233 n = mfdfncn(fid,fname,len(fname))
234 c
235 if (n.lt.0) then
236 cret = -1
237 else
238 cret = 0
239 endif
240 c
241 return
242 end
243 c
244 c
245 c
246 subroutine mfdfdi(fid, it, fname, mname, lmesh, type,
247 & cname, cunit, dtunit, nc, cret)
248 c DEC$ ATTRIBUTES DLLEXPORT :: mfdfdi
249 c
250 implicit none
251 save
252 c
253 character *(*) fname, mname, dtunit, cname, cunit
254 integer lmesh, cret
255 integer*8 fid
256 integer type, it, nc
257 integer mfdffdi
258 c
259 cret = mfdffdi(fid, it, fname, mname, lmesh, type,
260 & cname, cunit, dtunit, nc)
261 c DEC$ ATTRIBUTES DLLEXPORT :: mfdffdi
262 c
263 return
264 end
265 c
266 c
267 c
268 subroutine mfdfin(fid, fname, mname, lmesh, type,
269 & cname, cunit, dtunit, nc, cret)
270 c DEC$ ATTRIBUTES DLLEXPORT :: mfdfin
271 c
272 implicit none
273 save
274 c
275 character *(*) fname, mname, dtunit, cname, cunit
276 integer lmesh, cret
277 integer*8 fid
278 integer type, nc
279 integer mfdffin
280 c
281 cret = mfdffin(fid, fname, len(fname), mname, lmesh, type,
282 & cname, cunit, dtunit, nc)
283 c
284 return
285 end
286 c
287 c
288 c
289 subroutine mfdcsi(fid, fname, it, numdt, numit, dt, cret)
290 c DEC$ ATTRIBUTES DLLEXPORT :: mfdcsi
291 c
292 implicit none
293 save
294 c
295 character*(*) fname
296 integer cret
297 integer*8 fid
298 integer it, numdt, numit
299 real*8 dt
300 integer mfdfcsi
301 c
302 cret = mfdfcsi(fid,fname,len(fname),it,numdt,numit,dt)
303 c
304 return
305 end
306 c
307 c
308 c
309 subroutine mfdcmi(fid, fname, it, numdt, numit, dt,
310 & mnumdt, mnumit, cret)
311 c DEC$ ATTRIBUTES DLLEXPORT :: mfdcmi
312 c
313 implicit none
314 save
315 c
316 character*(*) fname
317 integer cret
318 integer*8 fid
319 integer it, numdt, numit, mnumdt, mnumit
320 real*8 dt
321 integer mfdfcmi
322 c
323 cret = mfdfcmi(fid,fname,len(fname),it,numdt,numit,dt,
324 & mnumdt,mnumit)
325 c
326 return
327 end
328 c
329 c
330 c
331 subroutine mfdcmw(fid, fname, numdt, numit,
332 & mnumdt, mnumit, cret)
333 c DEC$ ATTRIBUTES DLLEXPORT :: mfdcmw
334 c
335 implicit none
336 save
337 c
338 character*(*) fname
339 integer cret
340 integer*8 fid
341 integer numdt, numit, mnumdt, mnumit
342 integer mfdfcmw
343 c
344 cret = mfdfcmw(fid,fname,len(fname),numdt,numit,
345 & mnumdt,mnumit)
346 c
347 return
348 end
349 c
350 c
351 c
352 subroutine mfdnpf(fid,fname,numdt,numit,etype,gtype,
353 & dpname, dlname, n,cret)
354 c DEC$ ATTRIBUTES DLLEXPORT :: mfdnpf
355 c
356 implicit none
357 save
358 integer*8 fid
359 integer n,cret
360 integer numdt,numit,etype,gtype
361 character*(*) fname,dpname,dlname
362
363 integer mfdfnpf
364 c
365 n = mfdfnpf(fid,fname,len(fname),numdt,numit,etype,
366 & gtype,dpname,dlname)
367 c
368 if (n.lt.0) then
369 cret = -1
370 else
371 cret = 0
372 endif
373 c
374 return
375 end
376 c
377 c
378 c
379 subroutine mfdnva(fid,fname,numdt,numit,etype,gtype,n,cret)
380 c DEC$ ATTRIBUTES DLLEXPORT :: mfdnva
381 c
382 implicit none
383 save
384 character*(*) fname
385 integer*8 fid
386 integer n,cret,numdt,numit,etype,gtype
387 integer mfdfnva
388 c
389 n = mfdfnva(fid,fname,len(fname),numdt,numit,
390 & etype,gtype,cret)
391 c
392 if (n.lt.0) then
393 cret = -1
394 else
395 cret = 0
396 endif
397 c
398 return
399 end
400 c
401 c
402 c
403 subroutine mfdnvp(fid,fname,numdt,numit,etype,gtype,
404 & pit,stm,pname,psize,lname,nip,
405 & n,cret)
406 c DEC$ ATTRIBUTES DLLEXPORT :: mfdnvp
407 c
408 implicit none
409 save
410 character*(*) fname, pname, lname
411 integer pit,stm,psize
412 integer*8 fid
413 integer n,cret,numdt,numit,etype,gtype,nip
414 integer mfdfnvp
415 c
416 n = mfdfnvp(fid,fname,len(fname),numdt,numit,
417 & etype,gtype,pit,stm,pname,psize,lname,
418 & nip,cret)
419 c
420 if (n.lt.0) then
421 cret = -1
422 else
423 cret = 0
424 endif
425 c
426 return
427 end
428 c
429 c
430 c
431 subroutine mfdnpn(fid,fname,numdt,numit,etype,gtype,
432 & pname,stm,psize,lname,nip,
433 & n,cret)
434 c DEC$ ATTRIBUTES DLLEXPORT :: mfdnpn
435 c
436 implicit none
437 save
438 character*(*) fname, pname, lname
439 integer stm,psize
440 integer*8 fid
441 integer n,cret,numdt,numit,etype,gtype,nip
442 integer mfdfnpn
443 c
444 n = mfdfnpn(fid,fname,len(fname),numdt,numit,
445 & etype,gtype,pname,len(pname),stm,
446 & psize,lname,nip,cret)
447 c
448 if (n.lt.0) then
449 cret = -1
450 else
451 cret = 0
452 endif
453 c
454 return
455 end
456 c
457 c
458 c
459 subroutine mfdrvr(fid,fname,numdt,numit,
460 & etype,gtype,swm,cs,val,cret)
461 c DEC$ ATTRIBUTES DLLEXPORT :: mfdrvr
462 c
463 implicit none
464 save
465 character*(*) fname
466 integer numdt,numit
467 real*8 val(*)
468 integer*8 fid
469 integer cret,etype,gtype,swm,cs
470 integer mfdfrvr
471 c
472 cret = mfdfrvr(fid,fname,len(fname),numdt,numit,
473 & etype,gtype,swm,cs,val)
474 c
475 return
476 end
477 c
478 c
479 c
480 subroutine mfdivr(fid,fname,numdt,numit,
481 & etype,gtype,swm,cs,val,cret)
482 c DEC$ ATTRIBUTES DLLEXPORT :: mfdivr
483 c
484 implicit none
485 save
486 character*(*) fname
487 integer numdt,numit
488 integer val(*)
489 integer*8 fid
490 integer cret,etype,gtype,swm,cs
491 integer mfdfivr
492 c
493 cret = mfdfivr(fid,fname,len(fname),numdt,numit,
494 & etype,gtype,swm,cs,val)
495 c
496 return
497 end
498 c
499 c
500 c
501 subroutine mfdrpr(fid,fname,numdt,numit,
502 & etype,gtype,
503 & stm,pname,
504 & swm,cs,val,cret)
505 c DEC$ ATTRIBUTES DLLEXPORT :: mfdrpr
506 c
507 implicit none
508 save
509 character*(*) fname,pname
510 integer numdt,numit
511 real*8 val(*)
512 integer*8 fid
513 integer cret,etype,gtype,swm,cs,stm
514 integer mfdfrpr
515 c
516 cret = mfdfrpr(fid,fname,len(fname),numdt,numit,
517 & etype,gtype,stm,pname,len(pname),swm,cs,val)
518 c
519 return
520 end
521 c
522 c
523 c
524 subroutine mfdipr(fid,fname,numdt,numit,
525 & etype,gtype,
526 & stm,pname,
527 & swm,cs,val,cret)
528 c DEC$ ATTRIBUTES DLLEXPORT :: mfdipr
529 c
530 implicit none
531 save
532 character*(*) fname,pname
533 integer numdt,numit
534 integer val(*)
535 integer*8 fid
536 integer cret,etype,gtype,swm,cs,n,stm
537 integer mfdfipr
538 c
539 cret = mfdfipr(fid,fname,len(fname),numdt,numit,
540 & etype,gtype,stm,pname,len(pname),swm,cs,val,cret)
541 c
542 return
543 end
544 c
545 c
546 c
547 subroutine mfdrar(fid,fname,numdt,numit,
548 & etype,gtype,flt,
549 & val,cret)
550 c DEC$ ATTRIBUTES DLLEXPORT :: mfdrar
551 c
552 implicit none
553 save
554 character*(*) fname
555 integer numdt,numit
556 real*8 val(*)
557 integer*8 flt(*)
558 integer*8 fid
559 integer cret,etype,gtype
560 integer mfdfrar
561 c
562 cret = mfdfrar(fid,fname,len(fname),numdt,numit,
563 & etype,gtype,flt,val)
564 c
565 return
566 end
567 c
568 c
569 c
570 subroutine mfdiar(fid,fname,numdt,numit,
571 & etype,gtype,flt,
572 & val,cret)
573 c DEC$ ATTRIBUTES DLLEXPORT :: mfdiar
574 c
575 implicit none
576 save
577 character*(*) fname
578 integer numdt,numit
579 integer val(*)
580 integer*8 flt(*)
581 integer*8 fid
582 integer cret,etype,gtype
583 integer mfdfiar
584 c
585 cret = mfdfiar(fid,fname,len(fname),numdt,numit,
586 & etype,gtype,flt,val)
587 c
588 return
589 end
590 c
591 c
592 c
593 subroutine mfdinw(fid,fname,iname,cret)
594 c DEC$ ATTRIBUTES DLLEXPORT :: mfdinw
595 c
596 implicit none
597 save
598 character*(*) fname,iname
599 integer*8 fid
600 integer cret
601 integer mfdfinw
602 c
603 cret = mfdfinw(fid,fname,len(fname),iname,len(iname),cret)
604 c
605 return
606 end
607 c
608 c
609 c
610 subroutine mfdnin(fid,fname,n,cret)
611 c DEC$ ATTRIBUTES DLLEXPORT :: mfdnin
612 c
613 implicit none
614 save
615 integer*8 fid
616 integer n,cret
617 character*(*) fname
618 integer mfdfnin
619 c
620 n = mfdfnin(fid,fname,len(fname))
621 c
622 if (n.lt.0) then
623 cret = -1
624 else
625 cret = 0
626 endif
627 c
628 return
629 end
630 c
631 c
632 c
633 subroutine mfdini(fid,fname,it,iname,cret)
634 c DEC$ ATTRIBUTES DLLEXPORT :: mfdini
635 c
636 implicit none
637 save
638 character*(*) fname,iname
639 integer*8 fid
640 integer cret,it
641 integer mfdfini
642 c
643 cret = mfdfini(fid,fname,len(fname),it,iname,cret)
644 c
645 return
646 end
647 c
648 c
649 c
650 subroutine mfdoci(fid, fname, it, numdt, numit, dt,
651 & nmesh, mname, lmesh,
652 & mnumdt, mnumit, cret)
653 c DEC$ ATTRIBUTES DLLEXPORT :: mfdoci
654 c
655 implicit none
656 save
657 c
658 character*(*) fname,mname
659 integer cret
660 integer*8 fid
661 integer it,numdt,numit,nmesh,lmesh
662 integer mnumdt,mnumit
663 real*8 dt
664 integer mfdfoci
665 c
666 cret = mfdfoci(fid,fname,len(fname),it,
667 & numdt,numit,dt,
668 & nmesh, mname, lmesh,
669 & mnumdt, mnumit)
670 c
671 return
672 end
673 c
674 c
675 c
676 subroutine mfdonp(fid,fname,numdt,numit,etype,gtype,
677 & it,mname, dpname, dlname, n, cret)
678 c DEC$ ATTRIBUTES DLLEXPORT :: mfdonp
679 c
680 implicit none
681 save
682 integer*8 fid
683 integer n,cret
684 integer numdt,numit,etype,gtype,it
685 character*(*) fname,dpname,dlname,mname
686
687 integer mfdfonp
688 c
689 n = mfdfonp(fid,fname,len(fname),numdt,numit,etype,
690 & gtype,it,mname,dpname,dlname)
691 c
692 if (n.lt.0) then
693 cret = -1
694 else
695 cret = 0
696 endif
697 c
698 return
699 end
700 c
701 c
702 c
703 subroutine mfdonv(fid,fname,numdt,numit,etype,gtype,
704 & mname,pit,stm,pname,psize,lname,
705 & nip,n,cret)
706 c DEC$ ATTRIBUTES DLLEXPORT :: mfdonv
707 c
708 implicit none
709 save
710 character*(*) fname, pname, lname, mname
711 integer pit,stm,psize
712 integer*8 fid
713 integer n,cret,numdt,numit,etype,gtype,nip
714 integer mfdfonv
715 c
716 n = mfdfonv(fid,fname,len(fname),numdt,numit,
717 & etype,gtype,
718 & mname,len(mname),
719 & pit,stm,pname,psize,lname,
720 & nip,cret)
721 c
722 if (n.lt.0) then
723 cret = -1
724 else
725 cret = 0
726 endif
727 c
728 return
729 end
730 c
731 c
732 c
733 subroutine mfdorr(fid,fname,numdt,numit,
734 & etype,gtype,
735 & mname,
736 & stm,pname,
737 & swm,cs,val,cret)
738 c DEC$ ATTRIBUTES DLLEXPORT :: mfdorr
739 c
740 implicit none
741 save
742 character*(*) fname,pname,mname
743 integer numdt,numit
744 real*8 val(*)
745 integer*8 fid
746 integer cret,etype,gtype,swm,cs,stm
747 integer mfdforr
748 c
749 cret = mfdforr(fid,fname,len(fname),numdt,numit,
750 & etype,gtype,mname,len(mname),
751 & stm,pname,len(pname),swm,cs,val)
752 c
753 return
754 end
755 c
756 c
757 c
758 subroutine mfdoir(fid,fname,numdt,numit,
759 & etype,gtype,
760 & mname,
761 & stm,pname,
762 & swm,cs,val,cret)
763 c DEC$ ATTRIBUTES DLLEXPORT :: mfdoir
764 c
765 implicit none
766 save
767 character*(*) fname,pname,mname
768 integer numdt,numit
769 integer val(*)
770 integer*8 fid
771 integer cret,etype,gtype,swm,cs,n,stm
772 integer mfdfoir
773 c
774 cret = mfdfoir(fid,fname,len(fname),numdt,numit,
775 & etype,gtype,mname,len(mname),
776 & stm,pname,len(pname),swm,cs,val,cret)
777 c
778 return
779 end
mfdipw
subroutine mfdipw(fid, fname, numdt, numit, dt, etype, gtype, stm, pname, lname, swm, cs, n, val, cret)
Definition: medfield.f:111
mfdrar
subroutine mfdrar(fid, fname, numdt, numit, etype, gtype, flt, val, cret)
Definition: medfield.f:550
mfdnin
subroutine mfdnin(fid, fname, n, cret)
Definition: medfield.f:611
mfdiaw
subroutine mfdiaw(fid, fname, numdt, numit, dt, etype, gtype, lname, flt, val, cret)
Definition: medfield.f:158
mfdrvw
subroutine mfdrvw(fid, fname, numdt, numit, dt, etype, gtype, swm, cs, n, val, cret)
Definition: medfield.f:42
mfdonv
subroutine mfdonv(fid, fname, numdt, numit, etype, gtype, mname, pit, stm, pname, psize, lname, nip, n, cret)
Definition: medfield.f:706
mfdfdi
subroutine mfdfdi(fid, it, fname, mname, lmesh, type, cname, cunit, dtunit, nc, cret)
Definition: medfield.f:248
mfdcsi
subroutine mfdcsi(fid, fname, it, numdt, numit, dt, cret)
Definition: medfield.f:290
mfdiar
subroutine mfdiar(fid, fname, numdt, numit, etype, gtype, flt, val, cret)
Definition: medfield.f:573
mfdfin
subroutine mfdfin(fid, fname, mname, lmesh, type, cname, cunit, dtunit, nc, cret)
Definition: medfield.f:270
mfdoir
subroutine mfdoir(fid, fname, numdt, numit, etype, gtype, mname, stm, pname, swm, cs, val, cret)
Definition: medfield.f:763
mfdivr
subroutine mfdivr(fid, fname, numdt, numit, etype, gtype, swm, cs, val, cret)
Definition: medfield.f:482
mfdcmw
subroutine mfdcmw(fid, fname, numdt, numit, mnumdt, mnumit, cret)
Definition: medfield.f:333
mfdnfd
subroutine mfdnfd(fid, n, cret)
Definition: medfield.f:180
mfdcre
subroutine mfdcre(fid, fname, ftype, ncomp, cname, cunit, dtunit, mname, cret)
Definition: medfield.f:22
mfdrpw
subroutine mfdrpw(fid, fname, numdt, numit, dt, etype, gtype, stm, pname, lname, swm, cs, n, val, cret)
Definition: medfield.f:87
mfdnvp
subroutine mfdnvp(fid, fname, numdt, numit, etype, gtype, pit, stm, pname, psize, lname, nip, n, cret)
Definition: medfield.f:406
mfdini
subroutine mfdini(fid, fname, it, iname, cret)
Definition: medfield.f:634
mfdnpf
subroutine mfdnpf(fid, fname, numdt, numit, etype, gtype, dpname, dlname, n, cret)
Definition: medfield.f:354
mfdipr
subroutine mfdipr(fid, fname, numdt, numit, etype, gtype, stm, pname, swm, cs, val, cret)
Definition: medfield.f:528
mfdonp
subroutine mfdonp(fid, fname, numdt, numit, etype, gtype, it, mname, dpname, dlname, n, cret)
Definition: medfield.f:678
mfdinw
subroutine mfdinw(fid, fname, iname, cret)
Definition: medfield.f:594
mfdivw
subroutine mfdivw(fid, fname, numdt, numit, dt, etype, gtype, swm, cs, n, val, cret)
Definition: medfield.f:63
mfdncn
subroutine mfdncn(fid, fname, n, cret)
Definition: medfield.f:224
mfdraw
subroutine mfdraw(fid, fname, numdt, numit, dt, etype, gtype, lname, flt, val, cret)
Definition: medfield.f:135
mfdoci
subroutine mfdoci(fid, fname, it, numdt, numit, dt, nmesh, mname, lmesh, mnumdt, mnumit, cret)
Definition: medfield.f:653
mfdrvr
subroutine mfdrvr(fid, fname, numdt, numit, etype, gtype, swm, cs, val, cret)
Definition: medfield.f:461
mfdorr
subroutine mfdorr(fid, fname, numdt, numit, etype, gtype, mname, stm, pname, swm, cs, val, cret)
Definition: medfield.f:738
mfdrpr
subroutine mfdrpr(fid, fname, numdt, numit, etype, gtype, stm, pname, swm, cs, val, cret)
Definition: medfield.f:505
mfdnpn
subroutine mfdnpn(fid, fname, numdt, numit, etype, gtype, pname, stm, psize, lname, nip, n, cret)
Definition: medfield.f:434
mfdnva
subroutine mfdnva(fid, fname, numdt, numit, etype, gtype, n, cret)
Definition: medfield.f:380
mfdcmi
subroutine mfdcmi(fid, fname, it, numdt, numit, dt, mnumdt, mnumit, cret)
Definition: medfield.f:311
mfdnfc
subroutine mfdnfc(fid, ind, n, cret)
Definition: medfield.f:202