34 integer nmaa, mdim , nnoe,
type, ind,sdim
36 character*16 nomcoo(2)
37 character*16 unicoo(2)
38 character(16) :: dtunit
40 integer nstep, stype, atype,chgt,tsf
42 parameter(mdim = 2, maa =
"maa1",sdim=2)
44 data coo /0.0, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0/
45 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
49 call mfiope(fid,
'test31.med',med_acc_rdwr, cret)
51 if (cret .ne. 0 )
then
52 print *,
'Erreur ouverture du fichier test31.med'
59 call mmhcre(fid,maa,mdim,sdim,
60 & med_unstructured_mesh,
61 &
'un premier maillage pour test4',
62 &
"",med_sort_dtit,med_cartesian,nomcoo,unicoo,cret)
64 if (cret .ne. 0 )
then
65 print *,
'Erreur creation du maillage'
71 call mmhcow(fid,maa,med_no_dt,med_no_it,dt,
72 & med_full_interlace,nnoe,coo,cret)
74 if (cret .ne. 0 )
then
75 print *,
'Erreur ecriture des coordonnees des noeuds'
79 print
'(A,I1,A,A4,A,I1,A,I4)',
'maillage '
80 & ,ind,
' de nom ',maa,
' et de dimension ',mdim,
81 &
' comportant le nombre de noeud ',nnoe
85 if (nnoe.gt.100) nnoe=100
92 call mmhgnw(fid,maa,med_no_dt,med_no_it,med_node,med_none,
95 if (cret .ne. 0 )
then
96 print *,
'Erreur ecriture numerotation globale '
102 if (cret .ne. 0 )
then
103 print *,
'Erreur fermeture du fichier'
subroutine mmhgnw(fid, name, numdt, numit, entype, geotype, n, num, cret)
Cette routine permet l'écriture d'une numérotation globale sur un maillage pour un type d'entité...
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 mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
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.