MED fichier
medmesh.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 
18  subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit,
19  & stype, atype, aname, aunit, cret)
20 c DEC$ ATTRIBUTES DLLEXPORT :: mmhcre
21 c
22  implicit none
23  save
24 c
25  character *(*) name, desc, dtunit, aname, aunit
26  integer*8 fid
27  integer sdim, mdim, mtype, stype, atype, cret
28  integer mmhfcre
29 c
30  cret = mmhfcre(fid, name, len(name), sdim, mdim, mtype,
31  & desc, len(desc), dtunit, len(dtunit),
32  & stype, atype, aname, 16*sdim,
33  & aunit, 16*sdim)
34 c
35  return
36  end
37 c
38 c
39 c
40  subroutine mmhnmh( fid , n , cret)
41 c DEC$ ATTRIBUTES DLLEXPORT :: mmhnmh
42 c
43  implicit none
44  save
45 c
46  integer*8 fid
47  integer n, cret
48  integer mmhfnmh
49 c
50  n = mmhfnmh(fid)
51 
52  if (n.lt.0) then
53  cret = -1
54  else
55  cret = 0
56  endif
57 c
58  return
59  end
60 c
61 c
62 c
63  subroutine mmhnax( fid , it, naxis, cret)
64 c DEC$ ATTRIBUTES DLLEXPORT :: mmhnax
65 c
66  implicit none
67  save
68 c
69  integer*8 fid
70  integer it,naxis,cret
71  integer mmhfnax
72 c
73  naxis = mmhfnax(fid,it)
74 c
75  if (naxis.lt.0) then
76  cret = -1
77  else
78  cret = 0
79  endif
80  return
81  end
82 c
83 c
84 c
85  subroutine mmhnan( fid , name, naxis, cret)
86 c DEC$ ATTRIBUTES DLLEXPORT :: mmhnan
87 c
88  implicit none
89  save
90 c
91  integer*8 fid
92  integer naxis,cret
93  character *(*) name
94  integer mmhfnan
95 c
96  naxis = mmhfnan(fid,name,len(name))
97 c
98  if (naxis.lt.0) then
99  cret = -1
100  else
101  cret = 0
102  endif
103  return
104  end
105 c
106 c
107 c
108  subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit,
109  & stype, nstep, atype, aname, aunit, cret)
110 c DEC$ ATTRIBUTES DLLEXPORT :: mmhmii
111 c
112  implicit none
113  save
114 c
115  character *(*) name, desc, dtunit, aname, aunit
116  integer*8 fid
117  integer sdim, mdim, mtype, stype, atype, cret, nstep, it
118  integer mmhfmhi
119 c
120  cret = mmhfmhi(fid, it, name, sdim, mdim, mtype, desc, dtunit,
121  & stype, nstep, atype, aname, aunit)
122 c
123  return
124  end
125 c
126 c
127 c
128  subroutine mmhmin(fid, name, sdim, mdim, mtype, desc, dtunit,
129  & stype, nstep, atype, aname, aunit, cret)
130 c DEC$ ATTRIBUTES DLLEXPORT :: mmhmin
131 c
132  implicit none
133  save
134 c
135  character *(*) name, desc, dtunit, aname, aunit
136  integer*8 fid
137  integer sdim, mdim, mtype, stype, atype, cret, nstep
138  integer mmhfmin
139 c
140  cret = mmhfmin(fid, name, len(name), sdim, mdim, mtype, desc,
141  & dtunit, stype, nstep, atype, aname, aunit)
142 c
143  return
144  end
145 
146 c
147 c
148 c
149  subroutine mmhunw( fid , name, cret)
150 c DEC$ ATTRIBUTES DLLEXPORT :: mmhunw
151 c
152  implicit none
153  save
154 c
155  integer*8 fid
156  integer cret
157  character *(*) name
158  integer mmhfunw
159 c
160  cret = mmhfunw(fid,name,len(name))
161 c
162  return
163  end
164 c
165 c
166 c
167  subroutine mmhunr( fid , mname, uname, cret)
168 c DEC$ ATTRIBUTES DLLEXPORT :: mmhunr
169 c
170  implicit none
171  save
172 c
173  integer*8 fid
174  integer cret
175  character *(*) uname
176  character *(*) mname
177  integer mmhfunr
178 c
179  cret = mmhfunr(fid,mname,len(mname),uname)
180 c
181  return
182  end
183 c
184 c
185 c
186  subroutine mmhatw( fid , name, nin, nvn, nnc, cret)
187 c DEC$ ATTRIBUTES DLLEXPORT :: mmhatw
188 c
189  implicit none
190  save
191 c
192  integer*8 fid
193  integer cret,nin,nvn,nnc
194  character *(*) name
195  integer mmhfatw
196 c
197  cret = mmhfatw(fid,name,len(name), nin, nvn, nnc)
198 c
199  return
200  end
201 c
202 c
203 c
204  subroutine mmhatr( fid , name, nin, nvn, nnc, cret)
205 c DEC$ ATTRIBUTES DLLEXPORT :: mmhatr
206 c
207  implicit none
208  save
209 c
210  integer*8 fid
211  integer cret,nin,nvn,nnc
212  character *(*) name
213  integer mmhfatr
214 c
215  cret = mmhfatr(fid,name,len(name), nin, nvn, nnc)
216 c
217  return
218  end
219 c
220 c
221 c
222  subroutine mmhgtw( fid , name, gtype, cret)
223 c DEC$ ATTRIBUTES DLLEXPORT :: mmhgtw
224 c
225  implicit none
226  save
227 c
228  integer*8 fid
229  integer cret,gtype
230  character *(*) name
231  integer mmhfgtw
232 c
233  cret = mmhfgtw(fid,name,len(name), gtype)
234 c
235  return
236  end
237 c
238 c
239 c
240  subroutine mmhgtr( fid , name, gtype, cret)
241 c DEC$ ATTRIBUTES DLLEXPORT :: mmhgtr
242 c
243  implicit none
244  save
245 c
246  integer*8 fid
247  integer cret,gtype
248  character *(*) name
249  integer mmhfgtr
250 c
251  cret = mmhfgtr(fid,name,len(name), gtype)
252 c
253  return
254  end
255 c
256 c
257 c
258  subroutine mmhgsw( fid , name, numdt, numit, dt, st, cret)
259 c DEC$ ATTRIBUTES DLLEXPORT :: mmhgsw
260 c
261  implicit none
262  save
263 c
264  integer*8 fid
265  integer cret,numdt, numit
266  character *(*) name
267  real*8 dt
268  integer st( * )
269  integer mmhfgsw
270 c
271  cret = mmhfgsw(fid,name,len(name), numdt, numit, dt, st)
272 c
273  return
274  end
275 c
276 c
277 c
278  subroutine mmhgsr( fid , name, numdt, numit, st, cret)
279 c DEC$ ATTRIBUTES DLLEXPORT :: mmhgsr
280 c
281  implicit none
282  save
283 c
284  integer*8 fid
285  integer cret,numdt, numit
286  character *(*) name
287  integer st(*)
288  integer mmhfgsr
289 c
290  cret = mmhfgsr(fid,name,len(name), numdt, numit, st)
291 c
292  return
293  end
294 c
295 c
296 c
297  subroutine mmhcow( fid , name, numdt, numit, dt,
298  & swm, n, coo, cret)
299 c DEC$ ATTRIBUTES DLLEXPORT :: mmhcow
300 c
301  implicit none
302  save
303 c
304  integer*8 fid
305  integer cret,numdt,numit,n,swm
306  real*8 dt
307  character *(*) name
308  real*8 coo(*)
309  integer mmhfcow
310 c
311  cret = mmhfcow(fid,name,len(name),numdt,numit,dt,swm,n,coo)
312 c
313  return
314  end
315 c
316 c
317 c
318  subroutine mmhcor( fid , name, numdt, numit,
319  & swm, coo, cret)
320 c DEC$ ATTRIBUTES DLLEXPORT :: mmhcor
321 c
322  implicit none
323  save
324 c
325  integer*8 fid
326  integer cret,numdt,numit,swm
327  character *(*) name
328  real*8 coo(*)
329  integer mmhfcor
330 c
331  cret = mmhfcor(fid,name,len(name),numdt,numit,swm,coo)
332 c
333  return
334  end
335 c
336 c
337 c
338  subroutine mmhcpw( fid , name, numdt, numit, dt,
339  & stm, pname, swm, dim, n, coo, cret)
340 c DEC$ ATTRIBUTES DLLEXPORT :: mmhcpw
341 c
342  implicit none
343  save
344 c
345  integer*8 fid
346  integer cret,numdt,numit,n,swm,stm,dim
347  real*8 dt
348  character *(*) name, pname
349  real*8 coo(*)
350  integer mmhfcpw
351 c
352  cret = mmhfcpw(fid,name,len(name),numdt,numit,dt,stm,
353  & pname,len(pname),swm,dim,n,coo)
354 c
355  return
356  end
357 c
358 c
359 c
360  subroutine mmhcpr( fid , name, numdt, numit,
361  & stm, pname, swm, dim, coo, cret)
362 c DEC$ ATTRIBUTES DLLEXPORT :: mmhcpr
363 c
364  implicit none
365  save
366 c
367  integer*8 fid
368  integer cret,numdt,numit,swm,stm,dim
369  character *(*) name, pname
370  real*8 coo(*)
371  integer mmhfcpr
372 c
373  cret = mmhfcpr(fid,name,len(name),numdt,numit,stm,
374  & pname,len(pname),swm,dim,coo)
375 c
376  return
377  end
378 c
379 c
380 c
381  subroutine mmhgcw( fid , name, numdt, numit, dt,
382  & axis, size, index, cret)
383 c DEC$ ATTRIBUTES DLLEXPORT :: mmhgcw
384 c
385  implicit none
386  save
387 c
388  integer*8 fid
389  integer cret,numdt,numit,axis,size
390  real*8 dt
391  character *(*) name
392  real*8 index(*)
393  integer mmhfgcw
394 c
395  cret = mmhfgcw(fid,name,len(name),numdt,numit,dt,axis,size,index)
396 c
397  return
398  end
399 c
400 c
401 c
402  subroutine mmhgcr( fid , name, numdt, numit,
403  & axis, index, cret)
404 c DEC$ ATTRIBUTES DLLEXPORT :: mmhgcr
405 c
406  implicit none
407  save
408 c
409  integer*8 fid
410  integer cret,numdt,numit,axis
411  character *(*) name
412  real*8 index(*)
413  integer mmhfgcr
414 c
415  cret = mmhfgcr(fid,name,len(name),numdt,numit,axis,index)
416 c
417  return
418  end
419 c
420 c
421 c
422  subroutine mmhenw(fid,name,numdt,numit,entype,geotype,
423  & n,num,cret)
424 c DEC$ ATTRIBUTES DLLEXPORT :: mmhenw
425 c
426  implicit none
427  save
428 c
429  integer*8 fid
430  integer cret,numdt, numit,n,entype,geotype
431  character *(*) name
432  integer num(*)
433  integer mmhfenw
434 c
435  cret = mmhfenw(fid,name,len(name),numdt,numit,entype,geotype,
436  & n,num)
437 c
438  return
439  end
440 c
441 c
442 c
443  subroutine mmhenr(fid,name,numdt,numit,entype,geotype,
444  & num,cret)
445 c DEC$ ATTRIBUTES DLLEXPORT :: mmhenr
446 c
447  implicit none
448  save
449 c
450  integer*8 fid
451  integer cret,numdt, numit,entype,geotype
452  character *(*) name
453  integer num(*)
454  integer mmhfenr
455 c
456  cret = mmhfenr(fid,name,len(name),numdt,numit,entype,geotype,
457  & num)
458 c
459  return
460  end
461 c
462 c
463 c
464  subroutine mmhfnw(fid,name,numdt,numit,entype,geotype,
465  & n,num,cret)
466 c DEC$ ATTRIBUTES DLLEXPORT :: mmhfnw
467 c
468  implicit none
469  save
470 c
471  integer*8 fid
472  integer cret,numdt, numit,n,entype,geotype
473  character *(*) name
474  integer num(*)
475  integer mmhffnw
476 c
477  cret = mmhffnw(fid,name,len(name),numdt,numit,entype,geotype,
478  & n,num)
479 c
480  return
481  end
482 c
483 c
484 c
485  subroutine mmhfnr(fid,name,numdt,numit,entype,geotype,
486  & num,cret)
487 c DEC$ ATTRIBUTES DLLEXPORT :: mmhfnr
488 c
489  implicit none
490  save
491 c
492  integer*8 fid
493  integer cret,numdt, numit,entype,geotype
494  character *(*) name
495  integer num(*)
496  integer mmhffnr
497 c
498  cret = mmhffnr(fid,name,len(name),numdt,numit,entype,geotype,
499  & num)
500 c
501  return
502  end
503 c
504 c
505 c
506  subroutine mmheaw(fid,mname,numdt,numit,entype,geotype,
507  & n,ename,cret)
508 c DEC$ ATTRIBUTES DLLEXPORT :: mmheaw
509 c
510  implicit none
511  save
512 c
513  character *(*) mname
514  character*(*) ename
515  integer*8 fid
516  integer numdt, numit, entype, geotype, n, cret
517  integer mmhfeaw
518 c
519  cret = mmhfeaw(fid,mname,len(mname),numdt,numit,entype,
520  & geotype,n,ename,16*n)
521 c
522  return
523  end
524 c
525 c
526 c
527  subroutine mmhear(fid,mname,numdt,numit,entype,geotype,
528  & ename,cret)
529 c DEC$ ATTRIBUTES DLLEXPORT :: mmhear
530 c
531  implicit none
532  save
533 c
534  character *(*) mname
535  character*(*) ename
536  integer*8 fid
537  integer numdt, numit, entype, geotype, cret
538  integer mmhfear
539 
540  cret = mmhfear(fid,mname,len(mname),numdt,numit,entype,
541  & geotype,ename)
542 c
543  return
544  end
545 c
546 c
547 c
548  subroutine mmhnme(fid,name,numdt,numit,
549  & entype,geotype,datype,cmode,
550  & chgt,tsf,n,cret)
551 c DEC$ ATTRIBUTES DLLEXPORT :: mmhnme
552 c
553  implicit none
554  save
555 c
556  character *(*) name
557  integer*8 fid
558  integer numdt,numit,entype,geotype,datype,cret
559  integer cmode,chgt,tsf,n
560  integer mmhfnme
561 c
562  n = mmhfnme(fid,name,len(name),numdt,numit,entype,geotype,
563  & datype,cmode,chgt,tsf)
564 
565  if (n.lt.0) then
566  cret = -1
567  else
568  cret =0
569  endif
570 c
571  return
572  end
573 c
574 c
575 c
576  subroutine mmhcyw(fid,name,numdt,numit,dt,entype,geotype,
577  & cmode,swm,n,con,cret)
578 c DEC$ ATTRIBUTES DLLEXPORT :: mmhcyw
579 c
580  implicit none
581  save
582 c
583  integer*8 fid
584  integer cret,numdt,numit,n,entype,geotype,swm,cmode
585  character *(*) name
586  integer con(*)
587  real*8 dt
588  integer mmhfcyw
589 c
590  cret = mmhfcyw(fid,name,len(name),numdt,numit,dt,entype,geotype,
591  & cmode,swm,n,con)
592 c
593  return
594  end
595 c
596 c
597 c
598  subroutine mmhcyr(fid,name,numdt,numit,entype,geotype,
599  & cmode,swm,con,cret)
600 c DEC$ ATTRIBUTES DLLEXPORT :: mmhcyr
601 c
602  implicit none
603  save
604 c
605  integer*8 fid
606  integer cret,numdt,numit,entype,geotype,swm,cmode
607  character *(*) name
608  integer con(*)
609  integer mmhfcyr
610 c
611  cret = mmhfcyr(fid,name,len(name),numdt,numit,entype,geotype,
612  & cmode,swm,con)
613 c
614  return
615  end
616 c
617 c
618 c
619  subroutine mmhypw(fid,name,numdt,numit,dt,entype,geotype,
620  & cmode,stmode,pname,swm,dim,n,con,cret)
621 c DEC$ ATTRIBUTES DLLEXPORT :: mmhypw
622 c
623  implicit none
624  save
625 c
626  integer*8 fid
627  integer cret,numdt,numit,n,entype,geotype,swm
628  integer cmode,stmode,dim
629  character *(*) name
630  character *(*) pname
631  integer con(*)
632  real*8 dt
633  integer mmhfypw
634 c
635  cret = mmhfypw(fid,name,len(name),numdt,numit,dt,entype,geotype,
636  & cmode,stmode,pname,len(pname),swm,dim,n,con)
637 c
638  return
639  end
640 c
641 c
642 c
643  subroutine mmhypr(fid,name,numdt,numit,entype,geotype,
644  & cmode,stmode,pname,swm,dim,n,con,cret)
645 c DEC$ ATTRIBUTES DLLEXPORT :: mmhypr
646 c
647  implicit none
648  save
649 c
650  integer*8 fid
651  integer cret,numdt,numit,entype,geotype,swm
652  integer cmode,n,stmode,dim
653  character *(*) name
654  character *(*) pname
655  integer con(*)
656  integer mmhfypr
657 c
658  cret = mmhfypr(fid,name,len(name),numdt,numit,entype,geotype,
659  & cmode,stmode,pname,swm,dim,n,con)
660 c
661  return
662  end
663 c
664 c
665 c
666  subroutine mmhnep(fid,name,numdt,numit,
667  & entype,geotype,datype,cmode,
668  & stmode,pname,psize,
669  & chgt,tsf,n,cret)
670 c DEC$ ATTRIBUTES DLLEXPORT :: mmhnep
671 c
672  implicit none
673  save
674 c
675  character *(*) name
676  character *(*) pname
677  integer*8 fid
678  integer numdt,numit,entype,geotype,datype,cret
679  integer cmode,chgt,tsf,n,stmode,psize
680  integer mmhfnep
681 c
682 
683  n = mmhfnep(fid,name,len(name),numdt,numit,entype,geotype,
684  & datype,cmode,stmode,pname,psize,chgt,tsf)
685 
686  if (n.lt.0) then
687  cret = -1
688  else
689  cret =0
690  endif
691 c
692 
693  return
694  end
695 c
696 c
697 c
698  subroutine mmhnor(fid , name, numdt, numit,
699  & swm, coo, iname, nname, inum, num,
700  & ifam,fam, cret)
701 c DEC$ ATTRIBUTES DLLEXPORT :: mmhnor
702  implicit none
703  save
704 c
705  integer*8 fid
706  integer cret,numdt,numit,swm
707  character *(*) name
708  character *(*) nname
709  real*8 coo(*)
710  integer num(*),fam(*)
711  integer iname,inum,ifam
712  integer mmhfnor
713 c
714  cret = mmhfnor(fid,name,len(name),numdt,numit,swm,coo,
715  & iname,nname,inum,num,ifam,fam)
716 c
717  return
718  end
719 c
720 c
721 c
722 c
723  subroutine mmhnow(fid, name, numdt, numit, dt,
724  & swm, n, coo, iname, nname, inum, num,
725  & ifam, fam, cret)
726 c DEC$ ATTRIBUTES DLLEXPORT :: mmhnow
727 c
728  implicit none
729  save
730 c
731  integer*8 fid
732  integer cret,numdt,numit,swm,n
733  character *(*) name
734  character *(*) nname
735  real*8 coo(*), dt
736  integer num(*),fam(*)
737  integer iname,inum,ifam
738  integer mmhfnow
739 c
740  cret = mmhfnow(fid,name,len(name),numdt,numit,dt,swm,n,coo,
741  & iname,nname,16*n,inum,num,ifam,fam)
742 c
743  return
744  end
745 c
746 c
747 c
748  subroutine mmhelw(fid,name,numdt,numit,dt,entype,geotype,
749  & cmode,swm,n,con,iname, nname, inum, num,
750  & ifam,fam,cret)
751 c DEC$ ATTRIBUTES DLLEXPORT :: mmhelw
752 c
753  implicit none
754  save
755 c
756  integer*8 fid
757  integer cret,numdt,numit,n,entype,geotype,swm,cmode
758  character *(*) name
759  character *(*) nname
760  integer con(*)
761  real*8 dt
762  integer iname,inum,ifam
763  integer num(*),fam(*)
764  integer mmhfelw
765 c
766  cret = mmhfelw(fid,name,len(name),numdt,numit,dt,entype,geotype,
767  & cmode,swm,n,con,
768  & iname,nname,16*n,inum,num,ifam,fam)
769 c
770  return
771  end
772 c
773 c
774 c
775  subroutine mmhelr(fid,name,numdt,numit,entype,geotype,
776  & cmode,swm,con,iname, nname, inum, num,
777  & ifam,fam,cret)
778 c DEC$ ATTRIBUTES DLLEXPORT :: mmhelr
779 c
780  implicit none
781  save
782 c
783  integer*8 fid
784  integer cret,numdt,numit,entype,geotype,swm,cmode
785  character *(*) name
786  character *(*) nname
787  integer con(*)
788  integer iname,inum,ifam
789  integer num(*),fam(*)
790  integer mmhfelr
791 c
792  cret = mmhfelr(fid,name,len(name),numdt,numit,entype,geotype,
793  & cmode,swm,con,iname,nname,inum,num,ifam,fam)
794 c
795  return
796  end
797 c
798 c
799 c
800  subroutine mmhcaw( fid , name, numdt, numit, dt,
801  & flt, coo, cret)
802 c DEC$ ATTRIBUTES DLLEXPORT :: mmhcaw
803 c
804  implicit none
805  save
806 c
807  integer*8 fid
808  integer cret,numdt,numit
809  real*8 dt
810  character *(*) name
811  real*8 coo(*)
812  integer*8 flt(*)
813  integer mmhfcaw
814 c
815  cret = mmhfcaw(fid,name,len(name),numdt,numit,dt,flt,coo)
816 c
817  return
818  end
819 c
820 c
821 c
822  subroutine mmhcar(fid , name, numdt, numit,
823  & flt, coo, cret)
824 c DEC$ ATTRIBUTES DLLEXPORT :: mmhcar
825 c
826  implicit none
827  save
828 c
829  integer*8 fid
830  integer cret,numdt,numit
831  character *(*) name
832  real*8 coo(*)
833  integer*8 flt(*)
834  integer mmhfcar
835 c
836  cret = mmhfcar(fid,name,len(name),numdt,numit,flt,coo)
837 c
838  return
839  end
840 c
841 c
842 c
843  subroutine mmhyaw(fid,name,numdt,numit,dt,entype,geotype,
844  & cmode,flt,con,cret)
845 c DEC$ ATTRIBUTES DLLEXPORT :: mmhyaw
846 c
847  implicit none
848  save
849 c
850  integer*8 fid
851  integer cret,numdt,numit,entype,geotype,cmode
852  character *(*) name
853  integer con(*)
854  integer*8 flt(*)
855  real*8 dt
856  integer mmhfyaw
857 c
858  cret = mmhfyaw(fid,name,len(name),numdt,numit,dt,entype,geotype,
859  & cmode,flt,con)
860 c
861  return
862  end
863 c
864 c
865 c
866  subroutine mmhyar(fid,name,numdt,numit,entype,geotype,
867  & cmode,flt,con,cret)
868 c DEC$ ATTRIBUTES DLLEXPORT :: mmhyar
869 c
870  implicit none
871  save
872 c
873  integer*8 fid
874  integer cret,numdt,numit,entype,geotype,cmode
875  character *(*) name
876  integer con(*)
877  integer*8 flt(*)
878  integer mmhfyar
879 c
880  cret = mmhfyar(fid,name,len(name),numdt,numit,entype,geotype,
881  & cmode,flt,con)
882 c
883  return
884  end
885 c
886 c
887 c
888  subroutine mmhpgw(fid,name,numdt,numit,dt,entype,
889  & cmode,isize,index,con,cret)
890 c DEC$ ATTRIBUTES DLLEXPORT :: mmhpgw
891 c
892  implicit none
893  save
894 c
895  integer*8 fid
896  integer cret,numdt,numit,isize,entype,cmode
897  character *(*) name
898  integer con(*), index(*)
899  real*8 dt
900  integer mmhfpgw
901 c
902  cret = mmhfpgw(fid,name,len(name),numdt,numit,dt,entype,
903  & cmode,isize,index,con)
904 c
905  return
906  end
907 c
908 c
909 c
910  subroutine mmhpgr(fid,name,numdt,numit,entype,
911  & cmode,index,con,cret)
912 c DEC$ ATTRIBUTES DLLEXPORT :: mmhpgr
913 c
914  implicit none
915  save
916 c
917  integer*8 fid
918  integer cret,numdt,numit,entype,cmode
919  character *(*) name
920  integer con(*), index(*)
921  integer mmhfpgr
922 c
923  cret = mmhfpgr(fid,name,len(name),numdt,numit,entype,
924  & cmode,index,con)
925 c
926  return
927  end
928 c
929 c
930 c
931  subroutine mmhphw(fid,name,numdt,numit,dt,entype,
932  & cmode,fisize,findex,nisize,nindex,con,cret)
933 c DEC$ ATTRIBUTES DLLEXPORT :: mmhphw
934 c
935  implicit none
936  save
937 c
938  integer*8 fid
939  integer cret,numdt,numit,fisize,nisize,entype,cmode
940  character *(*) name
941  integer con(*), findex(*), nindex(*)
942  real*8 dt
943  integer mmhfphw
944 c
945  cret = mmhfphw(fid,name,len(name),numdt,numit,dt,entype,
946  & cmode,fisize,findex,nisize,nindex,con)
947 c
948  return
949  end
950 c
951 c
952 c
953  subroutine mmhphr(fid,name,numdt,numit,entype,
954  & cmode,findex,nindex,con,cret)
955 c DEC$ ATTRIBUTES DLLEXPORT :: mmhphr
956 c
957  implicit none
958  save
959 c
960  integer*8 fid
961  integer cret,numdt,numit,entype,cmode
962  character *(*) name
963  integer con(*), findex(*), nindex(*)
964  integer mmhfphr
965 c
966  cret = mmhfphr(fid,name,len(name),numdt,numit,entype,
967  & cmode,findex,nindex,con)
968 c
969  return
970  end
971 c
972 c
973 c
974  subroutine mmhgnw(fid,name,numdt,numit,entype,geotype,
975  & n,num,cret)
976 c DEC$ ATTRIBUTES DLLEXPORT :: mmhgnw
977 c
978  implicit none
979  save
980 c
981  integer*8 fid
982  integer cret,numdt, numit,n,entype,geotype
983  character *(*) name
984  integer num(*)
985  integer mmhfgnw
986 c
987  cret = mmhfgnw(fid,name,len(name),numdt,numit,entype,geotype,
988  & n,num)
989 c
990  return
991  end
992 c
993 c
994 c
995  subroutine mmhgnr(fid,name,numdt,numit,entype,geotype,
996  & num,cret)
997 c DEC$ ATTRIBUTES DLLEXPORT :: mmhgnr
998 c
999  implicit none
1000  save
1001 c
1002  integer*8 fid
1003  integer cret,numdt, numit,entype,geotype
1004  character *(*) name
1005  integer num(*)
1006  integer mmhfgnr
1007 c
1008  cret = mmhfgnr(fid,name,len(name),numdt,numit,entype,geotype,
1009  & num)
1010 c
1011  return
1012  end
1013 c
1014 c
1015 c
1016  subroutine mmhcsc(fid,name,numdt1,numit1,numdt2,numit2,
1017  & dt2,cret)
1018 c DEC$ ATTRIBUTES DLLEXPORT :: mmhcsc
1019 c
1020  implicit none
1021  save
1022 c
1023  integer*8 fid
1024  integer cret,numdt1,numit1,numdt2,numit2
1025  character *(*) name
1026  real*8 dt2
1027  integer mmhfcsc
1028 c
1029  cret = mmhfcsc(fid,name,len(name),numdt1,numit1,
1030  & numdt2,numit2,dt2)
1031 c
1032  return
1033  end
1034 c
1035 c
1036 c
1037  subroutine mmhcsi(fid,name,csit,numdt,numit,dt,cret)
1038 c DEC$ ATTRIBUTES DLLEXPORT :: mmhcsi
1039 c
1040  implicit none
1041  save
1042 c
1043  integer*8 fid
1044  integer cret,numdt,numit,csit
1045  character *(*) name
1046  real*8 dt
1047  integer mmhfcsi
1048 c
1049  cret = mmhfcsi(fid,name,len(name),csit,numdt,numit,dt)
1050 c
1051  return
1052  end
1053 c
1054 c
1055 c
1056  subroutine mmhcsr(fid,name,numdt,numit,dt,cret)
1057 c DEC$ ATTRIBUTES DLLEXPORT :: mmhcsr
1058 c
1059  implicit none
1060  save
1061 c
1062  integer*8 fid
1063  integer cret,numdt,numit
1064  character *(*) name
1065  real*8 dt
1066  integer mmhfcsr
1067 c
1068  cret = mmhfcsr(fid,name,len(name),numdt,numit,dt)
1069 c
1070  return
1071  end
1072 c
1073 c
1074 c
1075  subroutine mmhstr(fid,name,stype,cret)
1076 c DEC$ ATTRIBUTES DLLEXPORT :: mmhstr
1077 c
1078  implicit none
1079  save
1080 c
1081  integer*8 fid
1082  integer cret,stype
1083  character *(*) name
1084  integer mmhfstr
1085 c
1086  cret = mmhfstr(fid,name,len(name),stype)
1087 c
1088  return
1089  end
1090 c
1091 c
1092 c
1093  subroutine mmhraw(fid,name,numdt,numit,
1094  & geotype,aname,n,
1095  & val,cret)
1096 c DEC$ ATTRIBUTES DLLEXPORT :: mmhraw
1097 c
1098  implicit none
1099  save
1100 c
1101  character *(*) name,aname
1102  integer*8 fid
1103  integer numdt,numit,geotype,cret
1104  integer n
1105  real*8 val(*)
1106  integer mmhfraw
1107 c
1108  cret = mmhfraw(fid,name,len(name),numdt,numit,geotype,
1109  & aname,len(aname),n,val)
1110 c
1111  return
1112  end
1113 c
1114 c
1115 c
1116  subroutine mmhiaw(fid,name,numdt,numit,
1117  & geotype,aname,n,
1118  & val,cret)
1119 c DEC$ ATTRIBUTES DLLEXPORT :: mmhiaw
1120 c
1121  implicit none
1122  save
1123 c
1124  character *(*) name,aname
1125  integer*8 fid
1126  integer numdt,numit,geotype,cret
1127  integer n
1128  integer val(*)
1129  integer mmhfiaw
1130 c
1131  cret = mmhfiaw(fid,name,len(name),numdt,numit,geotype,
1132  & aname,len(aname),n,val)
1133 c
1134  return
1135  end
1136 c
1137 c
1138 c
1139  subroutine mmhsaw(fid,name,numdt,numit,
1140  & geotype,aname,n,
1141  & val,cret)
1142 c DEC$ ATTRIBUTES DLLEXPORT :: mmhsaw
1143 c
1144  implicit none
1145  save
1146 c
1147  character *(*) name,aname
1148  integer*8 fid
1149  integer numdt,numit,geotype,cret
1150  integer n
1151  character *(*) val
1152  integer mmhfsaw
1153 c
1154  cret = mmhfsaw(fid,name,len(name),numdt,numit,geotype,
1155  & aname,len(aname),n,val,64*n)
1156 c
1157  return
1158  end
1159 c
1160 c
1161 c
1162  subroutine mmhrar(fid,name,numdt,numit,
1163  & geotype,aname,
1164  & val,cret)
1165 c DEC$ ATTRIBUTES DLLEXPORT :: mmhrar
1166 c
1167  implicit none
1168  save
1169 c
1170  character *(*) name,aname
1171  integer*8 fid
1172  integer numdt,numit,geotype,cret
1173  real*8 val(*)
1174  integer mmhfrar
1175 c
1176  cret = mmhfrar(fid,name,len(name),numdt,numit,geotype,
1177  & aname,len(aname),val)
1178 c
1179  return
1180  end
1181 c
1182 c
1183 c
1184  subroutine mmhiar(fid,name,numdt,numit,
1185  & geotype,aname,val,cret)
1186 c DEC$ ATTRIBUTES DLLEXPORT :: mmhfiar
1187 c
1188  implicit none
1189  save
1190 c
1191  character *(*) name,aname
1192  integer*8 fid
1193  integer numdt,numit,geotype,cret
1194  integer val(*)
1195  integer mmhfiar
1196 c
1197  cret = mmhfiar(fid,name,len(name),numdt,numit,geotype,
1198  & aname,len(aname),val)
1199 c
1200  return
1201  end
1202 c
1203 c
1204 c
1205  subroutine mmhsar(fid,name,numdt,numit,
1206  & geotype,aname,val,cret)
1207 c DEC$ ATTRIBUTES DLLEXPORT :: mmhsar
1208 c
1209  implicit none
1210  save
1211 c
1212  character *(*) name,aname
1213  integer*8 fid
1214  integer numdt,numit,geotype,cret
1215  integer n
1216  character *(*) val
1217  integer mmhfsar
1218 c
1219  cret = mmhfsar(fid,name,len(name),numdt,numit,geotype,
1220  & aname,len(aname),val)
1221 c
1222  return
1223  end
1224 c
1225 c
1226 c
1227  subroutine mmheni(fid,name,numdt,numit,entype,it,
1228  & geoname,geotype,cret)
1229 c DEC$ ATTRIBUTES DLLEXPORT :: mmheni
1230 c
1231  implicit none
1232  save
1233 c
1234  integer*8 fid
1235  integer cret,numdt,numit,entype,geotype,it
1236  character *(*) name, geoname
1237  integer mmhfeni
1238 c
1239  cret = mmhfeni(fid,name,len(name),numdt,numit,entype,
1240  & it,geoname,geotype)
1241 c
1242  return
1243  end
1244 c
1245 c
1246 c
1247  subroutine mmhtfw( fid , name, numdt, numit, dt,
1248  & tsf,cret)
1249 c DEC$ ATTRIBUTES DLLEXPORT :: mmhtfw
1250 c
1251  implicit none
1252  save
1253 c
1254  integer*8 fid
1255  integer cret,numdt,numit
1256  real*8 dt
1257  character *(*) name
1258  real*8 tsf(*)
1259  integer mmhftfw
1260 c
1261  cret = mmhftfw(fid,name,len(name),numdt,numit,dt,tsf)
1262 c
1263  return
1264  end
1265 c
1266 c
1267 c
1268  subroutine mmhtfr( fid , name, numdt, numit,
1269  & tsf,cret)
1270 c DEC$ ATTRIBUTES DLLEXPORT :: mmhtfr
1271 c
1272  implicit none
1273  save
1274 c
1275  integer*8 fid
1276  integer cret,numdt,numit
1277  character *(*) name
1278  real*8 tsf(*)
1279  integer mmhftfr
1280 c
1281  cret = mmhftfr(fid,name,len(name),numdt,numit,tsf)
1282 c
1283  return
1284  end
1285 c
1286 c
1287 c
1288  subroutine mmhaaw(fid,mname,dtype,numdt,numit,entype,geotype,
1289  & flt,val,cret)
1290 c DEC$ ATTRIBUTES DLLEXPORT :: mmhaaw
1291 c
1292  implicit none
1293  save
1294 c
1295  character *(*) mname
1296  integer val(*)
1297  integer*8 fid
1298  integer numdt,numit,entype,geotype
1299  integer dtype,cret
1300  integer mmhfaaw
1301  integer*8 flt(*)
1302 c
1303  cret = mmhfaaw(fid,mname,len(mname),dtype,numdt,numit,entype,
1304  & geotype,flt,val)
1305 c
1306  return
1307  end
1308 c
1309 c
1310 c
1311  subroutine mmhaar(fid,mname,dtype,numdt,numit,entype,geotype,
1312  & flt,val,cret)
1313 c DEC$ ATTRIBUTES DLLEXPORT :: mmhaar
1314 c
1315  implicit none
1316  save
1317 c
1318  character *(*) mname
1319  integer val(*)
1320  integer*8 fid
1321  integer numdt,numit,entype,geotype
1322  integer dtype,cret
1323  integer mmhfaar
1324  integer*8 flt(*)
1325 c
1326  cret = mmhfaar(fid,mname,len(mname),dtype,numdt,numit,entype,
1327  & geotype,flt,val)
1328 c
1329  return
1330  end
1331 c
1332 c
1333 c
1334  subroutine mmhasw(fid,mname,dtype,numdt,numit,entype,geotype,
1335  & flt,val,cret)
1336 c DEC$ ATTRIBUTES DLLEXPORT :: mmhasw
1337 c
1338  implicit none
1339  save
1340 c
1341  character *(*) mname
1342  character *(*) val
1343  integer*8 fid
1344  integer numdt,numit,entype,geotype
1345  integer dtype,cret
1346  integer mmhfasw
1347  integer*8 flt(*)
1348 c
1349  cret = mmhfasw(fid,mname,len(mname),dtype,numdt,numit,entype,
1350  & geotype,flt,val)
1351 c
1352  return
1353  end
1354 c
1355 c
1356 c
1357  subroutine mmhasr(fid,mname,dtype,numdt,numit,entype,geotype,
1358  & flt,val,cret)
1359 c DEC$ ATTRIBUTES DLLEXPORT :: mmhasr
1360 c
1361  implicit none
1362  save
1363 c
1364  character *(*) mname
1365  character *(*) val
1366  integer*8 fid
1367  integer numdt,numit,entype,geotype
1368  integer dtype,cret
1369  integer mmhfasr
1370  integer*8 flt(*)
1371 c
1372  cret = mmhfasr(fid,mname,len(mname),dtype,numdt,numit,entype,
1373  & geotype,flt,val)
1374 c
1375  return
1376  end
subroutine mmhear(fid, mname, numdt, numit, entype, geotype, ename, cret)
Definition: medmesh.f:529
subroutine mmhcor(fid, name, numdt, numit, swm, coo, cret)
Definition: medmesh.f:320
subroutine mmhnor(fid, name, numdt, numit, swm, coo, iname, nname, inum, num, ifam, fam, cret)
Definition: medmesh.f:701
subroutine mmhgtw(fid, name, gtype, cret)
Definition: medmesh.f:223
subroutine mmhnmh(fid, n, cret)
Definition: medmesh.f:41
subroutine mmhasw(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
Definition: medmesh.f:1336
subroutine mmhypr(fid, name, numdt, numit, entype, geotype, cmode, stmode, pname, swm, dim, n, con, cret)
Definition: medmesh.f:645
subroutine mmhiaw(fid, name, numdt, numit, geotype, aname, n, val, cret)
Definition: medmesh.f:1119
subroutine mmhenr(fid, name, numdt, numit, entype, geotype, num, cret)
Definition: medmesh.f:445
subroutine mmhcpr(fid, name, numdt, numit, stm, pname, swm, dim, coo, cret)
Definition: medmesh.f:362
subroutine mmhpgw(fid, name, numdt, numit, dt, entype, cmode, isize, index, con, cret)
Definition: medmesh.f:890
subroutine mmhnax(fid, it, naxis, cret)
Definition: medmesh.f:64
subroutine mmhypw(fid, name, numdt, numit, dt, entype, geotype, cmode, stmode, pname, swm, dim, n, con, cret)
Definition: medmesh.f:621
subroutine mmhnow(fid, name, numdt, numit, dt, swm, n, coo, iname, nname, inum, num, ifam, fam, cret)
Definition: medmesh.f:726
subroutine mmhgcw(fid, name, numdt, numit, dt, axis, size, index, cret)
Definition: medmesh.f:383
subroutine mmhunw(fid, name, cret)
Definition: medmesh.f:150
subroutine mmhtfr(fid, name, numdt, numit, tsf, cret)
Definition: medmesh.f:1270
subroutine mmhcsi(fid, name, csit, numdt, numit, dt, cret)
Definition: medmesh.f:1038
subroutine mmheaw(fid, mname, numdt, numit, entype, geotype, n, ename, cret)
Definition: medmesh.f:508
subroutine mmhnme(fid, name, numdt, numit, entype, geotype, datype, cmode, chgt, tsf, n, cret)
Definition: medmesh.f:551
subroutine mmhgnw(fid, name, numdt, numit, entype, geotype, n, num, cret)
Definition: medmesh.f:976
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
Definition: medmesh.f:110
subroutine mmhcaw(fid, name, numdt, numit, dt, flt, coo, cret)
Definition: medmesh.f:802
subroutine mmhphw(fid, name, numdt, numit, dt, entype, cmode, fisize, findex, nisize, nindex, con, cret)
Definition: medmesh.f:933
subroutine mmhcow(fid, name, numdt, numit, dt, swm, n, coo, cret)
Definition: medmesh.f:299
subroutine mmhcyr(fid, name, numdt, numit, entype, geotype, cmode, swm, con, cret)
Definition: medmesh.f:600
subroutine mmhsar(fid, name, numdt, numit, geotype, aname, val, cret)
Definition: medmesh.f:1207
subroutine mmhcar(fid, name, numdt, numit, flt, coo, cret)
Definition: medmesh.f:824
subroutine mmhasr(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
Definition: medmesh.f:1359
subroutine mmhaaw(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
Definition: medmesh.f:1290
subroutine mmhnan(fid, name, naxis, cret)
Definition: medmesh.f:86
subroutine mmhelw(fid, name, numdt, numit, dt, entype, geotype, cmode, swm, n, con, iname, nname, inum, num, ifam, fam, cret)
Definition: medmesh.f:751
subroutine mmhcyw(fid, name, numdt, numit, dt, entype, geotype, cmode, swm, n, con, cret)
Definition: medmesh.f:578
subroutine mmhstr(fid, name, stype, cret)
Definition: medmesh.f:1076
subroutine mmhfnr(fid, name, numdt, numit, entype, geotype, num, cret)
Definition: medmesh.f:487
subroutine mmhsaw(fid, name, numdt, numit, geotype, aname, n, val, cret)
Definition: medmesh.f:1142
subroutine mmhcsr(fid, name, numdt, numit, dt, cret)
Definition: medmesh.f:1057
subroutine mmhyaw(fid, name, numdt, numit, dt, entype, geotype, cmode, flt, con, cret)
Definition: medmesh.f:845
subroutine mmhenw(fid, name, numdt, numit, entype, geotype, n, num, cret)
Definition: medmesh.f:424
subroutine mmhphr(fid, name, numdt, numit, entype, cmode, findex, nindex, con, cret)
Definition: medmesh.f:955
subroutine mmhaar(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
Definition: medmesh.f:1313
subroutine mmheni(fid, name, numdt, numit, entype, it, geoname, geotype, cret)
Definition: medmesh.f:1229
subroutine mmhmin(fid, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
Definition: medmesh.f:130
subroutine mmhcpw(fid, name, numdt, numit, dt, stm, pname, swm, dim, n, coo, cret)
Definition: medmesh.f:340
subroutine mmhfnw(fid, name, numdt, numit, entype, geotype, n, num, cret)
Definition: medmesh.f:466
subroutine mmhnep(fid, name, numdt, numit, entype, geotype, datype, cmode, stmode, pname, psize, chgt, tsf, n, cret)
Definition: medmesh.f:670
subroutine mmhcsc(fid, name, numdt1, numit1, numdt2, numit2, dt2, cret)
Definition: medmesh.f:1018
subroutine mmhgcr(fid, name, numdt, numit, axis, index, cret)
Definition: medmesh.f:404
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
Definition: medmesh.f:20
subroutine mmhraw(fid, name, numdt, numit, geotype, aname, n, val, cret)
Definition: medmesh.f:1096
subroutine mmhgsw(fid, name, numdt, numit, dt, st, cret)
Definition: medmesh.f:259
subroutine mmhgnr(fid, name, numdt, numit, entype, geotype, num, cret)
Definition: medmesh.f:997
subroutine mmhyar(fid, name, numdt, numit, entype, geotype, cmode, flt, con, cret)
Definition: medmesh.f:868
subroutine mmhrar(fid, name, numdt, numit, geotype, aname, val, cret)
Definition: medmesh.f:1165
subroutine mmhiar(fid, name, numdt, numit, geotype, aname, val, cret)
Definition: medmesh.f:1186
subroutine mmhgsr(fid, name, numdt, numit, st, cret)
Definition: medmesh.f:279
subroutine mmhgtr(fid, name, gtype, cret)
Definition: medmesh.f:241
subroutine mmhatr(fid, name, nin, nvn, nnc, cret)
Definition: medmesh.f:205
subroutine mmhatw(fid, name, nin, nvn, nnc, cret)
Definition: medmesh.f:187
subroutine mmhtfw(fid, name, numdt, numit, dt, tsf, cret)
Definition: medmesh.f:1249
subroutine mmhpgr(fid, name, numdt, numit, entype, cmode, index, con, cret)
Definition: medmesh.f:912
subroutine mmhunr(fid, mname, uname, cret)
Definition: medmesh.f:168
subroutine mmhelr(fid, name, numdt, numit, entype, geotype, cmode, swm, con, iname, nname, inum, num, ifam, fam, cret)
Definition: medmesh.f:778