39 parameter(mdim=2,maa=
"maa1",nnoe=4,sdim=2)
43 character*16 nomcoo(mdim), unicoo(mdim)
47 character*16 nomnoe(nnoe)
48 integer numnoe(nnoe), nufano(nnoe)
52 data coo /0.0, 0.0, 1.0, 0.0, 0.0, 1.0, 1.0, 1.0/
53 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
54 data nomnoe /
"nom1",
"nom2",
"nom3",
"nom4"/
55 data numnoe /1,2,3,4/,nufano /0,1,2,2/
58 call mfiope(fid,
'test14.med',med_acc_rdwr, cret)
60 if (cret .ne. 0 )
then
61 print *,
'Erreur creation du fichier'
66 call mmhcre(fid,maa,mdim,sdim,med_unstructured_mesh,
67 &
'un maillage pour test14',
"",med_sort_dtit,
68 & med_cartesian,nomcoo,unicoo,cret)
70 if (cret .ne. 0 )
then
71 print *,
'Erreur creation du maillage'
81 call mmhnow(fid,maa,med_no_dt,med_no_it,dt,med_full_interlace,
82 & nnoe,coo,med_true,nomnoe,med_true,numnoe,
83 & med_true,nufano,cret)
85 if (cret .ne. 0 )
then
86 print *,
'Erreur ecriture des noeuds'
93 if (cret .ne. 0 )
then
94 print *,
'Erreur fermeture du fichier'
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
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 mmhnow(fid, name, numdt, numit, dt, swm, n, coo, iname, nname, inum, num, ifam, fam, cret)