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)