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
115 med_no_profile,med_undef_size,flta,flt(1),cret)
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 mfiope(fid, name, access, cret)
subroutine mficlo(fid, cret)
subroutine mfrcre(fid, nent, nvent, ncent, cs, swm, stm, pname, fltas, flta, flt, cret)
subroutine mfrall(nflt, flt, cret)
subroutine mfrdea(nflt, flt, cret)
subroutine mmhcor(fid, name, numdt, numit, swm, coo, cret)
subroutine mmhfnr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mmhcar(fid, name, numdt, numit, flt, coo, 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 mmhear(fid, mname, numdt, numit, entype, geotype, ename, cret)
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)