40 character*16 comp, comp2(2)
41 character*16 unit, unit2(2)
50 data coo /0.0,0.0,1.0,0.0,0.0,1.0,1.0,1.0/
51 data comp2 /
"x",
"y"/, unit2 /
"cm",
"cm"/
54 call efouvr(fid,
'test27.med',med_lecture_ecriture, cret)
56 if (cret .ne. 0 )
then
57 print *,
'Erreur creation du fichier'
60 print *,
'Creation du fichier test27.med'
65 desc =
'un maillage vide'
66 call efmaac(fid,maa,mdim,med_non_structure,desc,cret)
68 if (cret .ne. 0 )
then
69 print *,
'Erreur creation du maillage'
75 maa =
'grille cartesienne'
76 desc =
'un exemple de grille cartesienne'
77 call efmaac(fid,maa,mdim,med_structure,desc,cret)
79 if (cret .ne. 0 )
then
80 print *,
'Erreur creation du maillage'
83 print *,
'Creation d un maillage MED_STRUCTURE'
87 call efnage(fid,maa,med_grille_cartesienne,cret)
89 print *,
'On definit la nature de la grille :
90 & MED_GRILLE_CARTESIENNE'
91 if (cret .ne. 0 )
then
92 print *,
'Erreur ecriture de la nature de la grille'
105 call eficoe(fid,maa,mdim,indice,nind,axe,comp,unit,cret)
107 if (cret .ne. 0 )
then
108 print *,
'Erreur ecriture des indices'
111 print *,
'Ecriture des indices des coordonnees selon axe X'
121 call eficoe(fid,maa,mdim,indice,nind,axe,comp,unit,cret)
123 if (cret .ne. 0 )
then
124 print *,
'Erreur ecriture des indices'
127 print *,
'Ecriture des indices des coordonnees selon axe Y'
130 maa =
'grille standard'
132 desc =
'un exemple de grille standard'
133 call efmaac(fid,maa,mdim,med_structure,desc,cret)
135 if (cret .ne. 0 )
then
136 print *,
'Erreur creation de maillage'
139 print *,
'Nouveau maillage MED_STRUCTURE'
141 call efnage(fid,maa,med_grille_standard,cret)
143 if (cret .ne. 0 )
then
144 print *,
'Erreur ecriture de la nature de la grille'
147 print *,
'On definit la nature du maillage : MED_GRILLE_STANDARD'
151 call efcooe(fid,maa,mdim,coo,med_full_interlace,nnoe,med_cart,
154 if (cret .ne. 0 )
then
155 print *,
'Erreur ecriture des coordonnees des noeuds'
158 print *,
'Ecriture des coordonnees de la grille'
163 call efscoe(fid,maa,mdim,strgri,cret)
165 if (cret .ne. 0 )
then
166 print *,
'Erreur ecriture de la structure'
169 print *,
'Ecriture de la structure de la grille : / 2,2 /'
172 call efferm (fid,cret)
174 if (cret .ne. 0 )
then
175 print *,
'Erreur fermeture du fichier'
178 print *,
'Fermeture du fichier'