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'
subroutine mmhnmh(fid, n, cret)
Cette routine permet de lire le nombre de maillages dans un fichier.
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 mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mfdnfc(fid, ind, n, cret)
Cette fonction lit le nombre de composantes d'un champ.
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 mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.