33 character*64 maa,maadst,corr,jnt
34 integer mdim,njnt,ncor,domdst,nc,nent
35 character*64 equ,ent, nodenn, nodent
36 character*200 des, dcornn, dcornt
41 integer nstep,stype,atype
42 character*16 nomcoo(2)
43 character*16 unicoo(2)
45 integer entlcl,geolcl, entdst, geodst
47 data nodent /
"CorresTria3"/
48 data nodenn /
"CorresNodes"/
53 call mfiope(fid,argc,med_acc_rdonly, cret)
59 call mmhmii(fid,1,maa,edim,mdim,
type,desc,dtunit,stype,nstep,atype,nomcoo,unicoo,cret)
60 print
'(A,A,A,I3)',
"Maillage de nom : ",maa
67 call msdnjn(fid,maa,njnt,cret)
69 print
'(A,I3)',
"Nombre de joints : ",njnt
76 print
'(A,I3)',
"Joint numero : ",i
79 call msdjni(fid,maa,i,jnt,des,domdst,maadst,nstep,ncor,cret)
83 print
'(A,A)',
"Nom du joint : ",jnt
84 print
'(A,A)' ,
"Description du joint : ",des
85 print
'(A,I3)',
"Domaine en regard : ",domdst
86 print
'(A,A)' ,
"Maillage en regard : ",maadst
87 print
'(A,I3)',
"Nombre de sequence : ",nstep
88 print
'(A,I3)',
"Nombre de correspondance (NO_DT,NO_IT) : ",ncor
92 call msdszi(fid,maa,jnt,med_no_dt,med_no_it,nc,entlcl,geolcl,entdst,geodst,ncor,cret)
95 call affcorr(fid,maa,jnt,entlcl,geolcl,entdst,geodst)
116 subroutine affcorr(fid,maa,jnt,entlcl,geolcl,entdst,geodst)
121 character*(*) maa,jnt
124 integer ret,cret,ncor,ntypnent,i,j,nent,ntypent
125 integer entlcl,geolcl, entdst, geodst
126 integer,
allocatable,
dimension(:) :: cortab
129 call msdcsz(fid,maa,jnt,med_no_dt,med_no_it,entlcl,geolcl,entdst,geodst,ncor,cret)
130 print
'(I3,i5)',cret,ncor
136 print
'(A,I4,A,I4,A,I4,A,I4,A)',
'correspondance entre les types : (',entlcl,
'/',geolcl,
') et (',entdst,
'/',geodst,
')'
137 print
'(A,I4)',
'nombre de type de couples d''entite en regard ',ncor
141 allocate(cortab(ncor*2),stat=ret)
142 call msdcrr(fid,maa,jnt,med_no_dt,med_no_it,entlcl,geolcl,entdst,geodst,cortab,cret)
144 print
'(A,I3,A,I4,A,I4)',
"Correspondance ",j+1,
" : ",cortab(2*j+1),
" et ",cortab(2*j+2)