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