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'
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mmhnmh(fid, n, cret)
Cette routine permet de lire le nombre de maillages dans un fichier.
subroutine mfiomn(fid, fname, class, mid, cret)
Cette routine permet de monter dans le fichier courant un type de données (exemples les maillages...
subroutine mfdnfc(fid, ind, n, cret)
Cette fonction lit le nombre de composantes d'un champ.
subroutine mfioun(fid, mid, class, cret)
Une fois le démontage effectué, les données précédemment montées ne sont plus accessibles.
subroutine mfdnfd(fid, n, cret)
Cette fonction permet de lire le nombre de champs dans un fichier.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.