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