MED fichier
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
subroutine mfdoir(fid, fname, numdt, numit, etype, gtype, mname, stm, pname, swm, cs, val, cret)
Definition: medfield.f:763
subroutine mfdipw(fid, fname, numdt, numit, dt, etype, gtype, stm, pname, lname, swm, cs, n, val, cret)
Definition: medfield.f:111
subroutine mfdini(fid, fname, it, iname, cret)
Definition: medfield.f:634
subroutine mfdoci(fid, fname, it, numdt, numit, dt, nmesh, mname, lmesh, mnumdt, mnumit, cret)
Definition: medfield.f:653
subroutine mfdiar(fid, fname, numdt, numit, etype, gtype, flt, val, cret)
Definition: medfield.f:573
subroutine mfdipr(fid, fname, numdt, numit, etype, gtype, stm, pname, swm, cs, val, cret)
Definition: medfield.f:528
subroutine mfdcmw(fid, fname, numdt, numit, mnumdt, mnumit, cret)
Definition: medfield.f:333
subroutine mfdnvp(fid, fname, numdt, numit, etype, gtype, pit, stm, pname, psize, lname, nip, n, cret)
Definition: medfield.f:406
subroutine mfdivw(fid, fname, numdt, numit, dt, etype, gtype, swm, cs, n, val, cret)
Definition: medfield.f:63
subroutine mfdrar(fid, fname, numdt, numit, etype, gtype, flt, val, cret)
Definition: medfield.f:550
subroutine mfdnfd(fid, n, cret)
Definition: medfield.f:180
subroutine mfdraw(fid, fname, numdt, numit, dt, etype, gtype, lname, flt, val, cret)
Definition: medfield.f:135
subroutine mfdrvr(fid, fname, numdt, numit, etype, gtype, swm, cs, val, cret)
Definition: medfield.f:461
subroutine mfdcre(fid, fname, ftype, ncomp, cname, cunit, dtunit, mname, cret)
Definition: medfield.f:22
subroutine mfdonp(fid, fname, numdt, numit, etype, gtype, it, mname, dpname, dlname, n, cret)
Definition: medfield.f:678
subroutine mfdonv(fid, fname, numdt, numit, etype, gtype, mname, pit, stm, pname, psize, lname, nip, n, cret)
Definition: medfield.f:706
subroutine mfdnpn(fid, fname, numdt, numit, etype, gtype, pname, stm, psize, lname, nip, n, cret)
Definition: medfield.f:434
subroutine mfdfin(fid, fname, mname, lmesh, type, cname, cunit, dtunit, nc, cret)
Definition: medfield.f:270
subroutine mfdncn(fid, fname, n, cret)
Definition: medfield.f:224
subroutine mfdnpf(fid, fname, numdt, numit, etype, gtype, dpname, dlname, n, cret)
Definition: medfield.f:354
subroutine mfdnin(fid, fname, n, cret)
Definition: medfield.f:611
subroutine mfdnfc(fid, ind, n, cret)
Definition: medfield.f:202
subroutine mfdnva(fid, fname, numdt, numit, etype, gtype, n, cret)
Definition: medfield.f:380
subroutine mfdcmi(fid, fname, it, numdt, numit, dt, mnumdt, mnumit, cret)
Definition: medfield.f:311
subroutine mfdinw(fid, fname, iname, cret)
Definition: medfield.f:594
subroutine mfdrvw(fid, fname, numdt, numit, dt, etype, gtype, swm, cs, n, val, cret)
Definition: medfield.f:42
subroutine mfdcsi(fid, fname, it, numdt, numit, dt, cret)
Definition: medfield.f:290
subroutine mfdrpr(fid, fname, numdt, numit, etype, gtype, stm, pname, swm, cs, val, cret)
Definition: medfield.f:505
subroutine mfdiaw(fid, fname, numdt, numit, dt, etype, gtype, lname, flt, val, cret)
Definition: medfield.f:158
subroutine mfdorr(fid, fname, numdt, numit, etype, gtype, mname, stm, pname, swm, cs, val, cret)
Definition: medfield.f:738
subroutine mfdivr(fid, fname, numdt, numit, etype, gtype, swm, cs, val, cret)
Definition: medfield.f:482
subroutine mfdfdi(fid, it, fname, mname, lmesh, type, cname, cunit, dtunit, nc, cret)
Definition: medfield.f:248
subroutine mfdrpw(fid, fname, numdt, numit, dt, etype, gtype, stm, pname, lname, swm, cs, n, val, cret)
Definition: medfield.f:87