18 subroutine msdjcr(fid,lmname,jname,des,dom,
38 cret = msdfjcr(fid,lmname,len(lmname),
41 & dom, rmname, len(rmname))
48 subroutine msdcrw(fid,lmname,jname,numdt,numit,
49 & entlcl,geolcl,entdst,geodst,
56 character *(*) lmname, jname
57 integer n, fid, cret, corrtab(*)
58 integer entlcl, entdst, geolcl, geodst, numdt,numit
61 cret = msdfcrw(fid,lmname,len(lmname),jname,len(jname),
62 & numdt, numit, entlcl, geolcl, entdst, geodst,
70 subroutine msdnjn(fid,maa,n,cret)
80 n = msdfnjn(fid,maa,len(maa))
93 subroutine msdjni(fid,lmname,ind,jname,des,dom,
94 & rmname,nstep,ncor,cret)
100 character *(*) lmname,jname,des,rmname
102 integer ind,dom,cret,nstep,ncor
105 cret = msdfjni(fid,lmname,len(lmname),ind,
106 & jname,des,dom,rmname,nstep,ncor)
113 subroutine msdszi(fid,mname,jname,
123 character*(*) mname,jname
125 integer cret,numdt,numit
126 integer it,letype,lgtype,retype,rgtype,ncor
129 cret = msdfszi(fid,mname,len(mname),
133 & retype,rgtype,ncor)
140 subroutine msdcsz(fid,mname,jname,
150 character*(*) mname,jname
152 integer cret,numdt,numit
153 integer letype,lgtype,retype,rgtype,ncor
156 cret = msdfcsz(fid,mname,len(mname),
168 subroutine msdcrr(fid,lmname,jname,numdt,numit,
169 & entlcl,geolcl,entdst,geodst,
176 character *(*) lmname, jname
178 integer cret, corrtab(*)
179 integer entlcl, entdst, geolcl, geodst, numdt,numit
182 cret = msdfcrr(fid,lmname,len(lmname),jname,len(jname),
183 & numdt, numit, entlcl, geolcl, entdst, geodst,
191 subroutine msdcsi(fid,mname,jname,ind,
192 & numdt,numit,ncor,cret)
198 character *(*) mname,jname
200 integer ind,ncor,numdt,numit,cret
203 cret = msdfcsi(fid,mname,len(mname),
204 & jname,len(jname),ind,
subroutine msdjcr(fid, lmname, jname, des, dom, rmname, cret)
subroutine msdcsz(fid, mname, jname, numdt, numit, letype, lgtype, retype, rgtype, ncor, cret)
subroutine msdjni(fid, lmname, ind, jname, des, dom, rmname, nstep, ncor, cret)
subroutine msdcrw(fid, lmname, jname, numdt, numit, entlcl, geolcl, entdst, geodst, n, corrtab, cret)
Cette routine permet l'écriture d'une correspondance dans un joint pour un type de couple d'entité en...
subroutine msdszi(fid, mname, jname, numdt, numit, it, letype, lgtype, retype, rgtype, ncor, cret)
subroutine msdcsi(fid, mname, jname, ind, numdt, numit, ncor, cret)
subroutine msdcrr(fid, lmname, jname, numdt, numit, entlcl, geolcl, entdst, geodst, corrtab, cret)
subroutine msdnjn(fid, maa, n, cret)
Cette routine permet la lecture du nombre de joint dans un maillage.