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,nomcoo,unicoo,cret)
77 call mmhnme(fid,maa,med_no_dt,med_no_it,med_node,med_none,med_coordinate,med_no_cmode,chgt,tsf,nnoe,cret)
79 print *,cret,
' Nombre de noeuds : ',nnoe
91 allocate( coo(nnoe*sdim),coo1(nnoe*sdim),numnoe(nnoe),nufano(nnoe),nomnoe(nnoe),stat=ret )
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,cret)
150 call mmhenr(fid,maa,med_no_dt,med_no_it,med_node,med_none,numnoe,cret)
160 call mmhfnr(fid,maa,med_no_dt,med_no_it,med_node,med_none,nufano,cret)
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 mmhear(fid, mname, numdt, numit, entype, geotype, ename, cret)
subroutine mmhcor(fid, name, numdt, numit, swm, coo, cret)
subroutine mfrdea(nflt, flt, cret)
Desalloue un tableau de filtre de taille nfilter.
subroutine mmhenr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mfrcre(fid, nent, nvent, ncent, cs, swm, stm, pname, fltas, flta, flt, 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)
subroutine mmhcar(fid, name, numdt, numit, flt, coo, cret)
subroutine mmhfnr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mfrall(nflt, flt, cret)
Alloue un tableau de filtres de taille nfilter.
subroutine mficlo(fid, cret)