30 integer cret, fid, ncha, nmaa, mid, mid2
31 integer i, ncomp, type
32 character*16 comp(3), unit(3), dtunit
33 character*64 nomcha,nommaa
37 call mfiope(fid,
'test2.med',med_acc_rdext, cret)
39 if (cret .ne. 0 )
then
40 print *,
'Erreur ouverture du fichier'
43 print *,
'On ouvre le fichier test2.med'
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 mfiomn(fid,
'test10.med', med_field, mid, cret)
57 if (cret .ne. 0 )
then
58 print *,
'Erreur montage du fichier'
61 print *,
'On monte les champs du fichier test10.med'
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 mfdnfc(fid,i,ncomp,cret)
80 if (cret .ne. 0 )
then
81 print *,
'Erreur lecture du nombre de composante'
89 call mfioun(fid, mid, med_field, cret)
91 if (cret .ne. 0 )
then
92 print *,
'Erreur demontage du fichier'
95 print *,
'On demonte le fichier test10.med'
100 if (cret .ne. 0 )
then
101 print *,
'Erreur lecture du nombre de champ'
104 print *,
'Nombre de champs apres demontage : ',ncha
109 if (cret .ne. 0 )
then
110 print *,
'Erreur fermeture du fichier'
113 print *,
'On ferme le fichier test2.med'
116 call mfiope(fid,
'test20.med',med_acc_rdwr,cret)
118 if (cret .ne. 0 )
then
119 print *,
'Erreur creation du fichier'
122 print *,
'Creation du fichier test20.med'
125 call mfiomn(fid,
'test2.med', med_mesh, mid, cret)
127 if (cret .ne. 0 )
then
128 print *,
'Erreur montage du fichier'
131 print *,
'On monte le fichier test2.med'
134 call mmhnmh(fid,nmaa,cret)
136 if (cret .ne. 0 )
then
137 print *,
'Erreur lecture du nombre de maillage'
140 print *,
'Nombre de maillage apres montage : ', nmaa
143 call mfiomn(fid,
'test10.med', med_field, mid2, cret)
145 if (cret .ne. 0 )
then
146 print *,
'Erreur montage du fichier'
149 print *,
'On monte le fichier test10.med'
152 call mfdnfd(fid,ncha,cret)
154 if (cret .ne. 0 )
then
155 print *,
'Erreur lecture du nombre de champ'
158 print *,
'Nombre de champ apres montage : ',ncha
161 call mfioun(fid, mid2,med_field,cret)
163 if (cret .ne. 0 )
then
164 print *,
'Erreur demontage du fichier'
167 print *,
'On demonte test10.med'
170 call mfioun(fid, mid,med_mesh,cret)
172 if (cret .ne. 0 )
then
173 print *,
'Erreur demontage du fichier'
176 print *,
'On demonte test2.med'
181 if (cret .ne. 0 )
then
182 print *,
'Erreur fermeture du fichier'
185 print *,
'Fermeture du fichier test20.med'