18 subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit,
19 & stype, atype, aname, aunit, cret)
25 character *(*) name, desc, dtunit, aname, aunit
27 integer sdim, mdim, mtype, stype, atype, cret
30 cret = mmhfcre(fid, name, len(name), sdim, mdim, mtype,
31 & desc, len(desc), dtunit, len(dtunit),
32 & stype, atype, aname, 16*sdim,
63 subroutine mmhnax( fid , it, naxis, cret)
73 naxis = mmhfnax(fid,it)
85 subroutine mmhnan( fid , name, naxis, cret)
96 naxis = mmhfnan(fid,name,len(name))
108 subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit,
109 & stype, nstep, atype, aname, aunit, cret)
115 character *(*) name, desc, dtunit, aname, aunit
117 integer sdim, mdim, mtype, stype, atype, cret, nstep, it
120 cret = mmhfmhi(fid, it, name, sdim, mdim, mtype, desc, dtunit,
121 & stype, nstep, atype, aname, aunit)
128 subroutine mmhmin(fid, name, sdim, mdim, mtype, desc, dtunit,
129 & stype, nstep, atype, aname, aunit, cret)
135 character *(*) name, desc, dtunit, aname, aunit
137 integer sdim, mdim, mtype, stype, atype, cret, nstep
140 cret = mmhfmin(fid, name, len(name), sdim, mdim, mtype, desc,
141 & dtunit, stype, nstep, atype, aname, aunit)
160 cret = mmhfunw(fid,name,len(name))
167 subroutine mmhunr( fid , mname, uname, cret)
179 cret = mmhfunr(fid,mname,len(mname),uname)
186 subroutine mmhatw( fid , name, nin, nvn, nnc, cret)
193 integer cret,nin,nvn,nnc
197 cret = mmhfatw(fid,name,len(name), nin, nvn, nnc)
204 subroutine mmhatr( fid , name, nin, nvn, nnc, cret)
211 integer cret,nin,nvn,nnc
215 cret = mmhfatr(fid,name,len(name), nin, nvn, nnc)
222 subroutine mmhgtw( fid , name, gtype, cret)
233 cret = mmhfgtw(fid,name,len(name), gtype)
240 subroutine mmhgtr( fid , name, gtype, cret)
251 cret = mmhfgtr(fid,name,len(name), gtype)
258 subroutine mmhgsw( fid , name, numdt, numit, dt, st, cret)
265 integer cret,numdt, numit
271 cret = mmhfgsw(fid,name,len(name), numdt, numit, dt, st)
278 subroutine mmhgsr( fid , name, numdt, numit, st, cret)
285 integer cret,numdt, numit
290 cret = mmhfgsr(fid,name,len(name), numdt, numit, st)
297 subroutine mmhcow( fid , name, numdt, numit, dt,
305 integer cret,numdt,numit,n,swm
311 cret = mmhfcow(fid,name,len(name),numdt,numit,dt,swm,n,coo)
318 subroutine mmhcor( fid , name, numdt, numit,
326 integer cret,numdt,numit,swm
331 cret = mmhfcor(fid,name,len(name),numdt,numit,swm,coo)
338 subroutine mmhcpw( fid , name, numdt, numit, dt,
339 & stm, pname, swm, dim, n, coo, cret)
346 integer cret,numdt,numit,n,swm,stm,dim
348 character *(*) name, pname
352 cret = mmhfcpw(fid,name,len(name),numdt,numit,dt,stm,
353 & pname,len(pname),swm,dim,n,coo)
360 subroutine mmhcpr( fid , name, numdt, numit,
361 & stm, pname, swm, dim, coo, cret)
368 integer cret,numdt,numit,swm,stm,dim
369 character *(*) name, pname
373 cret = mmhfcpr(fid,name,len(name),numdt,numit,stm,
374 & pname,len(pname),swm,dim,coo)
381 subroutine mmhgcw( fid , name, numdt, numit, dt,
382 & axis, size, index, cret)
389 integer cret,numdt,numit,axis,size
395 cret = mmhfgcw(fid,name,len(name),numdt,numit,dt,axis,
size,index)
402 subroutine mmhgcr( fid , name, numdt, numit,
410 integer cret,numdt,numit,axis
415 cret = mmhfgcr(fid,name,len(name),numdt,numit,axis,index)
422 subroutine mmhenw(fid,name,numdt,numit,entype,geotype,
430 integer cret,numdt, numit,n,entype,geotype
435 cret = mmhfenw(fid,name,len(name),numdt,numit,entype,geotype,
443 subroutine mmhenr(fid,name,numdt,numit,entype,geotype,
451 integer cret,numdt, numit,entype,geotype
456 cret = mmhfenr(fid,name,len(name),numdt,numit,entype,geotype,
464 subroutine mmhfnw(fid,name,numdt,numit,entype,geotype,
472 integer cret,numdt, numit,n,entype,geotype
477 cret = mmhffnw(fid,name,len(name),numdt,numit,entype,geotype,
485 subroutine mmhfnr(fid,name,numdt,numit,entype,geotype,
493 integer cret,numdt, numit,entype,geotype
498 cret = mmhffnr(fid,name,len(name),numdt,numit,entype,geotype,
506 subroutine mmheaw(fid,mname,numdt,numit,entype,geotype,
516 integer numdt, numit, entype, geotype, n, cret
519 cret = mmhfeaw(fid,mname,len(mname),numdt,numit,entype,
520 & geotype,n,ename,16*n)
527 subroutine mmhear(fid,mname,numdt,numit,entype,geotype,
537 integer numdt, numit, entype, geotype, cret
540 cret = mmhfear(fid,mname,len(mname),numdt,numit,entype,
549 & entype,geotype,datype,cmode,
558 integer numdt,numit,entype,geotype,datype,cret
559 integer cmode,chgt,tsf,n
562 n = mmhfnme(fid,name,len(name),numdt,numit,entype,geotype,
563 & datype,cmode,chgt,tsf)
576 subroutine mmhcyw(fid,name,numdt,numit,dt,entype,geotype,
577 & cmode,swm,n,con,cret)
584 integer cret,numdt,numit,n,entype,geotype,swm,cmode
590 cret = mmhfcyw(fid,name,len(name),numdt,numit,dt,entype,geotype,
598 subroutine mmhcyr(fid,name,numdt,numit,entype,geotype,
599 & cmode,swm,con,cret)
606 integer cret,numdt,numit,entype,geotype,swm,cmode
611 cret = mmhfcyr(fid,name,len(name),numdt,numit,entype,geotype,
619 subroutine mmhypw(fid,name,numdt,numit,dt,entype,geotype,
620 & cmode,stmode,pname,swm,dim,n,con,cret)
627 integer cret,numdt,numit,n,entype,geotype,swm
628 integer cmode,stmode,dim
635 cret = mmhfypw(fid,name,len(name),numdt,numit,dt,entype,geotype,
636 & cmode,stmode,pname,len(pname),swm,dim,n,con)
643 subroutine mmhypr(fid,name,numdt,numit,entype,geotype,
644 & cmode,stmode,pname,swm,dim,n,con,cret)
651 integer cret,numdt,numit,entype,geotype,swm
652 integer cmode,n,stmode,dim
658 cret = mmhfypr(fid,name,len(name),numdt,numit,entype,geotype,
659 & cmode,stmode,pname,swm,dim,n,con)
667 & entype,geotype,datype,cmode,
668 & stmode,pname,psize,
678 integer numdt,numit,entype,geotype,datype,cret
679 integer cmode,chgt,tsf,n,stmode,psize
683 n = mmhfnep(fid,name,len(name),numdt,numit,entype,geotype,
684 & datype,cmode,stmode,pname,psize,chgt,tsf)
698 subroutine mmhnor(fid , name, numdt, numit,
699 & swm, coo, iname, nname, inum, num,
706 integer cret,numdt,numit,swm
710 integer num(*),fam(*)
711 integer iname,inum,ifam
714 cret = mmhfnor(fid,name,len(name),numdt,numit,swm,coo,
715 & iname,nname,inum,num,ifam,fam)
723 subroutine mmhnow(fid, name, numdt, numit, dt,
724 & swm, n, coo, iname, nname, inum, num,
732 integer cret,numdt,numit,swm,n
736 integer num(*),fam(*)
737 integer iname,inum,ifam
740 cret = mmhfnow(fid,name,len(name),numdt,numit,dt,swm,n,coo,
741 & iname,nname,16*n,inum,num,ifam,fam)
748 subroutine mmhelw(fid,name,numdt,numit,dt,entype,geotype,
749 & cmode,swm,n,con,iname, nname, inum, num,
757 integer cret,numdt,numit,n,entype,geotype,swm,cmode
762 integer iname,inum,ifam
763 integer num(*),fam(*)
766 cret = mmhfelw(fid,name,len(name),numdt,numit,dt,entype,geotype,
768 & iname,nname,16*n,inum,num,ifam,fam)
775 subroutine mmhelr(fid,name,numdt,numit,entype,geotype,
776 & cmode,swm,con,iname, nname, inum, num,
784 integer cret,numdt,numit,entype,geotype,swm,cmode
788 integer iname,inum,ifam
789 integer num(*),fam(*)
792 cret = mmhfelr(fid,name,len(name),numdt,numit,entype,geotype,
793 & cmode,swm,con,iname,nname,inum,num,ifam,fam)
800 subroutine mmhcaw( fid , name, numdt, numit, dt,
808 integer cret,numdt,numit
815 cret = mmhfcaw(fid,name,len(name),numdt,numit,dt,flt,coo)
822 subroutine mmhcar(fid , name, numdt, numit,
830 integer cret,numdt,numit
836 cret = mmhfcar(fid,name,len(name),numdt,numit,flt,coo)
843 subroutine mmhyaw(fid,name,numdt,numit,dt,entype,geotype,
844 & cmode,flt,con,cret)
851 integer cret,numdt,numit,entype,geotype,cmode
858 cret = mmhfyaw(fid,name,len(name),numdt,numit,dt,entype,geotype,
866 subroutine mmhyar(fid,name,numdt,numit,entype,geotype,
867 & cmode,flt,con,cret)
874 integer cret,numdt,numit,entype,geotype,cmode
880 cret = mmhfyar(fid,name,len(name),numdt,numit,entype,geotype,
888 subroutine mmhpgw(fid,name,numdt,numit,dt,entype,
889 & cmode,isize,index,con,cret)
896 integer cret,numdt,numit,isize,entype,cmode
898 integer con(*), index(*)
902 cret = mmhfpgw(fid,name,len(name),numdt,numit,dt,entype,
903 & cmode,isize,index,con)
910 subroutine mmhpgr(fid,name,numdt,numit,entype,
911 & cmode,index,con,cret)
918 integer cret,numdt,numit,entype,cmode
920 integer con(*), index(*)
923 cret = mmhfpgr(fid,name,len(name),numdt,numit,entype,
931 subroutine mmhphw(fid,name,numdt,numit,dt,entype,
932 & cmode,fisize,findex,nisize,nindex,con,cret)
939 integer cret,numdt,numit,fisize,nisize,entype,cmode
941 integer con(*), findex(*), nindex(*)
945 cret = mmhfphw(fid,name,len(name),numdt,numit,dt,entype,
946 & cmode,fisize,findex,nisize,nindex,con)
953 subroutine mmhphr(fid,name,numdt,numit,entype,
954 & cmode,findex,nindex,con,cret)
961 integer cret,numdt,numit,entype,cmode
963 integer con(*), findex(*), nindex(*)
966 cret = mmhfphr(fid,name,len(name),numdt,numit,entype,
967 & cmode,findex,nindex,con)
974 subroutine mmhgnw(fid,name,numdt,numit,entype,geotype,
982 integer cret,numdt, numit,n,entype,geotype
987 cret = mmhfgnw(fid,name,len(name),numdt,numit,entype,geotype,
995 subroutine mmhgnr(fid,name,numdt,numit,entype,geotype,
1003 integer cret,numdt, numit,entype,geotype
1008 cret = mmhfgnr(fid,name,len(name),numdt,numit,entype,geotype,
1016 subroutine mmhcsc(fid,name,numdt1,numit1,numdt2,numit2,
1024 integer cret,numdt1,numit1,numdt2,numit2
1029 cret = mmhfcsc(fid,name,len(name),numdt1,numit1,
1030 & numdt2,numit2,dt2)
1037 subroutine mmhcsi(fid,name,csit,numdt,numit,dt,cret)
1044 integer cret,numdt,numit,csit
1049 cret = mmhfcsi(fid,name,len(name),csit,numdt,numit,dt)
1056 subroutine mmhcsr(fid,name,numdt,numit,dt,cret)
1063 integer cret,numdt,numit
1068 cret = mmhfcsr(fid,name,len(name),numdt,numit,dt)
1086 cret = mmhfstr(fid,name,len(name),stype)
1101 character *(*) name,aname
1103 integer numdt,numit,geotype,cret
1108 cret = mmhfraw(fid,name,len(name),numdt,numit,geotype,
1109 & aname,len(aname),n,val)
1124 character *(*) name,aname
1126 integer numdt,numit,geotype,cret
1131 cret = mmhfiaw(fid,name,len(name),numdt,numit,geotype,
1132 & aname,len(aname),n,val)
1147 character *(*) name,aname
1149 integer numdt,numit,geotype,cret
1154 cret = mmhfsaw(fid,name,len(name),numdt,numit,geotype,
1155 & aname,len(aname),n,val,64*n)
1170 character *(*) name,aname
1172 integer numdt,numit,geotype,cret
1176 cret = mmhfrar(fid,name,len(name),numdt,numit,geotype,
1177 & aname,len(aname),val)
1185 & geotype,aname,val,cret)
1191 character *(*) name,aname
1193 integer numdt,numit,geotype,cret
1197 cret = mmhfiar(fid,name,len(name),numdt,numit,geotype,
1198 & aname,len(aname),val)
1206 & geotype,aname,val,cret)
1212 character *(*) name,aname
1214 integer numdt,numit,geotype,cret
1219 cret = mmhfsar(fid,name,len(name),numdt,numit,geotype,
1220 & aname,len(aname),val)
1227 subroutine mmheni(fid,name,numdt,numit,entype,it,
1228 & geoname,geotype,cret)
1235 integer cret,numdt,numit,entype,geotype,it
1236 character *(*) name, geoname
1239 cret = mmhfeni(fid,name,len(name),numdt,numit,entype,
1240 & it,geoname,geotype)
1247 subroutine mmhtfw( fid , name, numdt, numit, dt,
1255 integer cret,numdt,numit
1261 cret = mmhftfw(fid,name,len(name),numdt,numit,dt,tsf)
1276 integer cret,numdt,numit
1281 cret = mmhftfr(fid,name,len(name),numdt,numit,tsf)
1288 subroutine mmhaaw(fid,mname,dtype,numdt,numit,entype,geotype,
1295 character *(*) mname
1298 integer numdt,numit,entype,geotype
1303 cret = mmhfaaw(fid,mname,len(mname),dtype,numdt,numit,entype,
1311 subroutine mmhaar(fid,mname,dtype,numdt,numit,entype,geotype,
1318 character *(*) mname
1321 integer numdt,numit,entype,geotype
1326 cret = mmhfaar(fid,mname,len(mname),dtype,numdt,numit,entype,
1334 subroutine mmhasw(fid,mname,dtype,numdt,numit,entype,geotype,
1341 character *(*) mname
1344 integer numdt,numit,entype,geotype
1349 cret = mmhfasw(fid,mname,len(mname),dtype,numdt,numit,entype,
1357 subroutine mmhasr(fid,mname,dtype,numdt,numit,entype,geotype,
1364 character *(*) mname
1367 integer numdt,numit,entype,geotype
1372 cret = mmhfasr(fid,mname,len(mname),dtype,numdt,numit,entype,
subroutine mmhunr(fid, mname, uname, cret)
Cette routine permet la lecture du nom universel d'un maillage.
subroutine mmhatw(fid, name, nin, nvn, nnc, cret)
Cette routine permet l'écriture des attributs optionnels d'un maillage.
subroutine mmhgtw(fid, name, gtype, cret)
Cette routine permet de définir le type d'un maillage structuré (MED_STRUCTURED_MESH).
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.
subroutine mmhcsc(fid, name, numdt1, numit1, numdt2, numit2, dt2, cret)
Cette routine permet de créer une nouvelle étape de calcul dans un maillage.
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.
subroutine mmhatr(fid, name, nin, nvn, nnc, cret)
Cette routine permet la lecture des attributs optionnels d'un maillage.
subroutine mmhstr(fid, name, stype, cret)
Cette routine lit l'ordre de tri des étapes évolutives du maillage.
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.
subroutine mmhnmh(fid, n, cret)
Cette routine permet de lire le nombre de maillages dans un fichier.
subroutine mmhcsi(fid, name, csit, numdt, numit, dt, cret)
Cette routine permet de lire les informations relatives à une étape de calcul d'un maillage.
subroutine mmhgtr(fid, name, gtype, cret)
Cette routine permet de lire le type d'un maillage structuré (MED_STRUCTURED_MESH).
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.
subroutine mmhunw(fid, name, cret)
Cette routine permet l'écriture du nom universel d'un maillage.
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.
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.
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...
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...
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.
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...
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.
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'...
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 ...
subroutine mmhasw(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
subroutine mmhypr(fid, name, numdt, numit, entype, geotype, cmode, stmode, pname, swm, dim, n, con, cret)
subroutine mmhiaw(fid, name, numdt, numit, geotype, aname, n, val, cret)
subroutine mmhgsr(fid, name, numdt, numit, st, cret)
subroutine mmhcpw(fid, name, numdt, numit, dt, stm, pname, swm, dim, n, coo, cret)
subroutine mmhpgr(fid, name, numdt, numit, entype, cmode, index, con, cret)
subroutine mmhcor(fid, name, numdt, numit, swm, coo, cret)
subroutine mmhphr(fid, name, numdt, numit, entype, cmode, findex, nindex, con, cret)
subroutine mmhnow(fid, name, numdt, numit, dt, swm, n, coo, iname, nname, inum, num, ifam, fam, cret)
subroutine mmhnor(fid, name, numdt, numit, swm, coo, iname, nname, inum, num, ifam, fam, cret)
subroutine mmhrar(fid, name, numdt, numit, geotype, aname, val, cret)
subroutine mmhpgw(fid, name, numdt, numit, dt, entype, cmode, isize, index, con, cret)
subroutine mmhelw(fid, name, numdt, numit, dt, entype, geotype, cmode, swm, n, con, iname, nname, inum, num, ifam, fam, cret)
subroutine mmhgnw(fid, name, numdt, numit, entype, geotype, n, num, cret)
subroutine mmhgcr(fid, name, numdt, numit, axis, index, cret)
subroutine mmhcyw(fid, name, numdt, numit, dt, entype, geotype, cmode, swm, n, con, cret)
subroutine mmhelr(fid, name, numdt, numit, entype, geotype, cmode, swm, con, iname, nname, inum, num, ifam, fam, cret)
subroutine mmhaar(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
subroutine mmhasr(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
subroutine mmhfnw(fid, name, numdt, numit, entype, geotype, n, num, cret)
subroutine mmhfnr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mmhtfw(fid, name, numdt, numit, dt, tsf, cret)
subroutine mmhgsw(fid, name, numdt, numit, dt, st, cret)
subroutine mmhcar(fid, name, numdt, numit, flt, coo, cret)
subroutine mmhraw(fid, name, numdt, numit, geotype, aname, n, val, cret)
subroutine mmhgnr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mmhenw(fid, name, numdt, numit, entype, geotype, n, num, cret)
subroutine mmhaaw(fid, mname, dtype, numdt, numit, entype, geotype, flt, val, cret)
subroutine mmhiar(fid, name, numdt, numit, geotype, aname, val, cret)
subroutine mmhenr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mmhgcw(fid, name, numdt, numit, dt, axis, size, index, cret)
subroutine mmhyaw(fid, name, numdt, numit, dt, entype, geotype, cmode, flt, con, cret)
subroutine mmhcow(fid, name, numdt, numit, dt, swm, n, coo, cret)
subroutine mmhtfr(fid, name, numdt, numit, tsf, cret)
subroutine mmhcaw(fid, name, numdt, numit, dt, flt, coo, cret)
subroutine mmhcyr(fid, name, numdt, numit, entype, geotype, cmode, swm, con, cret)
subroutine mmhyar(fid, name, numdt, numit, entype, geotype, cmode, flt, con, cret)
subroutine mmhypw(fid, name, numdt, numit, dt, entype, geotype, cmode, stmode, pname, swm, dim, n, con, cret)
subroutine mmhphw(fid, name, numdt, numit, dt, entype, cmode, fisize, findex, nisize, nindex, con, cret)
subroutine mmhcpr(fid, name, numdt, numit, stm, pname, swm, dim, coo, cret)