43 character*16 nomcoo(2)
44 character*16 unicoo(2)
48 character*16 nomnoe(4)
53 parameter(mdim = 2, maa =
"maa1",nnoe = 4, sdim=2)
55 data coo /0.0, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0/
56 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
57 data nomnoe /
"nom1",
"nom2",
"nom3",
"nom4"/
58 data numnoe /1,2,3,4/, nufano /0,1,2,2/
61 call mfiope(fid,
'test4.med',med_acc_rdwr, cret)
63 if (cret .ne. 0 )
then
64 print *,
'Erreur creation du fichier'
70 call mmhcre(fid,maa,mdim,sdim,
71 & med_unstructured_mesh,
'un premier maillage pour test4',
72 &
"",med_sort_dtit,med_cartesian,nomcoo,unicoo,cret)
74 if (cret .ne. 0 )
then
75 print *,
'Erreur creation du maillage'
81 call mmhcow(fid,maa,med_no_dt,med_no_it,dt,
82 & med_full_interlace,nnoe,coo,cret)
84 if (cret .ne. 0 )
then
85 print *,
'Erreur ecriture des coordonnees des noeuds'
90 call mmheaw(fid,maa,med_no_dt,med_no_it,med_node,
91 & med_none,nnoe,nomnoe,cret)
93 if (cret .ne. 0 )
then
94 print *,
'Erreur ecriture des noms des noeuds'
99 call mmhenw(fid,maa,med_no_dt,med_no_it,med_node,
100 & med_none,nnoe,numnoe,cret)
102 if (cret .ne. 0 )
then
103 print *,
'Erreur ecriture des numeros des noeuds'
109 call mmhfnw(fid,maa,med_no_dt,med_no_it,med_node,
110 & med_none,nnoe,nufano,cret)
112 if (cret .ne. 0 )
then
113 print *,
'Erreur ecriture des numeros de famille'
120 if (cret .ne. 0 )
then
121 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 mmhenw(fid, name, numdt, numit, entype, geotype, n, num, cret)
Cette routine permet d'écrire les numéros d'un type d'entité d'un maillage.
subroutine mmhcow(fid, name, numdt, numit, dt, swm, n, coo, cret)
Cette routine permet d'écrire dans un maillage le tableau des coordonnées des noeuds, selon une séquence de calcul donnée.
subroutine mmhfnw(fid, name, numdt, numit, entype, geotype, n, num, cret)
Cette routine permet l'écriture des numéros de famille d'un type d'entité d'un maillage.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mmheaw(fid, mname, numdt, numit, entype, geotype, n, ename, cret)
Cette routine permet d'écrire les noms d'un type d'entité d'un maillage.