42 real*8,
allocatable,
dimension (:) :: coo,coo1
44 character*16 nomcoo(2)
45 character*16 unicoo(2)
49 character*16,
allocatable,
dimension (:) :: nomnoe
50 integer,
allocatable,
dimension (:) :: numnoe
51 integer,
allocatable,
dimension (:) :: nufano
57 character(16) :: dtunit
58 integer nstep, stype, atype
62 call mfiope(fid,
'test4.med',med_acc_rdonly, cret)
67 call mmhmii(fid,1,maa,sdim,mdim,
type,desc,dtunit,stype,nstep,atype
77 call mmhnme(fid,maa,med_no_dt,med_no_it,med_node,med_none,med_coordinate
79 print *,cret,
' Nombre de noeuds : ',nnoe
91 allocate( coo(nnoe*sdim),coo1(nnoe*sdim),numnoe(nnoe),nufano(nnoe)
97 call mmhcor(fid,maa,med_no_dt,med_no_it,med_full_interlace,coo,cret
99 print *,
'Lecture des toutes les composantes des coordonnees : ' 106 if (cret .eq. 0)
then 113 if (cret .eq. 0)
then 114 call mfrcre(fid,nnoe,1,sdim,2,med_full_interlace,med_global_stmode
123 call mmhcar(fid,maa,med_no_dt,med_no_it,flt(1),coo1,cret)
125 print *,
'Lecture de la composante numero 2 des coordonnees : ' 129 if (cret .eq. 0)
then 139 call mmhear(fid,maa,med_no_dt,med_no_it,med_node,med_none,nomnoe
150 call mmhenr(fid,maa,med_no_dt,med_no_it,med_node,med_none,numnoe
160 call mmhfnr(fid,maa,med_no_dt,med_no_it,med_node,med_none,nufano
176 print *,
"Type de repere : ", atype
177 print *,
"Nom des coordonnees : " 180 print *,
"Unites des coordonnees : " 183 print *,
"Coordonnees des noeuds : " 187 print *,
"Noms des noeuds : " 192 print *,
"Numeros des noeuds : " 196 print *,
"Numeros des familles des noeuds : " 202 deallocate(coo,coo1,nomnoe,numnoe,nufano);
subroutine mmhfnr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
subroutine mfrdea(nflt, flt, cret)
subroutine mficlo(fid, cret)
subroutine mmhcor(fid, name, numdt, numit, swm, coo, cret)
subroutine mfrcre(fid, nent, nvent, ncent, cs, swm, stm, pname, fltas, flta, flt, cret)
subroutine mmhenr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mmhnme(fid, name, numdt, numit, entype, geotype, datype, cmode, chgt, tsf, n, cret)
subroutine mmhcar(fid, name, numdt, numit, flt, coo, cret)
subroutine mfrall(nflt, flt, cret)
subroutine mmhear(fid, mname, numdt, numit, entype, geotype, ename, cret)