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 champ' 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' subroutine mficlo(fid, cret)
subroutine mfdnfc(fid, ind, n, cret)
subroutine mfdnfd(fid, n, cret)
subroutine mfioun(fid, mid, class, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mmhnmh(fid, n, cret)
subroutine mfiomn(fid, fname, class, mid, cret)