32 character*64 maa , equ
34 integer mdim ,ncor, sdim
36 character*16 nomcoo(3)
37 character*16 unicoo(3)
39 parameter(maa =
"maa1",mdim = 3,ncor = 3 , sdim=3)
40 data cor /1,2,3,4,5,6/, equ /
"equivalence"/
41 data des /
"equivalence sur les mailles MED_TRIA3" /
42 data nomcoo /
"x",
"y",
"z"/, unicoo /
"cm",
"cm",
"cm"/
46 call mfiope(fid,
'test12.med',med_acc_rdwr, cret)
48 if (cret .ne. 0 )
then
49 print *,
'Erreur creation du fichier'
55 call mmhcre(fid,maa,mdim,sdim,med_unstructured_mesh,
56 &
'Un maillage pour test12',
"",
57 & med_sort_dtit,med_cartesian,nomcoo,unicoo,cret)
59 if (cret .ne. 0 )
then
60 print *,
'Erreur creation du maillage'
65 call meqcre(fid,maa,equ,des,cret)
67 if (cret .ne. 0 )
then
68 print *,
'Erreur creation equivalence'
73 call meqcow(fid,maa,equ,med_no_dt,med_no_it,med_cell,
74 & med_tria3,ncor,cor,cret)
76 if (cret .ne. 0 )
then
77 print *,
'Erreur ecriture de correspondances'
84 if (cret .ne. 0 )
then
85 print *,
'Erreur fermeture du fichier'