33 integer ret,cret, fid;
42 real*8,
allocatable,
dimension(:) :: coo
45 character*16 nomcoo(2)
46 character*16 unicoo(2)
51 character*16,
allocatable,
dimension(:) :: nomnoe
52 integer,
allocatable,
dimension(:) :: numnoe,nufano
54 integer inonoe,inunoe,inufa
58 integer type,nstep,stype
62 call mfiope(fid,
"test14.med",med_acc_rdonly, cret)
68 call mmhmii(fid,1,maa,sdim,mdim,
type,desc,dtunit,stype,nstep,rep,nomcoo,unicoo,cret)
69 print *,
"Maillage de nom : ",maa,
" et de dimension : ",mdim
75 call mmhnme(fid,maa,med_no_dt,med_no_it,med_node,med_none,med_coordinate,med_no_cmode,chgt,tsf,nnoe,cret)
76 print *,
"Nombre de noeuds : ",nnoe
83 allocate (coo(nnoe*sdim),stat=ret)
86 allocate (numnoe(nnoe),nufano(nnoe),stat=ret)
89 allocate (nomnoe(nnoe),stat=ret)
97 call mmhnor(fid,maa,med_no_dt,med_no_it,med_full_interlace,coo,inonoe,nomnoe,inunoe,numnoe,inufa,nufano,cret)
102 print *,
"Type de repere : ",rep
103 print *,
"Nom des coordonnees : ",nomcoo
105 print *,
"Unites des coordonnees : ",unicoo
107 print *,
"Coordonnees des noeuds : ",coo
109 if (inonoe .eq. med_true)
then
110 print *,
"Noms des noeuds : |",nomnoe,
"|"
113 if (inunoe .eq. med_true)
then
114 print *,
"Numeros des noeuds : ",numnoe
117 if (inufa .eq. med_true)
then
118 print *,
"Numeros des familles des noeuds : ",nufano
120 print *,
"Numeros des familles des noeuds : 0"
126 deallocate(coo,nomnoe,numnoe,nufano)
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 séquence de calcul do...
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
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 séquence de calcul donnée...
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 mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.