30 integer*8 fid,mid,mid2
31 integer cret, ncha, nmaa
32 integer i, ncomp, type
33 character*16 comp(3), unit(3)
37 call efouvr(fid,
'test2.med',med_lecture_ajout, cret)
39 if (cret .ne. 0 )
then 40 print *,
'Erreur ouverture du fichier' 43 print *,
'On ouvre le fichier test2.med' 46 call efncha(fid,0,ncha,cret)
48 if (cret .ne. 0 )
then 49 print *,
'Erreur lecture du nombre de champ' 52 print *,
'Nombre de champs dans test2.med : ',ncha
55 call efmont(fid,
'test10.med',med_champ,mid,cret)
57 if (cret .ne. 0 )
then 58 print *,
'Erreur montage du fichier' 61 print *,
'On monte les champs du fichier test10.med' 64 call efncha(fid,0,ncha,cret)
66 if (cret .ne. 0 )
then 67 print *,
'Erreur lecture du nombre de champ' 70 print *,
'Nombre de champs dans test2.med apres montage : ',ncha
78 call efncha(fid,i,ncomp,cret)
80 if (cret .ne. 0 )
then 81 print *,
'Erreur lecture du nombre de composante' 86 call efchai(fid,i,nom,
type,comp,unit,ncomp,cret)
88 if (cret .ne. 0 )
then 89 print *,
'Erreur lecture des infos sur le champ' 92 print *,
'Champ de nom ',nom
93 print *,
' avec ', ncomp,
' composantes' 99 call efdemo(fid,mid,med_champ,cret)
101 if (cret .ne. 0 )
then 102 print *,
'Erreur demontage du fichier' 105 print *,
'On demonte le fichier test10.med' 108 call efncha(fid,0,ncha,cret)
110 if (cret .ne. 0 )
then 111 print *,
'Erreur lecture du nombre de champ' 114 print *,
'Nombre de champs apres demontage : ',ncha
117 call efferm(fid,cret)
119 if (cret .ne. 0 )
then 120 print *,
'Erreur fermeture du fichier' 123 print *,
'On ferme le fichier test2.med' 126 call efouvr(fid,
'test20.med',med_lecture_ecriture,cret)
128 if (cret .ne. 0 )
then 129 print *,
'Erreur creation du fichier' 132 print *,
'Creation du fichier test20.med' 135 call efmont(fid,
'test2.med',med_maillage,mid,cret)
137 if (cret .ne. 0 )
then 138 print *,
'Erreur montage du fichier' 141 print *,
'On monte le fichier test2.med' 144 call efnmaa(fid,nmaa,cret)
146 if (cret .ne. 0 )
then 147 print *,
'Erreur lecture du nombre de maillage' 150 print *,
'Nombre de maillage apres montage : ', nmaa
153 call efmont(fid,
'test10.med',med_champ,mid2,cret)
155 if (cret .ne. 0 )
then 156 print *,
'Erreur montage du fichier' 159 print *,
'On monte le fichier test10.med' 162 call efncha(fid,0,ncha,cret)
164 if (cret .ne. 0 )
then 165 print *,
'Erreur lecture du nombre de champ' 168 print *,
'Nombre de champ apres montage : ',ncha
171 call efdemo(fid,mid2,med_champ,cret)
173 if (cret .ne. 0 )
then 174 print *,
'Erreur demontage du fichier' 177 print *,
'On demonte test10.med' 180 call efdemo(fid,mid,med_maillage,cret)
182 if (cret .ne. 0 )
then 183 print *,
'Erreur demontage du fichier' 186 print *,
'On demonte test2.med' 189 call efferm(fid,cret)
191 if (cret .ne. 0 )
then 192 print *,
'Erreur fermeture du fichier' 195 print *,
'Fermeture du fichier test20.med'