44 character*16 nomcoo(2)
45 character*16 unicoo(2)
49 character*16 nomnoe(4)
53 parameter( mdim = 2, maa =
"maa1",nnoe = 4 )
54 data coo /0.0, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0/
55 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
56 data nomnoe /
"nom1",
"nom2",
"nom3",
"nom4"/
57 data numnoe /1,2,3,4/, nufano /0,1,2,2/
60 call efouvr(fid,
'test4.med',med_lecture_ecriture, cret)
62 if (cret .ne. 0 )
then
63 print *,
'Erreur creation du fichier'
69 call efmaac(fid,maa,mdim,med_non_structure,
70 &
'un maillage pour test4',cret)
72 if (cret .ne. 0 )
then
73 print *,
'Erreur creation du maillage'
79 call efcooe(fid,maa,mdim,coo,med_full_interlace,
80 & nnoe,med_cart,nomcoo,unicoo,cret)
82 if (cret .ne. 0 )
then
83 print *,
'Erreur ecriture des coordonnees des noeuds'
88 call efnome(fid,maa,nomnoe,nnoe,med_noeud,0,cret)
90 if (cret .ne. 0 )
then
91 print *,
'Erreur ecriture des noms des noeuds'
96 call efnume(fid,maa,numnoe,nnoe,med_noeud,0,cret)
98 if (cret .ne. 0 )
then
99 print *,
'Erreur ecriture des numeros des noeuds'
105 call effame(fid,maa,nufano,nnoe,med_noeud,0,cret)
107 if (cret .ne. 0 )
then
108 print *,
'Erreur ecriture des numeros de famille'
113 call efferm (fid,cret)
115 if (cret .ne. 0 )
then
116 print *,
'Erreur fermeture du fichier'