common /for_tios/ lxxk(MXBDY*MAXNZ),lyyk(MXBDY*MAXNZ),
     *     lxyk(MAXNB*MAXNZ),lyxk(MAXNB*MAXNZ),lsponge(MAXSP),
     *     lrelax(MAXSP),
     *     snxk(MAXNB*MAXNZ),snyk(MAXNB*MAXNZ),lok(4*MAXSID*MAXNZ),
     *     lpbcwk(MAXSID*MAXNZ),lpbcek(MAXSID*MAXNZ),
     *     ifxk(9*MAXSID*MAXNZ), ifpxk(5*MAXSID*MAXNZ), ifyk(9*MAXSID*MAXNZ)
     *     ,basin(MAXNZ)