41 real*8,
allocatable,
dimension (:) :: coo,coo1
43 character*16 nomcoo(2)
44 character*16 unicoo(2)
48 character*16,
allocatable,
dimension (:) :: nomnoe
49 integer,
allocatable,
dimension (:) :: numnoe
50 integer,
allocatable,
dimension (:) :: nufano
56 character(16) :: dtunit
57 integer nstep, stype, atype
61 call mfiope(fid,
'test4.med',med_acc_rdonly, cret)
66 call mmhmii(fid,1,maa,sdim,mdim,
type,desc,dtunit,stype,nstep,atype
76 call mmhnme(fid,maa,med_no_dt,med_no_it,med_node,med_none,med_coordinate
78 print *,cret,
' Nombre de noeuds : ',nnoe
90 allocate( coo(nnoe*sdim),coo1(nnoe*sdim),numnoe(nnoe),nufano(nnoe)
96 call mmhcor(fid,maa,med_no_dt,med_no_it,med_full_interlace,coo,cret
98 print *,
'Lecture des toutes les composantes des coordonnees : ' 105 if (cret .eq. 0)
then 112 if (cret .eq. 0)
then 113 call mfrcre(fid,nnoe,1,sdim,2,med_full_interlace,med_global_stmode
122 call mmhcar(fid,maa,med_no_dt,med_no_it,flt(1),coo1,cret)
124 print *,
'Lecture de la composante numero 2 des coordonnees : ' 128 if (cret .eq. 0)
then 138 call mmhear(fid,maa,med_no_dt,med_no_it,med_node,med_none,nomnoe
149 call mmhenr(fid,maa,med_no_dt,med_no_it,med_node,med_none,numnoe
159 call mmhfnr(fid,maa,med_no_dt,med_no_it,med_node,med_none,nufano
175 print *,
"Type de repere : ", atype
176 print *,
"Nom des coordonnees : " 179 print *,
"Unites des coordonnees : " 182 print *,
"Coordonnees des noeuds : " 186 print *,
"Noms des noeuds : " 191 print *,
"Numeros des noeuds : " 195 print *,
"Numeros des familles des noeuds : " 201 deallocate(coo,coo1,nomnoe,numnoe,nufano);
subroutine mficlo(fid, cret)
subroutine mmhcor(fid, name, numdt, numit, swm, coo, cret)
subroutine mmhfnr(fid, name, numdt, numit, entype, geotype, num, 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 mfrdea(nflt, flt, cret)
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
subroutine mmhear(fid, mname, numdt, numit, entype, geotype, ename, cret)
subroutine mmhnme(fid, name, numdt, numit, entype, geotype, datype, cmode, chgt, tsf, n, cret)
subroutine mfrall(nflt, flt, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mmhcar(fid, name, numdt, numit, flt, coo, cret)