38 parameter(mdim=2,maa=
"maa1",nnoe=4,sdim=2)
42 character*16 nomcoo(mdim), unicoo(mdim)
46 character*16 nomnoe(nnoe)
47 integer numnoe(nnoe), nufano(nnoe)
51 data coo /0.0, 0.0, 1.0, 0.0, 0.0, 1.0, 1.0, 1.0/
52 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
53 data nomnoe /
"nom1",
"nom2",
"nom3",
"nom4"/
54 data numnoe /1,2,3,4/,nufano /0,1,2,2/
57 call mfiope(fid,
'test14.med',med_acc_rdwr, cret)
59 if (cret .ne. 0 )
then
60 print *,
'Erreur creation du fichier'
65 call mmhcre(fid,maa,mdim,sdim,med_unstructured_mesh,
66 &
'un maillage pour test14',
"",med_sort_dtit,
67 & med_cartesian,nomcoo,unicoo,cret)
69 if (cret .ne. 0 )
then
70 print *,
'Erreur creation du maillage'
80 call mmhnow(fid,maa,med_no_dt,med_no_it,dt,med_full_interlace,
81 & nnoe,coo,med_true,nomnoe,med_true,numnoe,
82 & med_true,nufano,cret)
84 if (cret .ne. 0 )
then
85 print *,
'Erreur ecriture des noeuds'
92 if (cret .ne. 0 )
then
93 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 mmhnow(fid, name, numdt, numit, dt, swm, n, coo, iname, nname, inum, num, ifam, fam, cret)
Cette routine permet l'écriture des noeuds d'un maillage non structuré pour une séquence de calcul do...
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.