MED fichier: Fichier source de medmesh.f

MED fichier

medmesh.f
Aller à la documentation de ce fichier.
1 C* This file is part of MED.
2 C*
3 C* COPYRIGHT (C) 1999 - 2023 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
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:223
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:466
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 étape de cal...
Definition: medmesh.f:778
mmhtfr
subroutine mmhtfr(fid, name, numdt, numit, tsf, cret)
Cette routine lit les paramètres de translation rotation à appliquer aux noeuds de l'étape de calcul ...
Definition: medmesh.f:1270
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:997
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,...
Definition: medmesh.f:340
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:110
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:1207
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:578
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:508
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:279
mmhunr
subroutine mmhunr(fid, mname, uname, cret)
Cette routine permet la lecture du nom universel d'un maillage.
Definition: medmesh.f:168
mmhunw
subroutine mmhunw(fid, name, cret)
Cette routine permet l'écriture du nom universel d'un maillage.
Definition: medmesh.f:150
mmhcsi
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
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:383
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:912
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:845
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:890
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:1313
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
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:130
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:1119
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:868
mmhtfw
subroutine mmhtfw(fid, name, numdt, numit, dt, tsf, cret)
Cette routine définit les paramètres de translation rotation à appliquer aux noeuds de l'étape de cal...
Definition: medmesh.f:1249
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 étape de cal...
Definition: medmesh.f:751
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:1186
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:645
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,...
Definition: medmesh.f:802
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:1229
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:1165
mmhcsc
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
mmhnmh
subroutine mmhnmh(fid, n, cret)
Cette routine permet de lire le nombre de maillages dans un fichier.
Definition: medmesh.f:41
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,...
Definition: medmesh.f:362
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 étape de calcul donné...
Definition: medmesh.f:726
mmhasr
subroutine mmhasr(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
Definition: medmesh.f:1359
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,...
Definition: medmesh.f:824
mmhatr
subroutine mmhatr(fid, name, nin, nvn, nnc, cret)
Cette routine permet la lecture des attributs optionnels d'un maillage.
Definition: medmesh.f:205
mmhatw
subroutine mmhatw(fid, name, nin, nvn, nnc, cret)
Cette routine permet l'écriture des attributs optionnels d'un maillage.
Definition: medmesh.f:187
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:529
mmhgtr
subroutine mmhgtr(fid, name, gtype, cret)
Cette routine permet de lire le type d'un maillage structuré (MED_STRUCTURED_MESH).
Definition: medmesh.f:241
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:424
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:1096
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:933
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:1057
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 étape de calcul donnée.
Definition: medmesh.f:551
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:600
mmhstr
subroutine mmhstr(fid, name, stype, cret)
Cette routine lit l'ordre de tri des étapes évolutives du maillage.
Definition: medmesh.f:1076
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:487
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 étape de calcul donné...
Definition: medmesh.f:701
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:1142
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:64
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:404
mmhasw
subroutine mmhasw(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
Definition: medmesh.f:1336
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:976
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:86
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 étape de calcul et un prof...
Definition: medmesh.f:670
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:621
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,...
Definition: medmesh.f:320
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:445
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,...
Definition: medmesh.f:299
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:259
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:955
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:1290