30 integer cret, ret, fid
33 integer,
allocatable,
dimension (:) :: se2,se21
34 character*16,
allocatable,
dimension (:) :: nomse2
35 integer,
allocatable,
dimension (:) :: numse2,nufase2
38 integer,
allocatable,
dimension (:) :: tr3
39 character*16,
allocatable,
dimension (:) :: nomtr3
40 integer,
allocatable,
dimension (:) :: numtr3,nufatr3
45 integer :: mdim,edim,nstep,stype,atype
47 integer,
parameter :: profil (2) = (/ 2,3 /)
50 character*16 nomcoo(2)
51 character*16 unicoo(2)
58 call mfiope(fid,
'test6.med',med_acc_rdonly, cret)
63 call mmhmii(fid,1,maa,edim,mdim,
type,desc,dtunit,stype,nstep,atype,nomcoo,unicoo,cret)
64 print *,
"Maillage de nom : ",maa,
" et de dimension :", mdim
72 call mmhnme(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2,med_connectivity,med_descending,chgt,tsf,nse2,cret)
80 call mmhnme(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,med_connectivity,med_descending,chgt,tsf,ntr3,cret)
87 print *,
"Nombre de MED_SEG2 : ",nse2,
" - nombre de MED_TRIA3 : ",ntr3
92 allocate (se2(tse2*nse2),se21(tse2*nse2),nomse2(nse2),numse2(nse2), nufase2(nse2),stat=ret )
97 allocate (tr3(ntr3*ttr3), nomtr3(ntr3), numtr3(ntr3),nufatr3(ntr3),stat=ret )
104 call mmhcyr(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2,med_descending,med_full_interlace,se2,cret)
113 if (cret .eq. 0)
then
121 if (cret .eq. 0)
then
122 call mfrcre(fid,nse2,1,edim,2,med_full_interlace,med_global_stmode, &
123 med_no_profile,med_undef_size,flta,flt(1),cret)
131 call mmhyar(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2,med_descending, &
140 if (cret .eq. 0)
then
149 call mmhear(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2,nomse2,cret)
160 call mmhenr(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2,numse2,cret)
171 call mmhfnr(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2,nufase2,cret)
179 call mmhcyr(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,med_descending,med_no_interlace,tr3,cret)
187 call mmhear(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,nomtr3,cret)
199 call mmhenr(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,numtr3,cret)
211 call mmhfnr(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,nufatr3,cret)
224 print *,
"Connectivite des segments : "
228 print *,
"Noms des segments :"
233 print *,
"Numeros des segments :"
237 print *,
"Numeros des familles des segments :"
240 print *,
"Connectivite des triangles :"
244 print *,
"Noms des triangles :"
249 print *,
"Numeros des triangles :"
253 print *,
"Numeros des familles des triangles :"
259 deallocate (se2,se21,nomse2,numse2,nufase2,tr3,nomtr3,numtr3,nufatr3)
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 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 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 mmhyar(fid, name, numdt, numit, entype, geotype, cmode, flt, con, cret)
Cette routine permet de lire dans un maillage le tableau des connectivités pour un type géométrique d...
subroutine mfiope(fid, name, access, cret)
Ouverture 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 séquence de calcul donnée...
subroutine mfrdea(nflt, flt, cret)
Desalloue un tableau de filtre de taille nfilter.
subroutine mmhcyr(fid, name, numdt, numit, entype, geotype, cmode, swm, con, cret)
Cette routine permet de lire dans un maillage le tableau des connectivités pour un type géométrique d...
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.