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'
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
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 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.