43 character*16 nomcoo(2)
44 character*16 unicoo(2)
48 character*16 nomnoe(4)
52 parameter( mdim = 2, maa =
"maa1",nnoe = 4 )
53 data coo /0.0, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0/
54 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
55 data nomnoe /
"nom1",
"nom2",
"nom3",
"nom4"/
56 data numnoe /1,2,3,4/, nufano /0,1,2,2/
59 call efouvr(fid,
'test4.med',med_lecture_ecriture, cret)
61 if (cret .ne. 0 )
then
62 print *,
'Erreur creation du fichier'
68 call efmaac(fid,maa,mdim,med_non_structure,
69 &
'un maillage pour test4',cret)
71 if (cret .ne. 0 )
then
72 print *,
'Erreur creation du maillage'
78 call efcooe(fid,maa,mdim,coo,med_full_interlace,
79 & nnoe,med_cart,nomcoo,unicoo,cret)
81 if (cret .ne. 0 )
then
82 print *,
'Erreur ecriture des coordonnees des noeuds'
87 call efnome(fid,maa,nomnoe,nnoe,med_noeud,0,cret)
89 if (cret .ne. 0 )
then
90 print *,
'Erreur ecriture des noms des noeuds'
95 call efnume(fid,maa,numnoe,nnoe,med_noeud,0,cret)
97 if (cret .ne. 0 )
then
98 print *,
'Erreur ecriture des numeros des noeuds'
104 call effame(fid,maa,nufano,nnoe,med_noeud,0,cret)
106 if (cret .ne. 0 )
then
107 print *,
'Erreur ecriture des numeros de famille'
112 call efferm (fid,cret)
114 if (cret .ne. 0 )
then
115 print *,
'Erreur fermeture du fichier'