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)
Cette routine permet de créer un maillage dans un fichier.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine meqcre(fid, maa, eq, des, cret)
Cette routine permet la création d'une équivalence portant sur les entités d'un maillage.
subroutine meqcow(fid, maa, eq, numdt, numit, typent, typgeo, n, corr, cret)
Cette routine permet d'écrire un tableau de correspondances entre les entités d'un maillage dans une ...
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.