34 integer mdim,nequ,ncor,sdim
35 integer,
allocatable,
dimension(:) :: cor
37 character*200 desc,des
40 integer,
parameter :: my_nof_descending_face_type = 5
41 integer,
parameter :: my_nof_descending_edge_type = 2
44 integer,
parameter :: med_nbr_maille_equ = 8
45 integer,
parameter :: typmai(med_nbr_maille_equ) = (/ med_point1,med_seg2, &
46 & med_seg3,med_tria3, &
47 & med_tria6,med_quad4, &
48 & med_quad8,med_polygon/)
50 integer,
parameter :: typfac(my_nof_descending_face_type) = (/med_tria3,med_tria6, &
51 & med_quad4,med_quad8, med_polygon/)
52 integer,
parameter ::typare(my_nof_descending_edge_type) = (/med_seg2,med_seg3/)
54 character(16) :: dtunit
55 integer nstep, stype, atype
56 character*16 nomcoo(3)
57 character*16 unicoo(3)
62 call mfiope(fid,
'test12.med',med_acc_rdonly, cret)
68 call mmhmii(fid,1,maa,sdim,mdim,
type,desc,dtunit,stype,nstep,atype,nomcoo,unicoo,cret)
69 print *,
"Maillage de nom : ",maa,
" et de dimension : ", mdim
76 call meqneq(fid,maa,nequ,cret)
78 print *,
"Nombre d'equivalence : ",nequ
86 print *,
"Equivalence numero : ",i
89 call meqeqi(fid,maa,i,equ,des,nstepc,nctcor,cret)
93 print *,
"Nom de l'equivalence : ",equ
94 print *,
"Description de l'equivalence : ",des
95 print *,
"Nombre de pas de temps sur l'equivalence : ",nstepc
96 print *,
"Nombre de correspondance sur MED_NO_IT, MED_NO_DT : ", nctcor
102 call meqcsz(fid,maa,equ,med_no_dt,med_no_it,med_node,med_none,ncor,cret)
104 print *,
"Il y a ",ncor,
" correspondances sur les noeuds "
106 allocate(cor(ncor*2),stat=ret)
107 call meqcor(fid,maa,equ,med_no_dt,med_no_it,med_node,med_none,cor,cret)
109 print *,
"Correspondance ",j+1,
" : ",cor(2*j+1),
" et ",cor(2*j+2)
116 do j=1,med_nbr_maille_equ
117 call meqcsz(fid,maa,equ,med_no_dt,med_no_it,med_cell,typmai(j),ncor,cret)
118 print *,
"Il y a ",ncor,
" correspondances sur les mailles ",typmai(j)
120 allocate(cor(2*ncor),stat=ret)
121 call meqcor(fid,maa,equ,med_no_dt,med_no_it,med_cell,typmai(j),cor,cret)
123 print *,
"Correspondance ",k+1,
" : ",cor(2*k+1),
" et ",cor(2*k+2)
130 do j=1,my_nof_descending_face_type
131 call meqcsz(fid,maa,equ,med_no_dt,med_no_it,med_descending_face,typmai(j),ncor,cret)
132 print *,
"Il y a ",ncor,
" correspondances sur les faces ",typfac(j)
134 allocate(cor(2*ncor),stat=ret)
135 call meqcor(fid,maa,equ,med_no_dt,med_no_it,med_descending_face,typfac(j),cor,cret)
137 print *,
"Correspondance ",k+1,
" : ",cor(2*k+1),
" et ",cor(2*k+2)
144 do j=1,my_nof_descending_edge_type
145 call meqcsz(fid,maa,equ,med_no_dt,med_no_it,med_descending_edge,typare(j),ncor,cret)
146 print *,
"Il y a ",ncor,
" correspondances sur les aretes ",typare(j)
148 allocate(cor(2*ncor),stat=ret)
149 call meqcor(fid,maa,equ,med_no_dt,med_no_it,med_descending_edge,typare(j),cor,cret)
151 print *,
"Correspondance ",k+1,
" : ",cor(2*k+1),
" et ",cor(2*k+2)
subroutine meqneq(fid, maa, n, cret)
subroutine meqcor(fid, maa, eq, numdt, mumit, typent, typgeo, corr, cret)
subroutine meqeqi(fid, maa, ind, eq, des, nstep, nctcor, cret)
subroutine meqcsz(fid, maa, eq, numdt, numit, typent, typgeo, n, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mficlo(fid, cret)
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)