38 parameter(mdim=2,maa=
"maa1",nnoe=4)
42 character*16 nomcoo(mdim), unicoo(mdim)
46 character*16 nomnoe(nnoe)
47 integer numnoe(nnoe), nufano(nnoe)
49 data coo /0.0, 0.0, 1.0, 0.0, 0.0, 1.0, 1.0, 1.0/
50 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
51 data nomnoe /
"nom1",
"nom2",
"nom3",
"nom4"/
52 data numnoe /1,2,3,4/,nufano /0,1,2,2/
55 call efouvr(fid,
'test14.med',med_lecture_ecriture, cret)
57 if (cret .ne. 0 )
then
58 print *,
'Erreur creation du fichier'
63 call efmaac(fid,maa,mdim,med_non_structure,
64 &
'un maillage pour tes14',cret)
66 if (cret .ne. 0 )
then
67 print *,
'Erreur creation du maillage'
77 call efnoee(fid,maa,mdim,coo,med_full_interlace,med_cart,
78 & nomcoo,unicoo,nomnoe,med_vrai,numnoe,med_vrai,
81 if (cret .ne. 0 )
then
82 print *,
'Erreur ecriture des noeuds'
87 call efferm (fid,cret)
89 if (cret .ne. 0 )
then
90 print *,
'Erreur fermeture du fichier'