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