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)
subroutine mfiope(fid, name, access, cret)
subroutine mficlo(fid, cret)
subroutine mmhnor(fid, name, numdt, numit, swm, coo, iname, nname, inum, num, ifam, fam, cret)
subroutine mmhnme(fid, name, numdt, numit, entype, geotype, datype, cmode, chgt, tsf, n, cret)
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)