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