41 real*8,
allocatable,
dimension (:) :: coo,coo1
43 character*16 nomcoo(2)
44 character*16 unicoo(2)
48 character*16,
allocatable,
dimension (:) :: nomnoe
49 integer,
allocatable,
dimension (:) :: numnoe
50 integer,
allocatable,
dimension (:) :: nufano
56 character(16) :: dtunit
57 integer nstep, stype, atype
61 call mfiope(fid,
'test4.med',med_acc_rdonly, cret)
66 call mmhmii(fid,1,maa,sdim,mdim,
type,desc,dtunit,stype,nstep,atype,nomcoo,unicoo,cret)
76 call mmhnme(fid,maa,med_no_dt,med_no_it,med_node,med_none,med_coordinate,med_no_cmode,chgt,tsf,nnoe,cret)
78 print *,cret,
' Nombre de noeuds : ',nnoe
90 allocate( coo(nnoe*sdim),coo1(nnoe*sdim),numnoe(nnoe),nufano(nnoe),nomnoe(nnoe),stat=ret )
96 call mmhcor(fid,maa,med_no_dt,med_no_it,med_full_interlace,coo,cret)
98 print *,
'Lecture des toutes les composantes des coordonnees : '
105 if (cret .eq. 0)
then
112 if (cret .eq. 0)
then
113 call mfrcre(fid,nnoe,1,sdim,2,med_full_interlace,med_global_stmode, &
114 med_no_profile,med_undef_size,flta,flt(1),cret)
122 call mmhcar(fid,maa,med_no_dt,med_no_it,flt(1),coo1,cret)
124 print *,
'Lecture de la composante numero 2 des coordonnees : '
128 if (cret .eq. 0)
then
138 call mmhear(fid,maa,med_no_dt,med_no_it,med_node,med_none,nomnoe,cret)
149 call mmhenr(fid,maa,med_no_dt,med_no_it,med_node,med_none,numnoe,cret)
159 call mmhfnr(fid,maa,med_no_dt,med_no_it,med_node,med_none,nufano,cret)
175 print *,
"Type de repere : ", atype
176 print *,
"Nom des coordonnees : "
179 print *,
"Unites des coordonnees : "
182 print *,
"Coordonnees des noeuds : "
186 print *,
"Noms des noeuds : "
191 print *,
"Numeros des noeuds : "
195 print *,
"Numeros des familles des noeuds : "
201 deallocate(coo,coo1,nomnoe,numnoe,nufano);
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 mficlo(fid, cret)
Fermeture 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, selon une séquence de calcul donnée.
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 séquence de calcul donnée...
subroutine mmhcar(fid, name, numdt, numit, flt, coo, cret)
Cette routine permet de lire dans un maillage le tableau des coordonnées des noeuds, selon une séquence de calcul et un filtre donnés.
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 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 mfrdea(nflt, flt, cret)
Desalloue un tableau de filtre de taille nfilter.
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. Initialisé en sortie de fonction, le filtre filter sera utilisé pour lire/écrire des valeurs associées à ces entités. Ces valeurs peuvent être des coordonnées, des connectivités des valeurs de champs résultats mais aussi des numéros de familles, des noms ou numéros optionnels.
subroutine mfrall(nflt, flt, cret)
Alloue un tableau de filtres de taille nfilter.
subroutine mfiope(fid, name, access, cret)
Ouverture 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.