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)
Cette routine permet la lecture du nom universel d'un maillage.
Definition: medmesh.f:168
subroutine mmhatw(fid, name, nin, nvn, nnc, cret)
Cette routine permet l'écriture des attributs optionnels d'un maillage.
Definition: medmesh.f:187
subroutine mmhgtw(fid, name, gtype, cret)
Cette routine permet de définir le type d'un maillage structuré (MED_STRUCTURED_MESH).
Definition: medmesh.f:223
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
Cette routine permet de créer un maillage dans un fichier.
Definition: medmesh.f:20
subroutine mmhcsc(fid, name, numdt1, numit1, numdt2, numit2, dt2, cret)
Cette routine permet de créer une nouvelle étape de calcul dans un maillage.
Definition: medmesh.f:1018
subroutine mmheaw(fid, mname, numdt, numit, entype, geotype, n, ename, cret)
Cette routine permet d'écrire les noms d'un type d'entité d'un maillage.
Definition: medmesh.f:508
subroutine mmhatr(fid, name, nin, nvn, nnc, cret)
Cette routine permet la lecture des attributs optionnels d'un maillage.
Definition: medmesh.f:205
subroutine mmhstr(fid, name, stype, cret)
Cette routine lit l'ordre de tri des étapes évolutives du maillage.
Definition: medmesh.f:1076
subroutine mmhmin(fid, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
Cette routine permet de lire les informations relatives à un maillage en précisant son nom.
Definition: medmesh.f:130
subroutine mmhnmh(fid, n, cret)
Cette routine permet de lire le nombre de maillages dans un fichier.
Definition: medmesh.f:41
subroutine mmhcsi(fid, name, csit, numdt, numit, dt, cret)
Cette routine permet de lire les informations relatives à une étape de calcul d'un maillage.
Definition: medmesh.f:1038
subroutine mmhgtr(fid, name, gtype, cret)
Cette routine permet de lire le type d'un maillage structuré (MED_STRUCTURED_MESH).
Definition: medmesh.f:241
subroutine mmhnax(fid, it, naxis, cret)
Cette routine permet de lire dans un maillage le nombre d'axes du repère des coordonnées des noeuds.
Definition: medmesh.f:64
subroutine mmhunw(fid, name, cret)
Cette routine permet l'écriture du nom universel d'un maillage.
Definition: medmesh.f:150
subroutine mmheni(fid, name, numdt, numit, entype, it, geoname, geotype, cret)
Cette routine indique de façon itérative les types géométriques disponibles dans un maillage.
Definition: medmesh.f:1229
subroutine mmhnme(fid, name, numdt, numit, entype, geotype, datype, cmode, chgt, tsf, n, cret)
Cette routine permet de lire le nombre d'entités dans un maillage pour une étape de calcul donnée.
Definition: medmesh.f:551
subroutine mmhnep(fid, name, numdt, numit, entype, geotype, datype, cmode, stmode, pname, psize, chgt, tsf, n, cret)
Cette routine permet de lire le nombre d'entités dans un maillage pour une étape de calcul et un prof...
Definition: medmesh.f:670
subroutine mmhnan(fid, name, naxis, cret)
Cette routine permet de lire dans un maillage le nombre d'axes du repère des coordonnées des noeuds a...
Definition: medmesh.f:86
subroutine mmhear(fid, mname, numdt, numit, entype, geotype, ename, cret)
Cette routine permet de lire les noms d'un type d'entité d'un maillage.
Definition: medmesh.f:529
subroutine mmhcsr(fid, name, numdt, numit, dt, cret)
Cette routine lit dans un maillage la valeur d'un pas de temps pour un pas de temps et un numéro d'or...
Definition: medmesh.f:1057
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
Cette routine permet de lire les informations relatives à un maillage dans un fichier.
Definition: medmesh.f:110
subroutine mmhsar(fid, name, numdt, numit, geotype, aname, val, cret)
Cette routine lit les valeurs d'un attribut caractéristique variable sur les éléments de structure d'...
Definition: medmesh.f:1207
subroutine mmhsaw(fid, name, numdt, numit, geotype, aname, n, val, cret)
Cette routine écrit les valeurs d'un attribut caractéristique variable sur les éléments de structure ...
Definition: medmesh.f:1142
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 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 mmhpgr(fid, name, numdt, numit, entype, cmode, index, con, cret)
Definition: medmesh.f:912
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 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 mmhpgw(fid, name, numdt, numit, dt, entype, cmode, isize, index, con, cret)
Definition: medmesh.f:890
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 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 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 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 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 mmhgcw(fid, name, numdt, numit, dt, axis, size, index, cret)
Definition: medmesh.f:383
subroutine mmhyaw(fid, name, numdt, numit, dt, entype, geotype, cmode, flt, con, cret)
Definition: medmesh.f:845
subroutine mmhcow(fid, name, numdt, numit, dt, swm, n, coo, cret)
Definition: medmesh.f:299
subroutine mmhtfr(fid, name, numdt, numit, tsf, cret)
Definition: medmesh.f:1270
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 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