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