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