Aller à la documentation de ce fichier.
43 real*8,
allocatable,
dimension(:) :: coo
46 character*16 nomcoo(2)
47 character*16 unicoo(2)
52 character*16,
allocatable,
dimension(:) :: nomnoe
53 integer,
allocatable,
dimension(:) :: numnoe,nufano
55 integer inonoe,inunoe,inufa
59 integer type,nstep,stype
63 call mfiope(fid,
"test14.med",med_acc_rdonly, cret)
69 call mmhmii(fid,1,maa,sdim,mdim,
type,desc,dtunit,stype,nstep,rep,nomcoo,unicoo,cret)
70 print *,
"Maillage de nom : ",maa,
" et de dimension : ",mdim
76 call mmhnme(fid,maa,med_no_dt,med_no_it,med_node,med_none,med_coordinate,med_no_cmode,chgt,tsf,nnoe,cret)
77 print *,
"Nombre de noeuds : ",nnoe
84 allocate (coo(nnoe*sdim),stat=ret)
87 allocate (numnoe(nnoe),nufano(nnoe),stat=ret)
90 allocate (nomnoe(nnoe),stat=ret)
98 call mmhnor(fid,maa,med_no_dt,med_no_it,med_full_interlace,coo,inonoe,nomnoe,inunoe,numnoe,inufa,nufano,cret)
103 print *,
"Type de repere : ",rep
104 print *,
"Nom des coordonnees : ",nomcoo
106 print *,
"Unites des coordonnees : ",unicoo
108 print *,
"Coordonnees des noeuds : ",coo
110 if (inonoe .eq. med_true)
then
111 print *,
"Noms des noeuds : |",nomnoe,
"|"
114 if (inunoe .eq. med_true)
then
115 print *,
"Numeros des noeuds : ",numnoe
118 if (inufa .eq. med_true)
then
119 print *,
"Numeros des familles des noeuds : ",nufano
121 print *,
"Numeros des familles des noeuds : 0"
127 deallocate(coo,nomnoe,numnoe,nufano)
subroutine mmhnme(fid, name, numdt, numit, entype, geotype, datype, cmode, chgt, tsf, n, cret)
Cette routine permet de lire le nombre d'entités dans un maillage pour une étape de calcul donnée.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
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 mmhnor(fid, name, numdt, numit, swm, coo, iname, nname, inum, num, ifam, fam, cret)
Cette routine permet la lecture des noeuds d'un maillage non structuré pour une étape de calcul donné...