31 integer cret,fid,cres,
type,cnu
35 integer nmaa,i,mdim,edim,nstep,stype,atype
42 character*16 nomcoo(3)
43 character*16 unicoo(3)
45 integer maa1exist,maa4exist
48 call mfiope(fid,
'test2.med',med_acc_rdonly, cret)
50 if (cret .ne. 0 )
then
51 print *,
'Erreur ouverture du fichier en lecture'
56 call mfioex(fid,med_mesh,
"maa1", maa1exist, cret)
58 if (cret .ne. 0 )
then
59 print *,
'Erreur de test de présence de maillage'
62 print *,
"Maillage maa1 existe : ",maa1exist
64 call mfioex(fid,med_mesh,
"maa4", maa4exist, cret)
66 if (cret .ne. 0 )
then
67 print *,
'Erreur de test de présence de maillage'
70 print *,
"Maillage maa4 existe : ",maa4exist
75 if (cret .ne. 0 )
then
76 print *,
'Erreur lecture du nombre de maillage'
79 print *,
'Nombre de maillages = ',nmaa
85 call mmhmii(fid,i,maa,edim,mdim,
type,desc,
86 & dtunit,stype,nstep,atype,
88 call mmhunr(fid,maa,nomu,cnu)
90 if (cret .ne. 0 )
then
91 print *,
'Erreur acces au maillage'
94 print
'(A,I1,A,A4,A,I1,A,A65,A65)',
'maillage '
95 & ,i,
' de nom ',maa,
' et de dimension ',mdim,
96 &
' de description ',desc
97 if (type.eq.med_unstructured_mesh)
then
98 print *,
'Maillage non structure'
100 print *,
'Maillage structure'
102 print *,
'Dimension espace ', edim
103 print *,
'Dimension maillage ', mdim
105 print *,
'Nom universel : ',nomu
107 print *,
'Pas de nom universel'
109 print *,
'dt unit = ', dtunit
110 print *,
'sorting type =', stype
111 print *,
'number of computing step =', nstep
112 print *,
'coordinates axis type =', atype
113 print *,
'coordinates axis name =', nomcoo(1:2)
114 print *,
'coordinates axis units =', unicoo(1:2)
120 if (cret .ne. 0 )
then
121 print *,
'Erreur fermeture du fichier'
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mmhnmh(fid, n, cret)
Cette routine permet de lire le nombre de maillages dans un fichier.
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 mfioex(fid, class, oname, oexist, cret)
Interroge le fichier fid pour tester l'existence de l'objet objectname de type medclass.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.