41 character*16 comp, comp2(2)
42 character*16 unit, unit2(2)
51 data coo /0.0,0.0,1.0,0.0,0.0,1.0,1.0,1.0/
52 data comp2 /
"x",
"y"/, unit2 /
"cm",
"cm"/
55 call efouvr(fid,
'test27.med',med_lecture_ecriture, cret)
57 if (cret .ne. 0 )
then
58 print *,
'Erreur creation du fichier'
61 print *,
'Creation du fichier test27.med'
66 desc =
'un maillage vide'
67 call efmaac(fid,maa,mdim,med_non_structure,desc,cret)
69 if (cret .ne. 0 )
then
70 print *,
'Erreur creation du maillage'
76 maa =
'grille cartesienne'
77 desc =
'un exemple de grille cartesienne'
78 call efmaac(fid,maa,mdim,med_structure,desc,cret)
80 if (cret .ne. 0 )
then
81 print *,
'Erreur creation du maillage'
84 print *,
'Creation d un maillage MED_STRUCTURE'
88 call efnage(fid,maa,med_grille_cartesienne,cret)
90 print *,
'On definit la nature de la grille :
91 & MED_GRILLE_CARTESIENNE'
92 if (cret .ne. 0 )
then
93 print *,
'Erreur ecriture de la nature de la grille'
106 call eficoe(fid,maa,mdim,indice,nind,axe,comp,unit,cret)
108 if (cret .ne. 0 )
then
109 print *,
'Erreur ecriture des indices'
112 print *,
'Ecriture des indices des coordonnees selon axe X'
122 call eficoe(fid,maa,mdim,indice,nind,axe,comp,unit,cret)
124 if (cret .ne. 0 )
then
125 print *,
'Erreur ecriture des indices'
128 print *,
'Ecriture des indices des coordonnees selon axe Y'
131 maa =
'grille standard'
133 desc =
'un exemple de grille standard'
134 call efmaac(fid,maa,mdim,med_structure,desc,cret)
136 if (cret .ne. 0 )
then
137 print *,
'Erreur creation de maillage'
140 print *,
'Nouveau maillage MED_STRUCTURE'
142 call efnage(fid,maa,med_grille_standard,cret)
144 if (cret .ne. 0 )
then
145 print *,
'Erreur ecriture de la nature de la grille'
148 print *,
'On definit la nature du maillage : MED_GRILLE_STANDARD'
152 call efcooe(fid,maa,mdim,coo,med_full_interlace,nnoe,med_cart,
155 if (cret .ne. 0 )
then
156 print *,
'Erreur ecriture des coordonnees des noeuds'
159 print *,
'Ecriture des coordonnees de la grille'
164 call efscoe(fid,maa,mdim,strgri,cret)
166 if (cret .ne. 0 )
then
167 print *,
'Erreur ecriture de la structure'
170 print *,
'Ecriture de la structure de la grille : / 2,2 /'
173 call efferm (fid,cret)
175 if (cret .ne. 0 )
then
176 print *,
'Erreur fermeture du fichier'
179 print *,
'Fermeture du fichier'