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 mfioex(fid, class, oname, oexist, cret)
Interroge le fichier fid pour tester l'existence de l'objet objectname de type medclass.
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 mmhunr(fid, mname, uname, cret)
Cette routine permet la lecture du nom universel d'un maillage.
subroutine mmhnmh(fid, n, cret)
Cette routine permet de lire le nombre de maillages dans un fichier.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.