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 - 2016 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
subroutine mmhasw(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
Definition: medmesh.f:1275
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
Cette routine permet de créer un maillage dans un fichier.
Definition: medmesh.f:20
subroutine mmhnmh(fid, n, cret)
Cette routine permet de lire le nombre de maillages dans un fichier.
Definition: medmesh.f:40
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
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
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
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
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
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
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
subroutine mmhatr(fid, name, nin, nvn, nnc, cret)
Cette routine permet la lecture des attributs optionnels d'un maillage.
Definition: medmesh.f:196
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
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
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
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
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
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
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
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
subroutine mmhasr(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
Definition: medmesh.f:1297
subroutine mmhatw(fid, name, nin, nvn, nnc, cret)
Cette routine permet l'écriture des attributs optionnels d'un maillage.
Definition: medmesh.f:179
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
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
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
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
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
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
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
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
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
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
subroutine mmhgtr(fid, name, gtype, cret)
Cette routine permet de lire le type d'un maillage structuré (MED_STRUCTURED_MESH).
Definition: medmesh.f:230
subroutine mmhstr(fid, name, stype, cret)
Cette routine lit l'ordre de tri des séquences évolutives du maillage.
Definition: medmesh.f:1027
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
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
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
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
subroutine mmhunw(fid, name, cret)
Cette routine permet l'écriture du nom universel d'un maillage.
Definition: medmesh.f:144
subroutine mmhunr(fid, mname, uname, cret)
Cette routine permet la lecture du nom universel d'un maillage.
Definition: medmesh.f:161
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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