39 parameter(mdim=2,maa=
"maa1",nnoe=4)
43 character*16 nomcoo(mdim), unicoo(mdim)
47 character*16 nomnoe(nnoe)
48 integer numnoe(nnoe), nufano(nnoe)
50 data coo /0.0, 0.0, 1.0, 0.0, 0.0, 1.0, 1.0, 1.0/
51 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
52 data nomnoe /
"nom1",
"nom2",
"nom3",
"nom4"/
53 data numnoe /1,2,3,4/,nufano /0,1,2,2/
56 call efouvr(fid,
'test14.med',med_lecture_ecriture, cret)
58 if (cret .ne. 0 )
then 59 print *,
'Erreur creation du fichier' 64 call efmaac(fid,maa,mdim,med_non_structure,
65 &
'un maillage pour tes14',cret)
67 if (cret .ne. 0 )
then 68 print *,
'Erreur creation du maillage' 78 call efnoee(fid,maa,mdim,coo,med_full_interlace,med_cart,
79 & nomcoo,unicoo,nomnoe,med_vrai,numnoe,med_vrai,
82 if (cret .ne. 0 )
then 83 print *,
'Erreur ecriture des noeuds' 88 call efferm (fid,cret)
90 if (cret .ne. 0 )
then 91 print *,
'Erreur fermeture du fichier'