32 integer :: cret,ret, fid, nse2, mdim, sdim
33 integer,
allocatable,
dimension(:) ::se2
34 character*16,
allocatable,
dimension(:) ::nomse2
35 integer,
allocatable,
dimension(:) ::numse2,nufase2
37 integer,
allocatable,
dimension(:) ::tr3
38 character*16,
allocatable,
dimension(:) ::nomtr3
39 integer,
allocatable,
dimension(:) ::numtr3
40 integer,
allocatable,
dimension(:) ::nufatr3
43 integer :: inoele1,inuele1,inoele2,inuele2,ifaele1,ifaele2
45 integer i,
type,rep,nstep,stype
47 character*16 nomcoo(2)
48 character*16 unicoo(2)
52 call mfiope(fid,
'test16.med',med_acc_rdonly, cret)
57 call mmhmii(fid,1,maa,sdim,mdim,
type,desc,dtunit,stype,nstep,rep,nomcoo,unicoo,cret)
58 print *,
"Maillage de nom : ",maa,
" et de dimension ",mdim
64 call mmhnme(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2,med_connectivity,med_descending,chgt,tsf,nse2,cret)
69 call mmhnme(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,med_connectivity,med_descending,chgt,tsf,ntr3,cret)
73 print *,
"Nombre de MED_SEG2 : ",nse2,
" - nombre de MED_TRIA3 : ",ntr3
77 allocate(se2(tse2*nse2),nomse2(nse2),numse2(nse2),nufase2(nse2),stat=ret)
79 allocate(tr3(ntr3*ttr3),nomtr3(ntr3),numtr3(ntr3),nufatr3(ntr3),stat=ret)
87 call mmhelr(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2,med_descending,med_no_interlace,se2,&
88 inoele1,nomse2,inuele1,numse2,ifaele1,nufase2,cret)
99 call mmhelr(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,med_descending,med_no_interlace,tr3,&
100 inoele2,nomtr3,inuele2,numtr3,ifaele2,nufatr3,cret)
110 print *,
"Connectivite des segments : ",se2
112 if (inoele1 .eq. med_true)
then
113 print *,
"Noms des segments : ",nomse2
116 if (inuele1 .eq. med_true)
then
117 print *,
"Numeros des segments : ",numse2
120 print *,
"Numeros des familles des segments : ",nufase2
123 print *,
"Connectivite des triangles : ",tr3
125 if (inoele2 .eq. med_true)
then
126 print *,
"Noms des triangles :", nomtr3
129 if (inuele2 .eq. med_true)
then
130 print *,
"Numeros des triangles :", numtr3
133 print *,
"Numeros des familles des triangles :", nufatr3
139 deallocate(se2,nomse2,numse2,nufase2);
140 deallocate(tr3,nomtr3,numtr3,nufatr3);
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 séquence de calcul donnée...
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 mmhelr(fid, name, numdt, numit, entype, geotype, cmode, swm, con, iname, nname, inum, num, ifam, fam, cret)
Cette routine permet la lecture d'un type d'élément d'un maillage non structuré pour une séquence de ...
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.