33 character*64 maa , equ
35 integer mdim ,ncor, sdim
37 character*16 nomcoo(3)
38 character*16 unicoo(3)
40 parameter(maa =
"maa1",mdim = 3,ncor = 3 , sdim=3)
41 data cor /1,2,3,4,5,6/, equ /
"equivalence"/
42 data des /
"equivalence sur les mailles MED_TRIA3" /
43 data nomcoo /
"x",
"y",
"z"/, unicoo /
"cm",
"cm",
"cm"/
47 call mfiope(fid,
'test12.med',med_acc_rdwr, cret)
49 if (cret .ne. 0 )
then 50 print *,
'Erreur creation du fichier' 56 call mmhcre(fid,maa,mdim,sdim,med_unstructured_mesh,
57 &
'Un maillage pour test12',
"",
58 & med_sort_dtit,med_cartesian,nomcoo,unicoo,cret)
60 if (cret .ne. 0 )
then 61 print *,
'Erreur creation du maillage' 66 call meqcre(fid,maa,equ,des,cret)
68 if (cret .ne. 0 )
then 69 print *,
'Erreur creation equivalence' 74 call meqcow(fid,maa,equ,med_no_dt,med_no_it,med_cell,
75 & med_tria3,ncor,cor,cret)
77 if (cret .ne. 0 )
then 78 print *,
'Erreur ecriture de correspondances' 85 if (cret .ne. 0 )
then 86 print *,
'Erreur fermeture du fichier'