MED fichier: Fichier source de medmesh.f

MED fichier

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

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
mmhear
subroutine mmhear(fid, mname, numdt, numit, entype, geotype, ename, cret)
Definition: medmesh.f:529
mmhcor
subroutine mmhcor(fid, name, numdt, numit, swm, coo, cret)
Definition: medmesh.f:320
mmhnor
subroutine mmhnor(fid, name, numdt, numit, swm, coo, iname, nname, inum, num, ifam, fam, cret)
Definition: medmesh.f:701
mmhgtw
subroutine mmhgtw(fid, name, gtype, cret)
Definition: medmesh.f:223
mmhnmh
subroutine mmhnmh(fid, n, cret)
Definition: medmesh.f:41
mmhasw
subroutine mmhasw(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
Definition: medmesh.f:1336
mmhypr
subroutine mmhypr(fid, name, numdt, numit, entype, geotype, cmode, stmode, pname, swm, dim, n, con, cret)
Definition: medmesh.f:645
mmhiaw
subroutine mmhiaw(fid, name, numdt, numit, geotype, aname, n, val, cret)
Definition: medmesh.f:1119
mmhenr
subroutine mmhenr(fid, name, numdt, numit, entype, geotype, num, cret)
Definition: medmesh.f:445
mmhcpr
subroutine mmhcpr(fid, name, numdt, numit, stm, pname, swm, dim, coo, cret)
Definition: medmesh.f:362
mmhpgw
subroutine mmhpgw(fid, name, numdt, numit, dt, entype, cmode, isize, index, con, cret)
Definition: medmesh.f:890
mmhnax
subroutine mmhnax(fid, it, naxis, cret)
Definition: medmesh.f:64
mmhypw
subroutine mmhypw(fid, name, numdt, numit, dt, entype, geotype, cmode, stmode, pname, swm, dim, n, con, cret)
Definition: medmesh.f:621
mmhnow
subroutine mmhnow(fid, name, numdt, numit, dt, swm, n, coo, iname, nname, inum, num, ifam, fam, cret)
Definition: medmesh.f:726
mmhgcw
subroutine mmhgcw(fid, name, numdt, numit, dt, axis, size, index, cret)
Definition: medmesh.f:383
mmhunw
subroutine mmhunw(fid, name, cret)
Definition: medmesh.f:150
mmhtfr
subroutine mmhtfr(fid, name, numdt, numit, tsf, cret)
Definition: medmesh.f:1270
mmhcsi
subroutine mmhcsi(fid, name, csit, numdt, numit, dt, cret)
Definition: medmesh.f:1038
mmheaw
subroutine mmheaw(fid, mname, numdt, numit, entype, geotype, n, ename, cret)
Definition: medmesh.f:508
mmhnme
subroutine mmhnme(fid, name, numdt, numit, entype, geotype, datype, cmode, chgt, tsf, n, cret)
Definition: medmesh.f:551
mmhgnw
subroutine mmhgnw(fid, name, numdt, numit, entype, geotype, n, num, cret)
Definition: medmesh.f:976
mmhmii
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
Definition: medmesh.f:110
mmhcaw
subroutine mmhcaw(fid, name, numdt, numit, dt, flt, coo, cret)
Definition: medmesh.f:802
mmhphw
subroutine mmhphw(fid, name, numdt, numit, dt, entype, cmode, fisize, findex, nisize, nindex, con, cret)
Definition: medmesh.f:933
mmhcow
subroutine mmhcow(fid, name, numdt, numit, dt, swm, n, coo, cret)
Definition: medmesh.f:299
mmhcyr
subroutine mmhcyr(fid, name, numdt, numit, entype, geotype, cmode, swm, con, cret)
Definition: medmesh.f:600
mmhsar
subroutine mmhsar(fid, name, numdt, numit, geotype, aname, val, cret)
Definition: medmesh.f:1207
mmhcar
subroutine mmhcar(fid, name, numdt, numit, flt, coo, cret)
Definition: medmesh.f:824
mmhasr
subroutine mmhasr(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
Definition: medmesh.f:1359
mmhaaw
subroutine mmhaaw(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
Definition: medmesh.f:1290
mmhnan
subroutine mmhnan(fid, name, naxis, cret)
Definition: medmesh.f:86
mmhelw
subroutine mmhelw(fid, name, numdt, numit, dt, entype, geotype, cmode, swm, n, con, iname, nname, inum, num, ifam, fam, cret)
Definition: medmesh.f:751
mmhcyw
subroutine mmhcyw(fid, name, numdt, numit, dt, entype, geotype, cmode, swm, n, con, cret)
Definition: medmesh.f:578
mmhstr
subroutine mmhstr(fid, name, stype, cret)
Definition: medmesh.f:1076
mmhfnr
subroutine mmhfnr(fid, name, numdt, numit, entype, geotype, num, cret)
Definition: medmesh.f:487
mmhsaw
subroutine mmhsaw(fid, name, numdt, numit, geotype, aname, n, val, cret)
Definition: medmesh.f:1142
mmhcsr
subroutine mmhcsr(fid, name, numdt, numit, dt, cret)
Definition: medmesh.f:1057
mmhyaw
subroutine mmhyaw(fid, name, numdt, numit, dt, entype, geotype, cmode, flt, con, cret)
Definition: medmesh.f:845
mmhenw
subroutine mmhenw(fid, name, numdt, numit, entype, geotype, n, num, cret)
Definition: medmesh.f:424
mmhphr
subroutine mmhphr(fid, name, numdt, numit, entype, cmode, findex, nindex, con, cret)
Definition: medmesh.f:955
mmhaar
subroutine mmhaar(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
Definition: medmesh.f:1313
mmheni
subroutine mmheni(fid, name, numdt, numit, entype, it, geoname, geotype, cret)
Definition: medmesh.f:1229
mmhmin
subroutine mmhmin(fid, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
Definition: medmesh.f:130
mmhcpw
subroutine mmhcpw(fid, name, numdt, numit, dt, stm, pname, swm, dim, n, coo, cret)
Definition: medmesh.f:340
mmhfnw
subroutine mmhfnw(fid, name, numdt, numit, entype, geotype, n, num, cret)
Definition: medmesh.f:466
mmhnep
subroutine mmhnep(fid, name, numdt, numit, entype, geotype, datype, cmode, stmode, pname, psize, chgt, tsf, n, cret)
Definition: medmesh.f:670
mmhcsc
subroutine mmhcsc(fid, name, numdt1, numit1, numdt2, numit2, dt2, cret)
Definition: medmesh.f:1018
mmhgcr
subroutine mmhgcr(fid, name, numdt, numit, axis, index, cret)
Definition: medmesh.f:404
mmhcre
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
Definition: medmesh.f:20
mmhraw
subroutine mmhraw(fid, name, numdt, numit, geotype, aname, n, val, cret)
Definition: medmesh.f:1096
mmhgsw
subroutine mmhgsw(fid, name, numdt, numit, dt, st, cret)
Definition: medmesh.f:259
mmhgnr
subroutine mmhgnr(fid, name, numdt, numit, entype, geotype, num, cret)
Definition: medmesh.f:997
mmhyar
subroutine mmhyar(fid, name, numdt, numit, entype, geotype, cmode, flt, con, cret)
Definition: medmesh.f:868
mmhrar
subroutine mmhrar(fid, name, numdt, numit, geotype, aname, val, cret)
Definition: medmesh.f:1165
mmhiar
subroutine mmhiar(fid, name, numdt, numit, geotype, aname, val, cret)
Definition: medmesh.f:1186
mmhgsr
subroutine mmhgsr(fid, name, numdt, numit, st, cret)
Definition: medmesh.f:279
mmhgtr
subroutine mmhgtr(fid, name, gtype, cret)
Definition: medmesh.f:241
mmhatr
subroutine mmhatr(fid, name, nin, nvn, nnc, cret)
Definition: medmesh.f:205
mmhatw
subroutine mmhatw(fid, name, nin, nvn, nnc, cret)
Definition: medmesh.f:187
mmhtfw
subroutine mmhtfw(fid, name, numdt, numit, dt, tsf, cret)
Definition: medmesh.f:1249
mmhpgr
subroutine mmhpgr(fid, name, numdt, numit, entype, cmode, index, con, cret)
Definition: medmesh.f:912
mmhunr
subroutine mmhunr(fid, mname, uname, cret)
Definition: medmesh.f:168
mmhelr
subroutine mmhelr(fid, name, numdt, numit, entype, geotype, cmode, swm, con, iname, nname, inum, num, ifam, fam, cret)
Definition: medmesh.f:778