32 integer cret,cres,
type,cnu
36 integer nmaa,i,mdim,edim,nstep,stype,atype
43 character*16 nomcoo(3)
44 character*16 unicoo(3)
46 integer maa1exist,maa4exist
49 call mfiope(fid,
'test2.med',med_acc_rdonly, cret)
51 if (cret .ne. 0 )
then 52 print *,
'Erreur ouverture du fichier en lecture' 57 call mfioex(fid,med_mesh,
"maa1", maa1exist, cret)
59 if (cret .ne. 0 )
then 60 print *,
'Erreur de test de présence de maillage' 63 print *,
"Maillage maa1 existe : ",maa1exist
65 call mfioex(fid,med_mesh,
"maa4", maa4exist, cret)
67 if (cret .ne. 0 )
then 68 print *,
'Erreur de test de présence de maillage' 71 print *,
"Maillage maa4 existe : ",maa4exist
76 if (cret .ne. 0 )
then 77 print *,
'Erreur lecture du nombre de maillage' 80 print *,
'Nombre de maillages = ',nmaa
86 call mmhmii(fid,i,maa,edim,mdim,
type,desc,
87 & dtunit,stype,nstep,atype,
89 call mmhunr(fid,maa,nomu,cnu)
91 if (cret .ne. 0 )
then 92 print *,
'Erreur acces au maillage' 95 print
'(A,I1,A,A4,A,I1,A,A65,A65)',
'maillage ' 96 & ,i,
' de nom ',maa,
' et de dimension ',mdim,
97 &
' de description ',desc
98 if (type.eq.med_unstructured_mesh)
then 99 print *,
'Maillage non structure' 101 print *,
'Maillage structure' 103 print *,
'Dimension espace ', edim
104 print *,
'Dimension maillage ', mdim
106 print *,
'Nom universel : ',nomu
108 print *,
'Pas de nom universel' 110 print *,
'dt unit = ', dtunit
111 print *,
'sorting type =', stype
112 print *,
'number of computing step =', nstep
113 print *,
'coordinates axis type =', atype
114 print *,
'coordinates axis name =', nomcoo(1),nomcoo(2)
115 print *,
'coordinates axis units =', unicoo(1),unicoo(2)
121 if (cret .ne. 0 )
then 122 print *,
'Erreur fermeture du fichier' subroutine mmhnmh(fid, n, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mmhunr(fid, mname, uname, cret)
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
subroutine mficlo(fid, cret)
subroutine mfioex(fid, class, oname, oexist, cret)