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'