30 integer*8 fid, mid, mid2
31 integer cret, ncha, nmaa
32 integer i, ncomp, type
33 character*16 comp(3), unit(3), dtunit
34 character*64 nomcha,nommaa
38 call mfiope(fid,
'test20-0.med',med_acc_rdext, cret)
40 if (cret .ne. 0 )
then
41 print *,
'Erreur ouverture du fichier'
44 print *,
'On ouvre le fichier test20-0.med'
49 if (cret .ne. 0 )
then
50 print *,
'Erreur lecture du nombre de champ'
53 print *,
'Nombre de champs dans test20-0.med : ',ncha
56 call mfiomn(fid,
'test10-0.med', med_field, mid, cret)
58 if (cret .ne. 0 )
then
59 print *,
'Erreur montage du fichier'
62 print *,
'On monte les champs du fichier test10-0.med'
67 if (cret .ne. 0 )
then
68 print *,
'Erreur lecture du nombre de champs'
71 print *,
'Nombre de champs dans test20-0.med apres montage : ',ncha
79 call mfdnfc(fid,i,ncomp,cret)
81 if (cret .ne. 0 )
then
82 print *,
'Erreur lecture du nombre de composante'
90 call mfioun(fid, mid, med_field, cret)
92 if (cret .ne. 0 )
then
93 print *,
'Erreur demontage du fichier'
96 print *,
'On demonte le fichier test10-0.med'
101 if (cret .ne. 0 )
then
102 print *,
'Erreur lecture du nombre de champ'
105 print *,
'Nombre de champs apres demontage : ',ncha
110 if (cret .ne. 0 )
then
111 print *,
'Erreur fermeture du fichier'
114 print *,
'On ferme le fichier test20-0.med'
121 call mfiope(fid,
'test20.med',med_acc_rdwr,cret)
123 if (cret .ne. 0 )
then
124 print *,
'Erreur creation du fichier'
127 print *,
'Creation du fichier test20.med'
130 call mfiomn(fid,
'test20-0.med', med_mesh, mid, cret)
132 if (cret .ne. 0 )
then
133 print *,
'Erreur montage du fichier'
136 print *,
'On monte le fichier test20-0.med'
139 call mmhnmh(fid,nmaa,cret)
141 if (cret .ne. 0 )
then
142 print *,
'Erreur lecture du nombre de maillage'
145 print *,
'Nombre de maillage apres montage : ', nmaa
148 call mfiomn(fid,
'test10-0.med', med_field, mid2, cret)
150 if (cret .ne. 0 )
then
151 print *,
'Erreur montage du fichier'
154 print *,
'On monte le fichier test10-0.med'
157 call mfdnfd(fid,ncha,cret)
159 if (cret .ne. 0 )
then
160 print *,
'Erreur lecture du nombre de champ'
163 print *,
'Nombre de champ apres montage : ',ncha
166 call mfioun(fid, mid2,med_field,cret)
168 if (cret .ne. 0 )
then
169 print *,
'Erreur demontage du fichier'
172 print *,
'On demonte test10.med'
175 call mfioun(fid, mid,med_mesh,cret)
177 if (cret .ne. 0 )
then
178 print *,
'Erreur demontage du fichier'
181 print *,
'On demonte test20-0.med'
186 if (cret .ne. 0 )
then
187 print *,
'Erreur fermeture du fichier'
190 print *,
'Fermeture du fichier test20.med'