Aller à la documentation de ce fichier.
36 character*80,
allocatable,
dimension (:) :: gro
37 integer,
allocatable,
dimension (:) :: attid
38 integer,
allocatable,
dimension (:) :: attval
39 character*200,
allocatable,
dimension (:) :: attdes
44 character(16) :: dtunit
45 integer nstep, stype, atype
46 character*16 nomcoo(2)
47 character*16 unicoo(2)
51 call mfiope(fid,
'test8.med',med_acc_rdonly, cret)
56 call mmhmii(fid,1,maa,sdim,mdim,
type,desc,dtunit,stype,nstep,atype,nomcoo,unicoo,cret)
57 print *,
"Maillage de nom : ",maa,
" et de dimension : ", mdim
63 call mfanfa(fid,maa,nfam,cret)
64 print *,
' Nombre de familles a lire : ',nfam
74 call mfanfg(fid,maa,i,ngro,cret)
81 call mfaona(fid,maa,i,natt,cret)
85 print *,
"Famille ",i,
" a ",ngro,
" groupes et ", natt,
" attributs"
89 allocate(gro(ngro), attid(natt), attval(natt), attdes(natt),stat=ret)
92 call mfaofi(fid,maa,i,nomfam,attid,attval,attdes,numfam,gro,cret)
94 print *,
"Famille de nom ",nomfam,
" et de numero ",numfam
96 print *,
"attid = ", attid(j)
97 print *,
"attval = ", attval(j)
98 print *,
"attdes =", attdes(j)
101 print *,
"gro = ",gro(j)
104 deallocate(gro, attval, attid, attdes)
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 mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
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 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 mfanfa(fid, maa, n, cret)
Cette routine permet de lire le nombre de famille dans un maillage.