30 integer cret, fid, ncha, nmaa, mid, mid2
31 integer i, ncomp, type
32 character*16 comp(3), unit(3)
36 call efouvr(fid,
'test2.med',med_lecture_ajout, cret)
38 if (cret .ne. 0 )
then
39 print *,
'Erreur ouverture du fichier'
42 print *,
'On ouvre le fichier test2.med'
45 call efncha(fid,0,ncha,cret)
47 if (cret .ne. 0 )
then
48 print *,
'Erreur lecture du nombre de champ'
51 print *,
'Nombre de champs dans test2.med : ',ncha
54 call efmont(fid,
'test10.med',med_champ,mid,cret)
56 if (cret .ne. 0 )
then
57 print *,
'Erreur montage du fichier'
60 print *,
'On monte les champs du fichier test10.med'
63 call efncha(fid,0,ncha,cret)
65 if (cret .ne. 0 )
then
66 print *,
'Erreur lecture du nombre de champ'
69 print *,
'Nombre de champs dans test2.med apres montage : ',ncha
77 call efncha(fid,i,ncomp,cret)
79 if (cret .ne. 0 )
then
80 print *,
'Erreur lecture du nombre de composante'
85 call efchai(fid,i,nom,
type,comp,unit,ncomp,cret)
87 if (cret .ne. 0 )
then
88 print *,
'Erreur lecture des infos sur le champ'
91 print *,
'Champ de nom ',nom
92 print *,
' avec ', ncomp,
' composantes'
98 call efdemo(fid,mid,med_champ,cret)
100 if (cret .ne. 0 )
then
101 print *,
'Erreur demontage du fichier'
104 print *,
'On demonte le fichier test10.med'
107 call efncha(fid,0,ncha,cret)
109 if (cret .ne. 0 )
then
110 print *,
'Erreur lecture du nombre de champ'
113 print *,
'Nombre de champs apres demontage : ',ncha
116 call efferm(fid,cret)
118 if (cret .ne. 0 )
then
119 print *,
'Erreur fermeture du fichier'
122 print *,
'On ferme le fichier test2.med'
125 call efouvr(fid,
'test20.med',med_lecture_ecriture,cret)
127 if (cret .ne. 0 )
then
128 print *,
'Erreur creation du fichier'
131 print *,
'Creation du fichier test20.med'
134 call efmont(fid,
'test2.med',med_maillage,mid,cret)
136 if (cret .ne. 0 )
then
137 print *,
'Erreur montage du fichier'
140 print *,
'On monte le fichier test2.med'
143 call efnmaa(fid,nmaa,cret)
145 if (cret .ne. 0 )
then
146 print *,
'Erreur lecture du nombre de maillage'
149 print *,
'Nombre de maillage apres montage : ', nmaa
152 call efmont(fid,
'test10.med',med_champ,mid2,cret)
154 if (cret .ne. 0 )
then
155 print *,
'Erreur montage du fichier'
158 print *,
'On monte le fichier test10.med'
161 call efncha(fid,0,ncha,cret)
163 if (cret .ne. 0 )
then
164 print *,
'Erreur lecture du nombre de champ'
167 print *,
'Nombre de champ apres montage : ',ncha
170 call efdemo(fid,mid2,med_champ,cret)
172 if (cret .ne. 0 )
then
173 print *,
'Erreur demontage du fichier'
176 print *,
'On demonte test10.med'
179 call efdemo(fid,mid,med_maillage,cret)
181 if (cret .ne. 0 )
then
182 print *,
'Erreur demontage du fichier'
185 print *,
'On demonte test2.med'
188 call efferm(fid,cret)
190 if (cret .ne. 0 )
then
191 print *,
'Erreur fermeture du fichier'
194 print *,
'Fermeture du fichier test20.med'