42 real*8,
allocatable,
dimension (:) :: coo,coo1
44 character*16 nomcoo(2)
45 character*16 unicoo(2)
49 character*16,
allocatable,
dimension (:) :: nomnoe
50 integer,
allocatable,
dimension (:) :: numnoe
51 integer,
allocatable,
dimension (:) :: nufano
57 character(16) :: dtunit
58 integer nstep, stype, atype
62 call mfiope(fid,
'test4.med',med_acc_rdonly, cret)
67 call mmhmii(fid,1,maa,sdim,mdim,
type,desc,dtunit,stype,nstep,atype
77 call mmhnme(fid,maa,med_no_dt,med_no_it,med_node,med_none,med_coordinate
79 print *,cret,
' Nombre de noeuds : ',nnoe
91 allocate( coo(nnoe*sdim),coo1(nnoe*sdim),numnoe(nnoe),nufano(nnoe)
97 call mmhcor(fid,maa,med_no_dt,med_no_it,med_full_interlace,coo,cret
99 print *,
'Lecture des toutes les composantes des coordonnees : '
106 if (cret .eq. 0)
then
113 if (cret .eq. 0)
then
114 call mfrcre(fid,nnoe,1,sdim,2,med_full_interlace,med_global_stmode
115 med_no_profile,med_undef_size,flta,flt(1),cret)
123 call mmhcar(fid,maa,med_no_dt,med_no_it,flt(1),coo1,cret)
125 print *,
'Lecture de la composante numero 2 des coordonnees : '
129 if (cret .eq. 0)
then
139 call mmhear(fid,maa,med_no_dt,med_no_it,med_node,med_none,nomnoe
150 call mmhenr(fid,maa,med_no_dt,med_no_it,med_node,med_none,numnoe
160 call mmhfnr(fid,maa,med_no_dt,med_no_it,med_node,med_none,nufano
176 print *,
"Type de repere : ", atype
177 print *,
"Nom des coordonnees : "
180 print *,
"Unites des coordonnees : "
183 print *,
"Coordonnees des noeuds : "
187 print *,
"Noms des noeuds : "
192 print *,
"Numeros des noeuds : "
196 print *,
"Numeros des familles des noeuds : "
202 deallocate(coo,coo1,nomnoe,numnoe,nufano);
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mmhnme(fid, name, numdt, numit, entype, geotype, datype, cmode, chgt, tsf, n, cret)
Cette routine permet de lire le nombre d'entités dans un maillage pour une étape de calcul donnée.
subroutine mmhear(fid, mname, numdt, numit, entype, geotype, ename, cret)
Cette routine permet de lire les noms d'un type d'entité d'un maillage.
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
Cette routine permet de lire les informations relatives à un maillage dans un fichier.
subroutine mfrcre(fid, nent, nvent, ncent, cs, swm, stm, pname, fltas, flta, flt, cret)
subroutine mfrall(nflt, flt, cret)
subroutine mfrdea(nflt, flt, cret)
subroutine mmhcor(fid, name, numdt, numit, swm, coo, cret)
subroutine mmhfnr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mmhcar(fid, name, numdt, numit, flt, coo, cret)
subroutine mmhenr(fid, name, numdt, numit, entype, geotype, num, cret)