43 real*8,
allocatable,
dimension(:) :: coo
46 character*16 nomcoo(2)
47 character*16 unicoo(2)
52 character*16,
allocatable,
dimension(:) :: nomnoe
53 integer,
allocatable,
dimension(:) :: numnoe,nufano
55 integer inonoe,inunoe,inufa
59 integer type,nstep,stype
63 call mfiope(fid,
"test14.med",med_acc_rdonly, cret)
69 call mmhmii(fid,1,maa,sdim,mdim,
type,desc,dtunit,stype,nstep,rep,nomcoo,unicoo,cret)
70 print *,
"Maillage de nom : ",maa,
" et de dimension : ",mdim
76 call mmhnme(fid,maa,med_no_dt,med_no_it,med_node,med_none,med_coordinate,med_no_cmode,chgt,tsf,nnoe,cret)
77 print *,
"Nombre de noeuds : ",nnoe
84 allocate (coo(nnoe*sdim),stat=ret)
87 allocate (numnoe(nnoe),nufano(nnoe),stat=ret)
90 allocate (nomnoe(nnoe),stat=ret)
98 call mmhnor(fid,maa,med_no_dt,med_no_it,med_full_interlace,coo,inonoe,nomnoe,inunoe,numnoe,inufa,nufano,cret)
103 print *,
"Type de repere : ",rep
104 print *,
"Nom des coordonnees : ",nomcoo
106 print *,
"Unites des coordonnees : ",unicoo
108 print *,
"Coordonnees des noeuds : ",coo
110 if (inonoe .eq. med_true)
then
111 print *,
"Noms des noeuds : |",nomnoe,
"|"
114 if (inunoe .eq. med_true)
then
115 print *,
"Numeros des noeuds : ",numnoe
118 if (inufa .eq. med_true)
then
119 print *,
"Numeros des familles des noeuds : ",nufano
121 print *,
"Numeros des familles des noeuds : 0"
127 deallocate(coo,nomnoe,numnoe,nufano)