35 character*80,
allocatable,
dimension (:) :: gro
36 integer,
allocatable,
dimension (:) :: attid
37 integer,
allocatable,
dimension (:) :: attval
38 character*200,
allocatable,
dimension (:) :: attdes
43 character(16) :: dtunit
44 integer nstep, stype, atype
45 character*16 nomcoo(2)
46 character*16 unicoo(2)
50 call mfiope(fid,
'test8.med',med_acc_rdonly, cret)
55 call mmhmii(fid,1,maa,sdim,mdim,
type,desc,dtunit,stype,nstep,atype,nomcoo,unicoo,cret)
56 print *,
"Maillage de nom : ",maa,
" et de dimension : ", mdim
62 call mfanfa(fid,maa,nfam,cret)
63 print *,
' Nombre de familles a lire : ',nfam
73 call mfanfg(fid,maa,i,ngro,cret)
80 call mfaona(fid,maa,i,natt,cret)
84 print *,
"Famille ",i,
" a ",ngro,
" groupes et ", natt,
" attributs"
88 allocate(gro(ngro), attid(natt), attval(natt), attdes(natt),stat=ret)
91 call mfaofi(fid,maa,i,nomfam,attid,attval,attdes,numfam,gro,cret)
93 print *,
"Famille de nom ",nomfam,
" et de numero ",numfam
95 print *,
"attid = ", attid(j)
96 print *,
"attval = ", attval(j)
97 print *,
"attdes =", attdes(j)
100 print *,
"gro = ",gro(j)
103 deallocate(gro, attval, attid, attdes)
subroutine mfaona(fid, maa, it, n, cret)
Cette routine permet de lire le nombre d'attribut dans une famille dans un maillage créé avec MED 2...
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mfanfa(fid, maa, n, cret)
Cette routine permet de lire le nombre de famille dans un maillage.
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
Cette routine permet de lire les informations relatives à un maillage dans un fichier.
subroutine mfaofi(fid, maa, it, fam, attnum, attval, attdes, num, gro, cret)
Cette routine permet de lire les informations relatives à une famille d'un maillage créé avec MED 2...
subroutine mfanfg(fid, maa, it, n, cret)
Cette routine permet de lire le nombre de groupe dans une famille.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.