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'