30 integer cret, fid,mdim,nmaa,npoly,i,j,k,taille
31 integer edim,nstep,stype,atype, chgt, tsf
36 integer index(ni),ind1,ind2
41 character*16 nomcoo(2)
42 character*16 unicoo(2)
43 character(16) :: dtunit
46 call mfiope(fid,
'test23.med',med_acc_rdonly, cret)
48 if (cret .ne. 0 )
then
49 print *,
'Erreur ouverture du fichier'
52 print *,
'Ouverture du fichier test23.med'
57 if (cret .ne. 0 )
then
58 print *,
'Erreur lecture nombre de maillage'
61 print *,
'Nombre de maillages : ',nmaa
68 call mmhmii(fid,i,maa,edim,mdim,
type,desc,
69 & dtunit,stype,nstep,atype,
71 if (cret .ne. 0 )
then
72 print *,
'Erreur lecture infos maillage'
76 print *,
'Maillage : ',maa
77 print *,
'Dimension : ',mdim
80 call mmhnme(fid,maa,med_no_dt,med_no_it,med_cell,med_polygon,
81 & med_index_node,med_nodal,chgt,tsf,isize,cret)
84 if (cret .ne. 0 )
then
85 print *,
'Erreur lecture du nombre de polygone'
88 print *,
'Nombre de mailles MED_POLYGONE : ',npoly
91 call mmhnme(fid,maa,med_no_dt,med_no_it,med_cell,med_polygon,
92 & med_connectivity,med_nodal,chgt,tsf,taille,cret)
94 if (cret .ne. 0 )
then
95 print *,
'Erreur lecture infos polygones'
98 print *,
'Taille de la connectivite : ',taille
101 call mmhpgr(fid,maa,med_no_dt,med_no_it,med_cell,
102 & med_nodal,index,con,cret)
104 if (cret .ne. 0 )
then
105 print *,
'Erreur lecture des connectivites polygones'
108 print *,
'Lecture de la connectivite des polygones'
111 call mmhear(fid,maa,med_no_dt,med_no_it,
112 & med_cell,med_polygon,nom,cret)
114 if (cret .ne. 0 )
then
115 print *,
'Erreur lecture des noms des polygones'
118 print *,
'Lecture des noms'
121 call mmhfnr(fid,maa,med_no_dt,med_no_it,med_cell,med_polygon,
124 if (cret .ne. 0 )
then
125 print *,
'Erreur lecture des numeros des polygones'
128 print *,
'Lecture des numeros'
131 call mmhfnr(fid,maa,med_no_dt,med_no_it,med_cell,med_polygon,
134 if (cret .ne. 0 )
then
135 print *,
'Erreur lecture des numeros de famille des
139 print *,
'Lecture des numeros de famille'
142 print *,
'Affichage des resultats'
145 print *,
'>> Maille polygone ',j
146 print *,
'---- Connectivite ---- : '
153 print *,
'---- Numero ----: ',num(j)
154 print *,
'---- Numero de famille ---- : ',fam(j)
163 if (cret .ne. 0 )
then
164 print *,
'Erreur fermeture du fichier'
167 print *,
'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 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.
subroutine mmhpgr(fid, name, numdt, numit, entype, cmode, index, con, cret)
Cette routine permet la lecture des connectivités de polygones.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
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...
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.