Aller à la documentation de ce fichier.
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 champs'
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 mfiomn(fid, fname, class, mid, cret)
subroutine mmhnmh(fid, n, cret)
Cette routine permet de lire le nombre de maillages dans un fichier.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mfdnfd(fid, n, cret)
Cette fonction permet de lire le nombre de champs dans un fichier.
subroutine mfioun(fid, mid, class, cret)
subroutine mfdnfc(fid, ind, n, cret)
Cette fonction lit le nombre de composantes d'un champ.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.