Aller à la documentation de ce fichier.
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 mmhcar(fid, name, numdt, numit, flt, coo, cret)
Cette routine permet de lire dans un maillage le tableau des coordonnées des noeuds,...
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 mfrall(nflt, flt, cret)
Alloue un tableau de filtres de taille nfilter.
subroutine mmhfnr(fid, name, numdt, numit, entype, geotype, num, cret)
Cette routine permet la lecture des numéros de famille d'un type d'entité d'un maillage.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mmhenr(fid, name, numdt, numit, entype, geotype, num, cret)
Cette routine permet de lire les numéros d'un type d'entité d'un maillage.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mmhcor(fid, name, numdt, numit, swm, coo, cret)
Cette routine permet de lire dans un maillage le tableau des coordonnées des noeuds,...
subroutine mfrdea(nflt, flt, cret)
Desalloue un tableau de filtre de taille nfilter.
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)
Crée une selection d'entités grâce a un tableau d'index filterarray de taille filterarraysize....
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.