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'