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)
subroutine msdszi(fid, mname, jname, numdt, numit, it, letype, lgtype, retype, rgtype, ncor, cret)
subroutine msdnjn(fid, maa, n, cret)
subroutine msdjni(fid, lmname, ind, jname, des, dom, rmname, nstep, ncor, cret)
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
subroutine mfiope(fid, name, access, cret)
subroutine msdcsz(fid, mname, jname, numdt, numit, letype, lgtype, retype, rgtype, ncor, cret)
subroutine msdcrr(fid, lmname, jname, numdt, numit, entlcl, geolcl, entdst, geodst, corrtab, cret)
subroutine affcorr(fid, maa, jnt, entlcl, geolcl, entdst, geodst)