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'
subroutine meqcre(fid, maa, eq, des, cret)
subroutine meqcow(fid, maa, eq, numdt, numit, typent, typgeo, n, corr, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mficlo(fid, cret)
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)