33 integer ret,cret, fid;
42 real*8,
allocatable,
dimension(:) :: coo
45 character*16 nomcoo(2)
46 character*16 unicoo(2)
51 character*16,
allocatable,
dimension(:) :: nomnoe
52 integer,
allocatable,
dimension(:) :: numnoe,nufano
54 integer inonoe,inunoe,inufa
58 integer type,nstep,stype
62 call mfiope(fid,
"test14.med",med_acc_rdonly, cret)
68 call mmhmii(fid,1,maa,sdim,mdim,
type,desc,dtunit,stype,nstep,rep,nomcoo,unicoo,cret)
69 print *,
"Maillage de nom : ",maa,
" et de dimension : ",mdim
75 call mmhnme(fid,maa,med_no_dt,med_no_it,med_node,med_none,med_coordinate,med_no_cmode,chgt,tsf,nnoe,cret)
76 print *,
"Nombre de noeuds : ",nnoe
83 allocate (coo(nnoe*sdim),stat=ret)
86 allocate (numnoe(nnoe),nufano(nnoe),stat=ret)
89 allocate (nomnoe(nnoe),stat=ret)
97 call mmhnor(fid,maa,med_no_dt,med_no_it,med_full_interlace,coo,inonoe,nomnoe,inunoe,numnoe,inufa,nufano,cret)
102 print *,
"Type de repere : ",rep
103 print *,
"Nom des coordonnees : ",nomcoo
105 print *,
"Unites des coordonnees : ",unicoo
107 print *,
"Coordonnees des noeuds : ",coo
109 if (inonoe .eq. med_true)
then 110 print *,
"Noms des noeuds : |",nomnoe,
"|" 113 if (inunoe .eq. med_true)
then 114 print *,
"Numeros des noeuds : ",numnoe
117 if (inufa .eq. med_true)
then 118 print *,
"Numeros des familles des noeuds : ",nufano
120 print *,
"Numeros des familles des noeuds : 0" 126 deallocate(coo,nomnoe,numnoe,nufano)
subroutine mficlo(fid, cret)
subroutine mmhnor(fid, name, numdt, numit, swm, coo, iname, nname, inum, num, ifam, fam, cret)
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
subroutine mmhnme(fid, name, numdt, numit, entype, geotype, datype, cmode, chgt, tsf, n, cret)
subroutine mfiope(fid, name, access, cret)