31 integer ret,cret,fid,edim
32 character*64 maa,maadst,corr,jnt
33 integer mdim,njnt,ncor,domdst,nc,nent
34 character*64 equ,ent, nodenn, nodent
35 character*200 des, dcornn, dcornt
40 integer nstep,stype,atype
41 character*16 nomcoo(2)
42 character*16 unicoo(2)
44 integer entlcl,geolcl, entdst, geodst
46 data nodent /
"CorresTria3"/
47 data nodenn /
"CorresNodes"/
52 call mfiope(fid,argc,med_acc_rdonly, cret)
58 call mmhmii(fid,1,maa,edim,mdim,
type,desc,dtunit,stype,nstep,atype,nomcoo,unicoo,cret)
59 print
'(A,A,A,I3)',
"Maillage de nom : ",maa
66 call msdnjn(fid,maa,njnt,cret)
68 print
'(A,I3)',
"Nombre de joints : ",njnt
75 print
'(A,I3)',
"Joint numero : ",i
78 call msdjni(fid,maa,i,jnt,des,domdst,maadst,nstep,ncor,cret)
82 print
'(A,A)',
"Nom du joint : ",jnt
83 print
'(A,A)' ,
"Description du joint : ",des
84 print
'(A,I3)',
"Domaine en regard : ",domdst
85 print
'(A,A)' ,
"Maillage en regard : ",maadst
86 print
'(A,I3)',
"Nombre de sequence : ",nstep
87 print
'(A,I3)',
"Nombre de correspondance (NO_DT,NO_IT) : ",ncor
91 call msdszi(fid,maa,jnt,med_no_dt,med_no_it,nc,entlcl,geolcl,entdst,geodst,ncor,cret)
94 call affcorr(fid,maa,jnt,entlcl,geolcl,entdst,geodst)
115 subroutine affcorr(fid,maa,jnt,entlcl,geolcl,entdst,geodst)
120 character*(*) maa,jnt
122 integer ret,cret,ncor,ntypnent,i,j,fid,nent,ntypent
123 integer entlcl,geolcl, entdst, geodst
124 integer,
allocatable,
dimension(:) :: cortab
127 call msdcsz(fid,maa,jnt,med_no_dt,med_no_it,entlcl,geolcl,entdst,geodst,ncor,cret)
128 print
'(I3,i5)',cret,ncor
134 print
'(A,I4,A,I4,A,I4,A,I4,A)',
'correspondance entre les types : (',entlcl,
'/',geolcl,
') et (',entdst,
'/',geodst,
')'
135 print
'(A,I4)',
'nombre de type de couples d''entite en regard ',ncor
139 allocate(cortab(ncor*2),stat=ret)
140 call msdcrr(fid,maa,jnt,med_no_dt,med_no_it,entlcl,geolcl,entdst,geodst,cortab,cret)
142 print
'(A,I3,A,I4,A,I4)',
"Correspondance ",j+1,
" : ",cortab(2*j+1),
" et ",cortab(2*j+2)
subroutine mficlo(fid, cret)
Fermeture 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 msdszi(fid, mname, jname, numdt, numit, it, letype, lgtype, retype, rgtype, ncor, cret)
Cette routine permet de lire les informations sur les couples d'entités en correspondance dans un joi...
subroutine msdcrr(fid, lmname, jname, numdt, numit, entlcl, geolcl, entdst, geodst, corrtab, cret)
Cette routine permet la lecture d'une correspondance dans un joint pour un type de couple d'entité en...
subroutine msdnjn(fid, maa, n, cret)
Cette routine permet la lecture du nombre de joint dans un maillage.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine affcorr(fid, maa, jnt, entlcl, geolcl, entdst, geodst)
subroutine msdcsz(fid, mname, jname, numdt, numit, letype, lgtype, retype, rgtype, ncor, cret)
Cette routine permet la lecture du nombre d'entités en correspondance dans un joint pour un couple d'...
subroutine msdjni(fid, lmname, ind, jname, des, dom, rmname, nstep, ncor, cret)
Cette routine permet de lire les informations sur un joint dans un maillage.