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,
'test20-0.med',med_acc_rdext, cret)
39 if (cret .ne. 0 )
then
40 print *,
'Erreur ouverture du fichier'
43 print *,
'On ouvre le fichier test20-0.med'
48 if (cret .ne. 0 )
then
49 print *,
'Erreur lecture du nombre de champ'
52 print *,
'Nombre de champs dans test20-0.med : ',ncha
55 call mfiomn(fid,
'test10-0.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-0.med'
66 if (cret .ne. 0 )
then
67 print *,
'Erreur lecture du nombre de champ'
70 print *,
'Nombre de champs dans test20-0.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-0.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 test20-0.med'
120 call mfiope(fid,
'test20.med',med_acc_rdwr,cret)
122 if (cret .ne. 0 )
then
123 print *,
'Erreur creation du fichier'
126 print *,
'Creation du fichier test20.med'
129 call mfiomn(fid,
'test20-0.med', med_mesh, mid, cret)
131 if (cret .ne. 0 )
then
132 print *,
'Erreur montage du fichier'
135 print *,
'On monte le fichier test20-0.med'
138 call mmhnmh(fid,nmaa,cret)
140 if (cret .ne. 0 )
then
141 print *,
'Erreur lecture du nombre de maillage'
144 print *,
'Nombre de maillage apres montage : ', nmaa
147 call mfiomn(fid,
'test10-0.med', med_field, mid2, cret)
149 if (cret .ne. 0 )
then
150 print *,
'Erreur montage du fichier'
153 print *,
'On monte le fichier test10-0.med'
156 call mfdnfd(fid,ncha,cret)
158 if (cret .ne. 0 )
then
159 print *,
'Erreur lecture du nombre de champ'
162 print *,
'Nombre de champ apres montage : ',ncha
165 call mfioun(fid, mid2,med_field,cret)
167 if (cret .ne. 0 )
then
168 print *,
'Erreur demontage du fichier'
171 print *,
'On demonte test10.med'
174 call mfioun(fid, mid,med_mesh,cret)
176 if (cret .ne. 0 )
then
177 print *,
'Erreur demontage du fichier'
180 print *,
'On demonte test20-0.med'
185 if (cret .ne. 0 )
then
186 print *,
'Erreur fermeture du fichier'
189 print *,
'Fermeture du fichier test20.med'