c*********************** problem name: usmap ************************** c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine a1xy(x,y,u,ux,uy,rl,itag,values) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) real(kind=rknd), dimension(*) :: values character(len=80) :: su common /val0/k0,ku,kx,ky,kl,kuu,kux,kuy,kul, + kxu,kxx,kxy,kxl,kyu,kyx,kyy,kyl,klu,klx,kly,kll common /atest2/iu(100),a1x,a1y,a1u,a2x,a2y,a2u, + bux,buy,cu0,cu1,ru(90),su(100) cy values(k0)=a1x*ux+a1y*uy+a1u*u values(ku)=a1u values(kx)=a1x values(ky)=a1y return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine a2xy(x,y,u,ux,uy,rl,itag,values) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) real(kind=rknd), dimension(*) :: values character(len=80) :: su common /val0/k0,ku,kx,ky,kl,kuu,kux,kuy,kul, + kxu,kxx,kxy,kxl,kyu,kyx,kyy,kyl,klu,klx,kly,kll common /atest2/iu(100),a1x,a1y,a1u,a2x,a2y,a2u, + bux,buy,cu0,cu1,ru(90),su(100) cy values(k0)=a2x*ux+a2y*uy+a2u*u values(ku)=a2u values(kx)=a2x values(ky)=a2y return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine fxy(x,y,u,ux,uy,rl,itag,values) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) real(kind=rknd), dimension(*) :: values character(len=80) :: su common /val0/k0,ku,kx,ky,kl,kuu,kux,kuy,kul, + kxu,kxx,kxy,kxl,kyu,kyx,kyy,kyl,klu,klx,kly,kll common /atest2/iu(100),a1x,a1y,a1u,a2x,a2y,a2u, + bux,buy,cu0,cu1,ru(90),su(100) cy values(k0)= - bux*ux - buy*uy - cu0 - cu1*u values(ku)= - cu1 values(kx) = - bux values(ky) = - buy return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine gnxy(x,y,u,rl,itag,values) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) real(kind=rknd), dimension(*) :: values common /val1/k0,ku,kl,kuu,kul,klu,kll cy return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine gdxy(x,y,rl,itag,values) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) real(kind=rknd), dimension(*) :: values common /val2/k0,kl,kll,klb,kub,kic,kim,kil cy return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine p1xy(x,y,u,ux,uy,rl,itag,values) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) real(kind=rknd), dimension(*) :: values common /val0/k0,ku,kx,ky,kl,kuu,kux,kuy,kul, + kxu,kxx,kxy,kxl,kyu,kyx,kyy,kyl,klu,klx,kly,kll cy values(k0)=1.0e0_rknd return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine p2xy(x,y,dx,dy,u,ux,uy,rl,itag,jtag,values) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) real(kind=rknd), dimension(*) :: values common /val0/k0,ku,kx,ky,kl,kuu,kux,kuy,kul, + kxu,kxx,kxy,kxl,kyu,kyx,kyy,kyl,klu,klx,kly,kll cy return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine qxy(x,y,u,ux,uy,rl,itag,values) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) real(kind=rknd), dimension(*) :: values common /val3/kf,kf1,kf2,kad cy s=x**2+y**2 values(kf)=real(itag,rknd) values(kad)=s return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine sxy(rl,s,itag,values) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) real(kind=rknd), dimension(*) :: values common /val4/jx,jy,jxs,jys,jxl,jyl,jxss,jyss,jxll,jyll, + jxsl,jysl,jxls,jyls cy return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine usrcmd(vx,vy,sf,itnode,ibndry,ip,rp,sp,iu,ru,su) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(5,*) :: itnode integer(kind=iknd), dimension(7,*) :: ibndry integer(kind=iknd), dimension(100) :: ip,iu integer(kind=iknd), save :: len real(kind=rknd), dimension(*) :: vx,vy real(kind=rknd), dimension(2,*) :: sf real(kind=rknd), dimension(100) :: rp,ru character(len=80), dimension(100) :: sp,su character(len=80), save, dimension(80) :: file cy data len/69/ data (file(i),i= 1, 10)/ + 'n i= 1,n=istate,a=is,t=i', 1 'n i= 2,n=icty ,a=ic,t=i', 2 'n i= 3,n=isle ,a=il,t=i', 3 'n i= 1,n=a1x, a=x1,t=r', 4 'n i= 2,n=a1y, a=y1,t=r', 5 'n i= 3,n=a1u, a=u1,t=r', 6 'n i= 4,n=a2x, a=x2,t=r', 7 'n i= 5,n=a2y, a=y2,t=r', 8 'n i= 6,n=a2u, a=u2,t=r', 9 'n i= 7,n=bux, a=bx,t=r'/ data (file(i),i= 11, 20)/ + 'n i= 8,n=buy, a=by,t=r', 1 'n i= 9,n=cu0, a=c0,t=r', 2 'n i=10,n=cu1, a=c1,t=r', 3 's n=istate,v= 1,l="alabama"', 4 's n=istate,v= 2,l="alaska"', 5 's n=istate,v= 3,l="arizona"', 6 's n=istate,v= 4,l="arkansas"', 7 's n=istate,v= 5,l="california"', 8 's n=istate,v= 6,l="colorado"', 9 's n=istate,v= 7,l="connecticut"'/ data (file(i),i= 21, 30)/ + 's n=istate,v= 8,l="deleware"', 1 's n=istate,v= 9,l="florida"', 2 's n=istate,v=10,l="georgia"', 3 's n=istate,v=11,l="hawaii"', 4 's n=istate,v=12,l="idaho"', 5 's n=istate,v=13,l="illinois"', 6 's n=istate,v=14,l="indiana"', 7 's n=istate,v=15,l="iowa"', 8 's n=istate,v=16,l="kansas"', 9 's n=istate,v=17,l="kentucky"'/ data (file(i),i= 31, 40)/ + 's n=istate,v=18,l="louisiana"', 1 's n=istate,v=19,l="maine"', 2 's n=istate,v=20,l="maryland"', 3 's n=istate,v=21,l="massachusetts"', 4 's n=istate,v=22,l="michigan"', 5 's n=istate,v=23,l="minnesota"', 6 's n=istate,v=24,l="mississippi"', 7 's n=istate,v=25,l="missouri"', 8 's n=istate,v=26,l="montana"', 9 's n=istate,v=27,l="nebraska"'/ data (file(i),i= 41, 50)/ + 's n=istate,v=28,l="nevada"', 1 's n=istate,v=29,l="new hampshire"', 2 's n=istate,v=30,l="new jersey"', 3 's n=istate,v=31,l="new mexico"', 4 's n=istate,v=32,l="new york"', 5 's n=istate,v=33,l="north carolina"', 6 's n=istate,v=34,l="north dakota"', 7 's n=istate,v=35,l="ohio"', 8 's n=istate,v=36,l="oklahoma"', 9 's n=istate,v=37,l="oregon"'/ data (file(i),i= 51, 60)/ + 's n=istate,v=38,l="pennsylvania"', 1 's n=istate,v=39,l="rhode island"', 2 's n=istate,v=40,l="south carolina"', 3 's n=istate,v=41,l="south dakota"', 4 's n=istate,v=42,l="tennessee"', 5 's n=istate,v=43,l="texas"', 6 's n=istate,v=44,l="utah"', 7 's n=istate,v=45,l="vermont"', 8 's n=istate,v=46,l="virginia"', 9 's n=istate,v=47,l="washington"'/ data (file(i),i= 61, 69)/ + 's n=istate,v=48,l="west virginia"', 1 's n=istate,v=49,l="wisconsin"', 2 's n=istate,v=50,l="wyoming"', 3 's n=istate,v=51,l="united states"', 4 's n=icty ,v=0,l="no county lines"', 5 's n=icty ,v=1,l="county lines"', 6 's n=isle ,v=0,l="no small islands"', 7 's n=isle ,v=1,l="small islands"', 8 'n i=11,n=eps, a=e,t=r'/ c istate=iu(1) icty=iu(2) isle=iu(3) eps=ru(11) c call usrset(file,len,iu,ru,su) c if(istate/=iu(1)) ip(41)=-1 if(icty/=iu(2)) ip(41)=-1 if(isle/=iu(3)) ip(41)=-1 if(eps/=ru(12)) ip(41)=-1 c ispd=ip(8) a1x=ru(1) a1y=ru(2) a1u=ru(3) a2x=ru(4) a2y=ru(5) a2u=ru(6) bux=ru(7) buy=ru(8) cu0=ru(9) cu1=ru(10) if(ispd==1) then if((a1y/=a2x).or.(a1u/=0.0e0_rknd).or. + (a2u/=0.0e0_rknd).or.(bux/=0.0e0_rknd).or. 1 (buy/=0.0e0_rknd)) ip(8)=0 else if((a1y==a2x).and.(a1u==0.0e0_rknd).and. + (a2u==0.0e0_rknd).and.(bux==0.0e0_rknd).and. 1 (buy==0.0e0_rknd)) ip(8)=1 endif if(ispd/=ip(8)) ip(5)=max(ip(5),1) c return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine gdata(vx,vy,sf,itnode,ibndry,ip,rp,sp,iu,ru,su,sxy) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(5,*) :: itnode integer(kind=iknd), dimension(7,*) :: ibndry integer(kind=iknd), dimension(100) :: ip,iu integer(kind=iknd), dimension(7000) :: ix,iy,ib1,ib2 integer(kind=iknd), dimension(5) :: ib,jb,jv integer(kind=iknd), save :: ifirst real(kind=rknd), dimension(*) :: vx,vy real(kind=rknd), dimension(2,*) :: sf real(kind=rknd), dimension(100) :: rp,ru real(kind=rknd), save :: hmax,grade character(len=80), dimension(100) :: sp,su character(len=80) :: state cy c map of states in the united states c external sxy data hmax,grade/0.1e0_rknd,1.5e0_rknd/ data ifirst/1/ c c if(ip(41)==1) then iu(1)=51 iu(2)=1 iu(3)=0 c c initialize as laplacian with dirichlet b.c. c do i=1,10 ru(i)=0.0e0_rknd enddo ru(1)=1.0e0_rknd ru(5)=1.0e0_rknd ru(9)=1.0e0_rknd ru(11)=1.0e-2_rknd ip(8)=1 c sp(6)='usmap_mpixxx.rw' sp(7)='usmap.jnl' sp(9)='usmap_mpixxx.out' endif c ip(5)=max(ip(5),ifirst) ip(6)=1 c c istate=iu(1) if(istate<1.or.istate>51) istate=51 icty=iu(2) if(icty/=0) icty=1 isle=iu(3) if(isle/=1) isle=0 c if (istate==1) then call al(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==2) then call ak(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) c c fixup for alaska c if(isle==0) then isle=1 npart=1 endif else if (istate==3) then call az(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==4) then call ar(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==5) then call ca(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==6) then call co(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==7) then call ct(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==8) then call de(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==9) then call fl(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==10) then call ga(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==11) then call hi(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) c c fixup for hawaii c isle=1 else if (istate==12) then call id(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==13) then call il(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==14) then call in(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==15) then call ia(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==16) then call ks(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==17) then call ky(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==18) then call la(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==19) then call me(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==20) then call ml(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==21) then call ma(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==22) then call mi(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==23) then call mn(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==24) then call ms(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==25) then call mo(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==26) then call mt(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==27) then call nb(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==28) then call nv(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==29) then call nh(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==30) then call nj(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==31) then call nm(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==32) then call ny(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==33) then call nc(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==34) then call nd(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==35) then call oh(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==36) then call ok(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==37) then call og(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==38) then call pa(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==39) then call ri(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==40) then call sc(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==41) then call sd(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==42) then call tn(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==43) then call tx(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==44) then c*** call ut(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) c c fixup for salt lake c call uh(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) if(icty==1) ib(1)=ib(1)+208 else if (istate==45) then call vt(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==46) then call va(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==47) then call wa(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==48) then call wv(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==49) then call wi(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==50) then call wy(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) else if (istate==51) then call us(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) endif c sp(2)=state sp(1)=state sp(3)=state c nvf=0 nbf=0 ntf=1 do nn=1,npart nvf0=nvf nbf0=nbf nbound=nbf0+ib(nn) if(jb(nn+1)-jb(nn)==ib(nn).and.isle==0) cycle if(icty==1) then j1=jv(nn+1)-1 j2=jb(nn+1)-1 else j1=jv(nn)+ib(nn)-1 j2=jb(nn)+ib(nn)-1 endif if(irot==0) then do j=jv(nn),j1 nvf=nvf+1 vx(nvf)=real(ix(j),rknd) vy(nvf)=real(iy(j),rknd) enddo else do j=jv(nn),j1 nvf=nvf+1 vx(nvf)=real(iy(j),rknd) vy(nvf)=-real(ix(j),rknd) enddo endif do j=jb(nn),j2 nbf=nbf+1 ibndry(1,nbf)=ib1(j)+nvf0 ibndry(2,nbf)=ib2(j)+nvf0 ibndry(3,nbf)=0 ibndry(4,nbf)=2 if(nbf>nbound) ibndry(4,nbf)=0 ibndry(5,nbf)=0 ibndry(6,nbf)=0 ibndry(7,nbf)=0 enddo enddo do i=1,nbf sf(1,i)=0.0e0_rknd sf(2,i)=0.0e0_rknd enddo c eps=ru(11) call fixdg2(nvf,nbf,vx,vy,sf,ibndry,eps) ip(1)=ntf ip(2)=nvf ip(3)=nbf ip(20)=5 rp(15)=hmax rp(16)=grade c c make itnode c call sklutl(0_iknd,vx,vy,sf,itnode,ibndry,ip,rp,iflag,sxy) c c nvf=ip(2) nbf=ip(3) call box(nvf,vx,vy,nbf,ibndry,sf) c return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine fixdg2(nvf,nbf,vx,vy,sf,ibndry,eps) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(7,*) :: ibndry integer(kind=iknd), dimension(nbf) :: bmark integer(kind=iknd), dimension(nvf) :: vmark integer(kind=iknd), dimension(2*nbf+nvf) :: list,link integer(kind=iknd), dimension(3) :: iv real(kind=rknd), dimension(*) :: vx,vy real(kind=rknd), dimension(2,*) :: sf real(kind=rknd), dimension(3) :: c cy c look at all degree 2 vertices and eliminate c those with angle approximately equal to pi c do i=1,nvf vmark(i)=0 link(i)=0 enddo next=nvf+1 do i=1,nbf do j=1,2 ii=ibndry(j,i) list(next)=i link(next)=link(ii) link(ii)=next next=next+1 vmark(ii)=vmark(ii)+1 enddo enddo c 10 ichng=0 do ied1=1,nbf if(ibndry(3,ied1)/=0) go to 30 if(ibndry(1,ied1)==0) go to 30 if(vmark(ibndry(1,ied1))eps) go to 30 c c make sure this isnt a triangle c next=link(i2) do m=1,vmark(i2) ii=list(next) next=link(next) if(ibndry(1,ii)==i1) go to 30 if(ibndry(2,ii)==i1) go to 30 enddo c c this makes sure edges wont cross c iv(1)=i1 iv(2)=i iv(3)=i2 do m=1,nvf if(m/=i1.and.m/=i2.and.m/=i.and.vmark(m)>0) then call bari(vx(m),vy(m),vx,vy,iv,c) cmn=min(c(1),c(2),c(3)) cmx=max(c(1),c(2),c(3)) if(cmn>=-0.01e0_rknd.and. + cmx<=1.01e0_rknd) go to 30 endif enddo enddo c c fixup list for vertex i c ichng=ichng+1 next=link(i) iold=i do m=1,vmark(i) ied2=list(next) iold=next next=link(next) if(ibndry(1,ied2)==i) then ibndry(1,ied2)=i1 else ibndry(2,ied2)=i1 endif enddo c c merge lists of i and i1 c link(iold)=link(i1) link(i1)=link(i) vmark(i1)=vmark(i1)+vmark(i)-2 vmark(i)=0 ibndry(1,ied1)=0 c c delete edge ied1 from the list (appears twice) c iold=i1 next=link(i1) do m=1,vmark(i1)+2 ii=list(next) if(ii==ied1) then link(iold)=link(next) else iold=next endif next=link(next) enddo 30 continue enddo if(ichng/=0) go to 10 c c clean up c nbf0=nbf nvf0=nvf nbf=0 do i=1,nvf vmark(i)=0 enddo do i=1,nbf0 if(ibndry(1,i)==0) cycle nbf=nbf+1 do j=1,7 ibndry(j,nbf)=ibndry(j,i) enddo do j=1,2 vmark(ibndry(j,nbf))=1 sf(j,nbf)=sf(j,i) enddo bmark(i)=nbf enddo c nvf=0 do i=1,nvf0 if(vmark(i)==0) cycle nvf=nvf+1 vx(nvf)=vx(i) vy(nvf)=vy(i) vmark(i)=nvf enddo c c fix vertex numbers, linked edges c do i=1,nbf ibndry(1,i)=vmark(ibndry(1,i)) ibndry(2,i)=vmark(ibndry(2,i)) if(ibndry(4,i)<0) ibndry(4,i)=-bmark(-ibndry(4,i)) enddo return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine box(nvf,vx,vy,nbf,ibndry,sf) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(7,*) :: ibndry real(kind=rknd), dimension(*) :: vx,vy real(kind=rknd), dimension(2,*) :: sf cy c rescale domain to lie inside the unit square c xmin=vx(1) xmax=xmin ymin=vy(1) ymax=ymin do i=1,nvf xmin=min(xmin,vx(i)) xmax=max(xmax,vx(i)) ymin=min(ymin,vy(i)) ymax=max(ymax,vy(i)) enddo c c compute scaled coordinates c xmid=(xmin+xmax)/2.0e0_rknd ymid=(ymin+ymax)/2.0e0_rknd scale=1.0e0_rknd/max(xmax-xmin,ymax-ymin) do i=1,nvf vx(i)=0.5e0_rknd+scale*(vx(i)-xmid) vy(i)=0.5e0_rknd+scale*(vy(i)-ymid) enddo do i=1,nbf if(ibndry(3,i)==0) cycle sf(1,i)=0.5e0_rknd+scale*(sf(1,i)-xmid) sf(2,i)=0.5e0_rknd+scale*(sf(2,i)-ymid) enddo return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine al(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(*) :: jv,jb,ib,ix,iy,ib1,ib2 integer(kind=iknd), save, dimension(5) :: kv,kb,iib integer(kind=iknd), save, dimension(1960) :: jx,jy integer(kind=iknd), save, dimension(2020) :: jb1,jb2 integer(kind=iknd), save :: jrot,ipart character(len=80) :: state character(len=80), save :: istate cy data istate/'alabama '/ data jrot,ipart/0,2/ data kv/ 1,1879,1952, 0, 0/ data kb/ 1,1945,2018, 0, 0/ data iib/ 309, 73, 0, 0, 0/ data (jx(i),i= 1, 100)/ + 10416,18864,27408,22920, 9984,35088,34344, 9624,36264, 9288, 1 8544,37272,38040, 7848,39024,40416, 6936,39936,39312, 6432, 2 39792, 6672,35904,14904,28944,23976,10800,10152, 9912, 9432, 3 9456,34128,38544,38592,38760,38832,38712,38712,39144,38976, 4 40176,39648,39624,39528,39576,39360,39504,39504,39264,39216, 5 39264,39192,40488,40704,40776,40632,40728,40560,40704,40608, 6 40584,40392,40392,41040,41520,41352,41184,41184,41280,41184, 7 40728,40656,40824,40368,39888,40008,39936,39960,39816,39840, 8 39672,39696,39408,39456,39432,39216,39264,39168,39240,39168, 9 6360,39384,39336,39768,39744,39960,40032,40176,40128,39936/ data (jx(i),i= 101, 200)/ + 39960,39864,39864,39720,39816,39744,39576,39528,39720,39624, 1 39720,39744,39912,40416,40440,40608,40704,23136,14880,16512, 2 16584,16416,16392,16584,16704,16800,16896,16896,16776,16368, 3 16104,16056,15864,15552,15408,15072,14880,14832,14640,14592, 4 14520,14976,14976, 6864, 7080, 7032, 7104, 7176, 7200, 7272, 5 7488, 7680, 7728, 7680, 7800, 7896, 8016, 7992, 8256, 8592, 6 8736, 8976, 9000, 8928, 8856, 8928, 8880, 9288, 9240, 9360, 7 9384, 9480, 9504, 9360, 9456, 9744, 9816, 9768, 9792, 9744, 8 9864, 9816,10032, 9984, 9792, 9720, 9552, 9576, 9672, 9744, 9 9864, 9744, 9840,10008,10272,10272,10320,10320,10536,10512/ data (jx(i),i= 201, 300)/ + 10656,12792,11136,10512,10632,11160,11232,11280,11208,11328, 1 11304,11400,11520,11664,11832,12144,12576,13032,13152,13368, 2 13440,13416,13512,13608,13488,13440,13320,13248,13128,12720, 3 12504,12456,12504,12672,12576,12504,12384,12360,12432,12360, 4 12144,11736,11616,11472,11808,11808,11688,11736,11664,11688, 5 11592,11616,11496,11568,11544,11400,14640,15240,15240,15096, 6 15240,15216,15432,15696,15696,15624,15360,15240,15000,14712, 7 14712,14880,14784,14784,14688,14808,14688,14832,14952,15000, 8 15120,15000,15072,15168,15240,15288,15408,15480,15648,15720, 9 15624,15600,15672,15672,15768,15768,15816,15840,15888,15936/ data (jx(i),i= 301, 400)/ + 16008,16200,16344,16368,16536,16848,16920,16536,16464,16800, 1 16224,16008,15984,15672,15288,15168,14112,13896,13632,13176, 2 12864,12096,11952,11808,11616,10968,10608,18816,18432,18240, 3 18240,18384,17520,17688,17952,18144,15816,16008,15960,16056, 4 16296,16272,16464,16608,16560,16800,16728,16848,16800,16896, 5 16872,16752,18672,19152,19584,19680,19872,19800,27408,27888, 6 27912,27840,27576,27408,27288,27288,27408,27144,27144,27048, 7 27240,27096,27192,27120,27192,26976,26976,27312,27240,27288, 8 23904,23712,23592,23184,22872,20400,20544,21576,21984,15816, 9 22440,25176,25080,24888,24576,24240,24024,29880,29616,29568/ data (jx(i),i= 401, 500)/ + 29496,29496,29376,29328,29280,29208,29040,28992,31968,31944, 1 32280,32280,32640,33552,33624,34008,33984,34080,34008,34128, 2 34200,34272,34248,34368,34344,34464,34440,34536,34464,34632, 3 34656,34776,34872,34992,34992,30408,30792,31008,32448,33312, 4 33528,33648,33888,33936,34176,25320,25656,25944,26112,26352, 5 26496,26640,26712,26688,26784,26904,27024,27240,27288,27240, 6 27456,27480,27264,27264,27552,27480,27504,15792,14784,24864, 7 24864,19824,26112,26136,26064,26040,25872,25872,19416,19800, 8 29376,29448,27552,28656,29448,26208,26184,26568,14760,16056, 9 18600,18792,18936,19032,19200,31992,32064,32280,32424,32472/ data (jx(i),i= 501, 600)/ + 32424,33024,33000,35016,35352,35352,36024,36024,35016,27288, 1 26904,27288,27288,27384,11376,11376,11712,11712,14736,34992, 2 34344,34344,33984,34008,34488,34488,34344,34344,34152,34152, 3 34008,34008,33936,33936,33864,33864,33528,33528,33192,33192, 4 33024,33000,32496,25800,25680,25488,25416,25416,25296,25200, 5 25248,25152,25200,25128,25224,24960,24864,24792,24816,24696, 6 24672,24720,24576,24480,24336,24336,24216,24168,24048,24000, 7 23880,23832,23712,23904,23880,23784,23712,23664,23736,23640, 8 23568,23520,23328,23352,23160,23208,23160,23016,23064,22968, 9 22872,22920,22872,22584,22584,22464,22392,22224,22224,22032/ data (jx(i),i= 601, 700)/ + 21960,22008,21960,21768,21672,21600,21648,21456,21336,21384, 1 21240,21264,21216,19536,19560,19824,19800,19848,20016,20088, 2 19896,19992,20808,20808,27408,27360,27432,27816,27912,28056, 3 28344,28560,28872,28896,29088,29136,29208,29256,29448,29424, 4 29520,29520,29712,29808,29904,29976,29880,32976,32304,31968, 5 31968,31632,31632,31464,31464,31128,31128,30960,30960,30792, 6 30792,30624,30624,30552,30552,30288,30288,30024,30024,21216, 7 21312,21312,27144,27168,26376,26088,25896,25728,25584,25488, 8 24936,24936,21480,21984,23184,24264,24264,29856,30000,29880, 9 29880,30072,30096,29952,29712,29568,29400,29352,29208,29136/ data (jx(i),i= 701, 800)/ + 29112,16776,16776,15768,15744,14736,32520,30576,30576,30336, 1 30264,30120,30048,25272,25272,25368,25368,25440,25464,25368, 2 25368,25296,25296,25200,25200,25296,25296,25536,25536,11712, 3 12744,14760,14760,14424,14424,13680,21312,21144,21144,20808, 4 20808,20640,20640,20568,20568,20472,20472,20328,20304,19968, 5 19968,19464,19464,19128,19128,18960,18888,18960,19080,18936, 6 18816,18576,18432,18360,18312,18240,18216,18288,17784,17784, 7 17280,17280,32496,31968,31968,31800,31800,31632,31632,32640, 8 32640,32808,32808,33984,36888,36864,36792,36792,28992,28896, 9 28848,28776,28584,28560,28848,28944,28896,28608,28608,28752/ data (jx(i),i= 801, 900)/ + 28704,28464,28392,28512,28680,28680,28392,28272,28056,27984, 1 27960,27816,27768,27768,27672,27576,27432,27192,27024,26880, 2 25872,25872,26880,18336,18312,18192,18072,18096,18000,17952, 3 17832,17688,17568,17616,17616,17832,17832,18120,18120,18288, 4 18288,18408,18408,18456,18456,18624,18624,18792,18792,18960, 5 18960,19128,19128,19296,19296,19632,19632,20016,20016,20232, 6 20232,20616,25536,25296,25296,25128,25128,25032,25032,24864, 7 24864,24792,24768,24696,24696,24024,24024,23856,23856,23760, 8 23760,23592,23592,23256,23256,23184,23184,23016,23016,22752, 9 22680,22512,22512,22008,22008,21912,21840,21744,21744,21576/ data (jx(i),i= 901, 1000)/ + 21576,21360,21384,21168,21168,21024,21048,12744,31464,31464, 1 31296,31296,31128,31128,30792,30768,29424,29400,28896,28896, 2 34536,33960,33960,34032,34032,34008,34032,33960,25824,26904, 3 27144,27240,27192,27000,27000,27072,26688,26520,26352,26448, 4 26352,26184,26040,26088,26040,25848,25776,25680,25848,25896, 5 26088,26112,25872,30504,30840,30840,30504,20616,20664,20616, 6 21168,21168,21336,21336,21504,21504,21648,21672,21864,21864, 7 22032,20112,19848,19680,19680,19416,19320,19320,18936,18936, 8 18144,17832,17760,16752,25560,25536,25680,25608,22008,24648, 9 24576,24600,24744,24768,25080,25128,25272,25368,12720,12792/ data (jx(i),i= 1001, 1100)/ + 12768,13944,13896, 9456, 9504, 9744, 9696, 9768,10008,10104, 1 10344,10416,10488,10680,10800,10776,10848,10896,11472,11592, 2 11640,16776,20688,22080,22056,17760,17760,16752,16272,16248, 3 15744,15744,30552,30480,30552,30552,25512,25632,25560,25584, 4 25680,25824,25944,26208,26256,26112,26160,26304,26280,26448, 5 26592,26784,26952,27336,27336,27504,27504,37608,37560,36432, 6 36432,36336,36336,36192,36192,35688,35688,35592,35592,34848, 7 34848,34752,34752,34608,20688,26592,26592,27000,20712,21672, 8 23664,23664,34440,34440,33744,33768,33600,33624,16224,16728, 9 16728,19776,19920,20088,20064,20496,20400,20424,20568,20544/ data (jx(i),i= 1101, 1200)/ + 12528,12432,12312,12336,12096,12120,12288,12456,12408,12480, 1 12528,12648,12480,12288,12024,11880,11784,11280,10560,10320, 2 10320,10560,10584,10536,10704,10584,10512,10200, 9960,10272, 3 10320,10104,10032,10128,10368,10488,10392,10128, 9816, 9744, 4 9648, 9552, 9384, 9336, 9504, 9624, 9360, 9288, 9096, 9192, 5 9384, 9456, 9456, 9360, 9288, 9360, 9504, 9600, 9480,12912, 6 13056,13056,13176,13176,13224,13344,13368,13488,13680,13560, 7 13200,13056,12912,12960,13320,13512,13608,13536,13344,13176, 8 13104,13200,13104,13104,12984,12912,12816,12768,12792,12984, 9 13032,12840,12720,12720,12456,12384,12432,12576,12888,12888/ data (jx(i),i= 1201, 1300)/ + 12936,12888,12912,12864,12912,12744,12792,12888,12768,12744, 1 12888,12864,12960,12912,13008,13032,13224,13296,13392,13464, 2 13320,13320,13416,13464,13560,13512,13656,13752,13752,13584, 3 13680,13608,13560,13728,13800,13968,13992,12888,12816,12816, 4 12888,12792,12600,33456,33456,32616,32640,31776,30888,30888, 5 31056,31080,31800,31800,31656,31704,31536,31488,31608,31728, 6 31680,31776,31704,13752,13728,31920,32088,31872,31800,31848, 7 31728,31344,31104,30888,30840,30912,30816,30744,30696,30744, 8 30720,30576,30432,39840,39864,37176,37224,36192,36144,35592, 9 33960,33960,33624,26640,30288,30216,29904,29808,29520,29496/ data (jx(i),i= 1301, 1400)/ + 29400,29424,29208,29136,29016,28920,28800,28752,28896,28800, 1 28680,28584,28464,28416,28488,28416,28344,28320,28080,28056, 2 28104,27912,27840,27744,27672,27576,27648,27480,27672,27624, 3 27528,27216,26760,26784,26376,26160,26136,26016,25848,25872, 4 25776,21648,21840,21816,22008,22008,22152,22224,22176,22344, 5 22584,22416,22368,22416,22656,22752,22680,22632,22632,22728, 6 22848,22920,23088,22992,23016,23064,23352,23592,23640,23616, 7 23688,24000,24240,24264,24552,24648,24648,24840,24960,25032, 8 25296,25464,12648,12624,12528,12000,11616,11448,11328,11136, 9 10704,10632,10896,11208,11352,11424,11544,11640,11736,15720/ data (jx(i),i= 1401, 1500)/ + 30552,30528,30720,30768,30984,31152,31464,16248,36240,31656, 1 31656,31872,31944,31896,32112,16464,16560,16608,16896,16992, 2 17064,17064,17184,17232,17688,17712,17928,18024,18072,18384, 3 18288,18384,18528,18576,18672,19032,18984,19128,19104,21792, 4 36480,36312,39504,39504,39408,39408,38736,38616,38592,38304, 5 38184,37968,37968,30816,30816,30672,30720,25800,25944,25920, 6 25992,25848,25968,26184,26352,26448,26520,26664,26712,22344, 7 22344,22584,22272,22200,22488,22584,22728,22728,21768,11760, 8 11712,11592,11688,11640,11400,11328,11256,11160,10992,11016, 9 10872,10848,10968,10896,10968,10920,10992,10872,10824,10656/ data (jx(i),i= 1501, 1600)/ + 10536,10608,10368,10128, 9888, 9936, 9888, 9936,10128,10152, 1 10296,15888,15720,15744,14736,14736,14304,14304,30744,28824, 2 27744,27720,26304,26736,22272,22272,36480,36312,36312,36000, 3 35976,35904,35904,35496,35496,35328,35280,34752,34512,34152, 4 34080,32784,32784,31848,31848,31752,31752,31560,31560,31176, 5 31200,31056,31080,30912,30888,30864,10368,10272,10320,10224, 6 10152,10080, 9816, 9864,10008,10128,10344,10488,10440,10272, 7 10152, 9768, 9600, 9480, 9360, 9216, 9432, 9624, 9840, 9960, 8 10080,10128,21768,21792,14304,14592,14736,14760,15936,36504, 9 36504,38448,38592,38736,39024,21792,33240,33336,33480,33504/ data (jx(i),i= 1601, 1700)/ + 33600,33648,33984,34032,33936,33936,33984,32832,29304,28992, 1 29016,28920,28920,28776,28776,29256,29280,29280,29160,29112, 2 28968,28968,26328,26400,26400,26328,26328,26376,26376,26328, 3 26304,25800,25824,23808,22464,22416,22200,21768,32856,28848, 4 28824,29208,29208,29328,26808,26784,27024,27168,27408,27816, 5 27984,28008,28176,28176,36552,15936,15768,15768,15264,15288, 6 14712,14880,15312,15192,14928,14832,14712,14544,14400,14280, 7 14064,13896,13680,13704,13560,13416,13416,13392,13296,13296, 8 13104,13128,13296,21480,21264,21168,20736,20400,20256,20304, 9 20256,20136,19968,19560,19488,19320,19200,19200,18888,18768/ data (jx(i),i= 1701, 1800)/ + 18576,18144,17952,17688,17592,17448,17280,16896,16656,16632, 1 13584,13800,14328,14544,14760,15168,15432,15648,16008,33648, 2 33768,33840,34008,33984,34200,34632,35880,35880,36552,11472, 3 11448,11544,11616,11496,11352,11256,11064,11208,11400,11424, 4 11376,11472,11328,11304,11520,11664,11736,11856,11784,11808, 5 11880,12072,11928,11856,11736,11784,11688,11544,11496,11616, 6 11664,11856,11904,11808,11688,11856,11760,11616,11808,11784, 7 11904,11712,11544,11232,11184,10680,10584,10800,10752,10488, 8 10200,10248,10152,10104,10224,28872,23832,23832,23856,24120, 9 24192,24096,23832,13224,13008,12888,12840,13080,12936,12672/ data (jx(i),i= 1801, 1900)/ + 12600,12408,12552,12480,12576,12528,12384,12288,12432,12336, 1 12240,12192,12168,12072,11952,11880,11808,29640,29640,29544, 2 29544,23208,23112,23208,23136,23184,23136,23232,23184,23280, 3 23448,23520,23496,23664,23640,11520,11208,11040,10728, 7656, 4 7656,35880,14736,23856,23976,11280,11544,11472,11160,11304, 5 11472,11520,11520,11352,11424,11280,11352,11280,11448,11520, 6 11640,11664,11400,11328,11088,11040,11112,11400,11448,11040, 7 10992,10776,10680,10704,10656,10752,10776,10896,10656,10728, 8 10632,10584,15336,15528,15504,15360, 9792, 9648, 9600, 9624, 9 9672, 9888, 9912, 9480, 9408, 9480,15960,16248,16224,15528/ data (jx(i),i= 1901, 1960)/ + 15792, 8568, 8640, 8616, 8544, 8688, 8712, 8736, 8736, 8256, 1 8208, 8232, 8208, 8232, 8328, 7056, 6984, 7056, 6888, 6888, 2 6960, 7896, 7824, 7872, 7080, 7152, 7104, 9816, 9816, 9744, 3 9648,10224,10200,10296,10320, 9840, 9456, 8952, 7824, 7656, 4 9120, 9552, 9552, 9648, 9840, 9984,10056,10056, 7368, 7368, 5 7536, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (jy(i),i= 1, 100)/ + 60720,61848,61776,61776,57096,56472,60360,54072,50016,51048, 1 45000,44472,40152,38736,36000,33288,30864,28104,24648,23832, 2 19392,17088,15744,15648,15624,15624,12024,60840,61080,61944, 3 62016,61776,37320,37248,37248,37128,36984,36696,36360,36192, 4 33648,34248,34464,34608,34728,34800,34992,35040,35400,35688, 5 35880,35952,32664,32472,32328,32136,31944,31872,31752,31704, 6 31584,31368,31200,30888,30456,30336,30312,30240,30216,29976, 7 29904,29784,29688,29496,28944,28440,28320,27600,27336,27048, 8 26904,26688,26376,26304,26184,26112,25968,25512,25200,24864, 9 26160,24312,23904,23400,23232,23064,22464,22128,21816,21360/ data (jy(i),i= 101, 200)/ + 20832,20760,20424,20040,19608,19224,19104,18984,18456,18024, 1 17952,17712,17664,16968,16704,16440,15864,15672,15696, 9744, 2 9768, 9984,10200,10584,10656,11088,11184,11688,11952,12216, 3 12288,12432,12480,12744,13176,13536,13632,13776,13920,14088, 4 14160,15168,15360, 8688, 8664, 8736, 8808, 8784, 8688, 8856, 5 8856, 8712, 8592, 8472, 8496, 8784, 8688, 8640, 8616, 8472, 6 8352, 8424, 8376, 8160, 8112, 7992, 7848, 7944, 8112, 8160, 7 8040, 8184, 8088, 7896, 7752, 8400, 9072, 9360, 9456, 9504, 8 9600,10008,10440,10680,10776,10944,10896,11088,11088,11280, 9 11280,11040,10872,10752,11136,11592,11664,11760,11904,12120/ data (jy(i),i= 201, 300)/ + 12120, 6792, 6792, 6696, 6864, 6936, 6888, 6936, 7008, 7032, 1 7104, 7152, 7152, 6984, 6912, 6912, 7056, 7104, 7152, 7488, 2 7392, 7176, 7176, 7296, 7464, 7608, 7584, 7512, 7704, 7992, 3 8256, 8424, 8568, 8640, 8904, 8952, 8760, 8688, 8520, 8496, 4 8592, 8904, 9600, 9720,10440,10680,10944,11232,11448,11520, 5 11568,11664,11760,11808,11880,11880, 7080, 7272, 7344, 7320, 6 7392, 7488, 7488, 7608, 7680, 7704, 7560, 7608, 7512, 7560, 7 7632, 7824, 7920, 8016, 8064, 8160, 8232, 8328, 8016, 8160, 8 8160, 7848, 7656, 7776, 7728, 7872, 7680, 7872, 7848, 8064, 9 8040, 8112, 8160, 8304, 8280, 8064, 8064, 8376, 8400, 8136/ data (jy(i),i= 301, 400)/ + 8088, 8280, 8520, 8736, 8928, 9024, 9216, 9504, 9648,59544, 1 59712,59832,59904,59904,59784,59616,59232,58944,58824,58776, 2 58920,59640,60144,60360,60552,60840,60696,59736,59424,59328, 3 59256,59064,59592,59472,59112,58992,56784,57048,57240,57456, 4 57696,57792,57792,57888,58272,58512,58728,58896,58968,59136, 5 59184,59280,59136,58944,58632,58416,58224,53928,61608,61248, 6 61032,60984,61248,61128,61152,61056,60864,60648,60552,60408, 7 59904,59640,59448,59280,59064,58824,57624,57360,57336,57264, 8 57048,57120,57096,56712,56664,57816,57840,57096,56928,56880, 9 56736,56616,56880,57024,57000,56640,56712,55848,55728,55920/ data (jy(i),i= 401, 500)/ + 55992,56352,56352,56448,56400,56496,56400,57264,52680,53184, 1 53136,53376,53376,54360,54528,54696,54792,54864,54984,54960, 2 55152,55200,55272,55296,55368,55488,55824,55800,55992,56064, 3 56208,56184,56328,56376,56496,55896,56136,56424,57576,58968, 4 58992,59136,59616,59976,60240,56112,55896,55824,55920,55848, 5 56040,56064,56136,56328,56352,56256,56352,56208,56256,56304, 6 56544,56832,56856,56952,57024,57048,57192,53832,53880,54624, 7 53832,53760,53328,53496,53496,53664,53664,53808,50232,50208, 8 55272,52656,51480,52464,52488,53304,53208,52656,50352,50280, 9 50256,50232,50136,50352,50376,51648,51648,51816,51864,51816/ data (jy(i),i= 501, 600)/ + 51528,50256,50016,49728,49752,49920,49920,49968,49896,49440, 1 49560,50160,50880,51168,50952,50616,50616,49416,49344,49128, 2 49128,48960,48960,48624,48624,48120,48120,47952,47952,47784, 3 47784,46344,46344,46248,46200,46080,46104,45912,45936,45768, 4 45768,45240,45264,53328,53208,53232,53064,52968,52896,52824, 5 52776,52680,52608,52512,52464,52224,52008,52008,51888,51840, 6 51744,51696,51624,51744,51624,51552,51552,51360,51288,51336, 7 51240,51384,51240,50928,50904,51024,50976,50856,50736,50640, 8 50688,50520,50424,50304,50256,50184,50016,49968,49920,49968, 9 49872,49824,49752,49824,49632,49728,49728,49560,49488,49584/ data (jy(i),i= 601, 700)/ + 49536,49440,49344,49296,49344,49248,48840,48768,48816,48720, 1 48792,48672,48672,50040,49920,49824,49728,49560,49416,49224, 2 49152,49032,49032,48696,49560,49632,49800,50256,50040,49968, 3 50184,50208,49872,49488,49392,49200,49152,49224,49224,49032, 4 48912,48768,48744,48792,48768,48552,48528,49632,49752,49872, 5 49800,49800,49704,49704,49272,49272,49440,49440,49368,49368, 6 49128,49128,48960,48960,48792,48816,48648,48648,48528,48504, 7 48528,48168,49344,49008,48264,48264,48168,48168,48144,48024, 8 48024,47592,48168,48504,48480,47712,47616,48480,48360,48144, 9 48000,47712,47616,47592,47352,47304,47160,47016,47064,46992/ data (jy(i),i= 701, 800)/ + 46632,45720,46728,46776,48792,48864,45600,45576,45744,45744, 1 46272,46368,46584,47616,47256,47256,47088,47112,46344,46344, 2 46104,46104,45936,45936,45264,45264,45168,45168,45072,44856, 3 44856,45816,45480,45480,44808,44784,48000,48024,47832,47856, 4 47688,47688,47352,47352,47184,47184,46680,46680,46344,46344, 5 46008,46008,45840,45840,45672,45672,45432,45264,45168,45096, 6 44952,45000,44688,44736,44880,44880,44760,44688,44688,45552, 7 45552,45720,45096,44592,44496,44496,44328,44328,44232,44256, 8 44424,44424,44592,44568,44616,44688,44664,44568,46560,46608, 9 46776,46872,46824,46632,46440,46104,45936,45864,45768,45648/ data (jy(i),i= 801, 900)/ + 45624,45648,45576,45264,45168,45048,44832,44496,44424,44496, 1 44736,44688,44592,44424,44352,44040,43920,43512,43464,43296, 2 45072,44568,44592,44616,44520,44568,44520,44304,44304,44424, 3 44400,44448,44208,44208,44040,44016,43872,43848,43680,43656, 4 43584,43584,43512,43512,43344,43320,42984,42984,42912,42888, 5 42720,42720,42480,42480,42312,42288,42120,42120,42000,41952, 6 41616,41616,44832,44832,44736,44760,44664,44664,44568,44496, 7 44328,44328,44256,44232,44160,44160,43992,43992,43896,43848, 8 43728,43728,43560,43584,43368,43320,43248,43248,43008,43008, 9 42936,42936,42600,42600,42528,42528,42312,42312,42264,42192/ data (jy(i),i= 901, 1000)/ + 41976,41928,41856,41856,41760,41688,41592,40560,44568,44064, 1 44064,43392,43392,43224,43224,42216,42216,41040,41064,40008, 2 40104,40080,42384,42384,42504,42504,42576,42576,39960,43224, 3 43080,42888,42792,42744,42456,42168,41928,41952,42048,41784, 4 41568,41592,41424,41088,41040,41112,41040,40800,40704,40464, 5 40320,40224,40080,39840,39864,40032,40008,41184,41160,40680, 6 40584,39912,39912,39672,39672,39504,39504,39432,39432,39336, 7 39336,41616,41328,41328,41496,41496,41376,41328,40944,40272, 8 40296,39840,38832,38832,39024,39432,39552,39768,39600,39576, 9 39480,39384,39408,39312,39096,39000,39000,39048,39864,39864/ data (jy(i),i= 1001, 1100)/ + 39000,39000,38856,38784,38976,39144,39240,39288,39312,39240, 1 39240,39408,39408,39240,39288,39504,39432,39552,39744,39840, 2 40032,37320,36888,36864,39336,37320,36816,36816,36816,34800, 3 34800,32784,36768,36720,36648,35976,38808,38616,38448,37968, 4 37776,37704,37296,37200,37056,36840,36624,36624,36528,36384, 5 36336,36000,35952,35952,36096,36096,35928,35952,35784,35760, 6 35856,35832,35928,35928,35760,35760,35832,35832,35760,35736, 7 35808,35808,35736,35712,35640,35400,35904,35904,34872,34872, 8 35376,34872,35712,35544,35520,35352,35352,34176,30768,30792, 9 32808,32856,33240,33504,33840,34176,34416,34632,35016,35160/ data (jy(i),i= 1101, 1200)/ + 33384,33408,33528,33816,34080,34224,34296,34248,34152,34056, 1 34080,34248,34416,34440,34344,34536,34560,34296,34104,34416, 2 34632,34728,34896,35040,35232,35328,35232,35160,35328,35448, 3 35592,35856,36168,36288,36192,36408,36576,36456,36888,36888, 4 36792,36864,36840,36936,36960,37152,37368,37800,37944,38088, 5 38040,38088,38160,38208,38352,38400,38304,38376,38520,33312, 6 33480,33720,33744,33984,34008,33936,33792,33960,34032,34320, 7 34224,34296,34560,34608,34656,34560,34776,34848,34752,34800, 8 34944,35112,35304,35496,35496,35400,35400,35472,35688,35712, 9 35856,36096,36120,36024,36000,36048,36192,36168,36432,36552/ data (jy(i),i= 1201, 1300)/ + 36576,36672,36744,36792,36864,36984,37056,37056,37104,37200, 1 37224,37416,37368,37536,37488,37608,37584,37656,37608,37704, 2 37872,37944,37920,38040,37968,38040,38040,38184,38232,38232, 3 38328,38376,38520,38496,38640,38640,38760,33240,33264,33360, 4 33456,33528,33576,34176,34008,33984,33000,32976,35976,36144, 5 36144,35976,35976,35808,35664,35544,35352,35160,34896,34752, 6 34200,33552,33096,33288,32784,32832,32784,32736,32520,32472, 7 32448,32520,32352,32496,32472,32424,32328,32496,32400,32280, 8 32208,32208,32112,33288,32856,32736,32088,32064,33072,33072, 9 33864,34032,34008,31968,32136,31944,32016,32136,32064,32160/ data (jy(i),i= 1301, 1400)/ + 32136,32256,32160,32280,32328,32328,32232,32328,32400,32520, 1 32448,32712,32640,32664,32784,32904,32856,32952,33024,32952, 2 32880,32856,32712,32736,32880,32856,32640,32352,32088,31992, 3 32088,32232,32160,32016,31848,31896,31584,31440,31440,31272, 4 31200,34824,33840,33336,32952,32784,32496,32496,32256,32280, 5 32112,32040,31944,31800,31536,31320,31152,31080,30840,30768, 6 30792,30840,31152,31488,31752,31776,31728,31896,31848,31512, 7 31392,31296,31560,31800,31920,31848,31536,31392,31560,31560, 8 31488,31128,33312,33240,33192,33288,32928,32640,32544,32520, 9 32184,31608,31536,31224,31248,31104,31056,30888,30840,30768/ data (jy(i),i= 1401, 1500)/ + 31920,31704,31416,31152,31104,30720,30432,30288,30024,30432, 1 30792,30648,30528,30096,29952,30360,30312,30216,29976,30000, 2 29952,29880,29784,29616,29520,29400,29136,29112,28944,28848, 3 28632,28656,28560,28392,28320,28224,28080,27960,27768,27768, 4 29016,29016,28104,28176,28176,28104,28080,28176,28320,28512, 5 28824,28992,29064,30408,30144,30144,27864,31152,31152,31104, 6 31056,30720,30408,30384,30240,30216,30096,30048,27816,31008, 7 30792,30744,30504,30360,29976,29928,29952,29808,29808,30576, 8 30504,30552,30744,30792,30696,30792,30792,30672,30672,30528, 9 30552,30408,30216,30024,29784,29616,29400,28992,28920,28920/ data (jy(i),i= 1501, 1600)/ + 28440,28224,27984,28104,27912,27696,27456,27312,27192,27360, 1 27168,30336,30168,28752,28776,27312,27264,27144,26904,26856, 2 26832,27840,26832,26808,26784,27792,28944,28944,27504,27480, 3 27576,27576,27480,27480,27312,27312,27264,27264,26712,26256, 4 25920,25896,26904,26904,27072,27144,27816,27816,27912,27888, 5 27984,27888,27720,27720,27864,27816,27072,26976,26784,26736, 6 26856,26880,26688,26568,26592,26376,26544,26424,26352,26376, 7 26232,26208,25680,25608,25320,25176,24576,24408,24552,24504, 8 24240,23808,26784,25272,25800,25800,25728,25248,25272,22944, 9 23952,23928,24432,24480,24768,24360,22872,22944,23256,23760/ data (jy(i),i= 1601, 1700)/ + 23880,24264,24600,24816,25080,25488,25776,22872,22848,26448, 1 26016,25680,25368,25032,24816,24840,24528,23352,23328,23112, 2 22920,22824,25512,25416,25320,25296,24624,24624,24456,24456, 3 23256,23256,21744,21744,21744,21840,21984,22968,18000,20784, 4 21816,21816,21912,21912,21768,20904,21072,21312,21360,21816, 5 21816,20952,20952,20784,19416,25080,25080,23736,23736,22080, 6 21624,21456,21192,20688,20424,20400,20424,20592,20616,20592, 7 20400,20352,20016,19632,19536,19584,19824,19896,19896,19704, 8 19488,19272,19128,24288,24120,24120,23904,23952,23760,23496, 9 23424,23400,23208,23088,22560,22344,21840,21672,21120,20976/ data (jy(i),i= 1701, 1800)/ + 20928,20424,20304,20016,19824,19728,19344,19104,18840,18696, 1 19200,19176,18600,18504,18504,18360,18336,18504,18672,18000, 2 18144,18432,18624,18720,18936,18936,18624,19080,19080,17928, 3 18096,18144,18360,18528,18576,18696,18696,18840,18792,18840, 4 18984,19128,19248,19344,19344,19296,19632,19560,19512,19440, 5 19440,19872,20208,20232,20184,20040,20112,20040,20064,20136, 6 20280,20256,20328,20424,20400,20616,20736,20808,20880,21120, 7 21408,21528,21792,21864,21936,22200,22344,22320,22440,22464, 8 22680,22848,23040,23304,23424,17904,17904,19584,19680,19896, 9 20328,20712,20712,19080,19152,19392,19248,18888,18816,18912/ data (jy(i),i= 1801, 1900)/ + 18696,18696,18552,18456,18384,18312,18456,18360,18096,18072, 1 18192,18192,18000,18072,17976,18000,17856,17928,17808,17808, 2 17928,18696,18552,18264,18120,18048,18000,17952,17784,17904, 3 17928,17856,17832,17808,17880,17592,17592,17712,17376,17400, 4 17064,18072,15672,15672,15672,17424,17400,17112,16704,16488, 5 16488,16368,16272,16080,15936,15816,15624,15336,15288,15144, 6 15072,14976,14856,14640,14400,14280,14136,13920,13728,13536, 7 13296,13224,13128,13008,12816,12696,12432,12264,12024,11856, 8 11808,11952, 7272, 7320, 7344, 7344, 7296, 7392, 7320, 7272, 9 7296, 7152, 7176, 7584, 7560, 7536, 7584, 7656, 7608, 7416/ data (jy(i),i= 1901, 1960)/ + 7584, 7920, 7896, 7848, 7872, 7872, 7920, 7896, 7824, 7920, 1 7968, 8160, 8208, 8472, 8088, 8352, 8304, 8400, 8256, 8328, 2 8328, 8496, 8496, 8544, 6720, 6672, 6648, 6672, 6624, 6648, 3 6816, 6360, 6432, 6480, 6408, 6936, 7008, 7008, 6792, 6864, 4 7104, 7080, 7152, 7176, 7080, 7128, 7056, 6984, 8760, 8688, 5 8688, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (jb1(i),i= 1, 100)/ + 1, 28, 29, 30, 2, 2, 3, 7, 3, 1, 1 6, 5, 8, 6, 10, 9, 12, 13, 33, 34, 2 35, 36, 37, 38, 39, 15, 11, 16, 41, 42, 3 43, 44, 45, 46, 47, 48, 49, 50, 51, 15, 4 16, 53, 54, 55, 56, 57, 58, 59, 60, 61, 5 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 6 72, 73, 74, 75, 76, 18, 14, 18, 78, 79, 7 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 8 19, 17, 20, 19, 92, 93, 94, 95, 96, 97, 9 98, 99, 100, 101, 102, 103, 104, 21, 20, 21/ data (jb1(i),i= 101, 200)/ + 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 1 116, 23, 26, 118, 24, 23, 25, 120, 121, 122, 2 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 3 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 4 24, 22, 144, 145, 146, 147, 148, 149, 150, 151, 5 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 6 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 7 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 8 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 9 192, 193, 194, 195, 196, 197, 198, 199, 200, 27/ data (jb1(i),i= 201, 300)/ + 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 1 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 2 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 3 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 4 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 5 252, 253, 254, 255, 27, 202, 257, 258, 259, 260, 6 261, 262, 263, 264, 265, 266, 267, 268, 269, 270, 7 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 8 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, 9 291, 292, 293, 294, 295, 296, 297, 298, 299, 300/ data (jb1(i),i= 301, 400)/ + 301, 302, 303, 304, 305, 306, 307, 308, 120, 310, 1 311, 312, 313, 314, 315, 316, 317, 318, 319, 320, 2 321, 322, 323, 324, 325, 326, 327, 2, 328, 329, 3 330, 331, 310, 333, 334, 335, 332, 337, 338, 339, 4 340, 341, 342, 343, 344, 345, 346, 347, 348, 349, 5 350, 351, 310, 332, 353, 354, 355, 356, 357, 3, 6 359, 360, 361, 362, 363, 364, 365, 366, 367, 368, 7 369, 370, 371, 372, 373, 374, 375, 376, 377, 378, 8 379, 381, 382, 383, 384, 357, 386, 387, 388, 385, 9 337, 390, 385, 389, 392, 393, 394, 395, 396, 381/ data (jb1(i),i= 401, 500)/ + 398, 399, 400, 401, 402, 403, 404, 405, 406, 407, 1 380, 409, 410, 411, 412, 413, 414, 415, 416, 417, 2 418, 419, 420, 421, 422, 423, 424, 425, 426, 427, 3 428, 429, 430, 431, 432, 433, 434, 435, 398, 436, 4 437, 438, 439, 440, 441, 442, 443, 444, 445, 392, 5 446, 447, 448, 449, 450, 451, 452, 453, 454, 455, 6 456, 457, 458, 459, 460, 461, 462, 463, 464, 465, 7 466, 380, 337, 469, 468, 392, 470, 358, 468, 358, 8 473, 474, 475, 476, 477, 471, 479, 472, 398, 481, 9 409, 483, 484, 482, 473, 486, 487, 483, 469, 489/ data (jb1(i),i= 501, 600)/ + 490, 491, 492, 493, 494, 479, 409, 496, 497, 498, 1 499, 500, 501, 502, 504, 505, 506, 507, 508, 503, 2 504, 510, 511, 512, 513, 483, 10, 515, 516, 517, 3 489, 518, 504, 520, 521, 522, 523, 524, 525, 526, 4 527, 528, 529, 530, 531, 532, 533, 534, 535, 536, 5 537, 538, 539, 540, 541, 542, 473, 544, 545, 546, 6 547, 548, 549, 550, 551, 552, 553, 554, 555, 556, 7 557, 558, 559, 560, 561, 562, 563, 564, 565, 566, 8 567, 568, 569, 570, 571, 572, 573, 574, 575, 576, 9 577, 578, 579, 580, 581, 582, 583, 584, 585, 586/ data (jb1(i),i= 601, 700)/ + 587, 588, 589, 590, 591, 592, 593, 594, 595, 596, 1 597, 598, 599, 600, 601, 602, 603, 604, 605, 606, 2 607, 608, 609, 610, 611, 612, 479, 614, 615, 616, 3 617, 618, 619, 620, 621, 622, 623, 613, 510, 625, 4 626, 627, 628, 629, 630, 631, 632, 633, 634, 635, 5 636, 637, 638, 639, 640, 641, 642, 643, 644, 645, 6 646, 503, 648, 649, 650, 651, 652, 653, 654, 655, 7 656, 657, 658, 659, 660, 661, 662, 663, 664, 665, 8 666, 667, 668, 647, 613, 670, 671, 510, 673, 674, 9 675, 676, 677, 678, 679, 680, 681, 672, 683, 684/ data (jb1(i),i= 701, 800)/ + 685, 686, 682, 647, 688, 689, 690, 691, 692, 693, 1 694, 695, 696, 697, 698, 699, 700, 702, 703, 704, 2 705, 519, 543, 707, 708, 709, 710, 711, 712, 701, 3 682, 714, 715, 716, 717, 718, 719, 720, 721, 722, 4 723, 724, 725, 726, 727, 728, 730, 518, 730, 702, 5 732, 733, 734, 735, 731, 672, 737, 738, 739, 740, 6 741, 742, 743, 744, 745, 746, 747, 748, 749, 750, 7 751, 752, 753, 754, 755, 756, 757, 758, 759, 760, 8 761, 762, 763, 764, 765, 766, 767, 768, 769, 770, 9 771, 702, 543, 773, 774, 775, 776, 777, 778, 779/ data (jb1(i),i= 801, 900)/ + 780, 781, 782, 783, 12, 785, 786, 787, 784, 701, 1 789, 790, 791, 792, 793, 794, 795, 796, 797, 798, 2 799, 800, 801, 802, 803, 804, 805, 806, 807, 808, 3 809, 810, 811, 812, 813, 814, 815, 816, 817, 818, 4 819, 729, 821, 822, 820, 768, 824, 825, 826, 827, 5 828, 829, 830, 831, 832, 833, 834, 835, 836, 837, 6 838, 839, 840, 841, 842, 843, 844, 845, 846, 847, 7 848, 849, 850, 851, 852, 853, 854, 855, 856, 857, 8 858, 859, 860, 861, 729, 863, 864, 865, 866, 867, 9 868, 869, 870, 871, 872, 873, 874, 875, 876, 877/ data (jb1(i),i= 901, 1000)/ + 878, 879, 880, 881, 882, 883, 884, 885, 886, 887, 1 888, 889, 890, 891, 892, 893, 894, 895, 896, 897, 2 898, 899, 900, 901, 902, 903, 904, 905, 906, 862, 3 731, 774, 909, 910, 911, 912, 913, 914, 915, 916, 4 917, 918, 919, 921, 921, 922, 923, 924, 925, 926, 5 927, 784, 920, 820, 930, 931, 932, 933, 934, 935, 6 936, 937, 938, 939, 940, 941, 942, 943, 944, 945, 7 946, 947, 948, 949, 950, 951, 952, 929, 954, 955, 8 922, 920, 954, 862, 958, 959, 960, 961, 962, 963, 9 964, 965, 966, 967, 968, 969, 970, 861, 972, 973/ data (jb1(i),i= 1001, 1100)/ + 974, 975, 976, 977, 978, 979, 980, 981, 982, 983, 1 985, 986, 987, 929, 971, 989, 990, 991, 992, 993, 2 994, 995, 996, 997, 985, 908, 999, 1000, 1001, 1002, 3 984, 1004, 1005, 1006, 1007, 1008, 1009, 1010, 1011, 1012, 4 1013, 1014, 1015, 1016, 1017, 1018, 1019, 1020, 908, 1004, 5 984, 1023, 1024, 971, 1022, 1026, 1023, 1022, 1028, 1029, 6 1030, 1031, 954, 1033, 1034, 1035, 985, 1037, 1038, 1039, 7 1040, 1041, 1042, 1043, 1044, 1045, 1046, 1047, 1048, 1049, 8 1050, 1051, 1052, 1053, 1054, 1055, 1056, 1036, 15, 1058, 9 1059, 1060, 1061, 1062, 1063, 1064, 1065, 1066, 1067, 1068/ data (jb1(i),i= 1101, 1200)/ + 1069, 1070, 1071, 1072, 1073, 921, 1023, 1076, 1077, 1053, 1 1075, 1079, 1076, 1081, 1080, 1074, 1083, 1084, 1085, 1086, 2 1087, 1089, 1090, 1091, 1092, 1093, 1094, 1095, 1096, 1097, 3 1098, 1099, 1075, 1101, 1102, 1103, 1104, 1105, 1106, 1107, 4 1108, 1109, 1110, 1111, 1112, 1113, 1114, 1115, 1116, 1117, 5 1118, 1119, 1120, 1121, 1122, 1123, 1124, 1125, 1126, 1127, 6 1128, 1129, 1130, 1131, 1132, 1133, 1134, 1135, 1136, 1137, 7 1138, 1139, 1140, 1141, 1142, 1143, 1144, 1145, 1146, 1147, 8 1148, 1149, 1150, 1151, 1152, 1153, 1154, 1155, 1156, 1157, 9 1158, 1004, 1160, 1161, 1162, 1163, 1164, 1165, 1166, 1167/ data (jb1(i),i= 1201, 1300)/ + 1168, 1169, 1170, 1171, 1172, 1173, 1174, 1175, 1176, 1177, 1 1178, 1179, 1180, 1181, 1182, 1183, 1184, 1185, 1186, 1187, 2 1188, 1189, 1190, 1191, 1192, 1193, 1194, 1195, 1196, 1197, 3 1198, 1199, 1200, 1201, 1202, 1203, 1204, 1205, 1206, 1207, 4 1208, 1209, 1210, 1211, 1212, 1213, 1214, 1215, 1216, 1217, 5 1218, 1219, 1220, 1221, 1222, 1223, 1224, 1225, 1226, 1227, 6 1228, 1229, 1230, 1231, 1232, 1233, 1234, 1235, 1236, 1003, 7 1160, 1238, 1239, 1240, 1241, 1242, 1101, 1088, 1244, 1245, 8 1246, 1247, 1036, 1249, 1250, 1251, 1252, 1253, 1254, 1255, 9 1256, 1257, 1258, 1259, 1260, 1261, 1262, 1248, 1160, 1264/ data (jb1(i),i= 1301, 1400)/ + 1032, 1248, 1266, 1267, 1268, 1269, 1270, 1271, 1272, 1273, 1 1274, 1275, 1276, 1277, 1278, 1279, 1280, 1281, 1282, 16, 2 1284, 1285, 1286, 1287, 1288, 1289, 1290, 1291, 1292, 1088, 3 1076, 1283, 1295, 1296, 1297, 1298, 1299, 1300, 1301, 1302, 4 1303, 1304, 1305, 1306, 1307, 1308, 1309, 1310, 1311, 1312, 5 1313, 1314, 1315, 1316, 1317, 1318, 1319, 1320, 1321, 1322, 6 1323, 1324, 1325, 1326, 1327, 1328, 1329, 1330, 1331, 1332, 7 1333, 1294, 1294, 1335, 1336, 1337, 1338, 1339, 1340, 1080, 8 1342, 1343, 1344, 1345, 1346, 1347, 1348, 1349, 1350, 1351, 9 1352, 1353, 1354, 1355, 1356, 1357, 1358, 1359, 1360, 1361/ data (jb1(i),i= 1401, 1500)/ + 1362, 1363, 1364, 1365, 1366, 1367, 1368, 1369, 1370, 1371, 1 1372, 1373, 1374, 1375, 1376, 1377, 1378, 1379, 1380, 1381, 2 1341, 1101, 1383, 1384, 1385, 1386, 1387, 1388, 1389, 1390, 3 1391, 1392, 1393, 1394, 1395, 1396, 1397, 1398, 1399, 1089, 4 1032, 1283, 1401, 1402, 1403, 1404, 1405, 1406, 1089, 1288, 5 1407, 1410, 1411, 1412, 1413, 1414, 1409, 1408, 1416, 1417, 6 1418, 1419, 1420, 1421, 1422, 1423, 1424, 1425, 1426, 1427, 7 1428, 1429, 1430, 1431, 1432, 1433, 1434, 1435, 1436, 1437, 8 1438, 1439, 1441, 1409, 18, 1443, 1444, 1445, 1446, 1447, 9 1448, 1449, 1450, 1451, 1452, 1441, 1407, 1454, 1455, 1456/ data (jb1(i),i= 1501, 1600)/ + 1341, 1458, 1459, 1460, 1461, 1462, 1463, 1464, 1465, 1466, 1 1467, 1468, 1357, 1470, 1471, 1472, 1473, 1474, 1475, 1476, 2 1477, 1478, 1440, 1399, 1480, 1481, 1482, 1483, 1484, 1485, 3 1486, 1487, 1488, 1489, 1490, 1491, 1492, 1493, 1494, 1495, 4 1496, 1497, 1498, 1499, 1500, 1501, 1502, 1503, 1504, 1505, 5 1506, 1507, 1508, 1509, 1510, 1408, 1512, 1513, 1514, 1515, 6 1516, 1517, 1511, 1457, 1519, 1520, 1521, 1469, 1523, 1469, 7 1525, 1440, 1523, 1441, 1527, 1528, 1529, 1530, 1531, 1532, 8 1533, 1534, 1535, 1536, 1537, 1538, 1539, 1540, 1541, 1542, 9 1543, 1544, 1545, 1546, 1547, 1548, 1549, 1550, 1551, 1552/ data (jb1(i),i= 1601, 1700)/ + 1553, 1554, 1555, 1457, 1511, 1557, 1558, 1559, 1560, 1561, 1 1562, 1563, 1564, 1565, 1566, 1567, 1568, 1569, 1570, 1571, 2 1572, 1573, 1574, 1575, 1576, 1577, 1578, 1579, 1580, 1581, 3 1525, 1583, 1518, 1585, 1586, 1587, 1588, 1584, 1590, 1591, 4 1592, 1593, 1594, 1595, 1584, 1582, 1590, 1597, 1598, 1599, 5 1600, 1601, 1602, 1603, 1604, 1605, 1606, 1541, 1597, 1608, 6 1520, 1610, 1611, 1612, 1613, 1614, 1615, 1616, 1617, 1618, 7 1619, 1620, 1621, 1609, 1523, 1623, 1624, 1625, 1626, 1627, 8 1628, 1629, 1630, 1631, 1632, 1633, 1634, 1635, 1636, 1637, 9 1596, 1608, 1640, 1641, 1642, 1643, 1609, 1633, 1645, 1646/ data (jb1(i),i= 1701, 1800)/ + 1647, 1648, 1649, 1650, 1651, 1652, 1653, 1640, 1590, 1655, 1 1589, 1656, 1657, 1658, 1659, 1660, 1661, 1662, 1663, 1664, 2 1665, 1666, 1667, 1668, 1669, 1670, 1671, 1672, 1673, 1674, 3 1675, 1676, 1677, 1678, 1679, 1680, 1681, 1682, 1596, 1684, 4 1685, 1686, 1687, 1688, 1689, 1690, 1691, 1692, 1693, 1694, 5 1695, 1696, 1697, 1698, 1699, 1700, 1701, 1702, 1703, 1704, 6 1705, 1706, 1707, 1708, 1709, 1683, 1711, 1712, 1713, 1714, 7 1715, 1716, 1717, 1718, 1710, 1720, 1721, 1722, 1723, 1724, 8 1725, 1726, 1727, 1728, 1655, 1639, 1730, 1731, 1732, 1733, 9 1734, 1735, 1736, 1737, 1738, 1739, 1740, 1741, 1742, 1743/ data (jb1(i),i= 1801, 1900)/ + 1744, 1745, 1746, 1747, 1748, 1749, 1750, 1751, 1752, 1753, 1 1754, 1755, 1756, 1757, 1758, 1759, 1760, 1761, 1762, 1763, 2 1764, 1765, 1766, 1767, 1768, 1769, 1770, 1771, 1772, 1773, 3 1774, 1775, 1776, 1777, 1778, 1779, 1780, 1781, 1782, 1783, 4 1784, 1582, 1640, 1787, 1788, 1789, 1790, 1791, 1792, 1634, 5 1683, 1794, 1795, 1796, 1797, 1798, 1799, 1800, 1801, 1802, 6 1803, 1804, 1805, 1806, 1807, 1808, 1809, 1810, 1811, 1812, 7 1813, 1814, 1815, 1816, 1730, 1639, 1818, 1819, 1820, 1786, 8 1710, 1822, 1823, 1824, 1825, 1826, 1827, 1828, 1829, 1830, 9 1831, 1832, 1833, 1834, 1787, 1730, 1836, 1837, 1838, 1839/ data (jb1(i),i= 1901, 2000)/ + 1840, 1841, 23, 1720, 1715, 1843, 1786, 1787, 1844, 1845, 1 1837, 1846, 1847, 1848, 1849, 1850, 1851, 1852, 1853, 1854, 2 1855, 1856, 1857, 1858, 1859, 1860, 1861, 1862, 1863, 1864, 3 1865, 1866, 1867, 1868, 1869, 1870, 1871, 1872, 1873, 1874, 4 1875, 1876, 1877, 1878, 1, 2, 3, 1, 5, 6, 5 7, 5, 9, 10, 11, 12, 13, 14, 9, 16, 6 17, 16, 19, 20, 21, 22, 19, 24, 25, 26, 7 24, 28, 29, 30, 28, 32, 33, 34, 35, 36, 8 32, 38, 39, 38, 41, 42, 41, 44, 45, 44, 9 47, 48, 47, 50, 51, 52, 50, 54, 55, 56/ data (jb1(i),i= 2001, 2020)/ + 54, 58, 59, 60, 61, 62, 63, 64, 65, 66, 1 67, 68, 69, 58, 71, 72, 71, 0, 0, 0/ data (jb2(i),i= 1, 100)/ + 28, 29, 30, 31, 31, 4, 4, 32, 32, 5, 1 7, 8, 10, 9, 11, 12, 13, 33, 34, 35, 2 36, 37, 38, 39, 40, 40, 14, 41, 42, 43, 3 44, 45, 46, 47, 48, 49, 50, 51, 52, 52, 4 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 5 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 6 73, 74, 75, 76, 77, 77, 17, 78, 79, 80, 7 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 8 90, 91, 91, 92, 93, 94, 95, 96, 97, 98, 9 99, 100, 101, 102, 103, 104, 105, 105, 22, 106/ data (jb2(i),i= 101, 200)/ + 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 1 117, 117, 118, 119, 119, 25, 26, 121, 122, 123, 2 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 3 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 4 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 5 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 6 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 7 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 8 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 9 193, 194, 195, 196, 197, 198, 199, 200, 201, 201/ data (jb2(i),i= 201, 300)/ + 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 1 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 2 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 3 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 4 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 5 253, 254, 255, 256, 256, 257, 258, 259, 260, 261, 6 262, 263, 264, 265, 266, 267, 268, 269, 270, 271, 7 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 8 282, 283, 284, 285, 286, 287, 288, 289, 290, 291, 9 292, 293, 294, 295, 296, 297, 298, 299, 300, 301/ data (jb2(i),i= 301, 400)/ + 302, 303, 304, 305, 306, 307, 308, 309, 309, 311, 1 312, 313, 314, 315, 316, 317, 318, 319, 320, 321, 2 322, 323, 324, 325, 326, 327, 1, 328, 329, 330, 3 331, 332, 333, 334, 335, 336, 336, 338, 339, 340, 4 341, 342, 343, 344, 345, 346, 347, 348, 349, 350, 5 351, 352, 352, 353, 354, 355, 356, 357, 358, 359, 6 360, 361, 362, 363, 364, 365, 366, 367, 368, 369, 7 370, 371, 372, 373, 374, 375, 376, 377, 378, 379, 8 380, 382, 383, 384, 385, 386, 387, 388, 389, 4, 9 390, 5, 391, 391, 393, 394, 395, 396, 397, 397/ data (jb2(i),i= 401, 500)/ + 399, 400, 401, 402, 403, 404, 405, 406, 407, 408, 1 408, 410, 411, 412, 413, 414, 415, 416, 417, 418, 2 419, 420, 421, 422, 423, 424, 425, 426, 427, 428, 3 429, 430, 431, 432, 433, 434, 435, 6, 436, 437, 4 438, 439, 440, 441, 442, 443, 444, 445, 7, 446, 5 447, 448, 449, 450, 451, 452, 453, 454, 455, 456, 6 457, 458, 459, 460, 461, 462, 463, 464, 465, 466, 7 467, 467, 468, 8, 469, 470, 471, 471, 472, 472, 8 474, 475, 476, 477, 478, 478, 480, 480, 481, 482, 9 482, 484, 485, 485, 486, 487, 488, 488, 489, 490/ data (jb2(i),i= 501, 600)/ + 491, 492, 493, 494, 495, 495, 496, 497, 498, 499, 1 500, 501, 502, 503, 505, 506, 507, 508, 9, 509, 2 509, 511, 512, 513, 514, 514, 515, 516, 517, 518, 3 519, 519, 520, 521, 522, 523, 524, 525, 526, 527, 4 528, 529, 530, 531, 532, 533, 534, 535, 536, 537, 5 538, 539, 540, 541, 542, 543, 544, 545, 546, 547, 6 548, 549, 550, 551, 552, 553, 554, 555, 556, 557, 7 558, 559, 560, 561, 562, 563, 564, 565, 566, 567, 8 568, 569, 570, 571, 572, 573, 574, 575, 576, 577, 9 578, 579, 580, 581, 582, 583, 584, 585, 586, 587/ data (jb2(i),i= 601, 700)/ + 588, 589, 590, 591, 592, 593, 594, 595, 596, 597, 1 598, 599, 600, 601, 602, 603, 604, 605, 606, 607, 2 608, 609, 610, 611, 612, 613, 614, 615, 616, 617, 3 618, 619, 620, 621, 622, 623, 624, 624, 625, 626, 4 627, 628, 629, 630, 631, 632, 633, 634, 635, 636, 5 637, 638, 639, 640, 641, 642, 643, 644, 645, 646, 6 647, 648, 649, 650, 651, 652, 653, 654, 655, 656, 7 657, 658, 659, 660, 661, 662, 663, 664, 665, 666, 8 667, 668, 669, 669, 670, 671, 672, 673, 674, 675, 9 676, 677, 678, 679, 680, 681, 682, 683, 684, 685/ data (jb2(i),i= 701, 800)/ + 686, 687, 687, 688, 689, 690, 691, 692, 693, 694, 1 695, 696, 697, 698, 699, 700, 701, 703, 704, 705, 2 706, 706, 707, 708, 709, 710, 711, 712, 713, 713, 3 714, 715, 716, 717, 718, 719, 720, 721, 722, 723, 4 724, 725, 726, 727, 728, 729, 731, 730, 11, 732, 5 733, 734, 735, 736, 736, 737, 738, 739, 740, 741, 6 742, 743, 744, 745, 746, 747, 748, 749, 750, 751, 7 752, 753, 754, 755, 756, 757, 758, 759, 760, 761, 8 762, 763, 764, 765, 766, 767, 768, 769, 770, 771, 9 772, 772, 773, 774, 775, 776, 777, 778, 779, 780/ data (jb2(i),i= 801, 900)/ + 781, 782, 783, 784, 785, 786, 787, 788, 788, 789, 1 790, 791, 792, 793, 794, 795, 796, 797, 798, 799, 2 800, 801, 802, 803, 804, 805, 806, 807, 808, 809, 3 810, 811, 812, 813, 814, 815, 816, 817, 818, 819, 4 820, 821, 822, 823, 823, 824, 825, 826, 827, 828, 5 829, 830, 831, 832, 833, 834, 835, 836, 837, 838, 6 839, 840, 841, 842, 843, 844, 845, 846, 847, 848, 7 849, 850, 851, 852, 853, 854, 855, 856, 857, 858, 8 859, 860, 861, 862, 863, 864, 865, 866, 867, 868, 9 869, 870, 871, 872, 873, 874, 875, 876, 877, 878/ data (jb2(i),i= 901, 1000)/ + 879, 880, 881, 882, 883, 884, 885, 886, 887, 888, 1 889, 890, 891, 892, 893, 894, 895, 896, 897, 898, 2 899, 900, 901, 902, 903, 904, 905, 906, 907, 907, 3 908, 909, 910, 911, 912, 913, 914, 915, 916, 917, 4 918, 919, 920, 13, 922, 923, 924, 925, 926, 927, 5 928, 928, 929, 930, 931, 932, 933, 934, 935, 936, 6 937, 938, 939, 940, 941, 942, 943, 944, 945, 946, 7 947, 948, 949, 950, 951, 952, 953, 953, 955, 956, 8 956, 957, 957, 958, 959, 960, 961, 962, 963, 964, 9 965, 966, 967, 968, 969, 970, 971, 972, 973, 974/ data (jb2(i),i= 1001, 1100)/ + 975, 976, 977, 978, 979, 980, 981, 982, 983, 984, 1 986, 987, 988, 988, 989, 990, 991, 992, 993, 994, 2 995, 996, 997, 998, 998, 999, 1000, 1001, 1002, 1003, 3 1003, 1005, 1006, 1007, 1008, 1009, 1010, 1011, 1012, 1013, 4 1014, 1015, 1016, 1017, 1018, 1019, 1020, 1021, 1021, 14, 5 1022, 1024, 1025, 1025, 1026, 1027, 1027, 1028, 1029, 1030, 6 1031, 1032, 1033, 1034, 1035, 1036, 1037, 1038, 1039, 1040, 7 1041, 1042, 1043, 1044, 1045, 1046, 1047, 1048, 1049, 1050, 8 1051, 1052, 1053, 1054, 1055, 1056, 1057, 1057, 1058, 1059, 9 1060, 1061, 1062, 1063, 1064, 1065, 1066, 1067, 1068, 1069/ data (jb2(i),i= 1101, 1200)/ + 1070, 1071, 1072, 1073, 1074, 1074, 1075, 1077, 1078, 1078, 1 1079, 1080, 1081, 1082, 1082, 1083, 1084, 1085, 1086, 1087, 2 1088, 1090, 1091, 1092, 1093, 1094, 1095, 1096, 1097, 1098, 3 1099, 1100, 1100, 1102, 1103, 1104, 1105, 1106, 1107, 1108, 4 1109, 1110, 1111, 1112, 1113, 1114, 1115, 1116, 1117, 1118, 5 1119, 1120, 1121, 1122, 1123, 1124, 1125, 1126, 1127, 1128, 6 1129, 1130, 1131, 1132, 1133, 1134, 1135, 1136, 1137, 1138, 7 1139, 1140, 1141, 1142, 1143, 1144, 1145, 1146, 1147, 1148, 8 1149, 1150, 1151, 1152, 1153, 1154, 1155, 1156, 1157, 1158, 9 1159, 1159, 1161, 1162, 1163, 1164, 1165, 1166, 1167, 1168/ data (jb2(i),i= 1201, 1300)/ + 1169, 1170, 1171, 1172, 1173, 1174, 1175, 1176, 1177, 1178, 1 1179, 1180, 1181, 1182, 1183, 1184, 1185, 1186, 1187, 1188, 2 1189, 1190, 1191, 1192, 1193, 1194, 1195, 1196, 1197, 1198, 3 1199, 1200, 1201, 1202, 1203, 1204, 1205, 1206, 1207, 1208, 4 1209, 1210, 1211, 1212, 1213, 1214, 1215, 1216, 1217, 1218, 5 1219, 1220, 1221, 1222, 1223, 1224, 1225, 1226, 1227, 1228, 6 1229, 1230, 1231, 1232, 1233, 1234, 1235, 1236, 1237, 1237, 7 1238, 1239, 1240, 1241, 1242, 1243, 1243, 1244, 1245, 1246, 8 1247, 1248, 1249, 1250, 1251, 1252, 1253, 1254, 1255, 1256, 9 1257, 1258, 1259, 1260, 1261, 1262, 1263, 1263, 1264, 1265/ data (jb2(i),i= 1301, 1400)/ + 1265, 1266, 1267, 1268, 1269, 1270, 1271, 1272, 1273, 1274, 1 1275, 1276, 1277, 1278, 1279, 1280, 1281, 1282, 1283, 1284, 2 1285, 1286, 1287, 1288, 1289, 1290, 1291, 1292, 1293, 1293, 3 1294, 1295, 1296, 1297, 1298, 1299, 1300, 1301, 1302, 1303, 4 1304, 1305, 1306, 1307, 1308, 1309, 1310, 1311, 1312, 1313, 5 1314, 1315, 1316, 1317, 1318, 1319, 1320, 1321, 1322, 1323, 6 1324, 1325, 1326, 1327, 1328, 1329, 1330, 1331, 1332, 1333, 7 1334, 1334, 1335, 1336, 1337, 1338, 1339, 1340, 1341, 1342, 8 1343, 1344, 1345, 1346, 1347, 1348, 1349, 1350, 1351, 1352, 9 1353, 1354, 1355, 1356, 1357, 1358, 1359, 1360, 1361, 1362/ data (jb2(i),i= 1401, 1500)/ + 1363, 1364, 1365, 1366, 1367, 1368, 1369, 1370, 1371, 1372, 1 1373, 1374, 1375, 1376, 1377, 1378, 1379, 1380, 1381, 1382, 2 1382, 1383, 1384, 1385, 1386, 1387, 1388, 1389, 1390, 1391, 3 1392, 1393, 1394, 1395, 1396, 1397, 1398, 1399, 17, 1400, 4 1400, 1401, 1402, 1403, 1404, 1405, 1406, 1407, 1408, 1409, 5 1410, 1411, 1412, 1413, 1414, 1415, 1415, 1416, 1417, 1418, 6 1419, 1420, 1421, 1422, 1423, 1424, 1425, 1426, 1427, 1428, 7 1429, 1430, 1431, 1432, 1433, 1434, 1435, 1436, 1437, 1438, 8 1439, 1440, 1442, 1442, 1443, 1444, 1445, 1446, 1447, 1448, 9 1449, 1450, 1451, 1452, 1453, 1453, 1454, 1455, 1456, 1457/ data (jb2(i),i= 1501, 1600)/ + 1458, 1459, 1460, 1461, 1462, 1463, 1464, 1465, 1466, 1467, 1 1468, 1469, 1470, 1471, 1472, 1473, 1474, 1475, 1476, 1477, 2 1478, 1479, 1479, 1480, 1481, 1482, 1483, 1484, 1485, 1486, 3 1487, 1488, 1489, 1490, 1491, 1492, 1493, 1494, 1495, 1496, 4 1497, 1498, 1499, 1500, 1501, 1502, 1503, 1504, 1505, 1506, 5 1507, 1508, 1509, 1510, 1511, 1512, 1513, 1514, 1515, 1516, 6 1517, 1518, 1518, 1519, 1520, 1521, 1522, 1522, 1524, 1524, 7 1526, 1526, 1525, 1527, 1528, 1529, 1530, 1531, 1532, 1533, 8 1534, 1535, 1536, 1537, 1538, 1539, 1540, 1541, 1542, 1543, 9 1544, 1545, 1546, 1547, 1548, 1549, 1550, 1551, 1552, 1553/ data (jb2(i),i= 1601, 1700)/ + 1554, 1555, 1556, 1556, 1557, 1558, 1559, 1560, 1561, 1562, 1 1563, 1564, 1565, 1566, 1567, 1568, 1569, 1570, 1571, 1572, 2 1573, 1574, 1575, 1576, 1577, 1578, 1579, 1580, 1581, 1582, 3 1583, 1584, 1585, 1586, 1587, 1588, 1589, 1589, 1591, 1592, 4 1593, 1594, 1595, 19, 1596, 20, 1597, 1598, 1599, 1600, 5 1601, 1602, 1603, 1604, 1605, 1606, 1607, 1607, 1608, 1609, 6 1610, 1611, 1612, 1613, 1614, 1615, 1616, 1617, 1618, 1619, 7 1620, 1621, 1622, 1622, 1623, 1624, 1625, 1626, 1627, 1628, 8 1629, 1630, 1631, 1632, 1633, 1634, 1635, 1636, 1637, 1638, 9 1638, 1639, 1641, 1642, 1643, 1644, 1644, 1645, 1646, 1647/ data (jb2(i),i= 1701, 1800)/ + 1648, 1649, 1650, 1651, 1652, 1653, 1654, 1654, 1655, 21, 1 1656, 1657, 1658, 1659, 1660, 1661, 1662, 1663, 1664, 1665, 2 1666, 1667, 1668, 1669, 1670, 1671, 1672, 1673, 1674, 1675, 3 1676, 1677, 1678, 1679, 1680, 1681, 1682, 1683, 1684, 1685, 4 1686, 1687, 1688, 1689, 1690, 1691, 1692, 1693, 1694, 1695, 5 1696, 1697, 1698, 1699, 1700, 1701, 1702, 1703, 1704, 1705, 6 1706, 1707, 1708, 1709, 1710, 1711, 1712, 1713, 1714, 1715, 7 1716, 1717, 1718, 1719, 1719, 1721, 1722, 1723, 1724, 1725, 8 1726, 1727, 1728, 1729, 1729, 1720, 1731, 1732, 1733, 1734, 9 1735, 1736, 1737, 1738, 1739, 1740, 1741, 1742, 1743, 1744/ data (jb2(i),i= 1801, 1900)/ + 1745, 1746, 1747, 1748, 1749, 1750, 1751, 1752, 1753, 1754, 1 1755, 1756, 1757, 1758, 1759, 1760, 1761, 1762, 1763, 1764, 2 1765, 1766, 1767, 1768, 1769, 1770, 1771, 1772, 1773, 1774, 3 1775, 1776, 1777, 1778, 1779, 1780, 1781, 1782, 1783, 1784, 4 1785, 1785, 1786, 1788, 1789, 1790, 1791, 1792, 1793, 1793, 5 1794, 1795, 1796, 1797, 1798, 1799, 1800, 1801, 1802, 1803, 6 1804, 1805, 1806, 1807, 1808, 1809, 1810, 1811, 1812, 1813, 7 1814, 1815, 1816, 1817, 1817, 1818, 1819, 1820, 1821, 1821, 8 1822, 1823, 1824, 1825, 1826, 1827, 1828, 1829, 1830, 1831, 9 1832, 1833, 1834, 1835, 1835, 1836, 1837, 1838, 1839, 1840/ data (jb2(i),i= 1901, 2000)/ + 1841, 22, 1842, 1842, 1843, 24, 25, 1844, 1845, 26, 1 1846, 1847, 1848, 1849, 1850, 1851, 1852, 1853, 1854, 1855, 2 1856, 1857, 1858, 1859, 1860, 1861, 1862, 1863, 1864, 1865, 3 1866, 1867, 1868, 1869, 1870, 1871, 1872, 1873, 1874, 1875, 4 1876, 1877, 1878, 27, 2, 3, 4, 4, 6, 7, 5 8, 8, 10, 11, 12, 13, 14, 15, 15, 17, 6 18, 18, 20, 21, 22, 23, 23, 25, 26, 27, 7 27, 29, 30, 31, 31, 33, 34, 35, 36, 37, 8 37, 39, 40, 40, 42, 43, 43, 45, 46, 46, 9 48, 49, 49, 51, 52, 53, 53, 55, 56, 57/ data (jb2(i),i= 2001, 2020)/ + 57, 59, 60, 61, 62, 63, 64, 65, 66, 67, 1 68, 69, 70, 70, 72, 73, 73, 0, 0, 0/ c state=istate irot=jrot npart=ipart do i=1,5 jv(i)=kv(i) jb(i)=kb(i) ib(i)=iib(i) enddo do i=1,jv(npart+1)-1 ix(i)=jx(i) iy(i)=jy(i) enddo do i=1,jb(npart+1)-1 ib1(i)=jb1(i) ib2(i)=jb2(i) enddo return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine ak(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(*) :: jv,jb,ib,ix,iy,ib1,ib2 integer(kind=iknd), save, dimension(5) :: kv,kb,iib integer(kind=iknd), save, dimension(1900) :: jx,jy,jb1,jb2 integer(kind=iknd), save :: jrot,ipart character(len=80) :: state character(len=80), save :: istate cy data istate/'alaska '/ data jrot,ipart/0,2/ data kv/ 1,1172,1901, 0, 0/ data kb/ 1,1172,1901, 0, 0/ data iib/1171, 729, 0, 0, 0/ data (jx(i),i= 1, 100)/ + 11304,11304,11184,11280,11352,11304,11328,11304,11376,11304, 1 11304,11280,11256,11280,11280,11304,11376,11256,11280,11280, 2 11304,11256,11256,11232,11250,11232,11304,11304,11400,11352, 3 11328,11328,11304,11232,11232,11184,11208,11160,11232,11184, 4 11136,11112,10968,10752,10752,10776,10704,10656,10656,10632, 5 10560,10536,10584,10608,10536,10488,10608,10608,10656,10656, 6 10704,10704,10704,10800,10800,10728,10872,10920,10896,10992, 7 10992,11016,10896,10992,10944,10968,10872,10728,10728,10656, 8 10656,10632,10608,10584,10704,10656,10632,10608,10560,10608, 9 10608,10632,10632,10704,10752,10584,10588,10550,10550,10536/ data (jx(i),i= 101, 200)/ + 10488,10488,10512,10440,10440,10488,10488,10464,10392,10392, 1 10416,10416,10512,10440,10440,10560,10536,10560,10752,10790, 2 10790,10848,10848,10848,10800,10824,10800,10920,10824,10824, 3 10848,10824,10872,10968,10920,10968,11040,11112,11136,11160, 4 11088,11160,11208,11280,11376,11376,11472,11472,11544,11496, 5 11736,11832,11856,11832,11832,11784,11784,11712,11736,11832, 6 11808,11880,11904,11832,11808,11760,11736,11688,11640,11592, 7 11472,11472,11424,11400,11424,11376,11352,11304,11376,11328, 8 11256,11088,10992,11016,10968,10968,10944,10982,10920,10680, 9 10632,10656,10608,10584,10584,10608,10594,10632,10656,10680/ data (jx(i),i= 201, 300)/ + 10680,10704,10776,10656,10488,10368,10368,10440,10392,10392, 1 10440,10512,10512,10560,10632,10656,10656,10680,10704,10824, 2 10896,10968,10896,10944,11064,11088,11184,11232,11256,11352, 3 11400,11328,11376,11328,11328,11256,11304,11328,11352,11544, 4 11568,11688,11736,11736,11760,11832,11904,11904,11928,11904, 5 11784,11756,11760,11736,11736,11760,11760,11712,11640,11640, 6 11664,11688,11760,11736,11832,11904,11976,12096,12120,12096, 7 12120,12048,11976,11928,11904,11832,11760,11808,11856,11808, 8 11712,11664,11712,11712,11640,11424,11424,11400,11280,11184, 9 11064,11016,10920,11016,11016,11064,11064,11088,11448,11616/ data (jx(i),i= 301, 400)/ + 11688,11664,11712,11736,11712,11760,11760,11760,11976,12024, 1 12000,12000,11976,11952,12024,12048,12168,12168,12312,12360, 2 12360,12312,12360,12312,12336,12360,12360,12384,12408,12480, 3 12384,12380,12336,12408,12480,12504,12504,12456,12480,12480, 4 12528,12528,12600,12648,12624,12744,12840,12936,12984,13008, 5 12970,12984,13056,13056,13056,13080,13128,13152,13104,13032, 6 13056,13056,13080,13080,13128,13152,13176,13200,13200,13224, 7 13224,13248,13320,13296,13272,13392,13440,13560,13632,13704, 8 13728,13680,13680,13752,13656,13824,13800,13824,13776,13920, 9 13920,13992,14064,14064,14160,14232,14376,14400,14448,14520/ data (jx(i),i= 401, 500)/ + 14568,14904,14952,15072,15216,15264,15360,15504,15576,15672, 1 15744,15768,15768,15768,15816,15936,16200,16608,16776,16896, 2 16920,17040,17112,17256,17256,17400,17448,17784,17856,17976, 3 18048,18048,18072,18024,18096,18048,18192,18240,18384,18408, 4 18384,18432,18432,18456,18528,18576,18600,18648,18696,18816, 5 18984,19008,19080,19104,19440,19488,19488,19584,19584,19656, 6 19704,19776,19944,19968,20040,20088,20160,20184,20280,20328, 7 20328,20376,20448,20424,20424,20376,20376,20352,20304,20328, 8 20304,20280,20256,20208,20256,20280,20256,20232,20184,20160, 9 20184,20280,20256,20208,20136,20088,20112,20088,19992,20016/ data (jx(i),i= 501, 600)/ + 19968,19920,19824,19800,19824,19824,19776,19800,19824,19728, 1 19680,19704,19728,19704,19728,19714,19728,19734,19824,19704, 2 19656,19608,19584,19536,19536,19488,19488,19464,19488,19464, 3 19368,19296,19344,19320,19296,19224,19224,19200,19176,19176, 4 19104,19104,19176,19200,19176,19104,19104,19080,19056,19104, 5 19032,18990,18984,19008,18984,18984,18960,18960,18936,18864, 6 18840,18840,18840,18850,18864,18816,18816,18696,18624,18624, 7 18528,18552,18528,18504,18456,18432,18336,18336,18288,18340, 8 18384,18336,18312,18360,18384,18480,18480,18552,18576,18504, 9 18432,18456,18408,18336,18336,18312,18336,18312,18336,18240/ data (jx(i),i= 601, 700)/ + 18288,18240,18240,18216,18168,18192,18216,18192,18144,18168, 1 18120,18096,18072,18072,17948,18000,17952,17952,17976,18072, 2 18120,18144,18120,18168,18144,18192,18192,18264,18240,18264, 3 18312,18288,18240,18216,18168,18168,18192,18216,18144,18168, 4 18168,18144,18144,18096,18072,18072,18048,18024,17856,17880, 5 17832,17736,17712,17616,17544,17568,17520,17352,17376,17328, 6 17328,17160,17208,17232,17184,17184,17256,17256,17294,17280, 7 17304,17304,17266,17376,17280,17164,17164,17112,16992,16824, 8 16704,16728,16728,16680,16704,16632,16344,16056,15984,16032, 9 15960,15960,15864,15816,15768,15792,15792,15768,15792,15768/ data (jx(i),i= 701, 800)/ + 15696,15648,15576,15504,15552,15528,15504,15504,15480,15480, 1 15408,15456,15456,15408,15384,15336,15288,15288,15432,15384, 2 15360,15288,15288,15264,15312,15264,15288,15312,15288,15384, 3 15360,15288,15216,15192,15192,15168,15144,15120,15144,15120, 4 15096,15096,15096,15072,15072,15048,15048,15024,15024,15000, 5 14976,14928,15000,15000,14928,14904,14832,14856,14832,14904, 6 14880,14856,14880,14880,14856,14784,14832,14784,14784,14784, 7 14856,14856,14904,14904,14880,14832,14808,14856,14904,14904, 8 14904,14928,14928,14976,14952,14928,14928,14904,14928,14904, 9 14904,14880,14952,14928,14952,14952,14928,14904,14904,14880/ data (jx(i),i= 801, 900)/ + 14880,14856,14736,14712,14736,14712,14688,14664,14640,14640, 1 14602,14616,14592,14592,14568,14568,14544,14496,14544,14544, 2 14472,14496,14496,14472,14448,14448,14424,14424,14376,14424, 3 14352,14328,14352,14304,14328,14304,14328,14232,14256,14232, 4 14208,14160,14184,14112,14040,14016,13968,13968,13992,13968, 5 14040,14112,14088,14160,14160,14208,14088,14112,13992,14016, 6 14088,14088,14112,14112,14088,14160,14328,14424,14472,14688, 7 14640,14592,14424,14496,14616,14496,14448,14424,14304,14280, 8 14280,14184,14184,14136,13992,13968,14016,13968,13920,13848, 9 13848,13872,13824,13776,13704,13704,13800,13752,13632,13680/ data (jx(i),i= 901, 1000)/ + 13680,13632,13570,13608,13560,13560,13488,13536,13488,13488, 1 13368,13440,13392,13392,13344,13368,13368,13416,13488,13584, 2 13608,13584,13608,13584,13560,13464,13440,13464,13416,13440, 3 13344,13416,13368,13392,13392,13368,13368,13344,13344,13296, 4 13320,13272,13296,13272,13248,13224,13152,13128,13128,13080, 5 13080,12984,12984,12984,12936,12960,12864,12864,12840,12864, 6 12816,12720,12720,12768,12720,12744,12744,12720,12696,12672, 7 12696,12624,12600,12576,12576,12528,12504,12504,12480,12432, 8 12432,12384,12408,12408,12360,12336,12240,12216,12216,12144, 9 12072,12096,12096,12120,12192,12144,12144,12216,12144,12120/ data (jx(i),i= 1001, 1100)/ + 12072,12072,12048,12048,12024,12048,12048,12000,11976,11832, 1 11808,11808,11784,11760,11736,11712,11736,11760,11736,11760, 2 11688,11688,11640,11616,11592,11592,11520,11520,11472,11472, 3 11400,11448,11424,11400,11376,11256,11184,11184,11232,11304, 4 11184,11136,11112,11040,11016,11016,10992,10992,10944,10944, 5 10872,10848,10896,10848,10848,10800,10848,10824,10776,10752, 6 10704,10728,10656,10656,10680,10584,10584,10632,10608,10608, 7 10608,10704,10848,10848,10800,11088,11256,11208,11232,11352, 8 11352,11304,11328,11328,11352,11376,11376,11448,11472,11544, 9 11712,11904,11880,11880,12000,11976,12024,12048,12048,12072/ data (jx(i),i= 1101, 1200)/ + 12168,12240,12288,12360,12360,12384,12432,12384,12360,12384, 1 12456,12528,12480,12432,12408,12408,12504,12600,12552,12600, 2 12624,12648,12624,12604,12552,12528,12240,12264,12240,12240, 3 12168,12192,12216,12216,12288,12336,12312,12216,12192,12216, 4 12144,12130,12144,12120,12120,12120,12096,12110,12096,12072, 5 12120,12096,12024,11952,11880,11904,11856,11856,11808,11784, 6 11736,11712,11736,11712,11568,11544,11448,11448,11424,11400, 7 11424,19008,18840,18864,18840,18840,18816,18816,18792,18816, 8 18768,18768,18744,18696,18672,18696,18648,18624,18648,18624, 9 18624,18576,18538,18552,18558,18600,18600,18576,18648,18648/ data (jx(i),i= 1201, 1300)/ + 18696,18720,18696,18720,18768,18912,18552,18528,18552,18528, 1 18504,18552,18600,18576,18600,18600,19176,19128,19128,19104, 2 19104,19080,19080,19080,19104,19104,19128,19128,19108,19056, 3 19104,19056,19056,19032,19008,18984,19032,19008,19080,19008, 4 19104,19128,19135,19128,19152,19152,19200,19176,19224,19224, 5 19152,19176,19176,19224,19200,19224,19176,19200,19224,19224, 6 19224,19200,19176,19176,19152,19176,13752,13632,13632,13728, 7 13656,13680,13752,13752,13728,13776,13776,13824,13848,13872, 8 13944,13920,13968,13968,13944,13920,13896,13872,13896,13872, 9 13896,13824,13824,13800,13752, 8640, 8712, 8784, 8784, 8832/ data (jx(i),i= 1301, 1400)/ + 8928, 8904, 8952, 9072, 9120, 9096, 8952, 8856, 6024, 6024, 1 6096, 6072, 6120, 6120, 6144, 6144, 6216, 6192, 6168, 6216, 2 6216, 6192, 6072, 6072, 6792, 6600, 6696, 6744, 6840, 6864, 3 6864, 6960, 6912, 7032, 7056, 7008, 6984, 6984, 6888, 6912, 4 6888, 6864, 6864, 9144, 9096, 9144, 9192, 9216, 9264, 9264, 5 9312, 9312, 9384, 9336, 9384, 9360, 9384, 9408, 9432, 9432, 6 9480, 9384, 9360, 9504, 9528, 9528, 9528, 9576, 9600, 9600, 7 9648, 9648, 9624, 9528, 9552, 9528, 9552, 9576, 9576, 9600, 8 9600, 9528, 9504, 9480, 9480, 9456, 9456, 9432, 9432, 9408, 9 9312, 9192, 9634, 9610, 9682, 5736, 5688, 5736, 5688, 5784/ data (jx(i),i= 1401, 1500)/ + 5784, 5856, 5808,10176,10104,10080,10176,10248,10344,10368, 1 10488,10560,10584,10656,10680,10584,10560,10488,10320,10248, 2 19800,19752,19704,19704,19608,19584,19608,19560,19584,19656, 3 19608,19752,19776,19752,13416,13368,13488,13416,13488,13464, 4 13392,13392,13416,13296,13296,13296,13344,13392,13368,13344, 5 13320,13320,13272,13272,13248,13200,13200,13224,13200,13272, 6 13272,13296,13320,13368,13416,13416,13392,13440,13440,13512, 7 13464,13464,13512,13440,13536,13440,13440,13512,13560,13560, 8 13584,13560,13608,13560,13632,13656,13632,13680,13608,13752, 9 13728,13728,13738,13800,13800,13896,13824,13848,13848,13872/ data (jx(i),i= 1501, 1600)/ + 13848,13944,13896,13704,13728,13680,13752,13824,13800,13752, 1 13728,13656,13656,13704,13584,13584,13560,13536,13560,13488, 2 13512,13536,13536,13512,13488,13512,19992,19896,19920,19872, 3 19896,19848,19824,19824,19800,19800,19776,19776,19800,19752, 4 19752,19704,19728,19728,19680,19656,19608,19632,19536,19512, 5 19536,19632,19584,19560,19584,19536,19536,19488,19440,19416, 6 19464,19464,19440,19392,19272,19272,19272,19272,19344,19368, 7 19392,19440,19464,19440,19464,19560,19656,19704,19752,19824, 8 19824,19680,19680,19704,19680,19728,19800,19728,19800,19824, 9 19872,19824,19848,19872,19896,19896,19920,19896,19920,19872/ data (jx(i),i= 1601, 1700)/ + 19944,19944,19968,19944,19992,19968,19992,19944,19920,19920, 1 19992,19968,20064,20040,20064,20016,20040,20088,20112,20088, 2 20064,20064,20136,20098,20112,20088,20088,20040,20064,20016, 3 20050,20040,19992,19992,20016,20016,19992,19920,19944,19944, 4 19920,19920,19944,19896,19944,19872,19944,19896,19982,20136, 5 20160,20136,20160,19320,19272,19296,19344,19296,19392,19392, 6 19344,19680,19656,19656,19584,19560,19536,19560,19560,19608, 7 19608,19608,19632,19688,19664,19702,19678,19698,19632,19632, 8 19584,19656,19704,19752,19488,19416,19440,19488,19536,19526, 9 19248,19254,19230,19224,19216,19152,19152,19104,19152,19056/ data (jx(i),i= 1701, 1800)/ + 19080,19248,19272,19248,19280,19348,19368,19392,19392,19248, 1 19296,19320,19320,19344,19368,19368,19296,19296,19464,19416, 2 19398,19416,19388,19416,19512,19464,19488,18888,18864,18840, 3 18888,18840,18888,18840,18912,18912,18864,18816,18864,18816, 4 18768,18672,18672,18624,18624,18600,18576,18624,18696,18816, 5 18840,18960,18984,19008,18960,18864,18840,18792,18816,18816, 6 18840,18864,18936,18936,18960,19032,18960,18960,18984,18984, 7 19008,19032,19008,18936,18984,18936,18792,18696,18672,18696, 8 15024,15072,15048,15072,15192,15168,15240,15216,15240,15192, 9 15144,15168,15120,15144,10248,10008, 9960, 9936,10104,10104/ data (jx(i),i= 1801, 1900)/ + 10200,10224,10296,10296,10392,10368,10392,10368,10416,10368, 1 10200,10248,15336,15312,15360,15288,15336,15456, 8736, 8640, 2 8568, 8568, 8616, 8616, 8712, 9720, 9696, 9672, 9624, 9504, 3 9456, 9360, 9288, 9288, 9336, 9360, 9360, 9384, 9360, 9384, 4 9408, 9504, 9576, 9648, 9696, 9696, 9672, 9864, 9984, 9936, 5 9816,18384,18552,18576,18576,18696,18768,18720,18456,18480, 6 18456,18528,18528,18552,18552,18528,18480,18432,18504,18408, 7 18384,18384,18336,18264,18264,18264,18384,18600,18648,18672, 8 18648,18672,18648,18504,18456,18408,18456,18408,18456,18480, 9 18384,18360,18312,18288,18336,18288,18264,18240,18264,18240/ data (jy(i),i= 1, 100)/ + 14304,14328,14352,14352,14424,14424,14520,14544,14568,14592, 1 14568,14616,14688,14688,14664,14736,14784,15096,15144,15168, 2 15192,15192,15144,15144,15168,15240,15336,15360,15432,15408, 3 15456,15408,15384,15288,15264,15240,15216,15216,15168,15072, 4 15096,15048,15000,15048,15120,15144,15192,15288,15336,15312, 5 15384,15408,15408,15456,15432,15480,15528,15576,15600,15624, 6 15624,15600,15576,15552,15504,15432,15528,15504,15432,15456, 7 15504,15504,15576,15576,15600,15624,15576,15600,15648,15648, 8 15672,15648,15648,15672,15744,15744,15720,15768,15816,15840, 9 15864,15888,15912,15936,16008,15888,15840,15816,15792,15744/ data (jy(i),i= 101, 200)/ + 15768,15840,15864,15888,15936,15960,15984,16008,16008,16056, 1 16104,16080,16080,16104,16152,16152,16248,16296,16488,16488, 2 16440,16416,16440,16464,16464,16488,16488,16584,16512,16608, 3 16608,16632,16728,16704,16776,16824,16824,16800,16752,16752, 4 16680,16728,16680,16704,16776,16800,16896,16920,16872,16848, 5 16872,16992,17040,17160,17256,17328,17352,17352,17424,17400, 6 17424,17448,17496,17616,17616,17544,17520,17568,17520,17520, 7 17448,17376,17352,17424,17424,17472,17520,17496,17448,17400, 8 17496,17520,17496,17520,17496,17520,17496,17486,17472,17616, 9 17688,17760,17832,17904,17952,18000,17928,17904,17904,17928/ data (jy(i),i= 201, 300)/ + 17952,17952,17952,18024,18096,18192,18240,18288,18240,18216, 1 18264,18240,18288,18312,18312,18336,18360,18336,18384,18432, 2 18360,18384,18432,18480,18528,18504,18552,18576,18576,18576, 3 18528,18552,18528,18456,18384,18360,18360,18312,18288,18264, 4 18216,18240,18168,18192,18240,18336,18312,18240,18312,18360, 5 18408,18384,18336,18336,18360,18432,18480,18576,18600,18672, 6 18696,18696,18600,18552,18408,18456,18360,18360,18432,18480, 7 18504,18480,18504,18504,18476,18456,18576,18672,18696,18744, 8 18720,18720,18792,18816,18744,18816,18960,19056,19224,19344, 9 19416,19512,19560,19560,19584,19656,19728,19824,19776,19872/ data (jy(i),i= 301, 400)/ + 19992,19944,19968,20064,20088,20136,20160,20184,20424,20400, 1 20400,20376,20376,20352,20352,20400,20400,20424,20544,20544, 2 20496,20472,20472,20400,20424,20328,20424,20462,20472,20496, 3 20472,20554,20554,20640,20664,20664,20640,20616,20568,20616, 4 20616,20640,20616,20616,20640,20640,20736,20856,20904,20904, 5 20880,20832,20832,20808,20784,20808,20784,20760,20712,20664, 6 20640,20568,20592,20616,20616,20664,20712,20688,20736,20736, 7 20760,20760,20712,20664,20640,20592,20640,20664,20640,20640, 8 20592,20544,20520,20496,20472,20472,20448,20448,20424,20376, 9 20424,20448,20448,20400,20472,20472,20424,20376,20400,20400/ data (jy(i),i= 401, 500)/ + 20352,20352,20304,20280,20352,20376,20400,20352,20304,20280, 1 20208,20208,20232,20256,20232,19608,18288,16248,15432,15408, 2 15456,15408,15504,15552,15408,15336,15288,15072,14904,15096, 3 15096,15168,15168,15264,15312,15336,15456,15504,15432,15360, 4 15336,15336,15312,15288,15288,15240,15240,15168,15120,15096, 5 14976,14904,14856,14856,14520,14472,14400,14400,14304,14304, 6 14208,14232,14184,14184,14184,14160,14160,14112,14136,14040, 7 13944,13848,13728,13704,13512,13440,13464,13416,13512,13416, 8 13392,13392,13488,13488,13560,13560,13584,13536,13536,13584, 9 13632,13680,13704,13656,13848,13872,13896,13896,13944,14040/ data (jy(i),i= 501, 600)/ + 13944,13944,13824,13752,13752,13704,13728,13680,13632,13656, 1 13728,13728,13728,13776,13776,13848,13872,13968,14040,14016, 2 14064,14064,14088,14112,14184,14160,14184,14184,14256,14208, 3 14232,14280,14304,14352,14304,14328,14352,14352,14352,14304, 4 14328,14400,14400,14472,14424,14424,14472,14472,14520,14568, 5 14520,14544,14592,14640,14712,14736,14760,14808,14712,14736, 6 14832,14880,14904,14976,15000,14952,14784,14856,14832,14904, 7 14976,14976,15048,15000,15048,15120,15240,15264,15264,15216, 8 15144,15192,15216,15144,15096,14928,14904,14832,14736,14736, 9 14832,14784,14784,14760,14784,14784,14808,14856,14880,14952/ data (jy(i),i= 601, 700)/ + 15024,15024,14976,15024,15072,15024,14976,14928,14928,14952, 1 14952,15000,14976,14952,15024,14952,14952,14880,14928,14928, 2 14880,14856,14904,14880,14832,14832,14856,14832,14808,14808, 3 14736,14712,14688,14736,14736,14712,14712,14688,14688,14640, 4 14616,14640,14664,14664,14688,14664,14688,14664,14736,14784, 5 14760,14832,14880,14952,14952,15000,14952,15000,15024,15048, 6 15024,15096,15144,15192,15288,15336,15288,15216,15158,15144, 7 15144,15168,15264,15288,15288,15360,15312,15240,15144,15168, 8 15192,15240,15288,15312,15264,15216,15240,15120,15144,15144, 9 15192,15240,15216,15240,15264,15336,15360,15336,15456,15408/ data (jy(i),i= 701, 800)/ + 15288,15264,15312,15312,15432,15408,15408,15432,15384,15432, 1 15384,15456,15480,15432,15456,15408,15408,15432,15504,15528, 2 15480,15480,15504,15528,15528,15552,15576,15576,15600,15624, 3 15648,15624,15528,15528,15552,15552,15576,15576,15528,15504, 4 15504,15552,15576,15528,15600,15648,15552,15576,15600,15552, 5 15552,15600,15744,15768,15624,15672,15648,15648,15600,15648, 6 15600,15600,15576,15528,15528,15504,15504,15480,15456,15432, 7 15504,15408,15504,15432,15384,15384,15336,15370,15336,15360, 8 15384,15360,15408,15336,15312,15312,15288,15288,15264,15216, 9 15192,15168,15216,15192,15168,15144,15168,15072,15048,15072/ data (jy(i),i= 801, 900)/ + 15048,15024,15024,15048,15072,15072,14976,15048,15120,15048, 1 14952,14904,14904,15000,15024,14952,14880,14880,14856,14784, 2 14856,14808,14784,14760,14808,14736,14736,14712,14688,14808, 3 14664,14712,14736,14712,14688,14664,14664,14592,14568,14520, 4 14568,14592,14544,14544,14496,14544,14568,14592,14592,14640, 5 14664,14640,14688,14736,14760,14832,14760,14736,14808,14952, 6 15048,15144,15144,15240,15336,15360,15504,15432,15480,15432, 7 15480,15466,15576,15696,15768,15744,15696,15624,15624,15672, 8 15624,15600,15576,15504,15432,15384,15336,15336,15288,15192, 9 15168,15144,15096,15048,15072,15048,14976,14904,14856,14856/ data (jy(i),i= 901, 1000)/ + 14784,14736,14760,14784,14832,14736,14736,14688,14688,14640, 1 14616,14592,14568,14520,14472,14472,14424,14448,14448,14400, 2 14352,14328,14328,14256,14208,14208,14160,14136,14136,14088, 3 14040,14016,14016,13992,13968,13968,13944,13968,13920,13992, 4 13920,13944,13920,13896,13920,13872,13896,13848,13824,13800, 5 13752,13776,13728,13704,13704,13656,13656,13632,13632,13584, 6 13608,13536,13512,13512,13488,13464,13440,13440,13392,13392, 7 13344,13392,13320,13368,13320,13272,13296,13272,13248,13296, 8 13248,13224,13200,13176,13176,13224,13152,13128,13104,13104, 9 13008,13008,13032,13056,13008,12984,12960,12984,12936,12960/ data (jy(i),i= 1001, 1100)/ + 12984,12960,12936,12912,12888,12888,12840,12888,12840,12816, 1 12768,12840,12840,12792,12744,12768,12792,12816,12840,12864, 2 12888,12864,12864,12816,12840,12792,12792,12768,12720,12792, 3 12768,12744,12720,12720,12744,12672,12696,12744,12792,12768, 4 12816,12768,12720,12624,12648,12576,12552,12528,12504,12456, 5 12480,12528,12504,12600,12624,12576,12552,12504,12456,12432, 6 12480,12480,12552,12504,12456,12408,12432,12456,12456,12480, 7 12552,12600,12644,12672,12672,12888,12912,12888,12888,12912, 8 12864,12864,12840,12816,12744,12792,12840,12816,12840,13008, 9 13128,13200,13200,13224,13296,13272,13248,13224,13344,13368/ data (jy(i),i= 1101, 1200)/ + 13512,13536,13584,13622,13584,13536,13536,13608,13632,13848, 1 13910,13896,13920,13920,13968,14016,14136,14184,14208,14280, 2 14328,14400,14376,14328,14256,14256,14136,14232,14256,14304, 3 14352,14424,14424,14448,14448,14376,14448,14496,14544,14472, 4 14376,14424,14448,14448,14400,14328,14304,14352,14352,14328, 5 14184,14136,14160,14352,14376,14448,14448,14400,14352,14424, 6 14424,14472,14472,14520,14424,14448,14424,14400,14376,14352, 7 14328,13728,13872,13968,13944,13992,13892,13920,13944,13992, 8 13944,14016,13992,14016,14064,14112,14112,14136,14160,14146, 9 14208,14232,14256,14280,14304,14352,14328,14280,14328,14304/ data (jy(i),i= 1201, 1300)/ + 14304,14280,14280,14256,14232,13992,14040,14112,14160,14136, 1 14208,14232,14184,14184,14136,14064,13704,13728,13776,13800, 2 13848,13824,13848,13896,13872,13896,13872,13944,13920,13944, 3 13992,13968,14016,13992,14016,14064,14064,14112,14088,14136, 4 14112,14088,14040,13992,14064,14088,14088,14040,14016,13992, 5 13992,13982,13944,13920,13896,13824,13872,13824,13800,13776, 6 13728,13728,13824,13752,13752,13728,13876,13968,13992,13968, 7 14016,14040,14016,14064,14088,14112,14136,14136,14064,14136, 8 14088,14040,14088,14064,13992,13992,14040,14040,14016,14016, 9 13968,13944,14016,13944,13944,11712,11756,11808,11856,11904/ data (jy(i),i= 1301, 1400)/ + 11880,11928,11976,12000,11952,11904,11856,11784,11808,11832, 1 11880,11904,11880,11904,11904,11952,11952,11928,11904,11880, 2 11808,11832,11784,11856,11784,11832,11818,11856,11808,11808, 3 11832,11856,11904,11928,11856,11808,11832,11760,11808,11784, 4 11760,11798,11760,11808,11856,11904,11880,11904,11880,11904, 5 11904,11928,11928,11976,11976,12000,12024,12000,11952,12000, 6 12000,12048,12096,12168,12120,12096,12048,12072,12144,12096, 7 12120,12096,12072,12024,12024,12000,11976,12000,11976,12024, 8 11952,11952,11904,11928,11904,11928,11880,11928,11880,11904, 9 11880,11808,11976,12024,12024,11904,11976,12000,12096,12072/ data (jy(i),i= 1401, 1500)/ + 12024,12000,12000,12240,12264,12360,12384,12504,12480,12504, 1 12552,12528,12384,12360,12312,12360,12336,12312,12336,12264, 2 13152,13152,13200,13224,13248,13320,13344,13368,13416,13320, 3 13320,13224,13200,13176,13224,13224,13344,13344,13416,13440, 4 13344,13368,13416,13416,13392,13368,13406,13406,13320,13296, 5 13272,13320,13344,13440,13488,13512,13536,13536,13584,13632, 6 13656,13656,13680,13704,13680,13656,13632,13632,13560,13488, 7 13560,13656,13632,13680,13680,13728,13776,13824,13680,13728, 8 13728,13752,13728,13800,13776,13728,13824,13800,13872,13848, 9 13800,13728,13800,13800,13848,13776,13728,13728,13704,13728/ data (jy(i),i= 1501, 1600)/ + 13680,13680,13584,13632,13608,13584,13608,13560,13512,13488, 1 13536,13536,13512,13488,13464,13440,13416,13440,13392,13368, 2 13368,13344,13320,13344,13296,13272,13224,13224,13272,13248, 3 13296,13320,13368,13296,13344,13296,13320,13344,13368,13392, 4 13416,13464,13416,13392,13416,13440,13392,13440,13416,13440, 5 13464,13488,13488,13512,13512,13536,13584,13560,13560,13632, 6 13656,13728,13728,13848,13848,13872,13896,13920,13920,13896, 7 13944,13920,13872,13848,13824,13824,13752,13656,13632,13608, 8 13584,13656,13608,13608,13560,13584,13584,13536,13560,13560, 9 13512,13488,13464,13488,13536,13512,13440,13440,13392,13368/ data (jy(i),i= 1601, 1700)/ + 13386,13368,13344,13320,13296,13272,13488,13512,13584,13608, 1 13560,13536,13416,13488,13512,13560,13560,13560,13464,13440, 2 13488,13464,13584,13584,13608,13656,13584,13584,13680,13776, 3 13656,13608,13704,13680,13608,13584,13584,13632,13704,13728, 4 13728,13752,13800,13776,13824,13824,13872,13872,13944,13824, 5 13680,13680,13608,13704,13680,13776,13800,13800,13824,13752, 6 13752,13800,13824,13872,13848,13872,13944,13944,14016,14016, 7 13968,13944,13958,13934,13920,13848,13848,13944,13968,13992, 8 14078,13990,14004,13992,13920,13968,14016,14040,14016,13944, 9 13968,14016,14016,14040,14094,14160,14136,14160,14184,14208/ data (jy(i),i= 1701, 1800)/ + 14256,14256,14232,14280,14280,14232,14208,14112,14088,14184, 1 14126,14126,14088,14088,14040,14016,14016,13992,14064,14064, 2 14088,14112,14184,14208,14136,14088,14064,14160,14232,14256, 3 14280,14304,14328,14352,14352,14376,14376,14400,14448,14424, 4 14448,14664,14688,14736,14760,14784,14832,14808,14736,14780, 5 14736,14616,14544,14520,14544,14688,14712,14736,14712,14688, 6 14592,14616,14544,14520,14520,14448,14448,14424,14424,14400, 7 14424,14400,14352,14376,14328,14208,14784,14784,14808,14832, 8 14904,14952,14976,15000,15144,15216,15216,15168,15192,15096, 9 15024,15000,15000,14952,15096,15264,15312,15384,15360,15408/ data (jy(i),i= 1801, 1900)/ + 15432,15408,15432,15384,15360,15288,15240,15240,15192,15144, 1 15144,15120,15168,15192,15240,15240,15288,15264,15744,15768, 2 15888,15912,15936,15864,15792,16920,17016,17040,17136,17256, 3 17256,17208,17256,17352,17424,17472,17424,17400,17376,17376, 4 17376,17328,17352,17352,17280,17256,17232,17088,17064,16992, 5 17040,14544,14496,14472,14448,14520,14376,14352,14448,14400, 6 14376,14376,14352,14352,14304,14256,14256,14304,14280,14352, 7 14352,14376,14424,14424,14448,14520,14562,14496,14520,14544, 8 14568,14592,14640,14664,14554,14568,14592,14592,14616,14664, 9 14712,14640,14664,14640,14568,14568,14640,14640,14592,14558/ data (jb1(i),i= 1, 100)/ + 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 1 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 2 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 3 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 4 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 5 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 6 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 7 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 8 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 9 91, 92, 93, 94, 95, 96, 97, 98, 99, 100/ data (jb1(i),i= 101, 200)/ + 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 1 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 2 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 3 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 4 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 5 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 6 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 7 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 8 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 9 191, 192, 193, 194, 195, 196, 197, 198, 199, 200/ data (jb1(i),i= 201, 300)/ + 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 1 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 2 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 3 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 4 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 5 251, 252, 253, 254, 255, 256, 257, 258, 259, 260, 6 261, 262, 263, 264, 265, 266, 267, 268, 269, 270, 7 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 8 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, 9 291, 292, 293, 294, 295, 296, 297, 298, 299, 300/ data (jb1(i),i= 301, 400)/ + 301, 302, 303, 304, 305, 306, 307, 308, 309, 310, 1 311, 312, 313, 314, 315, 316, 317, 318, 319, 320, 2 321, 322, 323, 324, 325, 326, 327, 328, 329, 330, 3 331, 332, 333, 334, 335, 336, 337, 338, 339, 340, 4 341, 342, 343, 344, 345, 346, 347, 348, 349, 350, 5 351, 352, 353, 354, 355, 356, 357, 358, 359, 360, 6 361, 362, 363, 364, 365, 366, 367, 368, 369, 370, 7 371, 372, 373, 374, 375, 376, 377, 378, 379, 380, 8 381, 382, 383, 384, 385, 386, 387, 388, 389, 390, 9 391, 392, 393, 394, 395, 396, 397, 398, 399, 400/ data (jb1(i),i= 401, 500)/ + 401, 402, 403, 404, 405, 406, 407, 408, 409, 410, 1 411, 412, 413, 414, 415, 416, 417, 418, 419, 420, 2 421, 422, 423, 424, 425, 426, 427, 428, 429, 430, 3 431, 432, 433, 434, 435, 436, 437, 438, 439, 440, 4 441, 442, 443, 444, 445, 446, 447, 448, 449, 450, 5 451, 452, 453, 454, 455, 456, 457, 458, 459, 460, 6 461, 462, 463, 464, 465, 466, 467, 468, 469, 470, 7 471, 472, 473, 474, 475, 476, 477, 478, 479, 480, 8 481, 482, 483, 484, 485, 486, 487, 488, 489, 490, 9 491, 492, 493, 494, 495, 496, 497, 498, 499, 500/ data (jb1(i),i= 501, 600)/ + 501, 502, 503, 504, 505, 506, 507, 508, 509, 510, 1 511, 512, 513, 514, 515, 516, 517, 518, 519, 520, 2 521, 522, 523, 524, 525, 526, 527, 528, 529, 530, 3 531, 532, 533, 534, 535, 536, 537, 538, 539, 540, 4 541, 542, 543, 544, 545, 546, 547, 548, 549, 550, 5 551, 552, 553, 554, 555, 556, 557, 558, 559, 560, 6 561, 562, 563, 564, 565, 566, 567, 568, 569, 570, 7 571, 572, 573, 574, 575, 576, 577, 578, 579, 580, 8 581, 582, 583, 584, 585, 586, 587, 588, 589, 590, 9 591, 592, 593, 594, 595, 596, 597, 598, 599, 600/ data (jb1(i),i= 601, 700)/ + 601, 602, 603, 604, 605, 606, 607, 608, 609, 610, 1 611, 612, 613, 614, 615, 616, 617, 618, 619, 620, 2 621, 622, 623, 624, 625, 626, 627, 628, 629, 630, 3 631, 632, 633, 634, 635, 636, 637, 638, 639, 640, 4 641, 642, 643, 644, 645, 646, 647, 648, 649, 650, 5 651, 652, 653, 654, 655, 656, 657, 658, 659, 660, 6 661, 662, 663, 664, 665, 666, 667, 668, 669, 670, 7 671, 672, 673, 674, 675, 676, 677, 678, 679, 680, 8 681, 682, 683, 684, 685, 686, 687, 688, 689, 690, 9 691, 692, 693, 694, 695, 696, 697, 698, 699, 700/ data (jb1(i),i= 701, 800)/ + 701, 702, 703, 704, 705, 706, 707, 708, 709, 710, 1 711, 712, 713, 714, 715, 716, 717, 718, 719, 720, 2 721, 722, 723, 724, 725, 726, 727, 728, 729, 730, 3 731, 732, 733, 734, 735, 736, 737, 738, 739, 740, 4 741, 742, 743, 744, 745, 746, 747, 748, 749, 750, 5 751, 752, 753, 754, 755, 756, 757, 758, 759, 760, 6 761, 762, 763, 764, 765, 766, 767, 768, 769, 770, 7 771, 772, 773, 774, 775, 776, 777, 778, 779, 780, 8 781, 782, 783, 784, 785, 786, 787, 788, 789, 790, 9 791, 792, 793, 794, 795, 796, 797, 798, 799, 800/ data (jb1(i),i= 801, 900)/ + 801, 802, 803, 804, 805, 806, 807, 808, 809, 810, 1 811, 812, 813, 814, 815, 816, 817, 818, 819, 820, 2 821, 822, 823, 824, 825, 826, 827, 828, 829, 830, 3 831, 832, 833, 834, 835, 836, 837, 838, 839, 840, 4 841, 842, 843, 844, 845, 846, 847, 848, 849, 850, 5 851, 852, 853, 854, 855, 856, 857, 858, 859, 860, 6 861, 862, 863, 864, 865, 866, 867, 868, 869, 870, 7 871, 872, 873, 874, 875, 876, 877, 878, 879, 880, 8 881, 882, 883, 884, 885, 886, 887, 888, 889, 890, 9 891, 892, 893, 894, 895, 896, 897, 898, 899, 900/ data (jb1(i),i= 901, 1000)/ + 901, 902, 903, 904, 905, 906, 907, 908, 909, 910, 1 911, 912, 913, 914, 915, 916, 917, 918, 919, 920, 2 921, 922, 923, 924, 925, 926, 927, 928, 929, 930, 3 931, 932, 933, 934, 935, 936, 937, 938, 939, 940, 4 941, 942, 943, 944, 945, 946, 947, 948, 949, 950, 5 951, 952, 953, 954, 955, 956, 957, 958, 959, 960, 6 961, 962, 963, 964, 965, 966, 967, 968, 969, 970, 7 971, 972, 973, 974, 975, 976, 977, 978, 979, 980, 8 981, 982, 983, 984, 985, 986, 987, 988, 989, 990, 9 991, 992, 993, 994, 995, 996, 997, 998, 999, 1000/ data (jb1(i),i= 1001, 1100)/ + 1001, 1002, 1003, 1004, 1005, 1006, 1007, 1008, 1009, 1010, 1 1011, 1012, 1013, 1014, 1015, 1016, 1017, 1018, 1019, 1020, 2 1021, 1022, 1023, 1024, 1025, 1026, 1027, 1028, 1029, 1030, 3 1031, 1032, 1033, 1034, 1035, 1036, 1037, 1038, 1039, 1040, 4 1041, 1042, 1043, 1044, 1045, 1046, 1047, 1048, 1049, 1050, 5 1051, 1052, 1053, 1054, 1055, 1056, 1057, 1058, 1059, 1060, 6 1061, 1062, 1063, 1064, 1065, 1066, 1067, 1068, 1069, 1070, 7 1071, 1072, 1073, 1074, 1075, 1076, 1077, 1078, 1079, 1080, 8 1081, 1082, 1083, 1084, 1085, 1086, 1087, 1088, 1089, 1090, 9 1091, 1092, 1093, 1094, 1095, 1096, 1097, 1098, 1099, 1100/ data (jb1(i),i= 1101, 1200)/ + 1101, 1102, 1103, 1104, 1105, 1106, 1107, 1108, 1109, 1110, 1 1111, 1112, 1113, 1114, 1115, 1116, 1117, 1118, 1119, 1120, 2 1121, 1122, 1123, 1124, 1125, 1126, 1127, 1128, 1129, 1130, 3 1131, 1132, 1133, 1134, 1135, 1136, 1137, 1138, 1139, 1140, 4 1141, 1142, 1143, 1144, 1145, 1146, 1147, 1148, 1149, 1150, 5 1151, 1152, 1153, 1154, 1155, 1156, 1157, 1158, 1159, 1160, 6 1161, 1162, 1163, 1164, 1165, 1166, 1167, 1168, 1169, 1170, 7 1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 8 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 9 20, 21, 22, 23, 24, 25, 26, 27, 28, 29/ data (jb1(i),i= 1201, 1300)/ + 30, 31, 32, 33, 34, 1, 36, 37, 38, 39, 1 40, 41, 42, 43, 44, 36, 46, 47, 48, 49, 2 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 3 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 4 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 5 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 6 90, 91, 92, 93, 94, 46, 96, 97, 98, 99, 7 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 8 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 9 120, 121, 122, 123, 96, 125, 126, 127, 128, 129/ data (jb1(i),i= 1301, 1400)/ + 130, 131, 132, 133, 134, 135, 136, 125, 138, 139, 1 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 2 150, 151, 152, 138, 154, 155, 156, 157, 158, 159, 3 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 4 170, 171, 154, 173, 174, 175, 176, 177, 178, 179, 5 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 6 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 7 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 8 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 9 220, 173, 222, 223, 222, 225, 226, 227, 228, 229/ data (jb1(i),i= 1401, 1500)/ + 230, 231, 225, 233, 234, 235, 236, 237, 238, 239, 1 240, 241, 242, 243, 244, 245, 246, 247, 248, 233, 2 250, 251, 252, 253, 254, 255, 256, 257, 258, 259, 3 260, 261, 262, 250, 264, 265, 266, 267, 268, 269, 4 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 5 280, 281, 282, 283, 284, 285, 286, 287, 288, 289, 6 290, 291, 292, 293, 294, 295, 296, 297, 298, 299, 7 300, 301, 302, 303, 304, 305, 306, 307, 308, 309, 8 310, 311, 312, 313, 314, 315, 316, 317, 318, 319, 9 320, 321, 322, 323, 324, 325, 326, 327, 328, 329/ data (jb1(i),i= 1501, 1600)/ + 330, 331, 332, 333, 334, 335, 336, 337, 338, 339, 1 340, 341, 342, 343, 344, 345, 346, 347, 348, 349, 2 350, 351, 352, 353, 354, 264, 356, 357, 358, 359, 3 360, 361, 362, 363, 364, 365, 366, 367, 368, 369, 4 370, 371, 372, 373, 374, 375, 376, 377, 378, 379, 5 380, 381, 382, 383, 384, 385, 386, 387, 388, 389, 6 390, 391, 392, 393, 394, 395, 396, 397, 398, 399, 7 400, 401, 402, 403, 404, 405, 406, 407, 408, 409, 8 410, 411, 412, 413, 414, 415, 416, 417, 418, 419, 9 420, 421, 422, 423, 424, 425, 426, 427, 428, 429/ data (jb1(i),i= 1601, 1700)/ + 430, 431, 432, 433, 434, 356, 436, 437, 438, 439, 1 440, 436, 442, 443, 444, 445, 446, 447, 448, 449, 2 450, 442, 452, 453, 454, 455, 456, 457, 458, 459, 3 460, 461, 462, 463, 464, 465, 466, 467, 468, 469, 4 470, 471, 472, 473, 474, 475, 476, 477, 478, 479, 5 480, 481, 452, 483, 484, 485, 486, 487, 488, 489, 6 483, 491, 492, 493, 494, 495, 496, 497, 498, 499, 7 500, 501, 502, 503, 504, 505, 491, 507, 508, 509, 8 510, 511, 512, 507, 514, 515, 516, 517, 518, 514, 9 520, 521, 522, 523, 524, 525, 526, 527, 528, 529/ data (jb1(i),i= 1701, 1800)/ + 530, 531, 532, 533, 534, 535, 536, 537, 538, 539, 1 540, 541, 542, 543, 544, 545, 546, 520, 548, 549, 2 550, 551, 552, 553, 554, 555, 548, 557, 558, 559, 3 560, 561, 562, 563, 564, 565, 566, 567, 568, 569, 4 570, 571, 572, 573, 574, 575, 576, 577, 578, 579, 5 580, 581, 582, 583, 584, 585, 586, 587, 588, 589, 6 590, 591, 592, 593, 594, 595, 596, 597, 598, 599, 7 600, 601, 602, 603, 604, 557, 606, 607, 608, 606, 8 610, 611, 612, 613, 614, 615, 616, 617, 618, 619, 9 620, 621, 622, 610, 624, 625, 626, 627, 628, 629/ data (jb1(i),i= 1801, 1900)/ + 630, 631, 632, 633, 634, 635, 636, 637, 638, 639, 1 640, 624, 642, 643, 644, 645, 646, 642, 648, 649, 2 650, 651, 652, 653, 648, 655, 656, 657, 658, 659, 3 660, 661, 662, 663, 664, 665, 666, 667, 668, 669, 4 670, 671, 672, 673, 674, 675, 676, 677, 678, 679, 5 655, 681, 682, 683, 684, 685, 686, 687, 688, 689, 6 690, 691, 692, 693, 694, 695, 696, 697, 698, 699, 7 700, 701, 702, 703, 704, 681, 706, 707, 708, 709, 8 710, 711, 712, 713, 714, 715, 716, 717, 718, 719, 9 720, 721, 722, 723, 724, 725, 726, 727, 728, 706/ data (jb2(i),i= 1, 100)/ + 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 1 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 2 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 3 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 4 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 5 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 6 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 7 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 8 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 9 92, 93, 94, 95, 96, 97, 98, 99, 100, 101/ data (jb2(i),i= 101, 200)/ + 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 1 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 2 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 3 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 4 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 5 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 6 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 7 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 8 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 9 192, 193, 194, 195, 196, 197, 198, 199, 200, 201/ data (jb2(i),i= 201, 300)/ + 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 1 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 2 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 3 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 4 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 5 252, 253, 254, 255, 256, 257, 258, 259, 260, 261, 6 262, 263, 264, 265, 266, 267, 268, 269, 270, 271, 7 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 8 282, 283, 284, 285, 286, 287, 288, 289, 290, 291, 9 292, 293, 294, 295, 296, 297, 298, 299, 300, 301/ data (jb2(i),i= 301, 400)/ + 302, 303, 304, 305, 306, 307, 308, 309, 310, 311, 1 312, 313, 314, 315, 316, 317, 318, 319, 320, 321, 2 322, 323, 324, 325, 326, 327, 328, 329, 330, 331, 3 332, 333, 334, 335, 336, 337, 338, 339, 340, 341, 4 342, 343, 344, 345, 346, 347, 348, 349, 350, 351, 5 352, 353, 354, 355, 356, 357, 358, 359, 360, 361, 6 362, 363, 364, 365, 366, 367, 368, 369, 370, 371, 7 372, 373, 374, 375, 376, 377, 378, 379, 380, 381, 8 382, 383, 384, 385, 386, 387, 388, 389, 390, 391, 9 392, 393, 394, 395, 396, 397, 398, 399, 400, 401/ data (jb2(i),i= 401, 500)/ + 402, 403, 404, 405, 406, 407, 408, 409, 410, 411, 1 412, 413, 414, 415, 416, 417, 418, 419, 420, 421, 2 422, 423, 424, 425, 426, 427, 428, 429, 430, 431, 3 432, 433, 434, 435, 436, 437, 438, 439, 440, 441, 4 442, 443, 444, 445, 446, 447, 448, 449, 450, 451, 5 452, 453, 454, 455, 456, 457, 458, 459, 460, 461, 6 462, 463, 464, 465, 466, 467, 468, 469, 470, 471, 7 472, 473, 474, 475, 476, 477, 478, 479, 480, 481, 8 482, 483, 484, 485, 486, 487, 488, 489, 490, 491, 9 492, 493, 494, 495, 496, 497, 498, 499, 500, 501/ data (jb2(i),i= 501, 600)/ + 502, 503, 504, 505, 506, 507, 508, 509, 510, 511, 1 512, 513, 514, 515, 516, 517, 518, 519, 520, 521, 2 522, 523, 524, 525, 526, 527, 528, 529, 530, 531, 3 532, 533, 534, 535, 536, 537, 538, 539, 540, 541, 4 542, 543, 544, 545, 546, 547, 548, 549, 550, 551, 5 552, 553, 554, 555, 556, 557, 558, 559, 560, 561, 6 562, 563, 564, 565, 566, 567, 568, 569, 570, 571, 7 572, 573, 574, 575, 576, 577, 578, 579, 580, 581, 8 582, 583, 584, 585, 586, 587, 588, 589, 590, 591, 9 592, 593, 594, 595, 596, 597, 598, 599, 600, 601/ data (jb2(i),i= 601, 700)/ + 602, 603, 604, 605, 606, 607, 608, 609, 610, 611, 1 612, 613, 614, 615, 616, 617, 618, 619, 620, 621, 2 622, 623, 624, 625, 626, 627, 628, 629, 630, 631, 3 632, 633, 634, 635, 636, 637, 638, 639, 640, 641, 4 642, 643, 644, 645, 646, 647, 648, 649, 650, 651, 5 652, 653, 654, 655, 656, 657, 658, 659, 660, 661, 6 662, 663, 664, 665, 666, 667, 668, 669, 670, 671, 7 672, 673, 674, 675, 676, 677, 678, 679, 680, 681, 8 682, 683, 684, 685, 686, 687, 688, 689, 690, 691, 9 692, 693, 694, 695, 696, 697, 698, 699, 700, 701/ data (jb2(i),i= 701, 800)/ + 702, 703, 704, 705, 706, 707, 708, 709, 710, 711, 1 712, 713, 714, 715, 716, 717, 718, 719, 720, 721, 2 722, 723, 724, 725, 726, 727, 728, 729, 730, 731, 3 732, 733, 734, 735, 736, 737, 738, 739, 740, 741, 4 742, 743, 744, 745, 746, 747, 748, 749, 750, 751, 5 752, 753, 754, 755, 756, 757, 758, 759, 760, 761, 6 762, 763, 764, 765, 766, 767, 768, 769, 770, 771, 7 772, 773, 774, 775, 776, 777, 778, 779, 780, 781, 8 782, 783, 784, 785, 786, 787, 788, 789, 790, 791, 9 792, 793, 794, 795, 796, 797, 798, 799, 800, 801/ data (jb2(i),i= 801, 900)/ + 802, 803, 804, 805, 806, 807, 808, 809, 810, 811, 1 812, 813, 814, 815, 816, 817, 818, 819, 820, 821, 2 822, 823, 824, 825, 826, 827, 828, 829, 830, 831, 3 832, 833, 834, 835, 836, 837, 838, 839, 840, 841, 4 842, 843, 844, 845, 846, 847, 848, 849, 850, 851, 5 852, 853, 854, 855, 856, 857, 858, 859, 860, 861, 6 862, 863, 864, 865, 866, 867, 868, 869, 870, 871, 7 872, 873, 874, 875, 876, 877, 878, 879, 880, 881, 8 882, 883, 884, 885, 886, 887, 888, 889, 890, 891, 9 892, 893, 894, 895, 896, 897, 898, 899, 900, 901/ data (jb2(i),i= 901, 1000)/ + 902, 903, 904, 905, 906, 907, 908, 909, 910, 911, 1 912, 913, 914, 915, 916, 917, 918, 919, 920, 921, 2 922, 923, 924, 925, 926, 927, 928, 929, 930, 931, 3 932, 933, 934, 935, 936, 937, 938, 939, 940, 941, 4 942, 943, 944, 945, 946, 947, 948, 949, 950, 951, 5 952, 953, 954, 955, 956, 957, 958, 959, 960, 961, 6 962, 963, 964, 965, 966, 967, 968, 969, 970, 971, 7 972, 973, 974, 975, 976, 977, 978, 979, 980, 981, 8 982, 983, 984, 985, 986, 987, 988, 989, 990, 991, 9 992, 993, 994, 995, 996, 997, 998, 999, 1000, 1001/ data (jb2(i),i= 1001, 1100)/ + 1002, 1003, 1004, 1005, 1006, 1007, 1008, 1009, 1010, 1011, 1 1012, 1013, 1014, 1015, 1016, 1017, 1018, 1019, 1020, 1021, 2 1022, 1023, 1024, 1025, 1026, 1027, 1028, 1029, 1030, 1031, 3 1032, 1033, 1034, 1035, 1036, 1037, 1038, 1039, 1040, 1041, 4 1042, 1043, 1044, 1045, 1046, 1047, 1048, 1049, 1050, 1051, 5 1052, 1053, 1054, 1055, 1056, 1057, 1058, 1059, 1060, 1061, 6 1062, 1063, 1064, 1065, 1066, 1067, 1068, 1069, 1070, 1071, 7 1072, 1073, 1074, 1075, 1076, 1077, 1078, 1079, 1080, 1081, 8 1082, 1083, 1084, 1085, 1086, 1087, 1088, 1089, 1090, 1091, 9 1092, 1093, 1094, 1095, 1096, 1097, 1098, 1099, 1100, 1101/ data (jb2(i),i= 1101, 1200)/ + 1102, 1103, 1104, 1105, 1106, 1107, 1108, 1109, 1110, 1111, 1 1112, 1113, 1114, 1115, 1116, 1117, 1118, 1119, 1120, 1121, 2 1122, 1123, 1124, 1125, 1126, 1127, 1128, 1129, 1130, 1131, 3 1132, 1133, 1134, 1135, 1136, 1137, 1138, 1139, 1140, 1141, 4 1142, 1143, 1144, 1145, 1146, 1147, 1148, 1149, 1150, 1151, 5 1152, 1153, 1154, 1155, 1156, 1157, 1158, 1159, 1160, 1161, 6 1162, 1163, 1164, 1165, 1166, 1167, 1168, 1169, 1170, 1171, 7 1171, 2, 3, 4, 5, 6, 7, 8, 9, 10, 8 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 9 21, 22, 23, 24, 25, 26, 27, 28, 29, 30/ data (jb2(i),i= 1201, 1300)/ + 31, 32, 33, 34, 35, 35, 37, 38, 39, 40, 1 41, 42, 43, 44, 45, 45, 47, 48, 49, 50, 2 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 3 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 4 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 5 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 6 91, 92, 93, 94, 95, 95, 97, 98, 99, 100, 7 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 8 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 9 121, 122, 123, 124, 124, 126, 127, 128, 129, 130/ data (jb2(i),i= 1301, 1400)/ + 131, 132, 133, 134, 135, 136, 137, 137, 139, 140, 1 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 2 151, 152, 153, 153, 155, 156, 157, 158, 159, 160, 3 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 4 171, 172, 172, 174, 175, 176, 177, 178, 179, 180, 5 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 6 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 7 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 8 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 9 221, 221, 223, 224, 224, 226, 227, 228, 229, 230/ data (jb2(i),i= 1401, 1500)/ + 231, 232, 232, 234, 235, 236, 237, 238, 239, 240, 1 241, 242, 243, 244, 245, 246, 247, 248, 249, 249, 2 251, 252, 253, 254, 255, 256, 257, 258, 259, 260, 3 261, 262, 263, 263, 265, 266, 267, 268, 269, 270, 4 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 5 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, 6 291, 292, 293, 294, 295, 296, 297, 298, 299, 300, 7 301, 302, 303, 304, 305, 306, 307, 308, 309, 310, 8 311, 312, 313, 314, 315, 316, 317, 318, 319, 320, 9 321, 322, 323, 324, 325, 326, 327, 328, 329, 330/ data (jb2(i),i= 1501, 1600)/ + 331, 332, 333, 334, 335, 336, 337, 338, 339, 340, 1 341, 342, 343, 344, 345, 346, 347, 348, 349, 350, 2 351, 352, 353, 354, 355, 355, 357, 358, 359, 360, 3 361, 362, 363, 364, 365, 366, 367, 368, 369, 370, 4 371, 372, 373, 374, 375, 376, 377, 378, 379, 380, 5 381, 382, 383, 384, 385, 386, 387, 388, 389, 390, 6 391, 392, 393, 394, 395, 396, 397, 398, 399, 400, 7 401, 402, 403, 404, 405, 406, 407, 408, 409, 410, 8 411, 412, 413, 414, 415, 416, 417, 418, 419, 420, 9 421, 422, 423, 424, 425, 426, 427, 428, 429, 430/ data (jb2(i),i= 1601, 1700)/ + 431, 432, 433, 434, 435, 435, 437, 438, 439, 440, 1 441, 441, 443, 444, 445, 446, 447, 448, 449, 450, 2 451, 451, 453, 454, 455, 456, 457, 458, 459, 460, 3 461, 462, 463, 464, 465, 466, 467, 468, 469, 470, 4 471, 472, 473, 474, 475, 476, 477, 478, 479, 480, 5 481, 482, 482, 484, 485, 486, 487, 488, 489, 490, 6 490, 492, 493, 494, 495, 496, 497, 498, 499, 500, 7 501, 502, 503, 504, 505, 506, 506, 508, 509, 510, 8 511, 512, 513, 513, 515, 516, 517, 518, 519, 519, 9 521, 522, 523, 524, 525, 526, 527, 528, 529, 530/ data (jb2(i),i= 1701, 1800)/ + 531, 532, 533, 534, 535, 536, 537, 538, 539, 540, 1 541, 542, 543, 544, 545, 546, 547, 547, 549, 550, 2 551, 552, 553, 554, 555, 556, 556, 558, 559, 560, 3 561, 562, 563, 564, 565, 566, 567, 568, 569, 570, 4 571, 572, 573, 574, 575, 576, 577, 578, 579, 580, 5 581, 582, 583, 584, 585, 586, 587, 588, 589, 590, 6 591, 592, 593, 594, 595, 596, 597, 598, 599, 600, 7 601, 602, 603, 604, 605, 605, 607, 608, 609, 609, 8 611, 612, 613, 614, 615, 616, 617, 618, 619, 620, 9 621, 622, 623, 623, 625, 626, 627, 628, 629, 630/ data (jb2(i),i= 1801, 1900)/ + 631, 632, 633, 634, 635, 636, 637, 638, 639, 640, 1 641, 641, 643, 644, 645, 646, 647, 647, 649, 650, 2 651, 652, 653, 654, 654, 656, 657, 658, 659, 660, 3 661, 662, 663, 664, 665, 666, 667, 668, 669, 670, 4 671, 672, 673, 674, 675, 676, 677, 678, 679, 680, 5 680, 682, 683, 684, 685, 686, 687, 688, 689, 690, 6 691, 692, 693, 694, 695, 696, 697, 698, 699, 700, 7 701, 702, 703, 704, 705, 705, 707, 708, 709, 710, 8 711, 712, 713, 714, 715, 716, 717, 718, 719, 720, 9 721, 722, 723, 724, 725, 726, 727, 728, 729, 729/ c state=istate irot=jrot npart=ipart do i=1,5 jv(i)=kv(i) jb(i)=kb(i) ib(i)=iib(i) enddo do i=1,jv(npart+1)-1 ix(i)=jx(i) iy(i)=jy(i) enddo do i=1,jb(npart+1)-1 ib1(i)=jb1(i) ib2(i)=jb2(i) enddo return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine az(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(*) :: jv,jb,ib,ix,iy,ib1,ib2 integer(kind=iknd), save, dimension(5) :: kv,kb,iib integer(kind=iknd), save, dimension(530) :: jx,jy integer(kind=iknd), save, dimension(540) :: jb1,jb2 integer(kind=iknd), save :: jrot,ipart character(len=80) :: state character(len=80), save :: istate cy data istate/'arizona '/ data jrot,ipart/1,1/ data kv/ 1, 525, 0, 0, 0/ data kb/ 1, 539, 0, 0, 0/ data iib/ 173, 0, 0, 0, 0/ data (jx(i),i= 1, 100)/ + 16032,16080,16104,34392,43104,50088,54480,55104,15840,21384, 1 21480,21864,21936,22056,22512,22608,22536,22368,22272,22152, 2 21960,21696,21648,21792,21672,21768,21696,21648,21600,21600, 3 21720,21648,21840,21888,22008,22200,22320,22392,22512,22680, 4 22992,23088,23280,23496,23640,23784,23952,24264,24624,24792, 5 25032,25320,25416,25488,25824,26064,27144,28296,28632,28680, 6 28776,29040,29256,29928,30336,30576,30840,38208,16032,34032, 7 33936,33336,33336,33288,32784,32472,32328,32208,31896,31824, 8 31512,31152,34656,34680,35040,35160,35232,35256,35472,35712, 9 35952,36240,36336,36432,36672,36744,36888,37056,37104,37296/ data (jx(i),i= 101, 200)/ + 37392,37608,37680,38064,38232,38448,38640,38736,38784,39072, 1 39216,39456,39600,39744,39864,40368,40416,40368,40464,40632, 2 40896,41184,41304,41352,41448,41568,41760,42144,42432,42648, 3 42672,43056,42936,43080,43104,43032,47496,43200,43512,43464, 4 43512,43776,43968,44376,44688,44976,44976,45024,45000,45120, 5 45120,45144,45024,45048,45648,45840,45888,46056,46272,46248, 6 46296,46368,46536,46632,46656,46728,47952,47880,47952,47976, 7 48024,55008,55128,26088,24264,24072,23808,23592,23400,23088, 8 22944,22800,22608,22488,22176,22248,22200,22080,21864,21744, 9 21696,21720,21600,21456,21264,21288,21240,21120,21144,20952/ data (jx(i),i= 201, 300)/ + 20976,20928,20952,20712,20712,20568,20520,20472,20544,20280, 1 20232,20088,19848,19656,19632,19536,19560,19464,19224,19104, 2 19080,18840,18120,17592,17496,16968,16800,16704,16320,29496, 3 29928,34968,26088,26256,26280,26472,27072,27360,27552,27696, 4 27648,27792,27744,27816,27912,28152,28176,28176,28032,28800, 5 28800,30024,30000,31224,31248,33552,34416,39624,38256,38256, 6 35856,35856,34056,33456,32880,32280,31056,31056,25296,25296, 7 36768,36504,36456,36360,36312,36096,35976,35856,35856,35712, 8 35712,35640,35496,35496,35448,35472,35400,35424,35352,35280, 9 35208,35040,34896,34800,34752,34704,34776,34704,34584,34104/ data (jx(i),i= 301, 400)/ + 33960,33888,33840,33720,34992,34800,34704,34656,34728,34632, 1 34728,34632,34728,34656,34776,34824,34848,34920,34872,34680, 2 34584,34272,34272,34200,34272,34416,34416,34344,34200,34152, 3 34152,34056,34128,34080,34176,33984,33888,33648,33864,33840, 4 33744,33744,33840,33816,33936,33936,34080,34176,34056,33768, 5 33816,33720,33696,33912,33912,33744,33768,33888,33816,33912, 6 33912,33864,33816,33840,33768,33816,33696,33744,33624,33648, 7 33576,33624,33528,33384,33336,33312,33480,34512,34728,34656, 8 34752,34800,35016,34920,34968,34896,35088,35112,34992,34968, 9 34464,34608,34512,34416,36600,36672,37536,37464,37368,37296/ data (jx(i),i= 401, 500)/ + 37296,37032,36912,36624,36600,36480,36432,36408,36744,36720, 1 36864,36984,37296,37344,37272,37320,37560,37728,37896,37968, 2 38112,38184,38304,38472,38544,38688,38904,39096,39360,39360, 3 39480,39264,38976,40440,40872,39024,43080,44640,44640,45264, 4 45720,46056,46776,46872,47184,47208,47496,36768,36744,39648, 5 39672,39576,40776,40200,40128,43128,39264,39264,39336,39528, 6 39504,39600,39720,39960,40272,40224,40080,39912,39864,39792, 7 40440,42216,42192,42048,41952,41856,41808,41496,46992,46896, 8 42312,42360,42552,42504,42576,42600,42696,42672,43008,43080, 9 43152,43320,43464,43584,43776,41904,41088,40416,40416,40536/ data (jx(i),i= 501, 530)/ + 40608,40704,40824,40824,40944,41232,41856,42240,42312,46968, 1 47064,46992,47568,52368,53808,53808,52416,38208,38448,38520, 2 38664,38640,38760,38976, 0, 0, 0, 0, 0, 0/ data (jy(i),i= 1, 100)/ + 36432,46464,50472,27048,24576,31272,42816,48168,28104,27936, 1 27840,27624,27504,27552,27360,26928,26736,26664,26424,26496, 2 26376,26160,25992,25752,25608,25392,25368,25416,25368,25008, 3 24792,24696,24408,24072,23976,24072,24048,24144,24024,24000, 4 24072,24168,24216,24432,24192,24240,24144,24216,24144,24264, 5 24240,24408,24384,24288,24360,24240,24648,24768,24720,24432, 6 24312,24576,24384,24384,24336,24576,24672,56184,55752,26808, 7 26568,25944,25728,25680,25704,25560,25416,25488,25320,25344, 8 25224,24840,27072,26904,26520,26496,26352,26160,25944,25392, 9 25272,25272,25104,25152,24912,24744,24696,24840,24744,24864/ data (jy(i),i= 101, 200)/ + 24696,24744,24720,24840,24792,24888,24648,24744,24648,24672, 1 24576,24648,24480,24408,24216,23976,23880,23688,23472,23568, 2 23592,23400,23472,23664,23736,23640,23712,23688,23544,23496, 3 23592,23736,23832,24024,24168,24288,56328,24648,24720,24816, 4 24840,24768,24864,24816,24456,24456,24384,24384,24240,24144, 5 23928,23928,23448,23400,23088,22944,22776,22824,22728,22848, 6 22872,22800,22728,22800,22704,22728,56352,56232,56280,56256, 7 56352,56472,44520,31824,31872,31896,32016,32016,31920,31992, 8 31872,31896,31800,31848,32064,32376,32568,32736,32712,32856, 9 32928,33096,33216,33480,33672,33912,34128,34248,34416,34584/ data (jy(i),i= 201, 300)/ + 34704,34776,34920,35184,35376,35376,35448,35568,35640,35808, 1 35904,35928,35808,35952,35808,35832,35736,35784,35664,35712, 2 35784,35976,35880,36024,36000,36216,36264,36360,36504,46416, 3 46368,46368,32208,32472,32736,32856,33816,34008,34776,35088, 4 35400,35592,35760,35832,35808,36048,36168,36648,36840,36816, 5 37416,37416,40560,40560,41832,41832,31632,51360,51336,51528, 6 51480,51552,51552,51528,51432,51504,51480,51528,51528,50568, 7 42120,42120,42240,42240,42312,42168,42264,42216,42120,42216, 8 40872,40824,40920,40992,40968,40896,40896,40968,41016,40920, 9 40920,40968,41088,41040,41160,41160,41088,41040,41160,41184/ data (jy(i),i= 301, 400)/ + 41448,41520,41688,41808,46296,46344,46200,46200,46176,46152, 1 46080,46056,46032,45840,45984,45888,45936,45888,45648,45528, 2 45168,44904,44832,44832,44760,44784,44688,44616,44736,44712, 3 44520,44448,44328,44232,44112,44016,43680,43512,43104,42936, 4 42960,42816,42720,42696,42672,42600,42768,42624,42528,42528, 5 42624,42672,42480,42288,42216,42288,42120,42144,42096,42000, 6 41880,41808,41880,41928,41928,41976,42000,42072,42168,42240, 7 42264,41880,42024,42024,42096,42000,41976,27432,27624,27672, 8 27768,28632,28752,28872,29088,29328,29496,29640,29856,30096, 9 30504,31416,31536,31584,31584,34968,37632,37632,37824,37824/ data (jy(i),i= 401, 500)/ + 37872,37848,38088,38184,38304,38280,38352,38280,40800,42360, 1 42456,42360,42360,42456,42504,42624,42576,42744,42696,42816, 2 42720,42792,42720,42744,42888,43008,43032,43296,43440,43536, 3 43680,43752,44064,44760,31488,53616,53688,54624,54720,55128, 4 55344,55392,55296,55440,55656,55752,55920,46392,50688,50712, 5 51120,50904,27888,27912,26112,26016,53424,53160,52992,52896, 6 52752,52584,52656,52272,52128,51840,51840,51768,51624,51624, 7 41616,41592,38736,38640,38400,38352,38160,38016,37944,31344, 8 48168,47760,47616,47520,47496,47328,47280,47016,46680,46728, 9 46536,46560,46512,46368,46248,45288,45024,50712,49728,49632/ data (jy(i),i= 501, 530)/ + 48888,48744,48696,48336,48192,48120,48120,48312,48288,48168, 1 44040,44040,48168,48192,42792,44016,44016,54408,54360,54408, 2 54168,53928,53736,53712, 0, 0, 0, 0, 0, 0/ data (jb1(i),i= 1, 100)/ + 1, 9, 10, 11, 12, 13, 14, 15, 16, 17, 1 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 2 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 3 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 4 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 5 58, 59, 60, 61, 62, 63, 64, 65, 66, 1, 6 2, 68, 3, 4, 70, 71, 72, 73, 74, 75, 7 76, 77, 78, 79, 80, 81, 67, 4, 83, 84, 8 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 9 95, 96, 97, 98, 99, 100, 101, 102, 103, 104/ data (jb1(i),i= 101, 200)/ + 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 1 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 2 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 3 135, 5, 68, 5, 138, 139, 140, 141, 142, 143, 4 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 5 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 6 164, 165, 6, 137, 167, 168, 169, 170, 171, 8, 7 6, 7, 8, 174, 175, 176, 177, 178, 179, 180, 8 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 9 191, 192, 193, 194, 195, 196, 197, 198, 199, 200/ data (jb1(i),i= 201, 300)/ + 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 1 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 2 221, 222, 223, 224, 225, 226, 227, 228, 229, 2, 3 230, 231, 174, 233, 234, 235, 236, 237, 238, 239, 4 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 5 250, 251, 252, 253, 254, 255, 174, 258, 259, 260, 6 261, 262, 263, 264, 265, 266, 267, 268, 269, 270, 7 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 8 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, 9 291, 292, 293, 294, 295, 296, 297, 298, 299, 300/ data (jb1(i),i= 301, 400)/ + 301, 302, 303, 256, 232, 305, 306, 307, 308, 309, 1 310, 311, 312, 313, 314, 315, 316, 317, 318, 319, 2 320, 321, 322, 323, 324, 325, 326, 327, 328, 329, 3 330, 331, 332, 333, 334, 335, 336, 337, 338, 339, 4 340, 341, 342, 343, 344, 345, 346, 347, 348, 349, 5 350, 351, 352, 353, 354, 355, 356, 357, 358, 359, 6 360, 361, 362, 363, 364, 365, 366, 367, 368, 369, 7 370, 371, 372, 373, 374, 375, 376, 256, 4, 378, 8 379, 380, 381, 382, 383, 384, 385, 386, 387, 388, 9 389, 390, 391, 392, 393, 257, 257, 395, 396, 397/ data (jb1(i),i= 401, 500)/ + 398, 399, 400, 401, 402, 403, 404, 405, 406, 407, 1 408, 271, 271, 410, 411, 412, 413, 414, 415, 416, 2 417, 418, 419, 420, 421, 422, 423, 424, 425, 426, 3 427, 428, 429, 430, 431, 432, 433, 395, 436, 437, 4 438, 439, 440, 441, 442, 443, 444, 445, 446, 232, 5 448, 449, 258, 451, 450, 435, 453, 454, 455, 456, 6 436, 457, 458, 459, 460, 461, 462, 463, 464, 465, 7 466, 467, 468, 469, 258, 434, 471, 472, 473, 474, 8 475, 476, 477, 478, 435, 481, 482, 483, 484, 485, 9 486, 487, 488, 489, 490, 491, 492, 493, 494, 495/ data (jb1(i),i= 501, 540)/ + 496, 434, 450, 498, 499, 500, 501, 502, 503, 504, 1 505, 506, 507, 508, 481, 481, 479, 479, 511, 510, 2 480, 447, 510, 513, 7, 515, 516, 514, 514, 68, 3 518, 519, 520, 521, 522, 523, 436, 447, 0, 0/ data (jb2(i),i= 1, 100)/ + 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 1 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 2 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 3 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 4 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 5 59, 60, 61, 62, 63, 64, 65, 66, 67, 2, 6 3, 69, 69, 70, 71, 72, 73, 74, 75, 76, 7 77, 78, 79, 80, 81, 82, 82, 83, 84, 85, 8 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 9 96, 97, 98, 99, 100, 101, 102, 103, 104, 105/ data (jb2(i),i= 101, 200)/ + 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 1 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 2 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 3 136, 136, 137, 138, 139, 140, 141, 142, 143, 144, 4 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 5 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 6 165, 166, 166, 167, 168, 169, 170, 171, 172, 172, 7 7, 173, 173, 175, 176, 177, 178, 179, 180, 181, 8 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 9 192, 193, 194, 195, 196, 197, 198, 199, 200, 201/ data (jb2(i),i= 201, 300)/ + 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 1 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 2 222, 223, 224, 225, 226, 227, 228, 229, 1, 230, 3 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 4 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 5 251, 252, 253, 254, 255, 256, 257, 259, 260, 261, 6 262, 263, 264, 265, 266, 267, 268, 269, 270, 3, 7 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 8 282, 283, 284, 285, 286, 287, 288, 289, 290, 291, 9 292, 293, 294, 295, 296, 297, 298, 299, 300, 301/ data (jb2(i),i= 301, 400)/ + 302, 303, 304, 304, 305, 306, 307, 308, 309, 310, 1 311, 312, 313, 314, 315, 316, 317, 318, 319, 320, 2 321, 322, 323, 324, 325, 326, 327, 328, 329, 330, 3 331, 332, 333, 334, 335, 336, 337, 338, 339, 340, 4 341, 342, 343, 344, 345, 346, 347, 348, 349, 350, 5 351, 352, 353, 354, 355, 356, 357, 358, 359, 360, 6 361, 362, 363, 364, 365, 366, 367, 368, 369, 370, 7 371, 372, 373, 374, 375, 376, 377, 377, 378, 379, 8 380, 381, 382, 383, 384, 385, 386, 387, 388, 389, 9 390, 391, 392, 393, 394, 394, 395, 396, 397, 398/ data (jb2(i),i= 401, 500)/ + 399, 400, 401, 402, 403, 404, 405, 406, 407, 408, 1 409, 409, 410, 411, 412, 413, 414, 415, 416, 417, 2 418, 419, 420, 421, 422, 423, 424, 425, 426, 427, 3 428, 429, 430, 431, 432, 433, 434, 435, 437, 438, 4 439, 440, 441, 442, 443, 444, 445, 446, 447, 448, 5 449, 450, 451, 452, 452, 453, 454, 455, 456, 5, 6 457, 458, 459, 460, 461, 462, 463, 464, 465, 466, 7 467, 468, 469, 470, 470, 471, 472, 473, 474, 475, 8 476, 477, 478, 479, 480, 482, 483, 484, 485, 486, 9 487, 488, 489, 490, 491, 492, 493, 494, 495, 496/ data (jb2(i),i= 501, 540)/ + 497, 497, 498, 499, 500, 501, 502, 503, 504, 505, 1 506, 507, 508, 509, 509, 510, 480, 511, 512, 512, 2 6, 513, 513, 514, 515, 516, 517, 517, 8, 518, 3 519, 520, 521, 522, 523, 524, 524, 137, 0, 0/ c state=istate irot=jrot npart=ipart do i=1,5 jv(i)=kv(i) jb(i)=kb(i) ib(i)=iib(i) enddo do i=1,jv(npart+1)-1 ix(i)=jx(i) iy(i)=jy(i) enddo do i=1,jb(npart+1)-1 ib1(i)=jb1(i) ib2(i)=jb2(i) enddo return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine ar(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(*) :: jv,jb,ib,ix,iy,ib1,ib2 integer(kind=iknd), save, dimension(5) :: kv,kb,iib integer(kind=iknd), save, dimension(1980) :: jx,jy integer(kind=iknd), save, dimension(2050) :: jb1,jb2 integer(kind=iknd), save :: jrot,ipart character(len=80) :: state character(len=80), save :: istate cy data istate/'arkansas '/ data jrot,ipart/0,1/ data kv/ 1,1974, 0, 0, 0/ data kb/ 1,2048, 0, 0, 0/ data iib/ 414, 0, 0, 0, 0/ data (jx(i),i= 1, 100)/ + 23376,19008,13392,26568,30240,43728,37536,37176, 6648,49608, 1 47856, 7128,48744,50376, 7656, 7416,47928, 7320,46200, 7056, 2 42672, 6960,11304,39888,31512,13584,16920,22056,37704,49896, 3 49848,49968,50088,50016,50088,50088,50328,50616,50784,50808, 4 50712,50712,50664,50808,50808,50688,50328,50208,50256, 6048, 5 50520,50664,50856,51072,51072,51144,51096,51168,51744,51768, 6 51696,51432,51312,51360,51480,51864,52104,52224,52536,52656, 7 52320,52200,52200,52320,53088,53184,53136,53040,52776,52656, 8 52368,52152,52128,52536,52752,53208,53544,53664,53736,53856, 9 54000,54312,54576,54624,54528,53952,53904,54024,54336,55008/ data (jx(i),i= 101, 200)/ + 55104,55128,54984,54360,54384,49272,49176,48816,48648,48552, 1 48432,48384,48264,48240,50112,50016,50088,50424,50352,50400, 2 50496,50688,51024,50760,50808,50784,50232,50208,50400,50664, 3 50856,51216,51240,51024,50880,50472,50208,50136,50064,50136, 4 50040,49944,49608,49224,48960,48840,48864,48984,49488,49560, 5 49536,49416,48960,48936,48864,48528,48120,47832,47808,47568, 6 47352,47160,47136,47400,47304,47280,47568,47568,47472,47232, 7 47064,46824,46800,46992,46992,46872,46704,46584,46536,46608, 8 46488,46344,46416,46632,47376,47400,47328,46896,46680,46536, 9 46464,46632,46560,46416,46272,46416,46728,46800,46728,46344/ data (jx(i),i= 201, 300)/ + 46176,46176,46344,46296,45840,45528,45456,45528,45432,45288, 1 45192,45336,45312,44928,44640,44472,44424,44640,44688,44568, 2 44424,44160,43920,43824,43752,43632,43344,42984,42816,42768, 3 42816,43104,43320,43800,44040,44088,43944,43680,43488,43152, 4 42792,42624,42528,42552,43056,43416,43464,43248,42912,42696, 5 42504,42408,42576,42552,42432,42312,42192,42048,41784,41448, 6 41328,41256,41280,41376,41952,41952,41640,41568,41952,42312, 7 42336,42216,42000,41784,41592,41472,41184,41040,40920,40776, 8 40848,40824,40920,41064,41256,41424,41568,41640,41904,41928, 9 41496,41328,40968,40536,40152,40008,40032,40704,40776,40800/ data (jx(i),i= 301, 400)/ + 40680,40512,40392,39984,39912, 6816, 6984, 7128, 7200, 7056, 1 7128, 6960, 6984, 7176, 7320, 7584, 7824, 7896, 7872, 7632, 2 7896, 8136, 8160, 8232, 8304, 8448, 8568, 8664, 8784, 8880, 3 8760, 8904, 9120, 9288, 9336, 9336, 9168, 9360, 9480, 9648, 4 9792, 9768, 9600, 9552, 9720, 9960,10128,10152,10296,10224, 5 10392,10440,10512,10560,10872,11040,11160,11136,10992,10992, 6 11232,39936,40104,40392,40440,40320,39864,39888,40128,40464, 7 40560,40536,40656,41040,41136,41040,40896,40272,40200,40272, 8 40608,40920,41256,41376,41616,41736,41712,41352,41160,40920, 9 40872,40896,41088,41352,41472,41568,41736,41880,41880,41808/ data (jx(i),i= 401, 500)/ + 41424,41496,41376,41112,40752,40536,40392,40320,40368,41088, 1 41160,41016,40824,40752,23352,23304,23040,23016,18960,13368, 2 26520,26376,26304,25920,26064,26520,26568,26544,26256,26160, 3 26112,26376,26592,26616,26424,26472,26688,26904,27144,27096, 4 27216,27024,27144,27360,27456,27600,27600,27768,27768,27576, 5 27600,27768,27744,30216,43848,43776,43872,43776,43944,43968, 6 43896,43896,44064,44088,43824,43752,43680,43560,43560,37536, 7 37632,37632,37800,37800,37968,37968,38064,38040,38088,38112, 8 38160,38160,38496,38520,38688,38688,38880,38880,39048,39024, 9 34824,37176,36096,36072, 8232, 8232, 8736, 8784,11952,11952/ data (jx(i),i= 501, 600)/ + 13176,13368,48360,48336,43176,43176,43248,43224,43296,43176, 1 43152,43296,43272,43416,43440,43944,43920,44160,43560,39216, 2 39216,39288,39288,39384,39456,40080,40344,40872,40824,40896, 3 41016,41064,41160,30216,29712,29688,29880,17208,16488,16488, 4 16152,16152,15888,15912,15816,15840,15624,15600,15696,15624, 5 15384,15360,15432,15456,15408,22488,23544,23544,27744,22416, 6 22536,22488,47784,47784,29856,28800,28800,34824,34992,34968, 7 34872,34872,34968,34968,34656,34656,29928,30144,30312,30408, 8 30696,30960,31200,31176,30912,30840,30984,30744,30696,30744, 9 30888,31080,31464,31584,31704,31992,32112,32808,33168,33312/ data (jx(i),i= 601, 700)/ + 16776,16800,16728,16776,16968,16992,17136,17136,17304,17304, 1 17472,17520,17184,39024,38328,38328,38160,38160,39768,37128, 2 37128,41400,42840,42984,43080,43008,43032,34272,12600,12504, 3 12408,12384,27720,15024,10776,10776,12888,12888,16752,20304, 4 48864,46728,44976,41424,48816,23808,25608,25584,18936,19008, 5 19704,19728,20256,29472,27696,33480,33480,33192,33120,33264, 6 14880,11280,11592,11424,11592,11688,11592,11616,11736,11760, 7 11232,11280,12168,12192,12336,12360,12888,12888,13080,13104, 8 29376,23784,23424,23424,33768,33960,33936,36048,39768,39600, 9 39672,39600,39600,39504,39432,39288,39432,39432,39144,39192/ data (jx(i),i= 701, 800)/ + 39312,39312,39072,38976,38928,38976,38856,38712,38688,38472, 1 38472,38400,38352,38256,38256,38328,38328,38400,38448,38592, 2 38592,38568,38184,38136,38136,48960,46824,27120,27096,45720, 3 45720,44688,44688,41472,38376,36024,11640,11496,11496,11328, 4 11328,11160,22704,23304,23376,14640,14424,14016,13896,13848, 5 12792,12744,11664, 7848, 8160, 8472, 8568, 8520, 8544, 8760, 6 9096, 9480, 9936,10080,10344,10584,10608,10368,10488,10656, 7 11112,38376,39336,39360,41472,30792,33912,33744,33672,33600, 8 33528,33384,33360,18648,18312,18048,17952,18048,17880,17640, 9 17376,17256,17136,16968,16608,16296,16104,15720,15384,15216/ data (jx(i),i= 801, 900)/ + 15072,19152,14880,14880,15312,15312,16632,16656,16824,16824, 1 16992,16992,17088,17112,17184,17184,17376,17376,19128,19392, 2 19488,20088,20448,20568,20688,20856,21048,21096,21144,21000, 3 21000,21216,21432,21576,21648,21624,21672,22584,10512,10536, 4 11616,46896,44688,41496,27096,27024,26784,26880,26808,26760, 5 26616,26688,26640,26904,26880,26808,26856,26712,26592,26472, 6 26328,38304,38424,38376,38304,38256,38232,38184,38160,37872, 7 38016,37896,37776,37632,37752,37752,37536,37488,37608,37440, 8 37632,37536,37584,37512,37536,37656,37752,37776,37896,37992, 9 38088,38136,38208,38016,38016,38088,37944,38088,38016,38088/ data (jx(i),i= 901, 1000)/ + 38088,37968,37920,37824,37752,37608,37584,37656,37560,37344, 1 37296,37320,37560,37608,37560,37440,37392,37512,37488,37632, 2 37704,37656,37416,37392,37320,37272,21504,21672,21528,21528, 3 22128,22200,22368,26040,25872,25584,25488,25488,25704,25656, 4 25440,25200,24792,30744,33936,33768,33216,33000,32856,32688, 5 32280,32160,31896,31776,31416,31296,31128,30984,11184,11208, 6 10488,10368,10368,10176,10128,10008, 9984, 9720, 9720, 9456, 7 9456, 9648, 9624, 9024, 8736, 8592, 8232, 7992, 7800, 7560, 8 36072,36072,35928,35832,35544,35448,35280,35160,34944,34848, 9 34104,38280,39024,39024,39576,39576,40440,30720,41520,14808/ data (jx(i),i= 1001, 1100)/ + 19032,19032,18864,18864,19032,19032,19200,19224,19392,19392, 1 19584,19584,19752,19752,19920,19944,20112,20112,20304,20328, 2 20520,20520,20688,20712,20880,20880,21072,21072,21240,21240, 3 21408,21432,26472,26520,26424,26160,26016,25944,26160,26496, 4 47904,47904,29688,29640,27768,27792,27744,27504,27528,27480, 5 27384,27312,27384,27144,38304,37536,37536,37296,37152,37152, 6 37368,37440,38256,38256,37896,37896,37536,37536,38256,38280, 7 38208,38256,38376,38424,38328,38448,38520,38520,38448,38376, 8 38256,38088,38160,38256,43632,40992,40968,40800,40800,40464, 9 26496,25440,25440,24384,24384,24552,21168,21168,23616,24120/ data (jx(i),i= 1101, 1200)/ + 24360,24528,24000,24024,23856,23856,23184,23184,22128,22128, 1 22224,22248,17976,17976, 8712, 8712,11520,11520,12576,12576, 2 14448,14448,14088,14088,13728,13728,13224,13224,13128,13128, 3 41520,17976,17904,17880,17832,40968,41520,12504,25416,25392, 4 26448,26424,26952,26952,27528,27504,28512,28488,29520,29520, 5 29904,31224,31200,31056,30984,30840,31680,31680,34968,33912, 6 35040,34992,35232,35568,35568,35376,35448,35592,35712,35664, 7 35328,35208,35256,36072,36072,41544,41304,41160,41016,41040, 8 40800,40704,40560,40416,40536,40464,40368,40320,40272,40152, 9 40032,39912,39888,39960,40008,39864,39960,39888,39768,39648/ data (jx(i),i= 1201, 1300)/ + 39528,39552,39408,39432,39072,39144,24576,24552,25080,25104, 1 25272,25800,25728,25944,25992,26064,27936,27936,22800,22800, 2 22464,22440,41520,42072,42072,42072,17832, 9360, 9360, 9216, 3 9264,17112,12456,12576,12576,13632,13608,41568,41448,41568, 4 41544,41472,41520,41472,41400,41352,41376,41496,41448,41328, 5 41472,41520,41424,41256,41208,41304,41256,41328,41160,41160, 6 41016,40944,23088,21672,21576,21504,21504,21672,21672,21576, 7 21624,21528,21576,21120,21120,21024,20976,19920,19920,18336, 8 18336,10872,10920,10800,10872,10872,10824,10968,10896,10992, 9 10872,10968,11064,10920,10992,10944,10992,11088,11088,11184/ data (jx(i),i= 1301, 1400)/ + 11088,11064,11136,11256,11256,11592,11544,11592,11688,11784, 1 12048,12168,12144,12192,12216,25200,34944,36096,36168,36168, 2 36288,36360,36696,36792,36864,36960,36912,36960,37152,37224, 3 37368,37560,37656,37728,37656,32520,32520,34632,34632,34824, 4 34800,35304,35688,36120,36192,36192,36024,36264,36624,36912, 5 37080,37272,37296,37224,37320,37464,37512,29712,29904,29688, 6 28656,27024,27072,27192,27288,27432,27408,27696,27864,27960, 7 27960,28104,28176,28296,28440,28560,40944,40848,40704,40608, 8 40464,40320,40320,40248,40272,40200,40200,40320,40320,40488, 9 40608,40608,40920,40872,40800,40776,40656,40824,40800,40464/ data (jx(i),i= 1401, 1500)/ + 40512,40392,40080,39840,39840,39912,39864,39504,39480,39312, 1 39240,39024,38616,38544,38544,38688,38928,39024,39024,38952, 2 38832,38736,38304,38160,38136,37944,37752,37752,37992,17088, 3 16872,16848,17040,17280,17328,17472,17280,17352,17328,17448, 4 17304,17328,17424,17376,17448,17472,17520,17544,17784,17832, 5 17880,17880,18048,18096,18216,18048,17952,17736,17304,14544, 6 14616,14856,15024,15384,15672,15936,16392,16560,16584,16872, 7 16944,17088,17112,23016,22440,22344,22440,22536,22584,22656, 8 22608,22680,22776,22752,22872,22848,23016,22824,22920,22920, 9 22896,22944,23088,23184,23136,23016,23064,22944,22992,26160/ data (jx(i),i= 1501, 1600)/ + 28704,28608,28632,28416,28128,28104,27984,27600,27456,27240, 1 27288,32328,32256,32544,37944,37464,37464,36624,36600,35496, 2 18240,18312,18384,18456,18528,18672,18648,18912,18840,18912, 3 18984,19152,19224,19320,19680,19728,19992,20112,20184,20232, 4 20472,20544,20640,20856,21048,21240,21552,21888,21984,22128, 5 22536,22560,22656,22680,22776,11328,11352,10920,10536,10536, 6 10416,10344,10128,10056,10008, 9864, 9816, 9888, 9864, 9576, 7 9528, 9408, 9360, 9216, 9216, 9048, 8880, 8760, 8688, 8736, 8 8664, 8688, 8472, 8496, 8376, 8328, 8352, 7992, 8112, 7824, 9 7872, 7776, 7728, 7896, 7872, 7632, 7512, 7584, 7536, 7416/ data (jx(i),i= 1601, 1700)/ + 7224, 7080,13464,28728,28680,28656,28704,28704,28752,32352, 1 12264,12192,12144,12072,12168,12192,12240,12264,12216,12264, 2 12120,12168,12096,12120,12312,12384,12480,12456,12648,12624, 3 12768,12624,12720,12864,12936,13032,13128,13200,13272,13368, 4 13440,13536,37656,37680,11640,11712,11784,11760,11928,12024, 5 12024,11928,11976,12144,12192,12264,12456,12528,12720,12744, 6 12624,12672,12768,12840,13152,13416,13536,38736,38736,38904, 7 38904,39000,39000,39792,39816,14592,14256,14352,14352,14136, 8 14232,14184,14064,13992,14112,13968,13872,13824,13968,13896, 9 13824,13728,13776,13512,13656,13608,17256,17160,17136,17016/ data (jx(i),i= 1701, 1800)/ + 20736,18216,16992,19680,19656,32352,32040,32160,32064,32112, 1 31992,32040,32208,32112,32256,37680,22152,20712,26160,25800, 2 25656,25464,25176,25008,24816,24672,24624,24888,24816,24672, 3 24576,24504,24312,24216,24240,24384,24336,24360,24264,24432, 4 24336,24336,24456,24576,24648,24816,24720,24816,24888,24936, 5 24936,25464,25464,25560,25560,25656,25608,25512,25536,25632, 6 25824,25920,26136,26184,26232,26328,26352,26184,26064,25992, 7 25800,25560,25344,25176,25104,24936,24720,24384,24000,28728, 8 28824,28752,28848,28800,28968,28824,28896,28872,28752,28776, 9 28680,28656,28488,28464,28368,28296,28296,28248,28272,28416/ data (jx(i),i= 1801, 1900)/ + 28488,28536,26400,26544,26592,26688,26736,26832,26760,26784, 1 27000,27072,27120,27240,27336,27456,27432,27336,27456,27456, 2 27312,27432,27528,27624,27720,27744,28248,30744,30816,30792, 3 30840,30744,30864,31008,30984,31176,31272,31248,31440,31416, 4 31536,31608,31680,31680,31776,31752,31848,31872,32136,32064, 5 32088,32208,32232,32376,32424,32256,32448,32472,32568,32280, 6 28488,28704,28800,28824,28968,28968,29136,29160,29328,29400, 7 29400,29640,29712,29856,29856,29760,29976,29880,29880,30024, 8 30168,30336,30384,30312,30456,30480,30408,30504,30528,30648, 9 30648,31008,31080,30960,31008,30936,30864,30720,30792,30840/ data (jx(i),i= 1901, 1980)/ + 31008,31080,31272,31344,31392,13632,13464,13560,13536,13368, 1 13320,13368,13080,13176,13272,13416,13608,13656,13800,13872, 2 13896,13992,13992,14064,14352,14424,14448,14208,14184,14472, 3 14496,14376,14448,14760,14784,14520,14496,14760,14520,14472, 4 14616,14760,14880,14880,15096,15144,15072,14712,14712,14808, 5 15048,15048,14952,14856,14736,14592,14568,14808,14496,14664, 6 14664,14568,14448,14352,14376,14544,14424,17016,17520,17544, 7 17616,17568,17712, 0, 0, 0, 0, 0, 0, 0/ data (jy(i),i= 1, 100)/ + 61920,61944,61992,61944,61968,62184,62064,62064,57264,58752, 1 56184,53064,56232,49440,48696,43056,42000,40536,39648,33984, 2 33192,30936,26160,26376,19560,19680,19656,19608,19584,62328, 3 62136,62040,61656,61440,61440,61344,61224,61200,61032,60792, 4 60576,60360,60264,60096,59976,59688,59496,59232,59136,62088, 5 49584,49920,49992,49848,49392,49200,49152,49008,49416,49704, 6 49848,50088,50328,50832,50904,50976,50808,50544,50496,50856, 7 51024,51216,51384,51528,51912,52104,52296,52368,52176,52152, 8 52296,52560,53040,53400,53352,53400,53544,53640,53952,54072, 9 54120,54048,54216,54384,54576,54744,54984,55200,55296,55032/ data (jy(i),i= 101, 200)/ + 55080,55272,55560,56040,56448,58392,57960,57672,57624,57456, 1 57360,57144,57024,56832,49224,48816,48720,48720,48984,49152, 2 49200,49128,48816,48360,48048,47928,47760,47520,47256,47280, 3 47184,46128,45888,45600,45600,45792,45648,45552,45264,44904, 4 44712,44592,44520,44568,44520,44184,43992,43824,43488,43224, 5 43008,42792,42552,42312,42216,42360,42168,41976,42024,42672, 6 42744,42648,42408,41904,41760,41544,41064,40968,40824,40728, 7 40728,40824,40920,41160,41304,41592,41640,41544,41400,40992, 8 40992,40704,40536,40416,40344,40176,40032,39600,39528,39600, 9 39720,40152,40272,40344,39240,38952,38760,38616,38472,38184/ data (jy(i),i= 201, 300)/ + 37896,37704,37176,36888,36576,36480,36144,35784,35664,35712, 1 35832,36288,36360,36240,36336,36312,36120,35928,35712,35280, 2 35184,35352,35280,35088,34488,34368,34392,34752,34728,34560, 3 34440,34128,34056,34104,34008,33864,33600,33480,33552,33816, 4 33792,33696,33528,33336,32928,32952,32832,32232,32160,32016, 5 31968,31872,31536,31344,31272,31296,31344,31656,31608,31824, 6 31824,31704,31584,31464,31032,30744,30360,30024,29448,29256, 7 29064,28920,28872,28944,29160,29184,28920,29064,29112,28920, 8 28608,28392,28248,28176,28176,28224,28368,28344,28056,27816, 9 27600,27576,27768,28200,28200,28008,27816,27240,27024,26808/ data (jy(i),i= 301, 400)/ + 26592,26520,26520,26688,26568,27312,27288,27360,27288,27192, 1 27048,26904,26808,26712,26712,26400,26592,26592,26448,26304, 2 26112,26136,26304,26400,26376,26184,26208,26448,26568,26520, 3 26304,26256,26568,26664,26616,26520,26304,26184,26208,26352, 4 26232,26424,26448,26544,26544,26640,26592,26472,26520,26352, 5 26376,26184,26208,26352,26472,26424,26328,26256,26256,26184, 6 19704,26232,26040,25848,25704,25416,25056,24912,24840,24936, 7 25152,25560,25704,25488,25200,24936,24792,24600,24504,24384, 8 24192,24216,24432,25128,25128,24936,24744,24360,24048,23832, 9 23640,23280,22824,22536,22920,23040,23088,23016,22752,22584/ data (jy(i),i= 401, 500)/ + 22200,21288,21144,21096,21264,21288,21216,21048,20856,20352, 1 20112,19920,19872,19632,61512,61608,61776,57264,57360,59664, 2 60624,60600,60480,60216,60048,60168,60120,59928,59976,59808, 3 59616,59712,59568,59376,59160,59064,59136,58992,58992,58656, 4 58536,58272,58080,57960,57888,58008,57888,57840,57720,57720, 5 57552,57528,56664,59112,62040,61464,61392,61320,61320,61272, 6 61248,61152,61152,59568,59592,59688,59616,59616,59352,61944, 7 61944,61872,61848,61776,61776,61680,61680,61536,61536,61368, 8 61368,61200,61200,60816,60792,60624,60624,60120,60120,59184, 9 59040,60072,60096,59040,57192,57720,57696,58584,58464,58824/ data (jy(i),i= 501, 600)/ + 58776,58776,58704,59400,55728,55776,55800,55872,55896,55992, 1 56136,56400,56592,56784,57048,57480,57648,57936,57936,59184, 2 58752,58824,59016,58968,58824,58536,58056,57912,57696,57624, 3 57672,57840,57936,58032,58056,57552,57480,57408,57432,57792, 4 57792,58152,58176,58344,58344,59088,59136,59160,59280,59328, 5 59256,59352,59376,59520,59616,57288,57264,56736,55584,52536, 6 56760,56760,55800,56112,56640,56640,55584,58488,58488,56184, 7 56160,56112,56112,55992,55968,55248,57192,57168,57312,57288, 8 56688,56616,56376,56256,56184,56064,55560,55320,55152,55056, 9 55008,55008,55224,54960,54888,55152,55152,54528,54504,54336/ data (jy(i),i= 601, 700)/ + 53016,53736,53760,54456,54456,54984,54984,55344,55320,55512, 1 55512,56856,56880,58992,58992,58848,58848,54696,54720,54672, 2 55224,54672,54672,55008,55008,55200,55392,55272,57048,53904, 3 53904,53016,53352,53088,53088,52920,53016,53184,52656,52584, 4 52608,52632,52560,52536,54720,52512,53352,52464,47712,49440, 5 49416,51000,51000,52416,52440,52368,52896,53160,53640,54000, 6 48336,49200,49416,49560,49656,49944,50208,50376,50544,50760, 7 50784,51840,51816,52344,52320,52680,52656,52824,52824,52992, 8 48168,50400,50400,49368,52368,52488,50280,50280,54648,54624, 9 54384,54312,54216,54168,54024,54024,53928,53808,53688,53640/ data (jy(i),i= 701, 800)/ + 53640,53592,53448,53472,53376,53304,53184,53160,53064,52872, 1 52608,52560,52608,52464,52368,52272,51936,51936,51768,51720, 2 51672,51624,51672,51648,50256,49416,49392,49272,48216,49392, 3 49464,49464,49392,49296,49200,49200,46368,46392,46200,46200, 4 46392,46392,45792,45816,45768,48168,48192,48648,48936,47568, 5 47640,46560,46584,49248,49224,48984,48816,48552,48432,48216, 6 48048,48072,48216,48504,48384,48456,48696,49080,49224,49272, 7 49152,49272,49296,48216,48216,48168,49344,49320,49272,49320, 8 49152,49104,48144,47880,47760,47760,47856,48120,48216,48768, 9 48864,48840,48672,48552,48696,48624,48432,48360,48528,48552/ data (jy(i),i= 801, 900)/ + 48504,47592,43992,45384,45384,45600,45576,45720,45696,45864, 1 45840,45936,45936,46176,46176,46272,46272,46368,46296,47376, 2 47112,46968,46416,46008,45864,45816,45936,45888,45696,45456, 3 45384,45192,45144,45240,45408,45576,45696,45816,45000,45528, 4 45480,45768,45792,45720,47160,46992,46848,46656,46680,46560, 5 46464,46344,46056,45864,45528,45480,45360,45120,45120,45240, 6 45072,49104,49008,48840,48816,48888,49080,49104,48792,48624, 7 48408,48432,48552,48408,48336,48240,48360,48312,48168,48048, 8 47880,47712,47640,47544,47424,47424,47544,47088,47088,46920, 9 46968,47088,47016,46776,46680,46536,46512,46464,46296,46248/ data (jy(i),i= 901, 1000)/ + 46176,46176,46416,46440,46200,46200,46152,46008,45888,45888, 1 45816,45720,45696,45504,45480,45552,45480,45264,45168,45192, 2 45144,45072,45048,44928,44976,44928,44640,44808,44952,45048, 3 45144,45360,45432,44928,44712,44640,44664,44736,44928,45072, 4 45000,44688,44592,44568,44304,44160,44136,44208,44136,44352, 5 44376,44496,44568,44688,44592,44664,44640,44544,44112,44424, 6 44472,45000,44928,44928,44832,44832,44760,44760,44688,44592, 7 44496,44496,43392,43296,43320,43224,43368,43200,43200,43032, 8 44928,44136,44136,44064,44136,44376,44448,44424,44544,44544, 9 44256,42768,42792,43680,43680,43920,43920,43920,43896,40680/ data (jy(i),i= 1001, 1100)/ + 40968,42024,42024,42192,42192,42360,42360,42528,42528,42744, 1 42720,42888,42912,43080,43080,43248,43248,43440,43416,43584, 2 43584,43800,43800,43968,43968,44136,44136,44304,44304,44496, 3 44496,44640,44904,44688,44304,43968,43872,43680,43392,43176, 4 45864,42888,43944,42864,42888,42792,42672,42504,42120,41976, 5 41976,42096,42600,43104,44472,44496,44568,44472,44544,44616, 6 44616,44688,38544,38928,38928,39096,39120,39792,39792,41712, 7 41832,41952,41976,42120,42264,42240,42312,42360,42336,42384, 8 42576,42672,42720,42672,42792,42816,42288,42288,42816,42792, 9 42960,42984,42624,42648,41952,41952,40944,42000,41952,41760/ data (jy(i),i= 1101, 1200)/ + 41808,41640,37680,38400,38400,38736,38760,39288,39312,39888, 1 39888,40944,40968,40608,40488,40128,40032,39912,39888,39696, 2 40680,40488,40512,40320,40320,40248,40272,39984,40008,39672, 3 39576,39912,39912,39672,36408,40680,40656,35856,41928,40872, 4 40824,39936,39936,39768,39744,39216,39192,38664,38640,37584, 5 37584,43896,40512,40272,39624,39168,39168,37560,37512,42840, 6 42816,39816,39696,39432,39240,38712,38568,38568,38496,38304, 7 37968,37680,37512,38544,37488,35832,36000,35952,36096,36192, 8 36384,36648,36672,36792,36888,37008,37032,37200,37200,37104, 9 37152,37104,37248,37224,37272,37392,37608,37632,37560,37656/ data (jy(i),i= 1201, 1300)/ + 37680,37848,37896,38136,38184,38544,37680,37320,37320,36600, 1 36600,36600,36744,36912,37056,37104,37080,37608,37704,37008, 2 37032,36312,37464,37464,36744,35856,35712,33984,34920,34920, 3 35952,35712,34800,34800,33888,33816,31704,35712,35640,35616, 4 35520,35544,35304,35256,35376,35208,35064,34872,34800,34800, 5 34632,34416,34176,34200,34032,33696,33600,33504,33432,33360, 6 33288,33192,33456,33504,33432,33528,33720,34008,34128,34176, 7 34248,34272,34440,34416,34464,34440,34536,34560,34944,34968, 8 35688,33936,33864,33576,33528,33336,33264,33168,33000,32832, 9 32568,32472,32448,32256,32184,32064,31872,31728,31344,31248/ data (jy(i),i= 1301, 1400)/ + 31104,30744,30528,30456,30288,30048,29880,29784,29736,29544, 1 29328,28968,28776,28776,28560,33384,34488,34488,34440,34272, 2 34272,34392,34392,34296,33864,33768,33672,33432,33504,33240, 3 33336,33336,33264,32808,32664,32376,32784,32832,32424,32424, 4 33768,33648,33312,33480,33432,33264,32904,32856,32976,32712, 5 32688,32856,32760,32496,32400,32472,32712,32328,34392,34392, 6 32304,33336,33216,33192,33240,33192,33144,33120,32976,32976, 7 32880,32832,32736,32472,32400,32424,33096,33024,33072,32808, 8 32904,32760,32664,32640,32520,32352,32184,32088,31968,31872, 9 31704,31512,31152,31128,31248,31080,31104,30840,30840,30912/ data (jy(i),i= 1401, 1500)/ + 31152,31248,31200,31104,31248,31440,31464,31224,31032,31128, 1 31392,31200,31224,31296,31392,31440,31320,31392,31584,31680, 2 31776,31752,31440,31512,31728,31872,32496,32208,32064,34656, 3 34656,34200,34104,34080,34128,34080,33864,33792,33456,33360, 4 33288,33192,33168,33072,33000,32496,32400,32160,31920,31728, 5 31704,31656,31488,31200,30984,31080,31008,30984,31080,31608, 6 31560,31512,31392,31368,31080,31152,30984,31032,30888,30912, 7 31032,31032,31104,31344,31368,31248,31152,31176,30960,30888, 8 30768,30720,30768,30672,30576,30480,30432,30288,30120,29976, 9 29904,29832,29832,29640,29592,29544,29424,29376,29256,29160/ data (jy(i),i= 1501, 1600)/ + 29064,29256,29496,29856,30024,30264,30600,31104,31200,31200, 1 32256,29064,31320,31320,31680,31728,31392,31392,29016,29112, 2 30936,30912,30792,30792,30576,30552,30456,30288,30048,29760, 3 29688,29568,29616,29496,29496,29400,29328,29160,29232,29184, 4 29328,29280,29040,28848,28848,28992,28776,28896,28872,28992, 5 29136,29256,29400,29352,29376,28608,28968,28992,29112,29016, 6 29064,28968,29016,29160,29088,29016,29064,29136,29352,29256, 7 29424,29232,29232,29352,29424,29424,29592,29472,29472,29568, 8 29712,29832,29904,29976,29976,30096,30216,30216,30312,30408, 9 30672,30696,30792,30816,30936,31032,31008,30888,30792,30864/ data (jy(i),i= 1601, 1700)/ + 30840,31032,28536,28800,28728,28488,28368,28104,28008,27984, 1 28440,28392,28440,28296,28104,28296,28296,28224,28104,28032, 2 28008,27888,27696,27576,27480,27360,27408,27504,27504,27456, 3 27336,27096,27192,27216,27072,27144,27120,26928,26904,26952, 4 26808,26856,29016,26400,26328,26304,26208,26016,25944,26112, 5 26208,26328,26376,26376,26160,26136,26496,26496,26352,26496, 6 26592,26640,26664,26520,26856,26760,26784,26400,26016,26016, 7 25944,25944,25824,25824,26376,25296,25704,25800,25920,25680, 8 25536,25488,25488,25776,25896,25848,25872,25968,26136,26184, 9 26040,26016,26304,26376,26688,26880,29448,29448,29376,25200/ data (jy(i),i= 1701, 1800)/ + 24936,24816,24864,24936,24768,25896,25872,25560,25440,25224, 1 24984,24912,24768,24552,24264,24240,23976,24024,28344,27912, 2 27840,27456,27432,27312,27336,27144,26952,26544,26160,26232, 3 26160,26040,26136,26040,25920,25872,25776,25704,25632,25512, 4 25464,25416,25296,25296,25416,25296,25080,24912,24912,24984, 5 24648,24696,24576,24576,24480,24432,24360,24312,24264,24240, 6 24408,24312,24288,24000,23952,24024,23856,23856,23928,23808, 7 23760,23880,23736,23808,23880,23880,24072,24120,23904,27816, 8 27288,26784,26544,26352,26088,25872,25704,25176,24960,24840, 9 24768,24528,24288,24024,24048,23976,23760,23688,23280,23136/ data (jy(i),i= 1801, 1900)/ + 23160,23088,23808,23856,23784,23760,23520,23472,23376,23280, 1 23400,23376,23256,23400,23256,23304,23232,23136,23136,23112, 2 23016,22848,22896,22728,22776,22704,22800,21432,21552,21672, 3 21696,21768,21960,21984,22152,22152,22296,22344,22392,22512, 4 22584,22536,22560,22680,22728,22872,22896,22824,22920,23088, 5 23136,23160,23088,23112,23400,23640,23688,23904,24048,24168, 6 22872,22776,22824,22632,22632,22728,22848,22656,22680,22656, 7 22560,22488,22560,22512,22416,22272,22176,22104,22008,21912, 8 21912,22032,21816,21720,21696,21552,21432,21408,21504,21528, 9 21408,21384,21264,21192,21072,20928,20904,20664,20616,20328/ data (jy(i),i= 1901, 1980)/ + 20280,19800,19848,19800,19632,19776,19848,19968,20040,20088, 1 20160,20376,20616,20664,21192,21216,21072,21336,21384,21384, 2 21192,21144,21360,21456,21288,21312,21408,21504,21600,21648, 3 21744,21816,21984,22128,22200,22176,22248,22488,22704,22800, 4 22896,22800,22800,23280,23328,23400,23520,23592,23736,23904, 5 23976,24024,24144,24120,23952,24024,24096,24120,24528,24672, 6 24744,24768,24624,24744,24840,24816,25032,22560,22536,22920, 7 23088,23280,23784, 0, 0, 0, 0, 0, 0, 0/ data (jb1(i),i= 1, 100)/ + 6, 7, 2, 5, 4, 1, 1, 6, 30, 31, 1 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 2 42, 43, 44, 45, 46, 47, 48, 10, 9, 3, 3 14, 51, 52, 53, 54, 55, 56, 57, 58, 59, 4 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 5 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 6 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 7 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 8 100, 101, 102, 103, 104, 13, 11, 10, 106, 107, 9 108, 109, 110, 111, 112, 113, 11, 9, 12, 15/ data (jb1(i),i= 101, 200)/ + 14, 115, 116, 117, 118, 119, 120, 121, 122, 123, 1 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 2 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 3 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 4 154, 155, 156, 17, 16, 18, 17, 158, 159, 160, 5 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 6 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 7 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 8 191, 192, 193, 19, 19, 195, 196, 197, 198, 199, 9 200, 201, 202, 203, 204, 205, 206, 207, 208, 209/ data (jb1(i),i= 201, 300)/ + 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 1 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 2 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 3 240, 241, 242, 243, 21, 20, 21, 245, 246, 247, 4 248, 249, 250, 251, 252, 253, 254, 255, 256, 257, 5 258, 259, 260, 261, 262, 263, 264, 265, 266, 267, 6 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 7 278, 279, 280, 281, 282, 283, 284, 285, 286, 287, 8 288, 289, 290, 291, 292, 293, 294, 295, 296, 297, 9 298, 299, 300, 301, 302, 303, 304, 24, 22, 306/ data (jb1(i),i= 301, 400)/ + 307, 308, 309, 310, 311, 312, 313, 314, 315, 316, 1 317, 318, 319, 320, 321, 322, 323, 324, 325, 326, 2 327, 328, 329, 330, 331, 332, 333, 334, 335, 336, 3 337, 338, 339, 340, 341, 342, 343, 344, 345, 346, 4 347, 348, 349, 350, 351, 352, 353, 354, 355, 356, 5 357, 358, 359, 23, 23, 26, 26, 27, 24, 362, 6 363, 364, 365, 366, 367, 368, 369, 370, 371, 372, 7 373, 374, 375, 376, 377, 378, 379, 380, 381, 382, 8 383, 384, 385, 386, 387, 388, 389, 390, 391, 392, 9 393, 394, 395, 396, 397, 398, 399, 400, 401, 402/ data (jb1(i),i= 401, 500)/ + 403, 404, 405, 406, 407, 408, 409, 410, 411, 412, 1 413, 29, 25, 25, 1, 415, 416, 417, 2, 3, 2 4, 421, 422, 423, 424, 425, 426, 427, 428, 429, 3 430, 431, 432, 433, 434, 435, 436, 437, 438, 439, 4 440, 441, 442, 443, 444, 445, 446, 447, 448, 449, 5 450, 451, 452, 454, 6, 455, 456, 457, 458, 459, 6 460, 461, 462, 463, 464, 465, 466, 467, 468, 7, 7 470, 471, 472, 473, 474, 475, 476, 477, 478, 479, 8 480, 481, 482, 483, 484, 485, 486, 487, 488, 489, 9 454, 8, 492, 493, 491, 9, 495, 496, 497, 498/ data (jb1(i),i= 501, 600)/ + 499, 500, 420, 501, 10, 503, 469, 505, 506, 507, 1 508, 509, 510, 511, 512, 513, 514, 515, 516, 517, 2 518, 469, 490, 520, 521, 522, 523, 524, 525, 526, 3 527, 528, 529, 530, 531, 532, 519, 454, 534, 535, 4 536, 538, 539, 540, 541, 542, 543, 544, 545, 546, 5 547, 548, 549, 550, 551, 552, 553, 554, 420, 419, 6 419, 418, 418, 557, 453, 453, 560, 561, 556, 505, 7 563, 564, 537, 565, 566, 559, 491, 568, 569, 570, 8 571, 572, 573, 574, 575, 537, 577, 578, 579, 580, 9 581, 582, 583, 584, 585, 586, 587, 588, 589, 590/ data (jb1(i),i= 601, 700)/ + 591, 592, 593, 594, 595, 596, 597, 598, 599, 601, 1 602, 603, 604, 605, 606, 607, 608, 609, 610, 611, 2 612, 538, 490, 614, 615, 616, 617, 618, 618, 620, 3 576, 619, 622, 623, 624, 625, 626, 505, 576, 600, 4 501, 629, 630, 631, 559, 601, 632, 635, 636, 637, 5 634, 632, 601, 639, 641, 642, 643, 13, 641, 560, 6 560, 622, 633, 647, 646, 649, 650, 651, 652, 640, 7 654, 633, 656, 657, 658, 659, 600, 654, 634, 662, 8 663, 664, 665, 666, 667, 668, 669, 670, 671, 672, 9 673, 674, 675, 676, 677, 678, 679, 637, 654, 646/ data (jb1(i),i= 701, 800)/ + 682, 683, 656, 685, 686, 687, 619, 689, 690, 691, 1 692, 693, 694, 695, 696, 697, 698, 699, 700, 701, 2 702, 703, 704, 705, 706, 707, 708, 709, 710, 711, 3 712, 713, 714, 715, 716, 717, 718, 719, 720, 721, 4 722, 723, 724, 688, 14, 641, 726, 684, 728, 727, 5 730, 731, 732, 733, 644, 735, 688, 737, 738, 739, 6 740, 741, 662, 743, 744, 684, 661, 746, 747, 748, 7 749, 750, 751, 752, 737, 15, 754, 755, 756, 757, 8 758, 759, 760, 761, 762, 763, 764, 765, 766, 767, 9 768, 769, 770, 662, 735, 772, 773, 774, 734, 681/ data (jb1(i),i= 801, 900)/ + 681, 687, 777, 778, 779, 780, 781, 782, 776, 649, 1 784, 785, 786, 787, 788, 789, 790, 791, 792, 793, 2 794, 795, 796, 797, 798, 799, 800, 661, 649, 803, 3 804, 805, 806, 807, 808, 809, 810, 811, 812, 813, 4 814, 815, 816, 817, 818, 802, 802, 820, 821, 822, 5 823, 824, 825, 826, 827, 828, 829, 830, 831, 832, 6 833, 834, 835, 836, 837, 743, 839, 840, 737, 727, 7 842, 843, 775, 729, 845, 846, 847, 848, 849, 850, 8 851, 852, 853, 854, 855, 856, 857, 858, 859, 860, 9 735, 862, 863, 864, 865, 866, 867, 868, 869, 870/ data (jb1(i),i= 901, 1000)/ + 871, 872, 873, 874, 875, 876, 877, 878, 879, 880, 1 881, 882, 883, 884, 885, 886, 887, 888, 889, 890, 2 891, 892, 893, 894, 895, 896, 897, 898, 899, 900, 3 901, 902, 903, 904, 905, 906, 907, 908, 909, 910, 4 911, 912, 913, 914, 915, 916, 917, 918, 919, 920, 5 921, 922, 923, 924, 925, 927, 928, 929, 930, 931, 6 932, 743, 861, 934, 935, 936, 937, 938, 939, 940, 7 941, 942, 927, 776, 945, 946, 947, 948, 949, 950, 8 951, 952, 953, 954, 955, 956, 957, 944, 803, 959, 9 960, 839, 839, 962, 963, 964, 965, 966, 967, 968/ data (jb1(i),i= 1001, 1100)/ + 969, 970, 971, 972, 973, 974, 975, 976, 977, 978, 1 979, 980, 926, 981, 982, 983, 984, 985, 986, 987, 2 988, 989, 990, 945, 992, 993, 994, 995, 996, 944, 3 844, 997, 803, 1001, 1002, 1003, 1004, 1005, 1006, 1007, 4 1008, 1009, 1010, 1011, 1012, 1013, 1014, 1015, 1016, 1017, 5 1018, 1019, 1020, 1021, 1022, 1023, 1024, 1025, 1026, 1027, 6 1028, 1029, 1030, 1031, 927, 861, 1033, 1034, 1035, 1036, 7 1037, 1038, 1039, 842, 1041, 998, 1043, 1044, 1045, 1046, 8 1047, 1048, 1049, 1050, 1051, 1052, 1053, 1040, 992, 1055, 9 1056, 1057, 1058, 1059, 1060, 1061, 926, 1063, 1064, 1065/ data (jb1(i),i= 1101, 1200)/ + 1066, 1067, 1068, 1069, 1070, 1071, 1072, 1073, 1074, 1075, 1 1076, 1077, 1078, 1079, 1080, 1081, 1082, 1083, 992, 1042, 2 1085, 1086, 1087, 1088, 1089, 997, 1040, 1091, 1092, 1093, 3 1094, 1095, 1097, 1098, 1099, 1100, 1101, 1096, 1042, 1103, 4 1104, 1105, 1106, 1107, 1108, 1109, 1110, 1111, 1097, 1001, 5 1001, 1113, 1000, 18, 1115, 1116, 1117, 1118, 1119, 1000, 6 1121, 1122, 1123, 1124, 1125, 1126, 1127, 1128, 1129, 1120, 7 1131, 1114, 1132, 1133, 1134, 1087, 1136, 1131, 1120, 1096, 8 1139, 1140, 1141, 1142, 1143, 1144, 1145, 1146, 1147, 1148, 9 1149, 1150, 998, 1152, 1153, 1154, 1155, 1156, 1157, 1151/ data (jb1(i),i= 1201, 1300)/ + 1158, 945, 1160, 1161, 1162, 1163, 1164, 1165, 1166, 1167, 1 1168, 1169, 1170, 1171, 1172, 1159, 1063, 1174, 1173, 1176, 2 1177, 1178, 1179, 1180, 1181, 1182, 1183, 1184, 1185, 1186, 3 1187, 1188, 1189, 1190, 1191, 1192, 1193, 1194, 1195, 1196, 4 1197, 1198, 1199, 1200, 1201, 1202, 1203, 1204, 1205, 1063, 5 1103, 1207, 1208, 1209, 1210, 1211, 1212, 1213, 1214, 1215, 6 1216, 1217, 1150, 1103, 1219, 1220, 1221, 1135, 1131, 1223, 7 1224, 1225, 1176, 1135, 1228, 1229, 1230, 1138, 1138, 1138, 8 1233, 1234, 1235, 1236, 1227, 1176, 1238, 1239, 1240, 1241, 9 1242, 1243, 1244, 1245, 1246, 1247, 1248, 1249, 1250, 1251/ data (jb1(i),i= 1301, 1400)/ + 1252, 1253, 1254, 1255, 1256, 1257, 1258, 1259, 1260, 1261, 1 1263, 1264, 1265, 1266, 1267, 1268, 1269, 1270, 1271, 1272, 2 1273, 1274, 1275, 1276, 1277, 1278, 1279, 1280, 1227, 1228, 3 1228, 1282, 1283, 1284, 1285, 1286, 1287, 1288, 1289, 1290, 4 1291, 1292, 1293, 1294, 1295, 1296, 1297, 1298, 1299, 1300, 5 1301, 1302, 1303, 1304, 1305, 1306, 1307, 1308, 1309, 1310, 6 1311, 1312, 1313, 1314, 1211, 1263, 1262, 1159, 1317, 1318, 7 1319, 1320, 1321, 1322, 1323, 1324, 1325, 1326, 1327, 1328, 8 1329, 1330, 1331, 1332, 1333, 1334, 1336, 1337, 1338, 1339, 9 1340, 1341, 1342, 1343, 1344, 1345, 1346, 1347, 1348, 1349/ data (jb1(i),i= 1401, 1500)/ + 1350, 1351, 1352, 1353, 1354, 1355, 1356, 1335, 1336, 1151, 1 1359, 1358, 1358, 1316, 1362, 1363, 1364, 1365, 1366, 1367, 2 1368, 1369, 1370, 1371, 1372, 1373, 1374, 1375, 1361, 1262, 3 1377, 1378, 1379, 1380, 1381, 1382, 1383, 1384, 1385, 1386, 4 1387, 1388, 1389, 1390, 1391, 1392, 1393, 1394, 1395, 1396, 5 1397, 1398, 1399, 1400, 1401, 1402, 1403, 1404, 1405, 1406, 6 1407, 1408, 1409, 1410, 1411, 1412, 1413, 1414, 1415, 1416, 7 1417, 1418, 1419, 1420, 1421, 1422, 1423, 1424, 1425, 1335, 8 1427, 1428, 1426, 1232, 1430, 1431, 1432, 1433, 1434, 1435, 9 1436, 1437, 1438, 1439, 1440, 1441, 1442, 1443, 1444, 1445/ data (jb1(i),i= 1501, 1600)/ + 1446, 1447, 1448, 1449, 1450, 1451, 1452, 1453, 1454, 1455, 1 1456, 1457, 1458, 1237, 1460, 1461, 1462, 1463, 1464, 1465, 2 1466, 1467, 1468, 1469, 1470, 1471, 1472, 1459, 1263, 1474, 3 1475, 1476, 1477, 1478, 1479, 1480, 1481, 1482, 1483, 1484, 4 1485, 1486, 1487, 1488, 1489, 1490, 1491, 1492, 1493, 1494, 5 1495, 1496, 1497, 1498, 1499, 1501, 1502, 1503, 1504, 1505, 6 1506, 1507, 1508, 1509, 1510, 1361, 1500, 1512, 1513, 1336, 7 1426, 1515, 1516, 1517, 1518, 1519, 1512, 1455, 1521, 1522, 8 1523, 1524, 1525, 1526, 1527, 1528, 1529, 1530, 1531, 1532, 9 1533, 1534, 1535, 1536, 1537, 1538, 1539, 1540, 1541, 1542/ data (jb1(i),i= 1601, 1700)/ + 1543, 1544, 1545, 1546, 1547, 1548, 1549, 1550, 1551, 1552, 1 1553, 1554, 1499, 1315, 1556, 1557, 1558, 1559, 1560, 1561, 2 1562, 1563, 1564, 1565, 1566, 1567, 1568, 1569, 1570, 1571, 3 1572, 1573, 1574, 1575, 1576, 1577, 1578, 1579, 1580, 1581, 4 1582, 1583, 1584, 1585, 1586, 1587, 1588, 1589, 1590, 1591, 5 1592, 1593, 1594, 1595, 1596, 1597, 1598, 1599, 1600, 1601, 6 1602, 1237, 1315, 1501, 1604, 1605, 1606, 1607, 1608, 1512, 7 1609, 1315, 1611, 1612, 1613, 1614, 1615, 1616, 1617, 1618, 8 1619, 1620, 1621, 1622, 1623, 1624, 1625, 1626, 1627, 1628, 9 1629, 1630, 1631, 1632, 1633, 1634, 1635, 1636, 1637, 1638/ data (jb1(i),i= 1701, 1800)/ + 1639, 1640, 1641, 1519, 1643, 23, 1645, 1646, 1647, 1648, 1 1649, 1650, 1651, 1652, 1653, 1654, 1655, 1656, 1657, 1658, 2 1659, 1660, 1661, 1662, 1663, 1664, 1665, 1666, 1642, 1644, 3 1668, 1669, 1670, 1671, 1672, 1673, 1674, 1675, 1676, 1677, 4 1678, 1679, 1680, 1681, 1682, 1683, 1684, 1685, 1686, 1687, 5 1688, 1689, 1690, 1691, 1692, 1693, 1694, 1695, 1642, 1459, 6 1697, 1698, 1699, 1676, 1544, 1702, 1700, 1701, 1704, 1702, 7 1610, 1706, 1707, 1708, 1709, 1710, 1711, 1712, 1713, 1714, 8 1644, 1715, 1717, 1701, 1500, 1719, 1720, 1721, 1722, 1723, 9 1724, 1725, 1726, 1727, 1728, 1729, 1730, 1731, 1732, 1733/ data (jb1(i),i= 1801, 1900)/ + 1734, 1735, 1736, 1737, 1738, 1739, 1740, 1741, 1742, 1743, 1 1744, 1745, 1746, 1747, 1748, 1749, 1750, 1751, 1752, 1753, 2 1754, 1755, 1756, 1757, 1758, 1759, 1760, 1761, 1762, 1763, 3 1764, 1765, 1766, 1767, 1768, 1769, 1770, 1771, 1772, 1773, 4 1774, 1775, 1776, 1777, 1778, 1717, 1609, 1780, 1781, 1782, 5 1783, 1784, 1785, 1786, 1787, 1788, 1789, 1790, 1791, 1792, 6 1793, 1794, 1795, 1796, 1797, 1798, 1799, 1800, 1801, 1767, 7 1803, 1804, 1805, 1806, 1807, 1808, 1809, 1810, 1811, 1812, 8 1813, 1814, 1815, 1816, 1817, 1818, 1819, 1820, 1821, 1822, 9 1823, 1824, 1825, 1826, 1802, 1828, 1829, 1830, 1831, 1832/ data (jb1(i),i= 1901, 2000)/ + 1833, 1834, 1835, 1836, 1837, 1838, 1839, 1840, 1841, 1842, 1 1843, 1844, 1845, 1846, 1847, 1848, 1849, 1850, 1851, 1852, 2 1853, 1854, 1855, 1856, 1857, 1858, 1859, 1715, 1802, 1861, 3 1862, 1863, 1864, 1865, 1866, 1867, 1868, 1869, 1870, 1871, 4 1872, 1873, 1874, 1875, 1876, 1877, 1878, 1879, 1880, 1881, 5 1882, 1883, 1884, 1885, 1886, 1887, 1888, 1889, 1890, 1828, 6 1828, 1892, 1893, 1894, 1895, 1896, 1897, 1898, 1899, 1900, 7 1901, 1902, 1903, 1904, 1905, 26, 1906, 1907, 1908, 1909, 8 1910, 1911, 1912, 1913, 1914, 1915, 1916, 1917, 1918, 1919, 9 1920, 1921, 1922, 1923, 1924, 1925, 1926, 1927, 1928, 1929/ data (jb1(i),i= 2001, 2050)/ + 1930, 1931, 1932, 1933, 1934, 1935, 1936, 1937, 1938, 1939, 1 1940, 1941, 1942, 1943, 1944, 1945, 1946, 1947, 1948, 1949, 2 1950, 1951, 1952, 1953, 1954, 1955, 1956, 1957, 1958, 1959, 3 1960, 1961, 1962, 1963, 1964, 1965, 1966, 1676, 27, 1968, 4 1969, 1970, 1971, 1972, 1702, 1717, 1716, 0, 0, 0/ data (jb2(i),i= 1, 100)/ + 7, 8, 3, 8, 5, 4, 2, 30, 31, 32, 1 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 2 43, 44, 45, 46, 47, 48, 49, 49, 50, 50, 3 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 4 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 5 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 6 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 7 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 8 101, 102, 103, 104, 105, 105, 13, 106, 107, 108, 9 109, 110, 111, 112, 113, 114, 114, 12, 15, 16/ data (jb2(i),i= 101, 200)/ + 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 1 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 2 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 3 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 4 155, 156, 157, 157, 18, 20, 158, 159, 160, 161, 5 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 6 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 7 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 8 192, 193, 194, 194, 195, 196, 197, 198, 199, 200, 9 201, 202, 203, 204, 205, 206, 207, 208, 209, 210/ data (jb2(i),i= 201, 300)/ + 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 1 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 2 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 3 241, 242, 243, 244, 244, 22, 245, 246, 247, 248, 4 249, 250, 251, 252, 253, 254, 255, 256, 257, 258, 5 259, 260, 261, 262, 263, 264, 265, 266, 267, 268, 6 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 7 279, 280, 281, 282, 283, 284, 285, 286, 287, 288, 8 289, 290, 291, 292, 293, 294, 295, 296, 297, 298, 9 299, 300, 301, 302, 303, 304, 305, 305, 306, 307/ data (jb2(i),i= 301, 400)/ + 308, 309, 310, 311, 312, 313, 314, 315, 316, 317, 1 318, 319, 320, 321, 322, 323, 324, 325, 326, 327, 2 328, 329, 330, 331, 332, 333, 334, 335, 336, 337, 3 338, 339, 340, 341, 342, 343, 344, 345, 346, 347, 4 348, 349, 350, 351, 352, 353, 354, 355, 356, 357, 5 358, 359, 360, 360, 361, 361, 27, 28, 362, 363, 6 364, 365, 366, 367, 368, 369, 370, 371, 372, 373, 7 374, 375, 376, 377, 378, 379, 380, 381, 382, 383, 8 384, 385, 386, 387, 388, 389, 390, 391, 392, 393, 9 394, 395, 396, 397, 398, 399, 400, 401, 402, 403/ data (jb2(i),i= 401, 500)/ + 404, 405, 406, 407, 408, 409, 410, 411, 412, 413, 1 414, 414, 29, 28, 415, 416, 417, 418, 419, 420, 2 421, 422, 423, 424, 425, 426, 427, 428, 429, 430, 3 431, 432, 433, 434, 435, 436, 437, 438, 439, 440, 4 441, 442, 443, 444, 445, 446, 447, 448, 449, 450, 5 451, 452, 453, 5, 455, 456, 457, 458, 459, 460, 6 461, 462, 463, 464, 465, 466, 467, 468, 469, 470, 7 471, 472, 473, 474, 475, 476, 477, 478, 479, 480, 8 481, 482, 483, 484, 485, 486, 487, 488, 489, 490, 9 491, 492, 493, 494, 494, 495, 496, 497, 498, 499/ data (jb2(i),i= 501, 600)/ + 500, 501, 502, 502, 503, 504, 504, 506, 507, 508, 1 509, 510, 511, 512, 513, 514, 515, 516, 517, 518, 2 519, 519, 520, 521, 522, 523, 524, 525, 526, 527, 3 528, 529, 530, 531, 532, 533, 533, 534, 535, 536, 4 537, 539, 540, 541, 542, 543, 544, 545, 546, 547, 5 548, 549, 550, 551, 552, 553, 554, 555, 555, 538, 6 556, 556, 557, 558, 558, 559, 561, 562, 562, 563, 7 564, 11, 565, 566, 567, 567, 568, 569, 570, 571, 8 572, 573, 574, 575, 576, 577, 578, 579, 580, 581, 9 582, 583, 584, 585, 586, 587, 588, 589, 590, 591/ data (jb2(i),i= 601, 700)/ + 592, 593, 594, 595, 596, 597, 598, 599, 600, 602, 1 603, 604, 605, 606, 607, 608, 609, 610, 611, 612, 2 613, 613, 614, 615, 616, 617, 618, 619, 620, 621, 3 621, 622, 623, 624, 625, 626, 627, 627, 628, 628, 4 629, 630, 631, 632, 633, 634, 635, 636, 12, 638, 5 638, 637, 639, 640, 642, 643, 644, 645, 645, 640, 6 646, 644, 647, 648, 648, 650, 651, 652, 653, 653, 7 655, 655, 657, 658, 659, 660, 660, 656, 661, 663, 8 664, 665, 666, 667, 668, 669, 670, 671, 672, 673, 9 674, 675, 676, 677, 678, 679, 680, 680, 681, 682/ data (jb2(i),i= 701, 800)/ + 683, 684, 685, 686, 687, 688, 689, 690, 691, 692, 1 693, 694, 695, 696, 697, 698, 699, 700, 701, 702, 2 703, 704, 705, 706, 707, 708, 709, 710, 711, 712, 3 713, 714, 715, 716, 717, 718, 719, 720, 721, 722, 4 723, 724, 725, 725, 726, 726, 727, 728, 729, 730, 5 731, 732, 733, 734, 734, 736, 736, 738, 739, 740, 6 741, 742, 742, 744, 745, 745, 746, 747, 748, 749, 7 750, 751, 752, 753, 753, 754, 755, 756, 757, 758, 8 759, 760, 761, 762, 763, 764, 765, 766, 767, 768, 9 769, 770, 771, 771, 772, 773, 774, 775, 775, 729/ data (jb2(i),i= 801, 900)/ + 776, 777, 778, 779, 780, 781, 782, 783, 783, 784, 1 785, 786, 787, 788, 789, 790, 791, 792, 793, 794, 2 795, 796, 797, 798, 799, 800, 801, 801, 802, 804, 3 805, 806, 807, 808, 809, 810, 811, 812, 813, 814, 4 815, 816, 817, 818, 819, 819, 820, 821, 822, 823, 5 824, 825, 826, 827, 828, 829, 830, 831, 832, 833, 6 834, 835, 836, 837, 838, 838, 840, 841, 841, 842, 7 843, 844, 844, 845, 846, 847, 848, 849, 850, 851, 8 852, 853, 854, 855, 856, 857, 858, 859, 860, 861, 9 862, 863, 864, 865, 866, 867, 868, 869, 870, 871/ data (jb2(i),i= 901, 1000)/ + 872, 873, 874, 875, 876, 877, 878, 879, 880, 881, 1 882, 883, 884, 885, 886, 887, 888, 889, 890, 891, 2 892, 893, 894, 895, 896, 897, 898, 899, 900, 901, 3 902, 903, 904, 905, 906, 907, 908, 909, 910, 911, 4 912, 913, 914, 915, 916, 917, 918, 919, 920, 921, 5 922, 923, 924, 925, 926, 928, 929, 930, 931, 932, 6 933, 933, 934, 935, 936, 937, 938, 939, 940, 941, 7 942, 943, 943, 944, 946, 947, 948, 949, 950, 951, 8 952, 953, 954, 955, 956, 957, 958, 958, 959, 960, 9 961, 961, 962, 963, 964, 965, 966, 967, 968, 969/ data (jb2(i),i= 1001, 1100)/ + 970, 971, 972, 973, 974, 975, 976, 977, 978, 979, 1 980, 16, 981, 982, 983, 984, 985, 986, 987, 988, 2 989, 990, 991, 991, 993, 994, 995, 996, 997, 998, 3 999, 999, 1000, 1002, 1003, 1004, 1005, 1006, 1007, 1008, 4 1009, 1010, 1011, 1012, 1013, 1014, 1015, 1016, 1017, 1018, 5 1019, 1020, 1021, 1022, 1023, 1024, 1025, 1026, 1027, 1028, 6 1029, 1030, 1031, 1032, 1032, 1033, 1034, 1035, 1036, 1037, 7 1038, 1039, 1040, 1041, 1042, 1043, 1044, 1045, 1046, 1047, 8 1048, 1049, 1050, 1051, 1052, 1053, 1054, 1054, 1055, 1056, 9 1057, 1058, 1059, 1060, 1061, 1062, 1062, 1064, 1065, 1066/ data (jb2(i),i= 1101, 1200)/ + 1067, 1068, 1069, 1070, 1071, 1072, 1073, 1074, 1075, 1076, 1 1077, 1078, 1079, 1080, 1081, 1082, 1083, 1084, 1084, 1085, 2 1086, 1087, 1088, 1089, 1090, 1090, 1091, 1092, 1093, 1094, 3 1095, 1096, 1098, 1099, 1100, 1101, 1102, 1102, 17, 1104, 4 1105, 1106, 1107, 1108, 1109, 1110, 1111, 1112, 1112, 1097, 5 1113, 1114, 1114, 1115, 1116, 1117, 1118, 1119, 1120, 1121, 6 1122, 1123, 1124, 1125, 1126, 1127, 1128, 1129, 1130, 1130, 7 19, 1132, 1133, 1134, 1135, 1136, 1137, 1137, 1138, 1139, 8 1140, 1141, 1142, 1143, 1144, 1145, 1146, 1147, 1148, 1149, 9 1150, 1151, 1152, 1153, 1154, 1155, 1156, 1157, 1158, 1158/ data (jb2(i),i= 1201, 1300)/ + 1159, 1160, 1161, 1162, 1163, 1164, 1165, 1166, 1167, 1168, 1 1169, 1170, 1171, 1172, 1173, 1173, 1174, 1175, 1175, 1177, 2 1178, 1179, 1180, 1181, 1182, 1183, 1184, 1185, 1186, 1187, 3 1188, 1189, 1190, 1191, 1192, 1193, 1194, 1195, 1196, 1197, 4 1198, 1199, 1200, 1201, 1202, 1203, 1204, 1205, 1206, 1206, 5 1207, 1208, 1209, 1210, 1211, 1212, 1213, 1214, 1215, 1216, 6 1217, 1218, 1218, 1219, 1220, 1221, 1222, 1222, 1223, 1224, 7 1225, 1226, 1226, 1227, 1229, 1230, 1231, 1231, 1232, 1233, 8 1234, 1235, 1236, 1237, 1232, 1238, 1239, 1240, 1241, 1242, 9 1243, 1244, 1245, 1246, 1247, 1248, 1249, 1250, 1251, 1252/ data (jb2(i),i= 1301, 1400)/ + 1253, 1254, 1255, 1256, 1257, 1258, 1259, 1260, 1261, 1262, 1 1264, 1265, 1266, 1267, 1268, 1269, 1270, 1271, 1272, 1273, 2 1274, 1275, 1276, 1277, 1278, 1279, 1280, 1281, 1281, 20, 3 1282, 1283, 1284, 1285, 1286, 1287, 1288, 1289, 1290, 1291, 4 1292, 1293, 1294, 1295, 1296, 1297, 1298, 1299, 1300, 1301, 5 1302, 1303, 1304, 1305, 1306, 1307, 1308, 1309, 1310, 1311, 6 1312, 1313, 1314, 1315, 1316, 1316, 21, 1317, 1318, 1319, 7 1320, 1321, 1322, 1323, 1324, 1325, 1326, 1327, 1328, 1329, 8 1330, 1331, 1332, 1333, 1334, 1335, 1337, 1338, 1339, 1340, 9 1341, 1342, 1343, 1344, 1345, 1346, 1347, 1348, 1349, 1350/ data (jb2(i),i= 1401, 1500)/ + 1351, 1352, 1353, 1354, 1355, 1356, 1357, 1357, 1358, 1359, 1 1360, 1360, 1361, 1362, 1363, 1364, 1365, 1366, 1367, 1368, 2 1369, 1370, 1371, 1372, 1373, 1374, 1375, 1376, 1376, 1377, 3 1378, 1379, 1380, 1381, 1382, 1383, 1384, 1385, 1386, 1387, 4 1388, 1389, 1390, 1391, 1392, 1393, 1394, 1395, 1396, 1397, 5 1398, 1399, 1400, 1401, 1402, 1403, 1404, 1405, 1406, 1407, 6 1408, 1409, 1410, 1411, 1412, 1413, 1414, 1415, 1416, 1417, 7 1418, 1419, 1420, 1421, 1422, 1423, 1424, 1425, 1426, 1427, 8 1428, 1429, 1429, 1430, 1431, 1432, 1433, 1434, 1435, 1436, 9 1437, 1438, 1439, 1440, 1441, 1442, 1443, 1444, 1445, 1446/ data (jb2(i),i= 1501, 1600)/ + 1447, 1448, 1449, 1450, 1451, 1452, 1453, 1454, 1455, 1456, 1 1457, 1458, 1459, 1460, 1461, 1462, 1463, 1464, 1465, 1466, 2 1467, 1468, 1469, 1470, 1471, 1472, 1473, 1473, 1474, 1475, 3 1476, 1477, 1478, 1479, 1480, 1481, 1482, 1483, 1484, 1485, 4 1486, 1487, 1488, 1489, 1490, 1491, 1492, 1493, 1494, 1495, 5 1496, 1497, 1498, 1499, 1500, 1502, 1503, 1504, 1505, 1506, 6 1507, 1508, 1509, 1510, 1511, 1511, 1501, 1513, 1514, 1514, 7 1515, 1516, 1517, 1518, 1519, 1520, 1520, 1521, 1522, 1523, 8 1524, 1525, 1526, 1527, 1528, 1529, 1530, 1531, 1532, 1533, 9 1534, 1535, 1536, 1537, 1538, 1539, 1540, 1541, 1542, 1543/ data (jb2(i),i= 1601, 1700)/ + 1544, 1545, 1546, 1547, 1548, 1549, 1550, 1551, 1552, 1553, 1 1554, 1555, 1555, 1556, 1557, 1558, 1559, 1560, 1561, 1562, 2 1563, 1564, 1565, 1566, 1567, 1568, 1569, 1570, 1571, 1572, 3 1573, 1574, 1575, 1576, 1577, 1578, 1579, 1580, 1581, 1582, 4 1583, 1584, 1585, 1586, 1587, 1588, 1589, 1590, 1591, 1592, 5 1593, 1594, 1595, 1596, 1597, 1598, 1599, 1600, 1601, 1602, 6 22, 1603, 1603, 1604, 1605, 1606, 1607, 1608, 1609, 1610, 7 1610, 1611, 1612, 1613, 1614, 1615, 1616, 1617, 1618, 1619, 8 1620, 1621, 1622, 1623, 1624, 1625, 1626, 1627, 1628, 1629, 9 1630, 1631, 1632, 1633, 1634, 1635, 1636, 1637, 1638, 1639/ data (jb2(i),i= 1701, 1800)/ + 1640, 1641, 1642, 1643, 1644, 1645, 1646, 1647, 1648, 1649, 1 1650, 1651, 1652, 1653, 1654, 1655, 1656, 1657, 1658, 1659, 2 1660, 1661, 1662, 1663, 1664, 1665, 1666, 1667, 1667, 1668, 3 1669, 1670, 1671, 1672, 1673, 1674, 1675, 24, 1677, 1678, 4 1679, 1680, 1681, 1682, 1683, 1684, 1685, 1686, 1687, 1688, 5 1689, 1690, 1691, 1692, 1693, 1694, 1695, 1696, 1696, 1697, 6 1698, 1699, 1700, 1700, 1701, 1703, 1703, 1704, 1705, 1705, 7 1706, 1707, 1708, 1709, 1710, 1711, 1712, 1713, 1714, 1715, 8 1716, 1716, 1718, 1718, 1719, 1720, 1721, 1722, 1723, 1724, 9 1725, 1726, 1727, 1728, 1729, 1730, 1731, 1732, 1733, 1734/ data (jb2(i),i= 1801, 1900)/ + 1735, 1736, 1737, 1738, 1739, 1740, 1741, 1742, 1743, 1744, 1 1745, 1746, 1747, 1748, 1749, 1750, 1751, 1752, 1753, 1754, 2 1755, 1756, 1757, 1758, 1759, 1760, 1761, 1762, 1763, 1764, 3 1765, 1766, 1767, 1768, 1769, 1770, 1771, 1772, 1773, 1774, 4 1775, 1776, 1777, 1778, 1779, 1779, 1780, 1781, 1782, 1783, 5 1784, 1785, 1786, 1787, 1788, 1789, 1790, 1791, 1792, 1793, 6 1794, 1795, 1796, 1797, 1798, 1799, 1800, 1801, 1802, 1803, 7 1804, 1805, 1806, 1807, 1808, 1809, 1810, 1811, 1812, 1813, 8 1814, 1815, 1816, 1817, 1818, 1819, 1820, 1821, 1822, 1823, 9 1824, 1825, 1826, 1827, 1827, 1829, 1830, 1831, 1832, 1833/ data (jb2(i),i= 1901, 2000)/ + 1834, 1835, 1836, 1837, 1838, 1839, 1840, 1841, 1842, 1843, 1 1844, 1845, 1846, 1847, 1848, 1849, 1850, 1851, 1852, 1853, 2 1854, 1855, 1856, 1857, 1858, 1859, 1860, 1860, 1861, 1862, 3 1863, 1864, 1865, 1866, 1867, 1868, 1869, 1870, 1871, 1872, 4 1873, 1874, 1875, 1876, 1877, 1878, 1879, 1880, 1881, 1882, 5 1883, 1884, 1885, 1886, 1887, 1888, 1889, 1890, 1891, 1891, 6 1892, 1893, 1894, 1895, 1896, 1897, 1898, 1899, 1900, 1901, 7 1902, 1903, 1904, 1905, 25, 1906, 1907, 1908, 1909, 1910, 8 1911, 1912, 1913, 1914, 1915, 1916, 1917, 1918, 1919, 1920, 9 1921, 1922, 1923, 1924, 1925, 1926, 1927, 1928, 1929, 1930/ data (jb2(i),i= 2001, 2050)/ + 1931, 1932, 1933, 1934, 1935, 1936, 1937, 1938, 1939, 1940, 1 1941, 1942, 1943, 1944, 1945, 1946, 1947, 1948, 1949, 1950, 2 1951, 1952, 1953, 1954, 1955, 1956, 1957, 1958, 1959, 1960, 3 1961, 1962, 1963, 1964, 1965, 1966, 1967, 1967, 1968, 1969, 4 1970, 1971, 1972, 1973, 1973, 28, 29, 0, 0, 0/ c state=istate irot=jrot npart=ipart do i=1,5 jv(i)=kv(i) jb(i)=kb(i) ib(i)=iib(i) enddo do i=1,jv(npart+1)-1 ix(i)=jx(i) iy(i)=jy(i) enddo do i=1,jb(npart+1)-1 ib1(i)=jb1(i) ib2(i)=jb2(i) enddo return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine ca(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(*) :: jv,jb,ib,ix,iy,ib1,ib2 integer(kind=iknd), save, dimension(5) :: kv,kb,iib integer(kind=iknd), save, dimension(1820) :: jx,jy integer(kind=iknd), save, dimension(1870) :: jb1,jb2 integer(kind=iknd), save :: jrot,ipart character(len=80) :: state character(len=80), save :: istate cy data istate/'california '/ data jrot,ipart/0,2/ data kv/ 1,1708,1812, 0, 0/ data kb/ 1,1765,1869, 0, 0/ data iib/ 346, 104, 0, 0, 0/ data (jx(i),i= 1, 100)/ + 12120,20976, 9480,27000, 9000,26712,26640,26616,26592,10632, 1 27000,28464,12864,14832,14904,36192,15672,17832,19656,46344, 2 22776,28200,30720,52272,34656,31152,31392,31488,31704,32520, 3 32712,33024,33360,33360,33192,33264,33504,33816,34248,37128, 4 51432,44352, 9456, 9384, 9384, 9240, 9240, 9168, 8976, 8808, 5 8952, 9072, 9096,13728,27168, 8928, 8760, 8760, 8664, 8328, 6 8208, 7608, 7704, 7632, 7488, 7632, 8136, 8736, 8928, 9072, 7 9000, 8904, 8880, 9000, 9168, 9408, 9192, 9816, 9792, 9864, 8 9984,10056, 9960, 9888, 9888, 9744, 9768, 9648, 9696, 9624, 9 9672, 9576, 9672, 9648, 9912, 9840, 9888, 9864, 9720, 9672/ data (jx(i),i= 101, 200)/ + 9456, 9360, 9240,26568,10344,10344,10176,10104,12720,12576, 1 12504,12552,12312,11808,11568,11448,11448,11304,11328,11016, 2 10704,12984,12960,12864,13032,12816,12648,12912,12840,12984, 3 13368,13656,13728,13920,13968,14064,14184,14328,14400,14664, 4 15456,15456,15384,15360,15216,15168,15144,15264,15096,15072, 5 14952,14856,14760,14784,14904,17592,17400,17280,17088,16944, 6 16728,16488,15960,17904,18000,17904,17664,17424,17184,16968, 7 17184,17184,17064,17112,17256,17232,17280,17232,17448,17568, 8 17760,18048,18336,18696,19008,19176,51192,51216,51432,51624, 9 52008,52080,52248,52176,52320,52464,52440,52512,52680,53232/ data (jx(i),i= 201, 300)/ + 53424,53640,53688,53544,53232,52944,52776,52656,52584,52368, 1 22896,22824,22440,22344,22320,22272,21864,21672,21864,21840, 2 21864,21768,21672,21480,21384,21216,20784,20520,19944,19920, 3 19824,19776,22680,22776,22824,22944,22800,22944,22680,22800, 4 23040,23328,23520,23592,24360,25080,25320,25704,25968,26136, 5 26328,26496,26544,26712,27120,27288,27672,27840,28320,28632, 6 28704,28920,29160,29448,29472,29472,29880,30048,52272,52128, 7 52176,51984,51864,51816,51936,51864,51984,51840,51888,51864, 8 51984,51960,52056,51864,51936,51864,51912,51840,51912,51576, 9 51336,51144,50976,51096,50952,51024,51192,51240,51168,51240/ data (jx(i),i= 301, 400)/ + 51216,51096,51168,51288,51360,51384,51552,51768,51984,52080, 1 52152,52272,52200,52296,52296,52008,52008,51960,51840,51744, 2 51576,51168,51072,36864,36720,36576,36264,35832,35568,35088, 3 34824,37656,38112,38424,38664,38784,38784,38640,38784,38760, 4 38832,38880,39048,39192,39360,39408,11232,11304,11280,11400, 5 11472,11352,11328,11184,11208,11064,11184,11256,11232,11352, 6 11376,11304,11280,11352,11232,11376,11520,11664,11760,11904, 7 12024,12024,20736,20880,10752,10776,12216,12048,12096,12096, 8 12024,12048,11976,12000,11880,16176,16080,16152,16200,16320, 9 16200,16056,16008,15912,15840,15600,15528,15288,15192,15048/ data (jx(i),i= 401, 500)/ + 14856,14760,14688,14472,14280,14160,14184,14088,14088,14280, 1 14376,14304,14184,14088,13776,13704,13512,13464,12912,12672, 2 12576,12456,12312,21240,21048,11112,11448,11376,11400,11184, 3 11328,11472,11544,11808,11856,11952,11952,12144,12168,12072, 4 11952,11952,12048,12120,13344,13368,13464,13704,13704,13968, 5 14016,14136,14256,14376,14400,14616,14688,14880,14976,15072, 6 15048,14928,14976,14880,15024,15072,15312,15312,15624,15576, 7 15648,15984,16008,15960,16056,16344,16392,20280,20016,19632, 8 19440,18696,18336,18024,17616,17280,17280,17064,16704,16200, 9 16128,15768,15168,14832,14832,14760,14280,14208,13992,13728/ data (jx(i),i= 501, 600)/ + 22200,22152,22248,22248,22656,22800,22920,23016,23136,23256, 1 23352,23496,23568,23736,23808,24072,24288,24288,24408,24408, 2 24576,24576,24672,24696,24816,24840,24984,25008,25128,25128, 3 25224,25296,25704,25704,25872,25896,25968,26040,26208,26208, 4 26280,26280,26328,26232,26160,26088,26088,20448,20472,20616, 5 20784,20784,20856,20808,20952,20784,20400,20328,20376,13824, 6 13752,13776,13680,13728,13704,13632,13728,13728,13560,13392, 7 17688,17592,17616,17568,17712,18864,19032,19056,19272,19512, 8 19608,19752,19776,20184,20280,20448,11112,21912,21840,21840, 9 21672,21672,21600,21528,21456,21456,21360,21360,21288,21288/ data (jx(i),i= 601, 700)/ + 21192,21192,21120,21120,21048,21048,20904,20856,20784,20736, 1 20520,20520,20448,20448,20544,20520,20616,20616,20712,20784, 2 20736,20736,20616,20616,13728,13656,13728,13848,13896,13824, 3 26664,26664,22224,22464,22608,22872,23040,23088,23136,23376, 4 23688,23808,23832,13872,13896,13824,13824,13704,22128,22080, 5 22008,21960,22128,19392,19464,19536,19680,19848,19968,20064, 6 20376,20520,20616,20712,20736,20832,20904,21192,21192,21360, 7 21552,21600,21792,21792,21912,14448,14544,13896,13584,13584, 8 13512,13344,13344,13224,13200,13032,13032,12912,12888,12744, 9 12864,13008,13176,13248,13224,13176,13176,13104,13056,12960/ data (jx(i),i= 701, 800)/ + 13056,13248,13248,13632,13632,13848,18240,17712,17736,17160, 1 17136,22320,22464,23136,23424,23568,23784,24096,24192,24288, 2 24288,24432,16032,15744,15792,15672,15528,15432,15480,15432, 3 15552,15528,15384,15384,15144,14904,14736,14592,14352,14280, 4 14448,14256,17760,17736,17904,18000,18096,18024,18024,17832, 5 17976,17856,17904,17808,17832,17808,17904,18456,18312,18336, 6 18120,22104,21864,21648,21504,21408,21336,21288,21024,21000, 7 20976,20928,20856,19368,18336,18360,18528,18432,18360,18168, 8 18048,17952,18048,17928,18000,17928,23760,23520,23112,23040, 9 22920,22848,22728,22584,22560,22176,22104,21912,21768,21480/ data (jx(i),i= 801, 900)/ + 21312,21096,25968,25920,21360,21624,21624,21672,21672,21816, 1 21816,21864,21840,21912,22272,22344,22368,22704,22752,22824, 2 22872,22968,23232,23376,23520,23544,23904,24024,24288,24480, 3 24624,25776,25920,20712,20232,15816,15696,15864,19392,19344, 4 19320,19344,19392,19344,19416,19440,19512,19392,19440,19512, 5 19464,19488,19656,19920,15768,15888,15888,15768,15744,15456, 6 14688,16992,16896,16848,16776,16776,16656,16608,16536,16296, 7 16128,15984,12720,12720,12480,12456,11424,11400,10800,10704, 8 14616,14424,14208,18504,18384,18456,18552,18672,18792,18792, 9 18936,18912,19008,18984,19080,19056,19128,19128,19176,19224/ data (jx(i),i= 901, 1000)/ + 19368,19296,19872,19872,19920,19968,20232,26184,26760,26976, 1 27120,27096,21864,21504,21432,28128,28128,28248,28200,28464, 2 28416,28560,28344,28248,28272,26160,19248,19416,19488,19608, 3 19536,19680,19680,19536,19464,19512,19608,19584,19680,19632, 4 19728,19656,19536,19464,19344,19152,21960,22056,22248,22296, 5 22416,22488,22536,22584,22680,22848,22944,23232,23424,23760, 6 24168,24816,25104,25464,25560,25872,25992,25968,26016,15528, 7 16464,16392,16488,16416,16512,16416,16536,16464,17136,17088, 8 16872,26400,26232,26136,25992,25920,25320,24984,24768,24576, 9 24408,24384,21960,22056,22248,22440,22824,23016,23112,23592/ data (jx(i),i= 1001, 1100)/ + 23712,24120,24216,27936,27816,27768,27360,27312,27048,18816, 1 18864,18768,18432,18096,17736,17376,17184,21816,29688,30000, 2 29928,30024,29928,30000,29904,29760,29736,29544,29496,29520, 3 29616,29736,29808,30048,29760,29784,29688,29424,29328,29088, 4 29064,28848,28992,29040,28944,28968,28872,28728,28656,28704, 5 28680,28368,28320,28104,28176,28248,28200,28224,28104,28104, 6 28080,14664,14568,14616,14856,14904,15000,15072,15240,15264, 7 15168,15432,15384,15552,15624,15576,15648,15648,15744,15792, 8 15696,15672,15528,24168,24288,24552,24552,24672,24744,24888, 9 25656,25776,26040,15720,13056,13320,14016,14520,14760,14808/ data (jx(i),i= 1101, 1200)/ + 14976,15096,21696,21624,21480,21168,20880,20640,20568,20328, 1 20088,19992,19992,19752,19608,19608,19488,19464,19224,19200, 2 19296,19248,19104,18888,18768,18648,18480,18240,18000,17952, 3 17880,17736,17064,16656,16464,22200,19056,18960,18840,18696, 4 18312,18120,15312,15288,24000,24072,15552,23376,23928,23952, 5 24048,19560,20664,20712,20784,20856,20928,20952,21000,21072, 6 21240,21288,21456,21528,21576,21648,21696,21744,21840,21984, 7 22152,15360,15072,15048,14856,19272,19368,19344,19176,19296, 8 19200,19248,19224,19320,19272,19200,19272,15936,15672,29496, 9 29208,29088,28992,28896,28920,28824,28752,28488,28344,28272/ data (jx(i),i= 1201, 1300)/ + 28200,27816,27672,27216,27144,27024,26952,26784,26616,26256, 1 26136,26112,26016,25800,25584,25512,25272,25152,25080,25056, 2 24936,24792,24936,24840,24744,24576,24552,24624,24552,17400, 3 17232,17184,17256,17064,16608,16560,16416,16272,16056,29616, 4 25992,27360,27888,27888,28056,28056,28200,28224,30792,30768, 5 30624,30600,30384,30024,29904,29784,29712,31896,31800,31536, 6 31512,31272,31128,30984,16656,16776,19464,19368,19200,29400, 7 29400,29352,29400,29304,29352,29280,29328,29160,29040,28872, 8 28824,28704,28632,28512,28416,28296,28248,28200,28344,28248, 9 28248,28032,27912,27888,27816,27792,27624,27456,27408,27432/ data (jx(i),i= 1301, 1400)/ + 27192,27168,27024,26904,26832,26712,26448,26328,26256,26040, 1 25776,25464,25368,25296,25176,25080,24864,24840,24600,24456, 2 24432,24120,24048,24120,23856,23736,23712,17784,17496,17376, 3 16920,20592,20328,20304,20184,19992,19824,19776,19728,19584, 4 19584,19824,19776,19824,19632,19560,19608,19512,16704,16608, 5 16560,16416,16272,16200,16296,16224,16248,16344,16392,15600, 6 15936,15936,16368,25848,25440,25440,25008,25008,33696,33696, 7 33600,33744,33696,33744,33480,33408,33192,32976,32736,32712, 8 32424,32304,32280,32352,32256,32160,32040,31848,31920,31824, 9 31872,31920,31968,21864,21768,21816,21720,21768,24024,24480/ data (jx(i),i= 1401, 1500)/ + 24696,24912,25752,20616,20472,20544,20496,20592,20592,20664, 1 20520,20640,18912,18864,18720,18600,18552,18384,18408,18288, 2 18312,18168,17928,17784,17088,16824,16632,18600,18696,19680, 3 19560,19464,19344,19008,18984,17928,18024,18120,18336,18336, 4 18432,18552,21936,20952,20736,20544,20520,28080,28584,29352, 5 29376,30840,30864,32832,32832,22920,22896,22992,23328,23352, 6 35280,35256,35304,35280,35352,35424,35424,35256,35328,35184, 7 35112,35040,35016,35088,34872,34824,34800,34848,34896,34896, 8 34800,34632,34704,34728,34632,34392,34368,34224,34272,34200, 9 34032,34104,33840,33888,33792,33720,33816,33840,22632,22584/ data (jx(i),i= 1501, 1600)/ + 22800,22776,22728,22536,22056,21936,21816,21648,21504,21480, 1 21312,21312,21240,21240,20496,20400,20376,20040,20112,19968, 2 20016,19944,19848,19680,19632,19368,19296,19464,19344,19200, 3 18720,24528,25440,25440,25512,26256,26304,27216,27264,27456, 4 27624,27672,24336,24096,24000,23784,23640,23568,23568,23304, 5 23256,23064,22944,22944,23016,23136,22920,24984,24960,24840, 6 24792,24864,24864,24720,25080,28152,28272,28512,28536,28296, 7 28296,37032,43392,45912,45936,35712,35688,36840,37008,37032, 8 37128,37128,36960,36960,37032,25056,25560,25536,25704,25704, 9 25776,25776,25848,25848,25944,25920,26472,26472,26808,26784/ data (jx(i),i= 1601, 1700)/ + 27456,27456,27984,27936,28272,28272,28344,28320,22824,22968, 1 23088,23496,23760,24072,24384,24456,24432,24264,24648,24840, 2 24960,25008,25200,25488,25560,25896,26208,26352,26448,26640, 3 27048,27408,27528,27744,28032,28464,28752,28752,29256,29232, 4 29400,29400,30672,30672,31104,28392,28344,28392,31056,36264, 5 36168,36264,36336,36336,36504,36936,36840,32232,32232,32064, 6 32064,31488,30744,36792,36792,36888,36888,37104,37104,37344, 7 37344,38208,38208,38928,38928,40344,40344,48072,48048,36768, 8 36840,37224,37440,37440,37752,38040,37608,37560,37560,35352, 9 35328,35232,34944,34920,34776,34800,34680,44424,38856,38856/ data (jx(i),i= 1701, 1800)/ + 38232,38256,37224,37416,37560,44352,44448,32712,32784,33048, 1 33096,33264,33480,32760,32472,32448,32400,32256,32256,32352, 2 32568,27864,28080,28248,28320,28152,27792,27672,27576,27672, 3 32880,32832,32928,32856,32760,32808,32496,32304,32616,32808, 4 32904,33096,33432,33408,33720,33672,33312,33000,30216,30120, 5 30096,30288,30360,26880,26592,26376,26088,25992,25944,26184, 6 26136,26184,26520,27024,27336,27840,28056,28008,27792,27576, 7 27432,27216,27120,28296,28584,28776,28848,28776,28584,28416, 8 28296,24216,24360,24264,23928,23736,23496,23448,23472,23688, 9 23784,23928,24048,24192,24480,24600,24744,25080,25440,25680/ data (jx(i),i= 1801, 1820)/ + 25848,25920,25848,25536,25560,25488,25224,25008,24816,24528, 1 24408, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (jy(i),i= 1, 100)/ + 61776,61200,58848,56208,50400,47808,46224,45528,44040,43200, 1 43296,41928,40296,37440,36792,34680,33288,31728,25560,25200, 2 20688,17088,15144,15432,13248,15072,14856,14976,15048,15072, 3 15048,14688,13944,13728,13560,13368,13344,13128,13248,11304, 4 11688, 6864,59352,59496,59664,60096,60384,60504,60576,60768, 5 61008,61440,62016,61704,60912,50544,50640,50856,51072,51264, 6 51456,52056,52392,52776,53088,53520,54456,55392,55872,56400, 7 56520,56544,57000,57072,57504,58344,50160,44184,44352,44376, 8 44544,44880,45360,45408,45504,45744,45912,46224,46344,46368, 9 46440,46632,47088,47160,47784,48072,48408,48576,48792,49392/ data (jy(i),i= 101, 200)/ + 49608,49896,49992,43704,43440,43512,43680,43824,40440,40368, 1 40512,40776,41256,41616,41904,41976,42072,42216,42264,42792, 2 43032,40080,39960,40008,39480,38880,38592,38544,38664,38784, 3 38688,38448,38256,38112,37968,37920,37992,37944,37824,37656, 4 33384,33480,33576,33696,33744,33864,34128,34752,35184,35496, 5 35616,35592,35808,36144,36240,32184,32448,32472,32352,32424, 6 32328,32400,32808,31464,31488,31440,30552,30288,30528,30192, 7 30024,29880,29856,29760,29040,28896,28776,28608,28440,28224, 8 28152,27936,27600,26904,26760,26088,20664,19944,19728,19344, 9 19056,18720,18456,18360,18240,18000,17592,17544,17568,17088/ data (jy(i),i= 201, 300)/ + 17016,16752,16512,16488,16080,15960,15768,15744,15672,15600, 1 21264,21672,21888,21888,21792,21816,22080,22296,22968,23016, 2 23160,23400,23472,23472,23544,23568,24096,24576,24792,24960, 3 25080,25416,20304,20280,20160,20040,19464,19152,18432,18288, 4 18288,18096,17664,17616,17760,17736,17664,17640,17496,17472, 5 17328,17304,17376,17376,17232,17352,17352,17304,17064,16752, 6 16752,16560,16464,15744,15792,15744,15456,15456,15096,15024, 7 14952,14736,14712,14544,14424,14376,14208,14112,13944,13872, 8 13584,13440,13248,13080,13008,12960,12720,12600,12408,12024, 9 11568,11592,11496,11208,10920,10824,10776,10680,10584,10440/ data (jy(i),i= 301, 400)/ + 10080, 9696, 9672, 9384, 9384, 9456, 9360, 9408, 9384, 9288, 1 9048, 9024, 8808, 8664, 8328, 8040, 7800, 7776, 7752, 7680, 2 7632, 7704, 7560,11640,11712,11712,12168,12456,12552,12936, 3 13248,10896,10296, 9768, 9120, 8472, 8256, 8112, 7824, 7464, 4 7152, 7248, 7272, 7152, 6840, 6360,58272,58320,58440,58488, 5 58656,58776,59112,59160,59448,59472,59664,59688,59904,60000, 6 60168,60288,60528,60600,60816,60840,61128,61080,61200,61224, 7 61488,61656,56472,60072,58296,58728,56976,57312,57408,57528, 8 57600,57744,57840,58056,58200,56736,56880,57312,57432,57504, 9 57648,57648,57744,57792,57576,57576,57384,57288,57144,57096/ data (jy(i),i= 401, 500)/ + 56928,56952,56928,56952,56808,56832,56664,56424,56304,56184, 1 55944,55776,55752,55872,55848,56088,56184,56280,56328,56712, 2 56736,56856,56808,56424,52176,50256,54480,54624,55104,55608, 3 55584,55704,55584,55488,55608,55632,55752,55992,56088,56304, 4 56352,56472,56472,56880,51792,52056,52080,52344,52464,52512, 5 52608,52608,52824,52872,52968,52992,53160,53208,53328,53304, 6 53592,53640,53712,53952,54000,54264,54480,54720,55128,55224, 7 55536,55752,55992,56088,56184,56232,56568,52224,52248,52176, 8 52272,52320,52200,52296,52224,52152,52056,52128,52056,52128, 9 52104,52248,51888,52032,52080,52152,52032,52080,51864,51912/ data (jy(i),i= 501, 600)/ + 52128,51048,51048,50904,50760,50640,50688,50928,50928,51120, 1 51144,51336,51336,51216,51288,51144,51120,51000,51000,50952, 2 50904,50808,50808,50640,50640,50472,50424,50304,50256,50184, 3 50184,50112,50040,49920,49896,49488,49488,49248,49104,49056, 4 49056,48888,48888,48072,47904,47904,47736,50520,50760,50736, 5 50856,51048,51144,51336,51408,51576,51672,51912,52080,49920, 6 50040,50352,50496,50568,50904,50952,51168,51480,51624,51648, 7 48696,48792,48840,48960,49200,49152,49248,49392,49632,49608, 8 49920,49992,50232,50256,50376,50400,50112,47328,47328,47424, 9 47448,47616,47640,47784,47808,47880,47880,48024,48024,48120/ data (jy(i),i= 601, 700)/ + 48120,48192,48216,48288,48288,48360,48456,48624,48648,48816, 1 48912,49080,49080,49176,49152,49728,49824,49944,49944,50136, 2 50136,50256,50304,50520,48936,49176,49512,49560,49656,49752, 3 47736,47808,47544,47712,48144,48288,48096,48120,47928,47952, 4 47664,47712,47808,47688,48384,48384,48600,48600,46152,46800, 5 46848,46968,47112,45696,45840,45744,45768,45816,45792,45888, 6 45912,46056,46296,46392,46560,46608,46872,46824,46896,46896, 7 46848,47040,47112,47208,47208,46440,47640,43464,43608,43680, 8 43728,43752,43872,44016,44304,44304,44376,44472,44712,44760, 9 45360,45336,45672,45672,45912,45912,46176,46272,46680,46680/ data (jy(i),i= 701, 800)/ + 47232,47256,47304,47280,47352,47328,46272,46296,46464,46512, 1 46296,46272,46248,46368,46512,46704,46824,46800,46728,46560, 2 46464,46344,43752,44040,44256,44304,44496,44544,44664,44928, 3 45024,45216,45312,45432,45408,45552,45504,45720,45888,46056, 4 46320,46488,48696,48552,48336,48360,48072,48048,47976,47928, 5 47832,47784,47616,47424,47376,47208,47136,47160,47016,46656, 6 45840,46080,46104,46032,45768,45816,45768,45552,45456,45288, 7 45312,45192,44136,45768,43632,43872,44016,44088,44424,44472, 8 44760,44856,44928,45120,45240,45504,45624,45528,45240,45192, 9 45120,45072,44904,44856,44832,44496,44184,43944,43920,44088/ data (jy(i),i= 801, 900)/ + 43992,43992,44064,44040,42240,42672,42768,42792,42912,43008, 1 43224,43248,43296,43368,43512,43488,43656,43560,43680,43680, 2 43776,43848,43872,43728,43752,43584,43440,43296,43416,43584, 3 43944,43872,43944,44208,43968,43368,43608,43752,45528,45504, 4 45408,45336,45336,45168,45096,44592,44544,44328,44064,44016, 5 43968,43536,43824,43944,43344,43152,43056,43008,42864,42504, 6 42360,41304,41832,41928,41904,42096,42192,42360,42360,43200, 7 43248,43200,43536,43464,43464,43296,43368,43200,43248,43152, 8 42552,42576,43128,43512,43368,43272,43224,43296,43224,42912, 9 42840,42696,42624,42552,42624,42672,42648,42720,42696,42768/ data (jy(i),i= 901, 1000)/ + 42672,42480,42432,42552,42528,43536,43536,42000,42456,42864, 1 42912,43128,41040,42264,42192,39840,39936,40008,40152,40272, 2 40392,40656,41256,41400,41688,40896,40056,40248,40272,40512, 3 40728,40776,40896,40992,41136,41208,41232,41280,41352,41472, 4 41640,41712,41688,41976,41952,42192,41112,41088,41160,41064, 5 41160,41112,41232,41160,41304,41328,41256,41208,41040,40944, 6 40968,41160,41160,41400,41592,41616,41856,41928,42024,39336, 7 39312,39456,39672,39864,39888,39936,39960,40224,40224,40416, 8 40824,40464,40560,40536,40872,40800,40800,40680,40656,40728, 9 40632,40608,39384,39336,39408,39384,39720,39744,39840,40008/ data (jy(i),i= 1001, 1100)/ + 40320,40464,40584,39984,40320,40344,40272,40176,40032,40056, 1 41256,41376,41304,41424,41400,41160,41304,39840,36360,36648, 2 36792,36912,36960,37128,37296,37320,37392,37512,37656,37728, 3 37680,37776,37536,37632,37896,38040,38352,38400,38568,38664, 4 38808,38952,39048,39168,39192,39360,39456,39408,39144,39000, 5 38640,38760,38904,39024,39192,39216,39312,39384,39504,39672, 6 39744,42096,41976,41808,41640,41496,41496,41184,41088,41016, 7 40896,40584,40512,40368,40176,40008,39984,39864,39816,39528, 8 39480,39360,39384,38040,38088,38520,38616,38688,38880,39000, 9 40104,40200,40272,38832,40392,40416,39696,39528,39576,39408/ data (jy(i),i= 1101, 1200)/ + 39312,39096,39792,39864,39816,39600,39576,39648,39552,39504, 1 39528,39576,39672,39696,39528,39408,39360,39120,38952,38904, 2 38832,38808,39408,39336,39144,38784,38784,38640,38712,38688, 3 38616,38592,38736,38568,38712,38544,38856,38784,38808,38544, 4 38400,38448,38040,38328,37896,37824,37776,37104,37560,37728, 5 37752,35256,36240,36240,36384,36432,36360,36480,36432,36528, 6 36576,36672,36624,36696,36624,36648,36720,36696,36744,36624, 7 36648,37608,37512,37464,37488,37200,37344,37416,37440,37800, 8 38160,38280,38304,38352,38472,38496,38712,36744,37368,36600, 9 36912,36888,37056,37032,37080,37104,37032,37296,37296,37248/ data (jy(i),i= 1201, 1300)/ + 37080,36888,36696,36504,36576,36528,36600,36528,36552,36840, 1 36864,36936,36960,36696,36792,36624,36624,36456,36504,36432, 2 36456,36408,36000,35976,36120,36168,36120,36000,35904,36720, 3 36816,36936,37008,37176,37248,37320,37344,37680,37872,36360, 4 33264,34560,34536,34800,34776,34968,34968,35376,35424,35640, 5 35808,36000,36240,36312,36216,36312,36264,34752,34848,34776, 6 34944,35208,35304,35256,35496,35352,35496,35496,35592,34104, 7 34056,34032,33984,33864,33576,33408,33336,33120,33000,33096, 8 32976,32976,32784,33024,32904,33000,32976,32856,32736,32664, 9 32568,32568,32304,32424,32424,32208,32208,32064,31992,31872/ data (jy(i),i= 1301, 1400)/ + 31608,31488,31320,31392,31344,31392,31272,31248,31296,31176, 1 31224,31080,31104,30960,31056,30936,30960,30912,31080,31056, 2 31224,31488,31680,31776,32352,32424,32568,35352,35184,35280, 3 35256,33216,33480,33408,33408,33504,33312,33384,33696,33912, 4 34104,34272,34512,34680,34752,34896,35064,35184,35280,35328, 5 35232,35256,35136,34728,34512,34488,34416,34416,34296,33768, 6 33744,33912,33864,33480,33744,33912,34680,34872,30600,30864, 7 31056,31152,31320,31368,31944,32352,32472,32664,32736,32808, 8 32856,33264,33432,33576,33768,33912,33864,34008,34152,34344, 9 34488,34488,34560,34344,34488,34536,34608,34680,32832,33000/ data (jy(i),i= 1401, 1500)/ + 33000,33144,33192,32208,32328,32424,32592,32640,32712,32784, 1 32928,33120,31920,32088,32160,32136,32304,32376,32448,32520, 2 32592,32832,32928,33096,33432,33816,33936,31920,32016,32232, 3 32400,32352,32400,32016,31896,31896,31896,31992,32064,32016, 4 31992,32040,30864,31440,31896,31968,32040,29208,29688,29664, 5 30168,30096,30624,30552,30600,28104,28248,28344,28440,29376, 6 25056,25176,25272,25464,25560,25560,25896,26016,26160,26352, 7 26760,26832,27072,27264,27504,27720,27936,28104,28152,28248, 8 28272,28536,28584,28680,28752,28752,28872,29016,29256,29400, 9 29520,29736,30024,30120,30144,30240,30288,30384,28368,28368/ data (jy(i),i= 1501, 1600)/ + 27888,27768,27720,27744,28296,28296,28416,28224,28320,28224, 1 28152,28224,28224,28512,29400,29400,29568,29592,29736,29904, 2 30216,30384,30480,30480,30600,30672,30840,30888,31104,31128, 3 31632,25992,26784,26856,26856,27504,28752,28728,28848,28896, 4 28896,28824,26328,26400,26352,26592,26712,26688,26736,26928, 5 27144,27168,27360,27528,27552,27744,27984,25296,25464,25488, 6 25632,25752,25800,25968,25296,25200,27936,27936,28680,28704, 7 29184,25104,25080,25128,25200,25056,25128,19512,19536,24264, 8 24264,24432,24432,24600,24600,24312,24288,23784,23688,23592, 9 23592,23520,23520,23424,23448,23256,23232,22728,22728,22224/ data (jy(i),i= 1601, 1700)/ + 22200,21696,21720,21192,21192,21120,21120,20112,20640,20688, 1 20640,20784,20760,20544,20256,20352,20496,20856,20928,20904, 2 20976,21120,21312,21408,21288,21120,21048,20928,20952,20760, 3 20568,20544,20424,20352,20088,20088,20088,19968,19968,19848, 4 19824,19584,19536,19416,19392,17256,17400,17424,19560,14496, 5 14664,14832,14832,14928,14928,16464,18000,16464,16248,16224, 6 15816,15840,15312,14064,14160,14160,14376,14376,14640,14736, 7 15000,14976,14904,14904,14808,14832,15000,15072,15336,13992, 8 13992,13464,13416,13152,13104,12840,12216,12216,11952,14496, 9 14256,14136,13944,13776,13584,13440,13344,11520,11544,11616/ data (jy(i),i= 1701, 1800)/ + 11880,11952,11664,11664,11760, 9504, 9504, 8352, 8208, 8040, 1 7944, 8088, 8064, 8736, 9144, 9264, 9312, 9288, 9192, 9144, 2 8568,10512,10440,10440,10512,10680,10848,10776,10824,10608, 3 11088,11184,11304,11496,11568,11616,11592,11856,11856,11640, 4 11664,11544,11448,11376,10944,10848,10944,10944,11760,11808, 5 11952,12048,11880,15384,15384,15504,15528,15480,15312,15144, 6 15024,14856,14664,14664,14808,14880,15120,15240,15360,15312, 7 15144,15168,15288,14976,14880,14928,15024,15120,15072,15120, 8 15072,15384,15216,15096,15072,15168,15168,15240,15360,15480, 9 15456,15600,15504,15504,14976,14856,14544,14352,14448,14592/ data (jy(i),i= 1801, 1820)/ + 14592,14664,14952,15048,15240,15312,15216,15264,15168,15192, 1 15096, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (jb1(i),i= 1, 100)/ + 23, 26, 27, 28, 29, 30, 31, 32, 33, 34, 1 35, 36, 37, 38, 25, 3, 43, 44, 45, 46, 2 47, 48, 49, 50, 51, 52, 1, 1, 2, 2, 3 4, 5, 56, 57, 58, 59, 60, 61, 62, 63, 4 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 5 74, 75, 3, 4, 5, 6, 7, 8, 78, 79, 6 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 7 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 8 100, 101, 102, 77, 9, 11, 10, 105, 106, 107, 9 78, 11, 12, 13, 109, 110, 111, 112, 113, 114/ data (jb1(i),i= 101, 200)/ + 115, 116, 117, 118, 119, 120, 10, 13, 122, 123, 1 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 2 134, 135, 136, 137, 138, 139, 14, 14, 16, 17, 3 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 4 151, 152, 153, 154, 15, 18, 156, 157, 158, 159, 5 160, 161, 162, 17, 18, 164, 165, 166, 167, 168, 6 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 7 179, 180, 181, 182, 183, 184, 185, 19, 20, 187, 8 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 9 198, 199, 200, 201, 202, 203, 204, 205, 206, 207/ data (jb1(i),i= 201, 300)/ + 208, 209, 24, 21, 211, 212, 213, 214, 215, 216, 1 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 2 227, 228, 229, 230, 231, 19, 21, 233, 234, 235, 3 236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 4 246, 247, 248, 249, 250, 251, 252, 253, 254, 255, 5 256, 257, 22, 22, 259, 260, 261, 262, 263, 264, 6 265, 266, 267, 23, 24, 269, 270, 271, 272, 273, 7 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 8 284, 285, 286, 287, 288, 289, 41, 41, 291, 292, 9 293, 294, 295, 296, 297, 298, 299, 300, 301, 302/ data (jb1(i),i= 301, 400)/ + 303, 304, 305, 306, 307, 308, 309, 310, 311, 312, 1 313, 314, 315, 316, 317, 318, 319, 320, 321, 322, 2 42, 40, 324, 325, 326, 327, 328, 329, 330, 25, 3 40, 332, 333, 334, 335, 336, 337, 338, 339, 340, 4 341, 342, 343, 344, 345, 42, 347, 348, 349, 350, 5 351, 352, 353, 354, 355, 356, 357, 358, 359, 360, 6 361, 362, 363, 364, 365, 366, 367, 368, 369, 370, 7 371, 372, 373, 374, 347, 375, 376, 377, 378, 379, 8 380, 381, 382, 383, 384, 347, 386, 387, 388, 389, 9 390, 391, 392, 393, 394, 395, 396, 397, 398, 399/ data (jb1(i),i= 401, 500)/ + 400, 401, 402, 403, 404, 405, 406, 407, 408, 409, 1 410, 411, 412, 413, 414, 415, 416, 417, 418, 419, 2 420, 421, 422, 377, 373, 373, 424, 424, 426, 427, 3 428, 429, 430, 431, 432, 433, 434, 435, 436, 437, 4 438, 439, 440, 441, 442, 443, 377, 445, 446, 447, 5 448, 449, 450, 451, 452, 453, 454, 455, 456, 457, 6 458, 459, 460, 461, 462, 463, 464, 465, 466, 467, 7 468, 469, 470, 471, 472, 473, 474, 475, 476, 386, 8 478, 479, 480, 481, 482, 483, 484, 485, 486, 487, 9 488, 489, 490, 491, 492, 493, 494, 495, 496, 497/ data (jb1(i),i= 501, 600)/ + 498, 499, 445, 425, 425, 501, 502, 503, 504, 505, 1 506, 507, 508, 509, 510, 511, 512, 513, 514, 515, 2 516, 517, 518, 519, 520, 521, 522, 523, 524, 525, 3 526, 527, 528, 529, 530, 531, 532, 533, 534, 535, 4 536, 537, 538, 539, 540, 541, 542, 543, 544, 545, 5 546, 548, 549, 550, 551, 552, 553, 554, 555, 556, 6 557, 558, 478, 560, 561, 562, 563, 564, 565, 566, 7 567, 568, 569, 445, 426, 571, 572, 573, 574, 575, 8 576, 577, 578, 579, 580, 581, 582, 583, 584, 585, 9 548, 560, 426, 588, 589, 590, 591, 592, 593, 594/ data (jb1(i),i= 601, 700)/ + 595, 596, 597, 598, 599, 600, 601, 602, 603, 604, 1 605, 606, 607, 608, 609, 610, 611, 612, 613, 614, 2 615, 616, 617, 618, 619, 620, 621, 622, 623, 548, 3 625, 626, 627, 628, 629, 560, 571, 547, 631, 632, 4 633, 634, 635, 636, 637, 638, 639, 640, 641, 642, 5 547, 644, 645, 646, 647, 625, 588, 649, 650, 651, 6 652, 633, 654, 655, 656, 657, 658, 659, 660, 661, 7 662, 663, 664, 665, 666, 667, 668, 669, 670, 671, 8 672, 673, 674, 588, 676, 644, 678, 679, 680, 681, 9 682, 683, 684, 685, 686, 687, 688, 689, 690, 691/ data (jb1(i),i= 701, 800)/ + 692, 693, 694, 695, 696, 697, 698, 699, 700, 701, 1 702, 703, 704, 705, 644, 707, 708, 709, 710, 676, 2 649, 712, 713, 714, 715, 716, 717, 718, 719, 720, 3 721, 722, 723, 724, 725, 726, 727, 728, 729, 730, 4 731, 732, 733, 734, 735, 736, 737, 738, 739, 740, 5 741, 676, 571, 743, 744, 745, 746, 747, 748, 749, 6 750, 751, 752, 753, 754, 755, 756, 757, 758, 759, 7 707, 707, 649, 762, 763, 764, 765, 766, 767, 768, 8 769, 770, 771, 772, 654, 761, 775, 776, 777, 778, 9 779, 780, 781, 782, 783, 784, 785, 761, 8, 787/ data (jb1(i),i= 801, 900)/ + 788, 789, 790, 791, 792, 793, 794, 795, 796, 797, 1 798, 799, 800, 801, 773, 803, 803, 805, 806, 807, 2 808, 809, 810, 811, 812, 813, 814, 815, 816, 817, 3 818, 819, 820, 821, 822, 823, 824, 825, 826, 827, 4 828, 829, 830, 831, 832, 804, 773, 834, 836, 837, 5 723, 723, 654, 839, 840, 841, 842, 843, 844, 845, 6 846, 847, 848, 849, 850, 851, 852, 853, 835, 836, 7 855, 856, 857, 858, 859, 860, 862, 863, 864, 865, 8 866, 867, 868, 869, 870, 871, 836, 678, 873, 874, 9 875, 876, 877, 878, 879, 880, 861, 881, 882, 678/ data (jb1(i),i= 901, 1000)/ + 775, 884, 885, 886, 887, 888, 889, 890, 891, 892, 1 893, 894, 895, 896, 897, 898, 899, 900, 901, 903, 2 904, 905, 906, 835, 902, 908, 909, 910, 911, 912, 3 805, 913, 914, 805, 916, 917, 918, 919, 920, 921, 4 922, 923, 924, 925, 908, 927, 928, 929, 930, 931, 5 932, 933, 934, 935, 936, 937, 938, 939, 940, 941, 6 942, 943, 944, 945, 902, 913, 947, 948, 949, 950, 7 951, 952, 953, 954, 955, 956, 957, 958, 959, 960, 8 961, 962, 963, 964, 965, 966, 967, 968, 908, 970, 9 971, 972, 973, 974, 975, 976, 977, 978, 979, 980/ data (jb1(i),i= 1001, 1100)/ + 862, 982, 983, 926, 926, 985, 986, 987, 988, 989, 1 990, 991, 993, 994, 995, 996, 997, 998, 999, 1000, 2 1001, 1002, 992, 916, 1004, 1005, 1006, 1007, 1008, 982, 3 927, 1010, 1011, 1012, 1013, 1014, 1015, 1016, 862, 913, 4 1019, 1020, 1021, 1022, 1023, 1024, 1025, 1026, 1027, 1028, 5 1029, 1030, 1031, 1032, 1033, 1034, 1035, 1036, 1037, 1038, 6 1039, 1040, 1041, 1042, 1043, 1044, 1045, 1046, 1047, 1048, 7 1049, 1050, 1051, 1052, 1053, 1054, 1055, 1056, 1057, 1058, 8 1059, 1060, 916, 861, 1062, 1063, 1064, 1065, 1066, 1067, 9 1068, 1069, 1070, 1071, 1072, 1073, 1074, 1075, 1076, 1077/ data (jb1(i),i= 1101, 1200)/ + 1078, 1079, 1080, 1081, 1082, 970, 1084, 1085, 1086, 1087, 1 1088, 1089, 1090, 1091, 1092, 982, 993, 970, 13, 1095, 2 1096, 1097, 1098, 1099, 1100, 1101, 1094, 1018, 1103, 1104, 3 1105, 1106, 1107, 1108, 1109, 1110, 1111, 1112, 1113, 1114, 4 1115, 1116, 1117, 1118, 1119, 1120, 1121, 927, 1123, 1124, 5 1125, 1126, 1127, 1128, 1129, 1130, 1131, 1132, 1133, 1134, 6 1094, 993, 1122, 1137, 1138, 1139, 1140, 1141, 1130, 1143, 7 1094, 1084, 1145, 1143, 1148, 1149, 1150, 1146, 1152, 1153, 8 1154, 1155, 1156, 1157, 1158, 1159, 1160, 1161, 1162, 1163, 9 1164, 1165, 1166, 1167, 1168, 1169, 1170, 1136, 1143, 1172/ data (jb1(i),i= 1201, 1300)/ + 1173, 1174, 1175, 1176, 1177, 1178, 1179, 1180, 1181, 1182, 1 1183, 1184, 1185, 1186, 1122, 1188, 1147, 1136, 1190, 1191, 2 1192, 1193, 1194, 1195, 1196, 1197, 1198, 1199, 1200, 1201, 3 1202, 1203, 1204, 1205, 1206, 1207, 1208, 1209, 1210, 1211, 4 1212, 1213, 1214, 1215, 1216, 1217, 1218, 1219, 1220, 1221, 5 1222, 1223, 1224, 1225, 1226, 1227, 1228, 1176, 1230, 1231, 6 1232, 1233, 1234, 1235, 1236, 1237, 1238, 1147, 1188, 1019, 7 1190, 1241, 1242, 1243, 1244, 1245, 1246, 1247, 1190, 1249, 8 1250, 1251, 1252, 1253, 1254, 1255, 1256, 1019, 1148, 1258, 9 1259, 1260, 1261, 1262, 1263, 1249, 1188, 1265, 1152, 1267/ data (jb1(i),i= 1301, 1400)/ + 1268, 1176, 1249, 1270, 1271, 1272, 1273, 1274, 1275, 1276, 1 1277, 1278, 1279, 1280, 1281, 1282, 1283, 1284, 1285, 1286, 2 1287, 1288, 1289, 1290, 1291, 1292, 1293, 1294, 1295, 1296, 3 1297, 1298, 1299, 1300, 1301, 1302, 1303, 1304, 1305, 1306, 4 1307, 1308, 1309, 1310, 1311, 1312, 1313, 1314, 1315, 1316, 5 1317, 1318, 1319, 1320, 1321, 1322, 1323, 1324, 1325, 1326, 6 1152, 1328, 1329, 1330, 1266, 1332, 1333, 1334, 1335, 1336, 7 1337, 1338, 1339, 1340, 1341, 1342, 1343, 1344, 1345, 1346, 8 1347, 1152, 1258, 1266, 1349, 1350, 1351, 1352, 1353, 1354, 9 1355, 1356, 1357, 1358, 17, 1360, 1361, 1362, 1359, 1241/ data (jb1(i),i= 1401, 1500)/ + 1364, 1365, 1366, 1367, 1229, 1369, 1370, 1371, 1372, 1373, 1 1374, 1375, 1376, 1377, 1378, 1379, 1380, 1381, 1382, 1383, 2 1384, 1385, 1386, 1387, 1388, 1389, 1390, 1391, 1392, 1258, 3 1332, 1394, 1395, 1396, 1397, 1229, 1327, 1399, 1400, 1401, 4 1402, 1241, 1404, 1405, 1406, 1407, 1408, 1409, 1410, 1411, 5 1332, 1413, 1414, 1415, 1416, 1417, 1418, 1419, 1420, 1421, 6 1422, 1423, 1424, 1425, 1426, 1359, 1428, 1413, 1404, 1430, 7 1431, 1432, 1433, 1434, 1413, 18, 1436, 1437, 1438, 1439, 8 1440, 1441, 1428, 1327, 1443, 1444, 1445, 1446, 1404, 1448, 9 1449, 1450, 1451, 1452, 1453, 1454, 1369, 1456, 1457, 1458/ data (jb1(i),i= 1501, 1600)/ + 1459, 1443, 1461, 1462, 1463, 1464, 1465, 1466, 1467, 1468, 1 1469, 1470, 1471, 1472, 1473, 1474, 1475, 1476, 1477, 1478, 2 1479, 1480, 1481, 1482, 1483, 1484, 1485, 1486, 1487, 1488, 3 1489, 1490, 1491, 1492, 1493, 1494, 1495, 1496, 1497, 1369, 4 1456, 1499, 1500, 1501, 1502, 1503, 1504, 1505, 1506, 1507, 5 1508, 1509, 1510, 1511, 1512, 1513, 1514, 1515, 1516, 1517, 6 1518, 1519, 1520, 1521, 1522, 1523, 1524, 1525, 1526, 1527, 7 1528, 1529, 1530, 1428, 1532, 1533, 1534, 1535, 1536, 1537, 8 1538, 1539, 1540, 1541, 1448, 1532, 1543, 1544, 1545, 1546, 9 1547, 1548, 1549, 1550, 1551, 1552, 1553, 1554, 1555, 1556/ data (jb1(i),i= 1601, 1700)/ + 1456, 19, 1558, 1559, 1560, 1561, 1562, 1563, 1532, 1558, 1 1565, 1566, 1567, 1568, 1569, 1570, 1448, 1572, 1573, 1574, 2 1575, 1461, 1576, 1572, 1461, 1578, 1579, 1580, 1581, 1582, 3 1583, 1584, 1572, 1565, 1586, 1587, 1588, 1589, 1590, 1591, 4 1592, 1593, 1594, 1595, 1596, 1597, 1598, 1599, 1600, 1601, 5 1602, 1603, 1604, 1605, 1606, 1607, 21, 1609, 1610, 1611, 6 1612, 1613, 1614, 1615, 1616, 1617, 1618, 1619, 1620, 1621, 7 1622, 1623, 1624, 1625, 1626, 1627, 1628, 1629, 1630, 1631, 8 1632, 1633, 1634, 1608, 1636, 1637, 1638, 1639, 1640, 1641, 9 1642, 1643, 1644, 1608, 22, 1646, 1647, 1636, 1645, 1578/ data (jb1(i),i= 1701, 1800)/ + 1650, 1651, 1652, 1653, 1654, 1655, 1656, 1578, 1645, 1658, 1 1659, 1660, 1661, 1662, 1663, 1664, 1665, 1666, 1667, 1668, 2 1669, 1670, 1671, 1672, 1673, 1674, 1675, 1676, 1677, 1678, 3 1679, 1650, 1664, 1680, 1681, 1682, 1683, 1684, 1685, 1686, 4 1687, 1688, 1650, 1690, 1691, 1692, 1693, 1694, 1695, 1696, 5 1697, 1698, 1699, 1700, 1701, 1689, 40, 1703, 1704, 1689, 6 1698, 42, 1706, 1698, 1, 2, 3, 4, 5, 6, 7 7, 8, 9, 10, 11, 12, 13, 1, 15, 16, 8 17, 18, 19, 20, 21, 22, 15, 24, 25, 26, 9 27, 28, 29, 30, 31, 32, 33, 34, 35, 36/ data (jb1(i),i= 1801, 1870)/ + 37, 38, 39, 40, 24, 42, 43, 44, 45, 42, 1 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 2 57, 58, 59, 60, 61, 62, 63, 64, 65, 47, 3 67, 68, 69, 70, 71, 72, 73, 67, 75, 76, 4 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 5 75, 88, 89, 90, 91, 92, 93, 94, 95, 96, 6 97, 98, 99, 100, 101, 102, 103, 88, 0, 0/ data (jb2(i),i= 1, 100)/ + 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 1 36, 37, 38, 39, 39, 43, 44, 45, 46, 47, 2 48, 49, 50, 51, 52, 53, 53, 54, 54, 55, 3 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 4 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 5 75, 76, 76, 6, 77, 7, 8, 9, 79, 80, 6 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 7 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 8 101, 102, 103, 103, 104, 104, 105, 106, 107, 108, 9 108, 12, 16, 109, 110, 111, 112, 113, 114, 115/ data (jb2(i),i= 101, 200)/ + 116, 117, 118, 119, 120, 121, 121, 122, 123, 124, 1 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 2 135, 136, 137, 138, 139, 140, 140, 15, 20, 141, 3 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 4 152, 153, 154, 155, 155, 156, 157, 158, 159, 160, 5 161, 162, 163, 163, 164, 165, 166, 167, 168, 169, 6 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 7 180, 181, 182, 183, 184, 185, 186, 186, 187, 188, 8 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 9 199, 200, 201, 202, 203, 204, 205, 206, 207, 208/ data (jb2(i),i= 201, 300)/ + 209, 210, 210, 211, 212, 213, 214, 215, 216, 217, 1 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 2 228, 229, 230, 231, 232, 232, 233, 234, 235, 236, 3 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 4 247, 248, 249, 250, 251, 252, 253, 254, 255, 256, 5 257, 258, 258, 259, 260, 261, 262, 263, 264, 265, 6 266, 267, 268, 268, 269, 270, 271, 272, 273, 274, 7 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 8 285, 286, 287, 288, 289, 290, 290, 291, 292, 293, 9 294, 295, 296, 297, 298, 299, 300, 301, 302, 303/ data (jb2(i),i= 301, 400)/ + 304, 305, 306, 307, 308, 309, 310, 311, 312, 313, 1 314, 315, 316, 317, 318, 319, 320, 321, 322, 323, 2 323, 324, 325, 326, 327, 328, 329, 330, 331, 331, 3 332, 333, 334, 335, 336, 337, 338, 339, 340, 341, 4 342, 343, 344, 345, 346, 346, 348, 349, 350, 351, 5 352, 353, 354, 355, 356, 357, 358, 359, 360, 361, 6 362, 363, 364, 365, 366, 367, 368, 369, 370, 371, 7 372, 1, 374, 2, 375, 376, 3, 378, 379, 380, 8 381, 382, 383, 384, 385, 385, 387, 388, 389, 390, 9 391, 392, 393, 394, 395, 396, 397, 398, 399, 400/ data (jb2(i),i= 401, 500)/ + 401, 402, 403, 404, 405, 406, 407, 408, 409, 410, 1 411, 412, 413, 414, 415, 416, 417, 418, 419, 420, 2 421, 422, 423, 423, 386, 424, 4, 425, 427, 428, 3 429, 430, 431, 432, 433, 434, 435, 436, 437, 438, 4 439, 440, 441, 442, 443, 444, 444, 446, 447, 448, 5 449, 450, 451, 452, 453, 454, 455, 456, 457, 458, 6 459, 460, 461, 462, 463, 464, 465, 466, 467, 468, 7 469, 470, 471, 472, 473, 474, 475, 476, 477, 477, 8 479, 480, 481, 482, 483, 484, 485, 486, 487, 488, 9 489, 490, 491, 492, 493, 494, 495, 496, 497, 498/ data (jb2(i),i= 501, 600)/ + 499, 500, 500, 478, 501, 502, 503, 504, 505, 506, 1 507, 508, 509, 510, 511, 512, 513, 514, 515, 516, 2 517, 518, 519, 520, 521, 522, 523, 524, 525, 526, 3 527, 528, 529, 530, 531, 532, 533, 534, 535, 536, 4 537, 538, 539, 540, 541, 542, 543, 544, 545, 546, 5 547, 549, 550, 551, 552, 553, 554, 555, 556, 557, 6 558, 559, 559, 561, 562, 563, 564, 565, 566, 567, 7 568, 569, 570, 570, 5, 572, 573, 574, 575, 576, 8 577, 578, 579, 580, 581, 582, 583, 584, 585, 586, 9 586, 587, 587, 589, 590, 591, 592, 593, 594, 595/ data (jb2(i),i= 601, 700)/ + 596, 597, 598, 599, 600, 601, 602, 603, 604, 605, 1 606, 607, 608, 609, 610, 611, 612, 613, 614, 615, 2 616, 617, 618, 619, 620, 621, 622, 623, 624, 624, 3 626, 627, 628, 629, 630, 630, 625, 631, 632, 6, 4 634, 635, 636, 637, 638, 639, 640, 641, 642, 643, 5 643, 645, 646, 647, 648, 648, 633, 650, 651, 652, 6 653, 653, 655, 656, 657, 658, 659, 660, 661, 662, 7 663, 664, 665, 666, 667, 668, 669, 670, 671, 672, 8 673, 674, 675, 675, 677, 677, 679, 680, 681, 682, 9 683, 684, 685, 686, 687, 688, 689, 690, 691, 692/ data (jb2(i),i= 701, 800)/ + 693, 694, 695, 696, 697, 698, 699, 700, 701, 702, 1 703, 704, 705, 706, 706, 708, 709, 710, 711, 711, 2 712, 713, 714, 715, 716, 717, 718, 719, 720, 721, 3 722, 7, 724, 725, 726, 727, 728, 729, 730, 731, 4 732, 733, 734, 735, 736, 737, 738, 739, 740, 741, 5 742, 742, 743, 744, 745, 746, 747, 748, 749, 750, 6 751, 752, 753, 754, 755, 756, 757, 758, 759, 760, 7 760, 761, 762, 763, 764, 765, 766, 767, 768, 769, 8 770, 771, 772, 773, 774, 774, 776, 777, 778, 779, 9 780, 781, 782, 783, 784, 785, 786, 786, 787, 788/ data (jb2(i),i= 801, 900)/ + 789, 790, 791, 792, 793, 794, 795, 796, 797, 798, 1 799, 800, 801, 802, 802, 9, 804, 806, 807, 808, 2 809, 810, 811, 812, 813, 814, 815, 816, 817, 818, 3 819, 820, 821, 822, 823, 824, 825, 826, 827, 828, 4 829, 830, 831, 832, 833, 833, 834, 835, 837, 838, 5 838, 775, 839, 840, 841, 842, 843, 844, 845, 846, 6 847, 848, 849, 850, 851, 852, 853, 854, 854, 855, 7 856, 857, 858, 859, 860, 861, 863, 864, 865, 866, 8 867, 868, 869, 870, 871, 872, 872, 873, 874, 875, 9 876, 877, 878, 879, 880, 10, 881, 882, 883, 883/ data (jb2(i),i= 901, 1000)/ + 884, 885, 886, 887, 888, 889, 890, 891, 892, 893, 1 894, 895, 896, 897, 898, 899, 900, 901, 902, 904, 2 905, 906, 907, 907, 903, 909, 910, 911, 912, 11, 3 903, 914, 915, 915, 917, 918, 919, 920, 921, 922, 4 923, 924, 925, 12, 926, 928, 929, 930, 931, 932, 5 933, 934, 935, 936, 937, 938, 939, 940, 941, 942, 6 943, 944, 945, 946, 946, 947, 948, 949, 950, 951, 7 952, 953, 954, 955, 956, 957, 958, 959, 960, 961, 8 962, 963, 964, 965, 966, 967, 968, 969, 969, 971, 9 972, 973, 974, 975, 976, 977, 978, 979, 980, 981/ data (jb2(i),i= 1001, 1100)/ + 981, 983, 984, 984, 985, 986, 987, 988, 989, 990, 1 991, 992, 994, 995, 996, 997, 998, 999, 1000, 1001, 2 1002, 1003, 1003, 1004, 1005, 1006, 1007, 1008, 1009, 1009, 3 1010, 1011, 1012, 1013, 1014, 1015, 1016, 1017, 1017, 1018, 4 1020, 1021, 1022, 1023, 1024, 1025, 1026, 1027, 1028, 1029, 5 1030, 1031, 1032, 1033, 1034, 1035, 1036, 1037, 1038, 1039, 6 1040, 1041, 1042, 1043, 1044, 1045, 1046, 1047, 1048, 1049, 7 1050, 1051, 1052, 1053, 1054, 1055, 1056, 1057, 1058, 1059, 8 1060, 1061, 1061, 1062, 1063, 1064, 1065, 1066, 1067, 1068, 9 1069, 1070, 1071, 1072, 1073, 1074, 1075, 1076, 1077, 1078/ data (jb2(i),i= 1101, 1200)/ + 1079, 1080, 1081, 1082, 1083, 1083, 1085, 1086, 1087, 1088, 1 1089, 1090, 1091, 1092, 1093, 1093, 1018, 1094, 1095, 1096, 2 1097, 1098, 1099, 1100, 1101, 1102, 1102, 1103, 1104, 1105, 3 1106, 1107, 1108, 1109, 1110, 1111, 1112, 1113, 1114, 1115, 4 1116, 1117, 1118, 1119, 1120, 1121, 1122, 1123, 1124, 1125, 5 1126, 1127, 1128, 1129, 1130, 1131, 1132, 1133, 1134, 1135, 6 1135, 1136, 1137, 1138, 1139, 1140, 1141, 1142, 1142, 1144, 7 1144, 1145, 1146, 1147, 1149, 1150, 1151, 1151, 1153, 1154, 8 1155, 1156, 1157, 1158, 1159, 1160, 1161, 1162, 1163, 1164, 9 1165, 1166, 1167, 1168, 1169, 1170, 1171, 1171, 1172, 1173/ data (jb2(i),i= 1201, 1300)/ + 1174, 1175, 14, 1177, 1178, 1179, 1180, 1181, 1182, 1183, 1 1184, 1185, 1186, 1187, 1187, 1189, 1189, 1148, 1191, 1192, 2 1193, 1194, 1195, 1196, 1197, 1198, 1199, 1200, 1201, 1202, 3 1203, 1204, 1205, 1206, 1207, 1208, 1209, 1210, 1211, 1212, 4 1213, 1214, 1215, 1216, 1217, 1218, 1219, 1220, 1221, 1222, 5 1223, 1224, 1225, 1226, 1227, 1228, 1229, 1230, 1231, 1232, 6 1233, 1234, 1235, 1236, 1237, 1238, 1239, 1239, 15, 1240, 7 1240, 1242, 1243, 1244, 1245, 1246, 1247, 1248, 1248, 1250, 8 1251, 1252, 1253, 1254, 1255, 1256, 1257, 1257, 1229, 1259, 9 1260, 1261, 1262, 1263, 1264, 1264, 1265, 1266, 1267, 1268/ data (jb2(i),i= 1301, 1400)/ + 1269, 1269, 1270, 1271, 1272, 1273, 1274, 1275, 1276, 1277, 1 1278, 1279, 1280, 1281, 1282, 1283, 1284, 1285, 1286, 1287, 2 1288, 1289, 1290, 1291, 1292, 1293, 1294, 1295, 1296, 1297, 3 1298, 1299, 1300, 1301, 1302, 1303, 1304, 1305, 1306, 1307, 4 1308, 1309, 1310, 1311, 1312, 1313, 1314, 1315, 1316, 1317, 5 1318, 1319, 1320, 1321, 1322, 1323, 1324, 1325, 1326, 1327, 6 1328, 1329, 1330, 1331, 1331, 1333, 1334, 1335, 1336, 1337, 7 1338, 1339, 1340, 1341, 1342, 1343, 1344, 1345, 1346, 1347, 8 1348, 1348, 16, 1349, 1350, 1351, 1352, 1353, 1354, 1355, 9 1356, 1357, 1358, 1359, 1360, 1361, 1362, 1363, 1363, 1364/ data (jb2(i),i= 1401, 1500)/ + 1365, 1366, 1367, 1368, 1368, 1370, 1371, 1372, 1373, 1374, 1 1375, 1376, 1377, 1378, 1379, 1380, 1381, 1382, 1383, 1384, 2 1385, 1386, 1387, 1388, 1389, 1390, 1391, 1392, 1393, 1393, 3 1394, 1395, 1396, 1397, 1398, 1398, 1399, 1400, 1401, 1402, 4 1403, 1403, 1405, 1406, 1407, 1408, 1409, 1410, 1411, 1412, 5 1412, 1414, 1415, 1416, 1417, 1418, 1419, 1420, 1421, 1422, 6 1423, 1424, 1425, 1426, 1427, 1427, 1429, 1429, 1430, 1431, 7 1432, 1433, 1434, 1435, 1435, 1436, 1437, 1438, 1439, 1440, 8 1441, 1442, 1442, 1443, 1444, 1445, 1446, 1447, 1447, 1449, 9 1450, 1451, 1452, 1453, 1454, 1455, 1455, 1457, 1458, 1459/ data (jb2(i),i= 1501, 1600)/ + 1460, 1460, 1462, 1463, 1464, 1465, 1466, 1467, 1468, 1469, 1 1470, 1471, 1472, 1473, 1474, 1475, 1476, 1477, 1478, 1479, 2 1480, 1481, 1482, 1483, 1484, 1485, 1486, 1487, 1488, 1489, 3 1490, 1491, 1492, 1493, 1494, 1495, 1496, 1497, 1498, 1498, 4 1499, 1500, 1501, 1502, 1503, 1504, 1505, 1506, 1507, 1508, 5 1509, 1510, 1511, 1512, 1513, 1514, 1515, 1516, 1517, 1518, 6 1519, 1520, 1521, 1522, 1523, 1524, 1525, 1526, 1527, 1528, 7 1529, 1530, 1531, 1531, 1533, 1534, 1535, 1536, 1537, 1538, 8 1539, 1540, 1541, 1542, 1542, 1543, 1544, 1545, 1546, 1547, 9 1548, 1549, 1550, 1551, 1552, 1553, 1554, 1555, 1556, 1557/ data (jb2(i),i= 1601, 1700)/ + 1557, 1558, 1559, 1560, 1561, 1562, 1563, 1564, 1564, 1565, 1 1566, 1567, 1568, 1569, 1570, 1571, 1571, 1573, 1574, 1575, 2 20, 1576, 1577, 1577, 1566, 1579, 1580, 1581, 1582, 1583, 3 1584, 1585, 1585, 1586, 1587, 1588, 1589, 1590, 1591, 1592, 4 1593, 1594, 1595, 1596, 1597, 1598, 1599, 1600, 1601, 1602, 5 1603, 1604, 1605, 1606, 1607, 1608, 1609, 1610, 1611, 1612, 6 1613, 1614, 1615, 1616, 1617, 1618, 1619, 1620, 1621, 1622, 7 1623, 1624, 1625, 1626, 1627, 1628, 1629, 1630, 1631, 1632, 8 1633, 1634, 1635, 1635, 1637, 1638, 1639, 1640, 1641, 1642, 9 1643, 1644, 1645, 1636, 1646, 1647, 1648, 1648, 1649, 1649/ data (jb2(i),i= 1701, 1800)/ + 1651, 1652, 1653, 1654, 1655, 1656, 1657, 1657, 1658, 1659, 1 1660, 1661, 1662, 1663, 23, 1665, 1666, 1667, 1668, 1669, 2 1670, 1671, 1672, 1673, 1674, 1675, 1676, 1677, 1678, 1679, 3 24, 1664, 1680, 1681, 1682, 1683, 1684, 1685, 1686, 1687, 4 1688, 1689, 1690, 1691, 1692, 1693, 1694, 1695, 1696, 1697, 5 25, 1699, 1700, 1701, 1702, 1702, 1703, 1704, 1705, 1705, 6 41, 1706, 1707, 1707, 2, 3, 4, 5, 6, 7, 7 8, 9, 10, 11, 12, 13, 14, 14, 16, 17, 8 18, 19, 20, 21, 22, 23, 23, 25, 26, 27, 9 28, 29, 30, 31, 32, 33, 34, 35, 36, 37/ data (jb2(i),i= 1801, 1870)/ + 38, 39, 40, 41, 41, 43, 44, 45, 46, 46, 1 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 2 58, 59, 60, 61, 62, 63, 64, 65, 66, 66, 3 68, 69, 70, 71, 72, 73, 74, 74, 76, 77, 4 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 5 87, 89, 90, 91, 92, 93, 94, 95, 96, 97, 6 98, 99, 100, 101, 102, 103, 104, 104, 0, 0/ c state=istate irot=jrot npart=ipart do i=1,5 jv(i)=kv(i) jb(i)=kb(i) ib(i)=iib(i) enddo do i=1,jv(npart+1)-1 ix(i)=jx(i) iy(i)=jy(i) enddo do i=1,jb(npart+1)-1 ib1(i)=jb1(i) ib2(i)=jb2(i) enddo return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine co(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(*) :: jv,jb,ib,ix,iy,ib1,ib2 integer(kind=iknd), save, dimension(5) :: kv,kb,iib integer(kind=iknd), save, dimension(910) :: jx,jy integer(kind=iknd), save, dimension(970) :: jb1,jb2 integer(kind=iknd), save :: jrot,ipart character(len=80) :: state character(len=80), save :: istate cy data istate/'colorado '/ data jrot,ipart/0,1/ data kv/ 1, 904, 0, 0, 0/ data kb/ 1, 966, 0, 0, 0/ data iib/ 35, 0, 0, 0, 0/ data (jx(i),i= 1, 100)/ + 19032,22032,26472,43824, 7224,34776, 7008, 6888, 6480, 6504, 1 6360, 6216,23928,47808,10704,29352,33384,17016, 7560,12024, 2 49944,54000,53928,54096,54360,54528,54648, 6408,54768,54936, 3 6024,55128,21264,21216,39072,18048,18048,18120,18192,18600, 4 18600,18984,22128,22008,22008,22128,22296,22416,22584,22680, 5 22800,22848,23040,23136,23208,23208,23400,23352,23472,23520, 6 23496,23328,23232,23280,23184,23136,23184,23040,23088,23256, 7 23256,23328,23352,23280,23352,23352,28704,28656,28536,28320, 8 28320,28224,28200,28080,28080,27912,27792,27792,27600,27360, 9 27192,27048,26904,26880,26544,26544,43872,43848,43896,29016/ data (jx(i),i= 101, 200)/ + 28968,29184,29712,29856,30000,23400,23544,23664,23952,24144, 1 24216,24456,24720,24912,25056,25104,25320,25464,25656,25728, 2 25752,25944,26184,26448,26568,26784,27024,27144,27576,27672, 3 27840,27984,28128,28080,28272,28344,28416,44664,49224,44640, 4 23400,23424,23352,23424,23328,34008,34008,34776,20712,20736, 5 30024,29928,29856,29928,30096,30192,30144,30120,30024,30120, 6 30000,29808,29760,29808,29736,29856, 8064, 8064,10320,10344, 7 14544,14568,17976,18000,18768,18792,18864,18888,20760,43080, 8 44688,40104,40080,34032,20040,20184,24744,28176,28032,27984, 9 27672,27480,27264,27072,26784,26664,26424,25992,25008,25008/ data (jx(i),i= 201, 300)/ + 31272,31464,31728,31728,34032,24744,25032,25200,25344,25464, 1 25608,25704,25872,25872,25920,26016,26040,26160,26160,26376, 2 26448,26400,26232,26184,26208,26280,26184,26016,25872,25944, 3 25920,26088,26064,26184,26184,31728,29760,29712,30120,30216, 4 30360,30504,30528,30720,30792,31104,31512,31560,28296,28440, 5 28464,28392,28416,28608,28680,28848,29016,29304,29448,29592, 6 29712,34032,34872,34896,35160,35160,35304,35304,35784,35808, 7 35928,35928,36048,36048,36168,36192,35352,35352,35160,35160, 8 43128,35424,35424,35544,35544,38904,34032,34032,34176,34176, 9 34272,34536,34800,34920,34992,35184,35160,35472,35064,35040/ data (jx(i),i= 301, 400)/ + 35160,35160,35304,28800,28752,28896,29160,29088,28752,28584, 1 28392,28224,28152,33672,33672,33816,33960,33960,34032,43152, 2 46896,43104,31704,34080,36672,34056,31704,32136,33912,33792, 3 33624,33504,33552,33528,33264,33264,33072,33072,33000,32928, 4 32760,32664,32616,32520,32184,17928,26664,24768,26088,25968, 5 25656,25464,25176,25080,24936,26952,27240,27480,27504,27936, 6 27864,27984,28032,28272,28392,28512,28584,28512,28560,28704, 7 28848,28872,26304,26400,26328,26448,26448,26352,26352,26424, 8 26568,26664,26568,23640,23592,23784,23760,23832,24096,24240, 9 24216,24336,24312,24192,24192,24360,24384,24600,24672,24648/ data (jx(i),i= 401, 500)/ + 18168,18264,18096,17712,17688,17880,17904,17832,17616,17520, 1 17376,17232,17256,17136,17064,16824,16752,16368,16152,16152, 2 15936,15528,15360,14976,14640,14064,13296,13320,13056,12936, 3 12936,11280,11232,23496,23376,23184,23112,22944,22824,22488, 4 22512,22248,22224,22104,21888,21696,21576,21576,21456,21120, 5 21048,21000,20808,20784,20856,20856,20328,18888,18792,18648, 6 18432,18240,18264,36672,34176,26232,26232,26112,25848,25728, 7 25776,25968,26040,26184,26136,17256,32112,23544,23520,23640, 8 26136,26352,26424,26424,26280,26352,26280,26472,26736,26832, 9 26832,27096,27264,27432,27576,27720,27792,27720,27768,27984/ data (jx(i),i= 501, 600)/ + 28056,27984,28176,27984,27936,27792,40848,43152,40848,25824, 1 25824,25680,25656,25560,25392,25248,25152,25176,25104,25176, 2 25032,24912,24936,24624,24480,24528,24624,24696,24744,24696, 3 24744,24936,25080,25152,25368,25392,25320,25008,24960,24792, 4 24696,24576,24384,23976,23976,23808,23784,23616,23520,32760, 5 32760,32856,32856,33120,33120,34032,34776,34800,33936,33936, 6 34200,11184,16248,17160,34776,27432,27936,28152,28152,28320, 7 28272,28368,28320,28152,28128,28032,40896,43920,43920,44640, 8 26952,27144,20592,20640,34056,34800,13920,14064,14064,14136, 9 14136,14064,14064,13968,13968,13824,13848,13152,13152,13032/ data (jx(i),i= 601, 700)/ + 13056,12840,12864,16296,16392,16536,16608,16704,16680,28920, 1 28560,28224,27936,27792,27552,34056,16488,16560,16824,16872, 2 16968,16968,17064,16872,16752,16680,16704,16632,40896,41040, 3 41352,41520,41736,41832,41904,41928,42024,42240,42480,43944, 4 43920,44688,44664,44736,20544,15432,15480,15384,15144,15096, 5 14736,14736,14664,14424,14352,14424,14016,14040,13920,31128, 6 30840,30672,30528,30360,30360,30264,30288,29856,29880,29760, 7 29784,29592,29184,28968,15696,15960,16104,16152,22632,22632, 8 22368,22224,21960,21624,21312,21120,20952,20784, 7920, 7968, 9 8064,11832,12144,12624,12816,12936,13128,13224,13392,13632/ data (jx(i),i= 701, 800)/ + 13800,13968,14088,14544,19584,19656,19512,19608,19752,19848, 1 19944,20112,20232,20472,16872,16848,16920,16848,16920,16968, 2 17184,17280,17352,17256,17160,17136,45480,45432,31344,31536, 3 31776,32136,32256,32424,32592,33000,33048,33264,33336,33360, 4 33480,33552,33672,33864,33960,33960,34296,34584,34704,31104, 5 31344,31416,31392,31296,31296,31224,36792,38880,14712,14808, 6 14784,15024,15144,27192,23400,23400,40920, 7176,13752,31008, 7 30912,31056,31056,31248,14424,14232,13800,13752,13848,47760, 8 40920,31224,31344,31512,31656,31800,32112,32328,32616,32760, 9 33072,33024,33048,32976,32904,33024,33144,33192,33144,33216/ data (jx(i),i= 801, 900)/ + 33192,33336,33480,33240,33240,33288,17112,29208,29088,27144, 1 22488,22488,22632,19584,22704,22680,23232,23280,23808,33432, 2 33600,33792,34224,34248,34464,34920,35208,35544,36120,36240, 3 36528,36504,36600,36840,37008,37488,37488,38184,47784,47832, 4 13368,13368,13272,13224,13128,12960,12768,12720,12672,12384, 5 12192,12048,11928,11976,11928,11640,11400,11328,11328,11232, 6 11040,10776,27144,29160,29136,29232,29304,29352,29328,29232, 7 29184,29280,29232,29256,29160,29184,29016,28992,29040,29112, 8 29184,29304,50016,50016,49944,50040,49272,50712,49248,49152, 9 49224,49176,46920,46920,46968,46944,46920,46920,46968,44640/ data (jx(i),i= 901, 910)/ + 46944,49968,50064, 0, 0, 0, 0, 0, 0, 0/ data (jy(i),i= 1, 100)/ + 61944,61872,61752,61824,55488,61704,50688,48000,40464,37416, 1 35040,31512,26760,26856,27144,26736,26712,26952,62328,62136, 2 61944,59856,62064,57144,49560,44952,41160,38520,38136,32688, 3 27336,27000,26808,26856,26688,55104,56088,56088,57936,57936, 4 58416,58416,61776,61632,61440,61224,61224,60912,60984,60888, 5 60888,60696,60696,60816,60816,60696,60480,60312,60216,60120, 6 59952,59736,59280,59112,59016,58800,58728,58440,57936,57744, 7 57624,57576,57312,57192,57144,57072,57240,57480,57552,57576, 8 57936,58056,58296,58416,58584,59088,59232,59352,59616,60144, 9 60264,60528,60648,60864,61224,61416,57600,59184,59184,57048/ data (jy(i),i= 101, 200)/ + 56712,56256,55800,55344,55248,56856,56808,56352,56352,56232, 1 56400,56640,56088,56088,55968,56088,56160,55992,55920,55944, 2 56136,56160,55848,55896,56016,55896,56088,56040,56256,56160, 3 56136,56016,56184,56328,56472,56472,57096,56856,56976,57624, 4 52392,53136,53136,56040,56040,55248,56016,56016,53928,55080, 5 55200,55032,54696,54360,54264,54000,53952,53664,53520,53352, 6 53136,53088,53040,52848,52464,52368,50616,50520,50400,50784, 7 50592,51744,51672,52464,52440,53160,53160,54000,52440,53040, 8 53064,52992,57576,52968,47544,52440,52368,50352,50280,50304, 9 50232,50280,50616,51312,51648,51600,51720,52248,52296,52368/ data (jy(i),i= 201, 300)/ + 52344,52416,52392,52200,52200,51912,51000,50856,50904,50664, 1 50568,50400,50400,50256,50208,50208,50064,50040,49992,49968, 2 49824,49536,49536,49392,49200,49128,48888,49080,48936,48744, 3 48384,48072,47904,47904,47592,50784,51672,52008,51600,51456, 4 51384,51408,51240,51096,50952,50856,50808,50736,50616,50712, 5 50904,51072,51216,51216,51144,51120,51264,51216,51288,51552, 6 51576,51120,51120,51048,51048,50952,50952,51192,51192,51072, 7 51072,51192,51192,51336,51336,50952,50952,50808,50808,50688, 8 50736,50688,50808,50808,50688,50664,49560,49776,49776,49944, 9 50040,50040,49848,49848,49680,49680,49752,49992,50016,50280/ data (jy(i),i= 301, 400)/ + 50280,50400,50424,49176,49272,49320,49536,49728,49824,50040, 1 49992,50064,50160,49560,49752,49752,49872,50040,50040,49224, 2 49296,49224,49152,49176,49176,49176,45360,45360,48936,48504, 3 48456,48336,48192,47976,47760,47376,46968,46872,46800,46512, 4 46320,46320,46056,46008,45360,47592,47568,47472,47592,47472, 5 47376,47448,47400,47520,47616,47568,47400,47424,47640,47856, 6 48072,48096,48240,48264,48456,48576,48672,48792,48864,48840, 7 48936,49056,45336,45480,46104,46248,46320,46392,46704,47040, 8 47064,47208,47448,44808,45144,45264,45624,45696,45696,46056, 9 46368,46560,46680,46800,46920,47088,46992,47088,47064,47376/ data (jy(i),i= 401, 500)/ + 46656,46800,46968,47136,47232,47448,46656,46488,46440,46488, 1 46392,46272,46176,46152,45984,45984,45888,45624,45360,45240, 2 45192,44880,45048,45216,45096,45072,44400,44256,43920,43896, 3 43752,43128,41736,44280,44280,44496,44664,44688,44808,44688, 4 44544,44328,44208,44136,44136,44400,44400,44304,44232,44496, 5 44496,44616,44664,44760,44832,44952,45408,45480,45696,45840, 6 45912,46152,46512,45360,45360,45432,45672,45744,45696,45360, 7 45120,44976,44856,44832,44784,41544,41568,44400,44664,44736, 8 45168,45168,45072,44976,44904,44616,44448,44184,44184,44136, 9 43728,43680,43752,43680,43536,43536,43416,43296,43200,43248/ data (jy(i),i= 501, 600)/ + 43152,42840,42504,42240,41832,41544,43080,43104,45360,39216, 1 39360,39408,39504,39528,39864,39864,39960,40080,40296,40488, 2 40896,40992,41112,41232,41640,41736,41736,41904,42312,42624, 3 42744,42720,42984,42984,43272,43392,43488,43464,43560,43488, 4 43656,43536,43488,43896,44088,44232,44304,44208,44208,41568, 5 41400,41400,41280,41280,41136,41160,41136,42432,42432,43056, 6 43056,40272,38376,38352,40008,39432,39888,39912,40248,40464, 7 40584,40752,40920,41016,41208,41400,40080,40128,40080,40080, 8 39216,39480,36912,39264,37728,37752,37128,37128,37320,37320, 9 37704,37704,37776,37776,37848,37848,37968,38064,38304,38304/ data (jy(i),i= 601, 700)/ + 38568,38616,38736,38616,38016,37920,37728,37128,36984,37824, 1 38064,38544,38760,39048,39192,34704,35472,35712,35736,35976, 2 36096,36192,36216,36408,36432,36552,36816,36912,36816,36744, 3 36792,36672,36624,36672,36624,36696,36600,36648,36504,36552, 4 37056,37080,37872,37872,35232,34920,35136,35304,35448,35592, 5 35712,35808,35856,35856,36288,36792,36792,37056,37080,34560, 6 34944,35088,35040,35184,35352,35448,35664,36360,36528,36744, 7 36840,36960,37488,37608,34800,34896,35016,35376,34128,34464, 8 34608,34560,34800,34872,35280,35304,35208,35352,34968,35112, 9 35112,34968,34320,34392,34536,34416,34464,34440,34536,34536/ data (jy(i),i= 701, 800)/ + 34344,34344,34296,33792,30576,32688,32688,35064,35112,35208, 1 35184,35280,35184,35136,35208,35040,34824,34632,34512,34200, 2 34152,34056,33888,33648,33648,32544,32448,37896,34584,34536, 3 34752,34920,34896,34608,34944,35400,35544,35664,35616,35448, 4 35256,35040,34968,35064,34968,34752,34440,34440,34440,34464, 5 34344,34128,33768,33720,33504,33312,34584,33888,33816,33960, 6 34104,34224,34560,33312,33360,34128,33168,32808,32640,31776, 7 32112,32544,32808,33120,33312,33312,33120,33024,32712,32496, 8 32400,31872,32064,32136,32112,32304,32352,32472,32304,32160, 9 32136,32016,31944,31944,31824,31728,31560,31320,30912,30792/ data (jy(i),i= 801, 900)/ + 30720,30672,30336,30096,29256,29256,30672,29856,29856,30264, 1 30288,32640,32640,30336,30312,28848,28536,28152,27096,29328, 2 29304,29496,29688,29832,30000,30168,30096,30216,30264,30432, 3 30600,30792,31032,31056,31320,31728,32040,33264,30192,30216, 4 32232,31896,31704,31032,30936,30912,30648,30432,30384,30264, 5 30264,30192,30000,29904,29640,29208,29040,28776,28392,28272, 6 27624,27336,29880,29832,29760,29400,29400,29280,29160,29064, 7 28752,28320,28200,28104,27888,27648,27336,27168,27000,27000, 8 26880,26880,59712,57000,59352,59352,49368,49392,56232,56232, 9 53184,53184,44688,45456,45456,40944,41544,41640,41640,40128/ data (jy(i),i= 901, 910)/ + 40176,37992,32544, 0, 0, 0, 0, 0, 0, 0/ data (jb1(i),i= 1, 100)/ + 5, 19, 1, 1, 2, 4, 4, 3, 22, 21, 1 22, 5, 7, 24, 25, 8, 26, 9, 10, 27, 2 10, 11, 29, 12, 15, 15, 14, 30, 13, 33, 3 18, 13, 16, 17, 14, 36, 37, 38, 39, 40, 4 41, 42, 2, 43, 44, 45, 46, 47, 48, 49, 5 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 6 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 7 70, 71, 72, 73, 74, 75, 77, 78, 79, 80, 8 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 9 91, 92, 93, 94, 95, 96, 97, 98, 99, 77/ data (jb1(i),i= 101, 200)/ + 100, 101, 102, 103, 104, 76, 106, 107, 108, 109, 1 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 2 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 3 130, 131, 132, 133, 134, 135, 136, 77, 138, 97, 4 138, 141, 142, 143, 144, 76, 36, 105, 146, 147, 5 148, 149, 36, 105, 151, 152, 153, 154, 155, 156, 6 157, 158, 159, 160, 161, 162, 163, 164, 165, 7, 7 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 8 177, 149, 149, 180, 138, 180, 182, 97, 182, 146, 9 185, 179, 141, 141, 188, 189, 190, 191, 192, 193/ data (jb1(i),i= 201, 300)/ + 194, 195, 196, 197, 198, 199, 187, 166, 201, 202, 1 203, 184, 204, 187, 206, 207, 208, 209, 210, 211, 2 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 3 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 4 232, 233, 234, 204, 237, 166, 237, 239, 240, 241, 5 242, 243, 244, 245, 246, 247, 236, 188, 249, 250, 6 251, 252, 253, 254, 255, 256, 257, 258, 259, 260, 7 237, 205, 262, 263, 264, 265, 266, 267, 268, 269, 8 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 9 180, 280, 282, 283, 284, 285, 281, 287, 288, 289/ data (jb1(i),i= 301, 400)/ + 290, 291, 292, 293, 294, 295, 296, 297, 298, 299, 1 300, 301, 302, 280, 304, 305, 306, 307, 308, 309, 2 310, 311, 312, 188, 287, 314, 315, 316, 317, 318, 3 262, 320, 281, 320, 304, 324, 324, 287, 236, 322, 4 323, 327, 324, 329, 330, 331, 332, 333, 334, 335, 5 336, 337, 338, 339, 340, 341, 342, 343, 344, 8, 6 235, 185, 185, 235, 349, 350, 351, 352, 353, 354, 7 348, 347, 356, 357, 358, 359, 360, 361, 362, 363, 8 364, 365, 366, 367, 368, 369, 370, 371, 304, 373, 9 374, 375, 376, 377, 378, 379, 380, 381, 382, 347/ data (jb1(i),i= 401, 500)/ + 384, 385, 386, 387, 388, 389, 390, 391, 392, 393, 1 394, 395, 396, 397, 398, 399, 348, 401, 402, 403, 2 404, 405, 346, 401, 407, 408, 409, 410, 411, 412, 3 413, 414, 415, 416, 417, 418, 419, 420, 421, 422, 4 423, 424, 425, 426, 427, 428, 429, 430, 431, 432, 5 434, 435, 436, 437, 438, 439, 440, 441, 442, 443, 6 444, 445, 446, 447, 448, 449, 450, 451, 452, 453, 7 454, 455, 456, 457, 458, 459, 460, 461, 462, 401, 8 325, 328, 464, 345, 373, 466, 467, 468, 469, 470, 9 471, 472, 473, 474, 384, 411, 328, 434, 478, 479/ data (jb1(i),i= 501, 600)/ + 384, 373, 481, 482, 483, 484, 485, 486, 487, 488, 1 489, 490, 491, 492, 493, 494, 495, 496, 497, 498, 2 499, 500, 501, 502, 503, 504, 505, 507, 322, 507, 3 464, 510, 511, 512, 513, 514, 515, 516, 517, 518, 4 519, 520, 521, 522, 523, 524, 525, 526, 527, 528, 5 529, 530, 531, 532, 533, 534, 535, 536, 537, 538, 6 539, 540, 541, 542, 543, 544, 545, 546, 547, 548, 7 434, 433, 477, 550, 551, 552, 553, 554, 555, 556, 8 477, 557, 558, 559, 560, 465, 9, 433, 563, 476, 9 557, 566, 567, 568, 569, 570, 571, 572, 573, 574/ data (jb1(i),i= 601, 700)/ + 575, 506, 507, 577, 578, 579, 565, 510, 581, 566, 1 583, 510, 585, 565, 587, 588, 589, 590, 591, 592, 2 593, 594, 595, 596, 597, 598, 599, 600, 601, 602, 3 603, 563, 563, 605, 606, 607, 608, 585, 610, 611, 4 612, 613, 614, 566, 587, 585, 583, 617, 618, 619, 5 620, 621, 622, 623, 624, 625, 626, 627, 609, 577, 6 629, 630, 631, 632, 633, 634, 635, 636, 637, 638, 7 639, 640, 641, 642, 643, 583, 646, 647, 648, 649, 8 650, 651, 652, 653, 654, 655, 656, 657, 658, 587, 9 660, 661, 662, 663, 664, 665, 666, 667, 668, 669/ data (jb1(i),i= 701, 800)/ + 670, 671, 672, 673, 610, 646, 675, 676, 677, 617, 1 679, 680, 681, 682, 683, 684, 685, 686, 687, 645, 2 11, 689, 690, 691, 692, 693, 694, 695, 696, 697, 3 698, 699, 700, 701, 702, 703, 705, 706, 707, 708, 4 709, 710, 711, 712, 713, 645, 617, 715, 716, 717, 5 718, 719, 720, 721, 722, 723, 724, 725, 727, 660, 6 729, 730, 731, 732, 733, 734, 735, 736, 737, 738, 7 739, 740, 741, 742, 743, 744, 745, 616, 616, 747, 8 748, 660, 750, 751, 752, 753, 754, 755, 749, 757, 9 704, 759, 760, 761, 762, 646, 764, 765, 679, 756/ data (jb1(i),i= 801, 900)/ + 629, 758, 12, 768, 770, 771, 772, 773, 756, 704, 1 775, 776, 777, 778, 769, 726, 727, 767, 727, 770, 2 782, 783, 784, 785, 786, 787, 788, 789, 790, 791, 3 792, 793, 794, 795, 796, 797, 798, 799, 800, 801, 4 802, 803, 804, 805, 726, 770, 808, 764, 811, 812, 5 679, 705, 705, 811, 810, 811, 815, 816, 817, 818, 6 819, 806, 820, 821, 822, 823, 824, 825, 826, 827, 7 828, 829, 830, 831, 832, 833, 834, 835, 836, 837, 8 758, 14, 839, 780, 769, 841, 842, 843, 844, 845, 9 846, 847, 848, 849, 850, 851, 852, 853, 854, 855/ data (jb1(i),i= 901, 970)/ + 856, 857, 858, 859, 860, 861, 862, 810, 809, 809, 1 864, 865, 866, 867, 868, 869, 870, 871, 872, 873, 2 874, 875, 876, 877, 878, 879, 880, 881, 882, 806, 3 807, 22, 21, 24, 884, 885, 883, 139, 887, 25, 4 139, 889, 890, 891, 887, 321, 26, 893, 894, 321, 5 27, 896, 897, 898, 893, 580, 900, 896, 29, 728, 6 644, 580, 30, 902, 780, 0, 0, 0, 0, 0/ data (jb2(i),i= 1, 100)/ + 19, 20, 20, 2, 3, 21, 6, 6, 23, 23, 1 24, 7, 8, 25, 26, 9, 27, 28, 28, 29, 2 11, 12, 30, 31, 31, 18, 32, 32, 33, 34, 3 34, 16, 17, 35, 35, 37, 38, 39, 40, 41, 4 42, 1, 43, 44, 45, 46, 47, 48, 49, 50, 5 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 6 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 7 71, 72, 73, 74, 75, 76, 78, 79, 80, 81, 8 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 9 92, 93, 94, 95, 96, 3, 98, 99, 4, 100/ data (jb2(i),i= 101, 200)/ + 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 1 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 2 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 3 131, 132, 133, 134, 135, 136, 137, 137, 139, 140, 4 140, 142, 143, 144, 145, 145, 5, 146, 147, 148, 5 6, 150, 150, 151, 152, 153, 154, 155, 156, 157, 6 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 7 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 8 178, 178, 179, 181, 181, 182, 183, 183, 184, 184, 9 186, 186, 179, 187, 189, 190, 191, 192, 193, 194/ data (jb2(i),i= 201, 300)/ + 195, 196, 197, 198, 199, 200, 200, 201, 202, 203, 1 204, 205, 205, 206, 207, 208, 209, 210, 211, 212, 2 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 3 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 4 233, 234, 235, 236, 238, 238, 239, 240, 241, 242, 5 243, 244, 245, 246, 247, 248, 248, 249, 250, 251, 6 252, 253, 254, 255, 256, 257, 258, 259, 260, 261, 7 261, 262, 263, 264, 265, 266, 267, 268, 269, 270, 8 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 9 281, 282, 283, 284, 285, 286, 286, 288, 289, 290/ data (jb2(i),i= 301, 400)/ + 291, 292, 293, 294, 295, 296, 297, 298, 299, 300, 1 301, 302, 303, 303, 305, 306, 307, 308, 309, 310, 2 311, 312, 313, 313, 314, 315, 316, 317, 318, 319, 3 319, 321, 320, 322, 323, 325, 326, 326, 323, 325, 4 327, 328, 329, 330, 331, 332, 333, 334, 335, 336, 5 337, 338, 339, 340, 341, 342, 343, 344, 345, 346, 6 347, 346, 348, 349, 350, 351, 352, 353, 354, 355, 7 355, 356, 357, 358, 359, 360, 361, 362, 363, 364, 8 365, 366, 367, 368, 369, 370, 371, 372, 372, 374, 9 375, 376, 377, 378, 379, 380, 381, 382, 383, 383/ data (jb2(i),i= 401, 500)/ + 385, 386, 387, 388, 389, 390, 391, 392, 393, 394, 1 395, 396, 397, 398, 399, 400, 400, 402, 403, 404, 2 405, 406, 406, 407, 408, 409, 410, 411, 412, 413, 3 414, 415, 416, 417, 418, 419, 420, 421, 422, 423, 4 424, 425, 426, 427, 428, 429, 430, 431, 432, 433, 5 435, 436, 437, 438, 439, 440, 441, 442, 443, 444, 6 445, 446, 447, 448, 449, 450, 451, 452, 453, 454, 7 455, 456, 457, 458, 459, 460, 461, 462, 463, 463, 8 464, 345, 465, 465, 466, 467, 468, 469, 470, 471, 9 472, 473, 474, 475, 475, 476, 477, 478, 479, 480/ data (jb2(i),i= 501, 600)/ + 480, 481, 482, 483, 484, 485, 486, 487, 488, 489, 1 490, 491, 492, 493, 494, 495, 496, 497, 498, 499, 2 500, 501, 502, 503, 504, 505, 506, 508, 508, 509, 3 509, 511, 512, 513, 514, 515, 516, 517, 518, 519, 4 520, 521, 522, 523, 524, 525, 526, 527, 528, 529, 5 530, 531, 532, 533, 534, 535, 536, 537, 538, 539, 6 540, 541, 542, 543, 544, 545, 546, 547, 548, 549, 7 549, 476, 550, 551, 552, 553, 554, 555, 556, 557, 8 506, 558, 559, 560, 561, 561, 562, 562, 564, 564, 9 565, 567, 568, 569, 570, 571, 572, 573, 574, 575/ data (jb2(i),i= 601, 700)/ + 576, 576, 577, 578, 579, 580, 577, 581, 582, 582, 1 584, 584, 586, 586, 588, 589, 590, 591, 592, 593, 2 594, 595, 596, 597, 598, 599, 600, 601, 602, 603, 3 604, 604, 605, 606, 607, 608, 609, 610, 611, 612, 4 613, 614, 615, 615, 10, 616, 609, 618, 619, 620, 5 621, 622, 623, 624, 625, 626, 627, 628, 628, 629, 6 630, 631, 632, 633, 634, 635, 636, 637, 638, 639, 7 640, 641, 642, 643, 644, 645, 647, 648, 649, 650, 8 651, 652, 653, 654, 655, 656, 657, 658, 659, 659, 9 661, 662, 663, 664, 665, 666, 667, 668, 669, 670/ data (jb2(i),i= 701, 800)/ + 671, 672, 673, 674, 674, 675, 676, 677, 678, 678, 1 680, 681, 682, 683, 684, 685, 686, 687, 688, 688, 2 689, 690, 691, 692, 693, 694, 695, 696, 697, 698, 3 699, 700, 701, 702, 703, 704, 706, 707, 708, 709, 4 710, 711, 712, 713, 714, 714, 715, 716, 717, 718, 5 719, 720, 721, 722, 723, 724, 725, 726, 728, 729, 6 730, 731, 732, 733, 734, 735, 736, 737, 738, 739, 7 740, 741, 742, 743, 744, 745, 746, 746, 747, 748, 8 749, 750, 751, 752, 753, 754, 755, 756, 757, 758, 9 759, 760, 761, 762, 763, 763, 765, 766, 766, 764/ data (jb2(i),i= 801, 900)/ + 767, 767, 768, 769, 771, 772, 773, 774, 774, 775, 1 776, 777, 778, 779, 779, 769, 780, 781, 781, 782, 2 783, 784, 785, 786, 787, 788, 789, 790, 791, 792, 3 793, 794, 795, 796, 797, 798, 799, 800, 801, 802, 4 803, 804, 805, 806, 807, 808, 809, 810, 812, 813, 5 813, 807, 814, 814, 815, 815, 816, 817, 818, 819, 6 13, 820, 821, 822, 823, 824, 825, 826, 827, 828, 7 829, 830, 831, 832, 833, 834, 835, 836, 837, 838, 8 838, 839, 840, 840, 841, 842, 843, 844, 845, 846, 9 847, 848, 849, 850, 851, 852, 853, 854, 855, 856/ data (jb2(i),i= 901, 970)/ + 857, 858, 859, 860, 861, 862, 15, 863, 863, 864, 1 865, 866, 867, 868, 869, 870, 871, 872, 873, 874, 2 875, 876, 877, 878, 879, 880, 881, 882, 16, 17, 3 18, 883, 883, 884, 885, 886, 886, 884, 888, 888, 4 889, 890, 891, 892, 892, 887, 893, 894, 895, 895, 5 896, 897, 898, 899, 899, 900, 901, 901, 902, 902, 6 728, 644, 903, 903, 903, 0, 0, 0, 0, 0/ c state=istate irot=jrot npart=ipart do i=1,5 jv(i)=kv(i) jb(i)=kb(i) ib(i)=iib(i) enddo do i=1,jv(npart+1)-1 ix(i)=jx(i) iy(i)=jy(i) enddo do i=1,jb(npart+1)-1 ib1(i)=jb1(i) ib2(i)=jb2(i) enddo return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine ct(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(*) :: jv,jb,ib,ix,iy,ib1,ib2 integer(kind=iknd), save, dimension(5) :: kv,kb,iib integer(kind=iknd), save, dimension(650) :: jx,jy integer(kind=iknd), save, dimension(660) :: jb1,jb2 integer(kind=iknd), save :: jrot,ipart character(len=80) :: state character(len=80), save :: istate cy data istate/'connecticut '/ data jrot,ipart/1,2/ data kv/ 1, 642, 650, 0, 0/ data kb/ 1, 650, 658, 0, 0/ data iib/ 394, 8, 0, 0, 0/ data (jx(i),i= 1, 100)/ + 16536,30000,16848,16680,30264,39024,39120,40080,37824,37920, 1 37800,37848,38208,38352,38760,39168,39888,40488,40680,40776, 2 41112,41256,40920,40800,40848,40656,40656,40896,40968,41112, 3 40776,40728,40800,41112,41160,40848,40872,40776,40848,40464, 4 40512,41544,41472,41520,41640,41856,41952,41976,41592,41352, 5 41256,41376,41496,41736,41736,41616,41592,41400,41376,41688, 6 41496,41136,39984,39552,40320,40800,40872,41136,41448,42096, 7 42336,42600,42600,42840,43248,43248,43152,42984,43008,42648, 8 42480,42408,42480,42384,42600,42696,42840,42864,42768,42312, 9 41856,41640,41616,42144,42072,41952,41832,41880,42192,42264/ data (jx(i),i= 101, 200)/ + 42216,42000,41832,41616,41400,40992,40128,39192,38952,40296, 1 40440,40464,40368,40128,40296,40440,40632,41040,41184,41088, 2 41208,41400,41808,42456,42696,42672,42840,42960,42912,43080, 3 43128,43224,43200,43440,43488,43392,43440,43584,43608,43776, 4 43752,43920,43464,43320,43320,43392,43296,43344,43728,43632, 5 43800,43968,44184,44088,43800,43728,43848,44016,44232,47640, 6 47568,46968,46752,46680,46584,46224,46152,46440,46344,46296, 7 46392,46296,46032,45792,45648,45288,45288,44784,44544,44376, 8 44040,43944,43896,43824,43632,43392,43080,42792,42696,43032, 9 43152,43464,43920,44328,44424,44544,44712,44904,44904,44784/ data (jx(i),i= 201, 300)/ + 44400,44352,44568,44616,44568,44112,44184,44136,44184,44304, 1 44472,44568,44616,44568,44376,44232,44064,44064,43920,43992, 2 44208,44208,44376,44232,44352,44208,44280,44424,44568,44712, 3 44592,44616,44304,44352,44304,44016,43896,43800,43944,43944, 4 43728,43776,43728,43824,44016,44472,44376,47928,48072,48168, 5 48240,48408,48456,48432,48264,48216,48240,48144,48000,48000, 6 48072,48048,47928,47616,47688,47640,47496,47568,47664,47856, 7 48024,48168,48360,48672,48624,48504,48072,47928,47952,48192, 8 48432,48600,48648,48600,49104,49536,49512,49176,49272,49536, 9 49656,49656,49776,49872,49776,49968,50112,49896,50136,50232/ data (jx(i),i= 301, 400)/ + 50352,50448,50784,50856,50688,50520,50664,50808,51072,51168, 1 51096,51384,51576,51480,51840,51840,51720,51672,51840,51936, 2 51744,51768,52320,52416,52104,52320,51960,51864,51864,52296, 3 52464,52464,52632,52752,53040,53064,52608,52584,52776,52968, 4 53088,53616,53760,53832,53832,53640,53520,53352,53112,53016, 5 53040,53256,53352,53232,52968,52896,53232,53280,53424,53472, 6 53472,53568,53712,53808,53712,53952,54168,54528,54384,53952, 7 53496,50376,46296,43512,16704,16896,17088,17088,16896,16896, 8 16752,16800,17088,17280,17952,18216,16800,16872,16464,16488, 9 16440,16704,16752,18984,19008,19128,23472,23448,26328,26376/ data (jx(i),i= 401, 500)/ + 26424,26256,26256,26304,26856,27000,27072,27144,27144,27264, 1 27288,27432,27456,27648,27792,29904,30336,29616,29424,29448, 2 29712,19440,19128,21840,21912,23352,23568,23784,23760,23832, 3 25056,25368,30960,19752,19848,22968,22824,24624,24504,26712, 4 29448,29784,30552,30720,30864,31080,31896,32136,32328,32088, 5 32064,31872,31944,31944,31704,31224,30360,29976,29304,29328, 6 29136,28800,28656,28560,28608,28368,28056,27888,32304,32568, 7 32952,32472,32352,32136,31992,31560,31344,31200,30696,30960, 8 30384,33192,33600,33864,33840,33528,33600,33288,33432,34224, 9 34080,33936,33600,33864,32040,30768,37200,36936,36624,36456/ data (jx(i),i= 501, 600)/ + 36360,35904,35592,35736,35496,33960,33936,33840,33480,32880, 1 32808,32376,32184,31848,31872,31416,31368,30312,30480,30552, 2 30480,30768,30960,31080,31248,31272,35280,36456,36192,36072, 3 35592,35712,35880,36048,36504,36744,36960,37176,37248,39120, 4 39192,39192,38760,38496,38400,34656,34224,34752,36168,36168, 5 37656,38136,38232,38184,38616,38952,39120,39264,39408,39432, 6 39504,36336,36240,37920,38448,37848,37968,37944,38160,38424, 7 38568,38688,38760,39144,39672,39864,40104,40320,40584,41184, 8 41280,41736,41688,41880,41832,42360,42936,43296,43368,43608, 9 43920,44040,37080,37152,37320,37536,37896,37920,37752,37776/ data (jx(i),i= 601, 650)/ + 38064,38304,38376,38400,38232,38184,38640,38640,38496,38544, 1 39096,39240,39480,39624,39864,40104,40128,40320,40896,41160, 2 41256,41400,41904,42288,42528,42600,42744,43008,43200,43392, 3 43680,44016,44616,44904,45168,45528,45912,46176,46488,47112, 4 47376,41160,40848,40728,40800,40776,40968,41136,41352, 0/ data (jy(i),i= 1, 100)/ + 48528,57312,24648,37800,11424,49560,49608,42144,57360,57288, 1 56832,56736,56232,56160,56208,56424,56304,56568,56520,56472, 2 56040,55728,55632,55416,55272,55200,55056,54840,54624,54528, 3 54432,54312,54240,54216,54096,53736,53400,53304,53208,53112, 4 52800,52392,52248,52128,52032,52056,51984,51864,51720,51720, 5 51600,51528,51552,51384,51264,51048,50808,50832,50784,50424, 6 50136,49968,49848,49632,42120,42336,42600,42936,43032,42912, 7 42960,43128,43224,43440,43512,43800,44304,44808,45168,45504, 8 45504,45864,45960,46152,46320,46488,46536,46656,46800,46704, 9 46728,46944,47376,47712,47832,47808,47928,48096,48312,48528/ data (jy(i),i= 101, 200)/ + 49080,49536,49632,49680,49656,49392,49512,49392,49512,41952, 1 41976,41904,41784,41688,41616,41640,41760,41832,41952,42240, 2 42408,42552,42696,42672,42600,42408,42360,42408,42744,42888, 3 42864,42624,42408,42312,42408,42888,42960,43008,42720,42408, 4 42120,41832,41616,41472,41112,40800,40296,40080,39672,39264, 5 38880,38736,38640,38376,38352,38280,38184,37944,37896,22704, 6 22872,23256,23472,23760,23832,24048,24192,24528,24576,24960, 7 25032,25200,25368,25440,25728,25896,26160,26472,26760,27240, 8 27528,27576,27552,27216,27264,27600,27792,28368,28464,28344, 9 28152,28080,28104,28344,28320,28176,28128,28440,28824,29232/ data (jy(i),i= 201, 300)/ + 29568,29760,29832,29928,30000,30120,30264,30528,30600,30576, 1 30384,30408,30456,30648,30744,31128,31248,31608,32016,32160, 2 32208,32544,32616,32904,33096,33384,33432,33408,33264,33360, 3 33600,33840,33984,34080,34176,34224,34416,34464,34680,34824, 4 35472,36336,36768,37008,37248,37656,37848,22680,22872,22944, 5 22896,22416,22008,21792,21600,21648,21792,21912,21864,21720, 6 21624,21456,21336,21264,21120,20928,20808,20664,20664,20808, 7 20808,20520,20328,20136,20040,20040,20304,20280,20232,19848, 8 19776,19560,19440,19320,19128,18600,18360,17952,17760,17544, 9 17352,17112,16920,16872,16440,16344,16152,15648,15600,15864/ data (jy(i),i= 301, 400)/ + 15840,15432,15192,15072,15096,15024,14928,14688,14832,14712, 1 14424,14352,14160,14040,14064,13896,13824,13680,13632,13344, 2 13368,13176,13008,12888,12768,12600,12432,12264,12144,12168, 3 12096,11736,11760,11832,11808,11616,11400,11136,11160,11136, 4 10896,10584,10440,10200,10032,10104,10320,10464,10440,10320, 5 10224,10176, 9984, 9864, 9816, 9720, 9576, 9504, 9432, 9336, 6 9000, 9024, 8976, 8856, 8448, 8376, 8160, 8136, 8064, 8040, 7 8136, 6144,12648,10776,37368,36144,35832,35232,35184,34368, 8 32568,31272,31296,31128,31008,29712,29736,26472,51144,52728, 9 56520,15240,11976,11952,48696,45600,45720,47136,47448,47400/ data (jy(i),i= 401, 500)/ + 46968,46872,46704,46584,46416,46440,46536,46536,46392,46368, 1 44904,44928,45048,45120,45264,55464,52992,49056,47664,47592, 2 47520,24168,27912,27240,26568,26256,26256,26328,26568,26736, 3 26424,24648,25656,38352,37776,37752,38304,38112,38928,39264, 4 39816,40296,40704,40728,40848,40920,40872,41136,41568,41640, 5 41736,41784,42192,42672,43056,43152,42864,43656,44304,44544, 6 44616,44520,44376,44376,44664,44712,45120,45120,40704,39408, 7 31824,31800,32352,32400,32784,32880,32760,32808,35064,35016, 8 38328,30552,30336,30096,29904,29904,29784,29832,29280,29424, 9 28776,28752,28464,26712,27000,26832,17112,16848,16656,16704/ data (jy(i),i= 501, 600)/ + 16632,16848,18888,19896,21168,20904,21432,21792,22824,23064, 1 23736,23640,23664,24264,24720,24648,25128,11760,11832,11976, 2 12120,12216,12360,12072,12072,12024,13464,13608,13944,14232, 3 15024,15120,15000,15264,15360,15816,16416,16656,17040,49656, 4 49680,49872,49824,49872,49512,40440,43248,43272,43536,43608, 5 43848,41256,40608,40440,40680,40704,40656,40704,40944,41328, 6 41760,32160,32400,32304,32136,34560,34608,34704,34896,34728, 7 34704,34848,35184,35256,35736,35688,35832,35856,35736,35784, 8 35736,35784,36192,36360,36504,36504,37056,37296,37584,37632, 9 37560,37632,17256,17400,17424,17376,17448,17544,17976,18096/ data (jy(i),i= 601, 650)/ + 18264,18312,18384,18528,18720,18864,19008,19128,19368,19584, 1 20064,20448,20472,20400,20544,20784,21192,21216,21720,21768, 2 21840,22104,22368,22992,23208,23376,23400,23712,23760,23664, 3 23280,23136,23208,23112,22800,22608,22680,22608,22656,22320, 4 22344,53016,53064,53016,52896,52824,52800,52728,52968, 0/ data (jb1(i),i= 1, 100)/ + 6, 2, 9, 10, 11, 12, 13, 14, 15, 16, 1 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 2 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 3 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 4 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 5 57, 58, 59, 60, 61, 62, 63, 7, 8, 65, 6 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 7 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 8 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 9 96, 97, 98, 99, 100, 101, 102, 103, 104, 105/ data (jb1(i),i= 101, 200)/ + 106, 107, 108, 6, 8, 110, 111, 112, 113, 114, 1 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 2 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 3 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 4 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 5 155, 156, 157, 158, 160, 161, 162, 163, 164, 165, 6 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 7 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 8 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 9 196, 197, 198, 199, 200, 201, 202, 203, 204, 205/ data (jb1(i),i= 201, 300)/ + 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 1 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 2 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 3 236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 4 246, 159, 160, 248, 249, 250, 251, 252, 253, 254, 5 255, 256, 257, 258, 259, 260, 261, 262, 263, 264, 6 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 7 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 8 285, 286, 287, 288, 289, 290, 291, 292, 293, 294, 9 295, 296, 297, 298, 299, 300, 301, 302, 303, 304/ data (jb1(i),i= 301, 400)/ + 305, 306, 307, 308, 309, 310, 311, 312, 313, 314, 1 315, 316, 317, 318, 319, 320, 321, 322, 323, 324, 2 325, 326, 327, 328, 329, 330, 331, 332, 333, 334, 3 335, 336, 337, 338, 339, 340, 341, 342, 343, 344, 4 345, 346, 347, 348, 349, 350, 351, 352, 353, 354, 5 355, 356, 357, 358, 359, 360, 361, 362, 363, 364, 6 365, 366, 367, 368, 369, 370, 371, 372, 373, 5, 7 1, 4, 375, 376, 377, 378, 379, 380, 381, 382, 8 383, 384, 385, 386, 387, 3, 1, 389, 390, 2, 9 3, 392, 393, 5, 1, 395, 396, 397, 398, 399/ data (jb1(i),i= 401, 500)/ + 400, 401, 402, 403, 404, 405, 406, 407, 408, 409, 1 410, 411, 412, 413, 414, 2, 416, 417, 418, 419, 2 420, 415, 3, 422, 423, 424, 425, 426, 427, 428, 3 429, 430, 431, 432, 4, 434, 435, 436, 437, 438, 4 439, 440, 441, 442, 443, 444, 445, 446, 447, 448, 5 449, 450, 451, 452, 453, 454, 455, 456, 457, 458, 6 459, 460, 461, 462, 463, 464, 465, 466, 467, 415, 7 447, 469, 471, 472, 473, 474, 475, 476, 477, 478, 8 479, 480, 470, 471, 482, 483, 484, 485, 486, 487, 9 488, 489, 490, 491, 492, 493, 494, 495, 433, 497/ data (jb1(i),i= 501, 600)/ + 498, 499, 500, 501, 502, 503, 504, 505, 506, 507, 1 508, 509, 510, 511, 512, 513, 514, 515, 516, 433, 2 5, 518, 519, 520, 521, 522, 523, 524, 525, 526, 3 527, 528, 529, 530, 531, 532, 533, 534, 535, 536, 4 537, 538, 497, 7, 540, 541, 542, 543, 544, 6, 5 470, 546, 547, 548, 549, 550, 551, 552, 553, 554, 6 555, 556, 557, 558, 559, 560, 561, 471, 562, 563, 7 564, 565, 566, 567, 568, 569, 570, 571, 572, 573, 8 574, 575, 576, 577, 578, 579, 580, 581, 582, 583, 9 584, 585, 586, 587, 588, 589, 590, 591, 159, 497/ data (jb1(i),i= 601, 660)/ + 593, 594, 595, 596, 597, 598, 599, 600, 601, 602, 1 603, 604, 605, 606, 607, 608, 609, 610, 611, 612, 2 613, 614, 615, 616, 617, 618, 619, 620, 621, 622, 3 623, 624, 625, 626, 627, 628, 629, 630, 631, 632, 4 633, 634, 635, 636, 637, 638, 639, 640, 160, 1, 5 2, 3, 4, 5, 6, 7, 1, 0, 0, 0/ data (jb2(i),i= 1, 100)/ + 7, 9, 10, 11, 12, 13, 14, 15, 16, 17, 1 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 2 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 3 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 4 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 5 58, 59, 60, 61, 62, 63, 64, 64, 65, 66, 6 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 7 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 8 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 9 97, 98, 99, 100, 101, 102, 103, 104, 105, 106/ data (jb2(i),i= 101, 200)/ + 107, 108, 109, 109, 110, 111, 112, 113, 114, 115, 1 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 2 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 3 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 4 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 5 156, 157, 158, 159, 161, 162, 163, 164, 165, 166, 6 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 7 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 8 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 9 197, 198, 199, 200, 201, 202, 203, 204, 205, 206/ data (jb2(i),i= 201, 300)/ + 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 1 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 2 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 3 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 4 247, 247, 248, 249, 250, 251, 252, 253, 254, 255, 5 256, 257, 258, 259, 260, 261, 262, 263, 264, 265, 6 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 7 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 8 286, 287, 288, 289, 290, 291, 292, 293, 294, 295, 9 296, 297, 298, 299, 300, 301, 302, 303, 304, 305/ data (jb2(i),i= 301, 400)/ + 306, 307, 308, 309, 310, 311, 312, 313, 314, 315, 1 316, 317, 318, 319, 320, 321, 322, 323, 324, 325, 2 326, 327, 328, 329, 330, 331, 332, 333, 334, 335, 3 336, 337, 338, 339, 340, 341, 342, 343, 344, 345, 4 346, 347, 348, 349, 350, 351, 352, 353, 354, 355, 5 356, 357, 358, 359, 360, 361, 362, 363, 364, 365, 6 366, 367, 368, 369, 370, 371, 372, 373, 374, 374, 7 4, 375, 376, 377, 378, 379, 380, 381, 382, 383, 8 384, 385, 386, 387, 388, 388, 389, 390, 391, 391, 9 392, 393, 394, 394, 395, 396, 397, 398, 399, 400/ data (jb2(i),i= 401, 500)/ + 401, 402, 403, 404, 405, 406, 407, 408, 409, 410, 1 411, 412, 413, 414, 415, 416, 417, 418, 419, 420, 2 421, 421, 422, 423, 424, 425, 426, 427, 428, 429, 3 430, 431, 432, 433, 434, 435, 436, 437, 438, 439, 4 440, 441, 442, 443, 444, 445, 446, 447, 448, 449, 5 450, 451, 452, 453, 454, 455, 456, 457, 458, 459, 6 460, 461, 462, 463, 464, 465, 466, 467, 468, 468, 7 469, 470, 472, 473, 474, 475, 476, 477, 478, 479, 8 480, 481, 481, 482, 483, 484, 485, 486, 487, 488, 9 489, 490, 491, 492, 493, 494, 495, 496, 496, 498/ data (jb2(i),i= 501, 600)/ + 499, 500, 501, 502, 503, 504, 505, 506, 507, 508, 1 509, 510, 511, 512, 513, 514, 515, 516, 517, 517, 2 518, 519, 520, 521, 522, 523, 524, 525, 526, 527, 3 528, 529, 530, 531, 532, 533, 534, 535, 536, 537, 4 538, 539, 539, 540, 541, 542, 543, 544, 545, 545, 5 546, 547, 548, 549, 550, 551, 552, 553, 554, 555, 6 556, 557, 558, 559, 560, 561, 8, 562, 563, 564, 7 565, 566, 567, 568, 569, 570, 571, 572, 573, 574, 8 575, 576, 577, 578, 579, 580, 581, 582, 583, 584, 9 585, 586, 587, 588, 589, 590, 591, 592, 592, 593/ data (jb2(i),i= 601, 660)/ + 594, 595, 596, 597, 598, 599, 600, 601, 602, 603, 1 604, 605, 606, 607, 608, 609, 610, 611, 612, 613, 2 614, 615, 616, 617, 618, 619, 620, 621, 622, 623, 3 624, 625, 626, 627, 628, 629, 630, 631, 632, 633, 4 634, 635, 636, 637, 638, 639, 640, 641, 641, 2, 5 3, 4, 5, 6, 7, 8, 8, 0, 0, 0/ c state=istate irot=jrot npart=ipart do i=1,5 jv(i)=kv(i) jb(i)=kb(i) ib(i)=iib(i) enddo do i=1,jv(npart+1)-1 ix(i)=jx(i) iy(i)=jy(i) enddo do i=1,jb(npart+1)-1 ib1(i)=jb1(i) ib2(i)=jb2(i) enddo return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine de(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(*) :: jv,jb,ib,ix,iy,ib1,ib2 integer(kind=iknd), save, dimension(5) :: kv,kb,iib integer(kind=iknd), save, dimension(400) :: jx,jy,jb1,jb2 integer(kind=iknd), save :: jrot,ipart character(len=80) :: state character(len=80), save :: istate cy data istate/'deleware '/ data jrot,ipart/0,1/ data kv/ 1, 398, 0, 0, 0/ data kb/ 1, 400, 0, 0, 0/ data iib/ 333, 0, 0, 0, 0/ data (jx(i),i= 1, 100)/ + 27456,27384,27528,27504,27240,27192,27096,26856,26616,26784, 1 27048,27192,27096,27024,26880,26784,26736,26568,26256,26136, 2 26112,26424,26064,25968,26112,27096,27000,27096,27144,26952, 3 26952,27240,27432,27672,27600,27360,27048,26856,26352,26256, 4 26112,26208,26328,26688,26952,27192,27504,27600,27768,28080, 5 28272,28536,28584,28704,29184,30144,30936,30408,29424,27552, 6 26616,25656,25080,24000,22536,21288,20664,20136,19776,19584, 7 19128,19080,19848,33840,33888,34032,34008,33912,33696,33432, 8 33312,33288,33312,33000,32880,32256,31296,31056,30960,31032, 9 30912,31008,31008,30768,30768,30624,30840,31128,31296,31176/ data (jx(i),i= 101, 200)/ + 30912,30888,31176,31152,30960,30912,30936,30192,29880,29760, 1 29592,29352,29256,29040,28728,28488,28392,28440,28392,28296, 2 28080,27768,27888,27816,28104,28032,27744,20832,33696,34032, 3 34680,35496,35736,35880,36312,36528,36720,37008,37344,37464, 4 37800,38856,39432,39960,40224,40368,40632,40704,40848,41016, 5 41112,41496,41520,41448,41568,41568,41424,41208,40968,40992, 6 41232,41208,41112,40968,40920,40968,41136,41040,41064,40848, 7 40632,40704,40608,40296,40152,40008,39744,39696,39672,39264, 8 39240,39096,38880,38832,38928,39312,39360,39624,39504,39600, 9 39264,39216,38904,38784,38640,38544,38184,38016,37920,37848/ data (jx(i),i= 201, 300)/ + 37992,37848,38808,38808,38880,39024,38952,39024,39240,39408, 1 39576,39576,39720,39744,39936,40224,40512,40656,40416,40224, 2 40296,40224,40008,39888,39528,38856,38616,38520,38472,38496, 3 38400,38352,38136,38064,37944,37512,37272,37080,36768,36480, 4 36336,36048,35952,35736,35520,35208,34656,34704,34872,35088, 5 35208,35328,35496,35856,36552,36720,36744,36984,37320,37464, 6 37608,37728,37536,37224,37080,37104,37200,37104,37128,37248, 7 37368,37488,37824,37920,38016,38232,38520,38664,38784,38904, 8 39000,39144,39432,39648,39864,39960,39864,39912,40032,40104, 9 40248,40152,40176,40272,40392,40416,40536,40584,40632,40584/ data (jx(i),i= 301, 400)/ + 40632,40728,40824,40824,40992,41160,41304,41232,41280,41232, 1 41112,41184,41640,41832,41976,42000,41928,41952,42096,41976, 2 41328,41256,41016,40704,40536,40512,40608,40512,40536,33120, 3 21624,21360,21264,21264,22104,22344,22680,22968,23232,23568, 4 23808,24024,24120,24336,25296,25560,25608,25800,25800,25920, 5 26088,26136,26088,26160,26280,26256,26424,26544,26616,26784, 6 26904,27048,27048,27096,27336,33672,33528,32952,32736,32520, 7 32328,32040,31944,31608,31488,31488,31296,31032,31104,31056, 8 31032,30936,30912,30456,29976,29832,29592,29280,29040,28440, 9 28320,27960,27576,27120,26736,26568,26088, 0, 0, 0/ data (jy(i),i= 1, 100)/ + 43032,43200,43488,43608,43968,44136,44208,44160,44304,44376, 1 44352,44448,44664,44760,44808,44928,45264,45504,45672,45888, 2 46104,46296,46680,47736,48312,48384,48768,49104,49824,49992, 3 50160,50448,50736,51336,51552,51720,51840,52176,52512,52680, 4 53424,53712,53904,54240,54360,54768,55104,55320,56256,56568, 5 57048,57024,57072,57720,58896,59856,60264,60672,61248,61920, 6 62016,62016,61944,61680,61056,60096,59448,58680,58032,57360, 7 57360,54480,40320,26208,26712,27048,27264,27600,27912,28128, 8 28344,28584,28896,29304,29592,30216,30888,31248,32160,32760, 9 32976,33144,33264,33648,33984,34608,35496,36048,36672,37104/ data (jy(i),i= 101, 200)/ + 37320,37464,37824,37968,38160,38304,38688,39840,40608,41088, 1 41208,41256,41376,41760,41832,42048,42048,41712,41544,41568, 2 41856,41880,42168,42432,42432,42600,43008,21648,25896,25008, 3 24528,23712,23328,22920,22104,22056,21648,21456,21024,20736, 4 20640,19896,19728,19896,19752,19752,20496,20496,20376,19608, 5 17304,15240,14904,14592,13848,13560,13368,13296,13296,13464, 6 13536,13680,13776,13728,13920,14448,14784,15456,15888,16224, 7 16224,15984,15888,16128,16104,15984,16176,16128,15888,15960, 8 16248,16152,16128,16008,15888,15648,15000,14736,14640,14256, 9 14328,14784,14640,14664,14712,14856,14976,15192,15216,15168/ data (jy(i),i= 201, 300)/ + 14928,14664,14472,14256,14184,14136,13968,13896,13968,13848, 1 13824,13632,13656,13776,13872,13800,13632,13416,13368,13416, 2 13176,13128,13224,13056,13152,12936,13080,13056,12864,12624, 3 12576,12648,12648,12288,12240,12168,12264,12264,12120,12168, 4 12096,12168,12120,12120,12192,12096,12240,11976,11856,11832, 5 11688,11712,11904,11832,12000,11880,11784,11808,11784,11904, 6 11928,11448,11328,11352,11088,10992,10944,10320,10152,10080, 7 10272,10968,11112,11400,11472,11568,11544,11640,11952,11952, 8 12096,12168,12192,12120,12168,12072,11640,11496,11496,11616, 9 11592,11160,11088,11184,11136,10920,10752,10752,10824,11208/ data (jy(i),i= 301, 400)/ + 11496,11520,11664,11904,11928,11712,11760,12120,12504,12744, 1 12816,12936,13104,10464, 9744, 9312, 8856, 7776, 6888, 6360, 2 6360, 6456, 6552, 7008, 7080, 6840, 6696, 6408, 6384, 6432, 3 6840,11640,12360,40416,40344,40128,40056,40176,40176,40536, 4 40536,40656,40752,40824,40824,40896,41136,41352,41568,41736, 5 41784,41856,42192,42336,42336,42528,42552,42432,42624,42456, 6 42552,42528,42672,42768,42816,26472,26568,26328,26568,26376, 7 26640,26592,26808,26808,26760,26664,26568,26328,25824,25752, 8 25512,25368,25104,25152,24864,24840,24984,24840,24888,24576, 9 24168,23688,23592,22632,22488,22248,21888, 0, 0, 0/ data (jb1(i),i= 1, 100)/ + 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 1 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 2 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 3 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 4 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 5 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 6 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 7 71, 72, 74, 75, 76, 77, 78, 79, 80, 81, 8 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 9 92, 93, 94, 95, 96, 97, 98, 99, 100, 101/ data (jb1(i),i= 101, 200)/ + 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 1 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 2 122, 123, 124, 125, 126, 1, 74, 129, 130, 131, 3 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 4 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 5 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 6 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 7 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 8 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 9 192, 193, 194, 195, 196, 197, 198, 199, 200, 201/ data (jb1(i),i= 201, 300)/ + 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 1 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 2 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 3 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 4 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 5 252, 253, 254, 255, 256, 257, 258, 259, 260, 261, 6 262, 263, 264, 265, 266, 267, 268, 269, 270, 271, 7 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 8 282, 283, 284, 285, 286, 287, 288, 289, 290, 291, 9 292, 293, 294, 295, 296, 297, 298, 299, 300, 301/ data (jb1(i),i= 301, 400)/ + 302, 303, 304, 305, 306, 307, 308, 309, 310, 311, 1 312, 313, 314, 315, 316, 317, 318, 319, 320, 321, 2 322, 323, 324, 325, 326, 327, 328, 329, 330, 331, 3 332, 128, 73, 73, 334, 335, 336, 337, 338, 339, 4 340, 341, 342, 343, 344, 345, 346, 347, 348, 349, 5 350, 351, 352, 353, 354, 355, 356, 357, 358, 359, 6 360, 361, 362, 363, 364, 1, 74, 366, 367, 368, 7 369, 370, 371, 372, 373, 374, 375, 376, 377, 378, 8 379, 380, 381, 382, 383, 384, 385, 386, 387, 388, 9 389, 390, 391, 392, 393, 394, 395, 396, 397, 0/ data (jb2(i),i= 1, 100)/ + 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 1 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 2 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 3 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 4 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 5 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 6 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 7 72, 73, 75, 76, 77, 78, 79, 80, 81, 82, 8 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 9 93, 94, 95, 96, 97, 98, 99, 100, 101, 102/ data (jb2(i),i= 101, 200)/ + 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 1 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 2 123, 124, 125, 126, 127, 127, 129, 130, 131, 132, 3 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 4 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 5 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 6 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 7 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 8 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 9 193, 194, 195, 196, 197, 198, 199, 200, 201, 202/ data (jb2(i),i= 201, 300)/ + 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 1 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 2 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 3 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 4 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 5 253, 254, 255, 256, 257, 258, 259, 260, 261, 262, 6 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 7 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 8 283, 284, 285, 286, 287, 288, 289, 290, 291, 292, 9 293, 294, 295, 296, 297, 298, 299, 300, 301, 302/ data (jb2(i),i= 301, 400)/ + 303, 304, 305, 306, 307, 308, 309, 310, 311, 312, 1 313, 314, 315, 316, 317, 318, 319, 320, 321, 322, 2 323, 324, 325, 326, 327, 328, 329, 330, 331, 332, 3 333, 333, 128, 334, 335, 336, 337, 338, 339, 340, 4 341, 342, 343, 344, 345, 346, 347, 348, 349, 350, 5 351, 352, 353, 354, 355, 356, 357, 358, 359, 360, 6 361, 362, 363, 364, 365, 365, 366, 367, 368, 369, 7 370, 371, 372, 373, 374, 375, 376, 377, 378, 379, 8 380, 381, 382, 383, 384, 385, 386, 387, 388, 389, 9 390, 391, 392, 393, 394, 395, 396, 397, 128, 0/ c state=istate irot=jrot npart=ipart do i=1,5 jv(i)=kv(i) jb(i)=kb(i) ib(i)=iib(i) enddo do i=1,jv(npart+1)-1 ix(i)=jx(i) iy(i)=jy(i) enddo do i=1,jb(npart+1)-1 ib1(i)=jb1(i) ib2(i)=jb2(i) enddo return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine fl(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(*) :: jv,jb,ib,ix,iy,ib1,ib2 integer(kind=iknd), save, dimension(5) :: kv,kb,iib integer(kind=iknd), save, dimension(3780) :: jx,jy integer(kind=iknd), save, dimension(3850) :: jb1,jb2 integer(kind=iknd), save :: jrot,ipart character(len=80) :: state character(len=80), save :: istate cy data istate/'florida '/ data jrot,ipart/0,2/ data kv/ 1,2525,3773, 0, 0/ data kb/ 1,2603,3851, 0, 0/ data iib/1783,1248, 0, 0, 0/ data (jx(i),i= 1, 100)/ + 19824,14112,13896,16392,11568,11256,23808, 9168, 8808,11760, 1 12576,12648,12624,12360,12456,12552,12624,12528,12576,12552, 2 12600,12624,12648,12720,12672,12840,12960,13200,13368,13272, 3 13440,13536,13560,13776,13752,13608,13584,13728,13800,44808, 4 44880,45072,45096,45000,45144,45216,45480,45456,45528,45552, 5 45456,45456,45312,45600,45576,45744,45672,45696,45648,45408, 6 45432,45576,45624,45672,45624,45504,45528,45456,45528,45384, 7 45336,45336,45408,45384,45264,45360,45264,45120,45048,44952, 8 44976,44928,44904,44856,44736,44568,44760,44592,44400,44304, 9 43944,44304,44256,44328,44568,44640,44616,44376,44040,44088/ data (jx(i),i= 101, 200)/ + 44184,44256,44400,44400,44232, 9456, 8760, 8616, 8808, 8784, 1 8976, 9096, 9408, 9816,10056,10392,10536,10776,10536,10464, 2 10320, 9864, 9960, 9936,10056,10008,10080,10008,10128,10008, 3 9912, 9864, 9840, 9984, 9912, 9768, 9552, 9432, 9360, 9360, 4 9144, 9144, 9240, 9240, 9168, 9096, 9096, 9024, 8832, 8856, 5 13848,13848, 6336, 6384, 6048, 6264, 6576, 6672, 6984, 7056, 6 7176, 7464, 7512, 7488, 7128, 7296, 7488, 7656, 7752, 7392, 7 7224, 7200, 7104, 7152, 7224, 7296, 7248, 7248, 7104, 7176, 8 6720, 6720, 7008, 7008, 6456, 7824, 7920, 7872, 7272, 7224, 9 7392, 7728, 7872, 7968, 8232, 8232, 7872, 7992, 8136, 8136/ data (jx(i),i= 201, 300)/ + 8184, 8496, 8616, 8712, 8736, 8640, 8784, 8760, 8832, 9024, 1 8904,27576,39264,33912,44760,44664,44496,44352,44376,44520, 2 44568,44544,44664,44640,44376,44424,44400,44784,44808,44856, 3 44856,44712,44688,45192,45264,45312,45240,45432,45600,45672, 4 45576,45600,45696,45792,45792,45888,45936,45984,45864,45864, 5 45792,45960,46008,45984,46104,46104,46224,16416,31872,37776, 6 29328,41880,28776,29304,26400,26400,26328,26400,26496,27024, 7 27024,26928,26832,26808,26856,26736,26760,26808,26784,26880, 8 26904,27000,27048,27144,27144,27312,27432,27456,27504,27672, 9 27648,27744,27888,27936,28032,28128,28080,28176,28440,28584/ data (jx(i),i= 301, 400)/ + 28584,28776,28944,29184,29256,20256,29376,29376,29712,29808, 1 29784,29832,30192,30336,30432,30552,30672,30672,30792,30888, 2 30984,31056,31176,31344,31320,31584,31680,31872,31872,31944, 3 31920,32040,32136,32448,32544,32760,32856,33048,21264,20232, 4 20232,44760,44736,44640,44784,44736,44448,44352,44208,44208, 5 44040,44208,44208,44088,44040,43944,43896,43752,43920,44064, 6 44208,45216,45312,45096,45048,45096,44976,44832,44856,44976, 7 44976,45120,45120,45048,44976,44760,44688,44400,44376,44424, 8 44544,44520,47304,44256,34920,44880,44952,44976,45096,44904, 9 44616,44448,44472,44592,44592,44784,44736,44640,44424,44208/ data (jx(i),i= 401, 500)/ + 44136,44112,44208,44208,44136,44136,44328,44328,44232,33096, 1 33024,33048,33144,33024,33024,33072,33000,33048,33048,33096, 2 33048,33192,33192,33264,33312,33384,33456,33504,33624,33720, 3 33864,33912,34128,34152,34200,34224,34272,34296,34416,34296, 4 34392,34416,34512,34464,34632,34608,34752,44928,45144,45144, 5 44952,44568,44640,44736,44688,44808,44784,44616,44424,44280, 6 44160,44280,44256,44328,44256,44448,44424,44568,44664,44760, 7 44376,44376,44256,44232,44472,48024,34872,34728,34608,34752, 8 34848,35040,35184,35160,35256,35160,35184,35328,35232,35352, 9 35544,35616,35616,35736,35760,35904,36072,36072,36288,36408/ data (jx(i),i= 501, 600)/ + 36576,36720,36912,36864,36888,37056,36960,36936,37080,37008, 1 37080,37224,37176,37248,37176,37176,45048,45216,45120,45240, 2 44952,45072,45096,44544,44496,44664,44640,44712,44928,44952, 3 48864,49176,49176,49104,48912,48960,48672,48096,48024,48120, 4 48840,48840,48912,48912,48840,48792,48840,48984,49128,49248, 5 49584,50424,49728,49584,49608,37344,37296,37368,37488,37704, 6 37608,37776,37872,37992,37968,37872,37920,37944,37800,37584, 7 37584,37728,37680,37800,37776,37896,37944,37896,37824,37920, 8 50424,50496,50496,50568,50544,50592,50616,50688,50784,50808, 9 50904,50928,51120,51144,51216,51216,51144,51024,50880,50832/ data (jx(i),i= 601, 700)/ + 50904,50832,50784,50904,51192,51168,51216,51144,51192,51072, 1 51192,51168,51120,51192,51144,51144,51240,51432,51336,51360, 2 51264,51312,51096,51168,51144,50880,50808,50856,50664,50568, 3 50184,50016,50040,50160,50040,50064,50112,50136,50184,50208, 4 50232,50376,50304,50160,50040,50040,49872,49944,37920,37848, 5 37968,37800,37800,37872,37872,37752,37800,37896,37800,37848, 6 37728,37776,37704,37680,37728,37632,37704,37704,51168,51360, 7 51552,51768,51744,51504,51360,51192,51336,51240,51312,51480, 8 51624,52296,52248,52224,52152,52080,51912,51864,51936,51888, 9 51768,51792,51528,51288,51144,50880,50472,50496,50400,37776/ data (jx(i),i= 701, 800)/ + 36912,37776,37776,38304,38304,51888,38352,52920,53400,53736, 1 38256,42048,42144,40296,39480,39552,39624,40296,41544,54864, 2 42960,54600,43056,43080,43224,43104,43200,43176,43224,43224, 3 43272,43272,43320,43368,43440,43536,43608,43608,43656,43896, 4 43872,43680,43704,43752,43752,43920,44040,43968,43824,43872, 5 44136,44208,44184,44064,44112,44016,43848,43776,43776,43728, 6 43656,43752,43824,43920,43968,44232,44304,44256,44328,44400, 7 44448,44424,44520,44520,44664,44592,44784,44784,44688,44736, 8 44856,44856,45024,45048,45168,45120,45216,45264,45480,45576, 9 45576,45504,45600,45528,45840,46296,46464,46440,46536,46728/ data (jx(i),i= 801, 900)/ + 46968,46944,49608,49752,49848,49944,49896,50040,49992,50088, 1 50160,50160,50232,50280,50376,50520,50376,50496,50664,50688, 2 50808,50808,50856,50976,50832,50952,51024,51120,51072,50928, 3 50976,51120,51312,51240,51408,51504,51576,51528,51600,51672, 4 51648,51792,51792,51696,51480,51528,51600,51744,51768,51816, 5 51888,52032,52032,51840,51816,51960,52032,52152,52248,52296, 6 52392,52368,52440,52464,52344,52320,52128,52080,52416,52368, 7 52488,52584,52752,52800,52656,52608,52536,52584,52488,52608, 8 52728,52704,52848,52920,53112,53304,53328,53256,53160,53160, 9 53232,53160,53088,53160,53280,53352,53304,49344,49320,48840/ data (jx(i),i= 901, 1000)/ + 48648,48384,48072,47880,47688,47640,47496,47544,47592,47592, 1 47688,47856,48096,48072,48192,48216,48360,48528,48648,48936, 2 48960,49152,49296,49272,49176,49128,49128,49032,48960,48864, 3 48912,48792,48792,48672,48504,48480,48336,48168,48048,48072, 4 48000,47664,47664,47712,47520,47520,47616,47544,47496,47352, 5 47232,47280,47424,47616,47664,47712,47688,47952,48048,48096, 6 48264,48288,48168,48432,48432,48288,48504,48264,48192,47952, 7 47928,47784,47808,47928,47832,47712,47544,47136,47088,47184, 8 47040,47064,46992,46992,46872,46800,46848,46752,46776,47184, 9 47256,47280,47424,47448,47328,47400,47352,47400,47304,47304/ data (jx(i),i= 1001, 1100)/ + 47040,47016,46920,23016,23016,23160,23136,23424,23400,23448, 1 23376,23496,23640,40800,40680,40920,40872,40968,41136,41520, 2 41784,14328,14520,14760,14904,14880,14928,15048,15192,15216, 3 15144,15144,15240,15408,15600,15576,15456,15552,15408,15432, 4 15624,15576,15696,15648,15744,15648,15384,15336,15288,15120, 5 14856,14712,14736,14760,14928,14832,14616,14544,14400,14304, 6 14112,13608,13536,13296,13272,13224,13104,13320,41976,41928, 7 42096,42096,42168,41904,41880,41976,41952,42072,42144,42072, 8 42120,42216,42336,42408,42480,42552,42840,42840,43080,43464, 9 43584,43632,43752,44016,44328,44352,44280,44400,44376,44472/ data (jx(i),i= 1101, 1200)/ + 44448,44640,44736,44784,44832,44928,45192,45240,45384,45144, 1 45072,44856,44928,45048,45072,45288,45480,45264,45288,45528, 2 45432,45504,45408,45432,45360,45384,45288,45240,45288,45168, 3 45096,44952,44904,14688,17304,18048,18120,17808,18096,18144, 4 18216,18144,17976,18024,17856,17952,17664,17520,17544,17376, 5 17328,17376,17256,17448,17592,17640,17832,17904,17928,18024, 6 18144,18096,18096,18168,18168,18216,18312,18576,18720,18672, 7 18768,18816,18936,19008,19008,19104,19080,19248,19104,19008, 8 19056,18936,18960,18888,18792,18768,18456,18504,18432,18432, 9 18336,18288,18144,18096,18576,18648,18696,18768,18768,19056/ data (jx(i),i= 1201, 1300)/ + 19128,19104,19176,19224,19296,19368,19512,19584,19488,19440, 1 19632,19656,19608,19680,19896,19920,20016,19992,20184,20136, 2 19992,19968,20088,19728,19680,19512,19464,19296,19320,19128, 3 19008,18840,18768,18696,18768,18720,18600,18528,18480,18480, 4 18360,18456,19248,19320,19608,19560,19560,19392,19056,19152, 5 19368,19560,19968,20232,20376,22056,22344,22464,22728,22848, 6 22776,22920,22824,23040,23232,23088,23112,23232,23424,23520, 7 23472,23616,23664,23712,23544,23400,23232,23256,23352,23424, 8 23640,24312,24600,25800,25968,26016,26184,26352,26880,26784, 9 26472,26784,26976,27048,27048,26712,26376,20352,20544,20664/ data (jx(i),i= 1301, 1400)/ + 20760,20664,20328,20088,20064,20184,20184,20112,20016,20016, 1 20232,20352,20688,21168,21240,21024,47256,47232,47064,47088, 2 47184,47016,46944,46848,46776,46728,46728,46800,46872,46968, 3 46896,46800,46608,46656,46560,46656,46632,46680,46440,46488, 4 46416,46320,46272,46248,46176,46224,46296,46320,46368,46344, 5 46560,46728,46776,46800,37488,37488,37560,37416,37440,37344, 6 37416,37272,37248,37248,37344,37272,37176,37200,37128,37200, 7 37104,37104,37056,37008,36912,36816,37704,37680,37656,37464, 8 37584,37440,37872,37896,37320,37248,37464,37488,37728,37968, 9 38184,38376,37824,37896,37944,38088,38352,37992,37968,38304/ data (jx(i),i= 1401, 1500)/ + 38376,38568,38544,38472,38544,38400,38472,38544,38712,38904, 1 38952,38832,38880,38832,39000,39120,39192,39216,39312,39408, 2 39336,39240,39336,39264,39336,39432,39408,39456,39504,39408, 3 39432,39144,39000,38904,38928,39120,39120,39072,39024,38832, 4 38640,38760,38664,38616,38520,49776,49944,49896,49968,50088, 5 50064,50208,50304,50952,52008,37128,37056,37008,36984,36792, 6 36960,36888,36960,36816,36816,36504,36528,36648,36528,36408, 7 36552,37008,37128,37128,37176,37272,37200,37176,36960,36624, 8 36552,36696,36840,36864,36984,36984,36912,37008,37080,37008, 9 37152,37392,37464,37464,37536,37608,37608,37848,37824,37872/ data (jx(i),i= 1501, 1600)/ + 37824,37944,37872,37896,37872,38040,37944,37944,38016,38040, 1 38112,38016,37992,37872,37944,37872,38040,38088,38136,38016, 2 52008,52080,52728,38304,38424,38400,38232,38208,38232,37992, 3 38112,38088,38280,38256,38064,38016,37800,37800,38232,38520, 4 38928,39096,39048,39192,39144,38952,38784,38808,38760,38616, 5 38616,38760,38760,38592,38520,38184,37992,37752,37512,37608, 6 37704,37776,37776,37680,37488,37464,37920,38184,53208,53352, 7 53112,53400,53544,53616,53880,54048,53496,53496,53592,53640, 8 53568,53784,53856,54024,54096,54216,54288,54816,42096,40224, 9 40176,40176,54480,54432,54552,54600,54576,54600,38376,38352/ data (jx(i),i= 1601, 1700)/ + 38448,38448,38376,38376,38328,38232,38448,38568,38616,38496, 1 38640,38760,38664,38616,39024,39360,39336,39600,54840,54720, 2 40416,40440,40584,40704,40704,40776,40824,40752,40872,40824, 3 41040,41064,40968,40968,41184,41184,41496,41568,41640,41856, 4 42048,42072,39600,39672,39720,39624,39624,39672,39768,39720, 5 39912,39864,39768,39744,40056,40080,39912,40080,40032,40200, 6 40080,40128,40248,40296,40344,40368,40488,40560,40584,40680, 7 40824,40920,40848,40824,40872,40968,40992,40944,40848,40728, 8 40392,40368,42120,42192,42000,42048,41328,41352,41592,41640, 9 41592,41640,42912,42960,43008,43056,42984,43008,42936,42960/ data (jx(i),i= 1701, 1800)/ + 42864,42768,42720,42720,42816,42744,42600,42552,42480,42504, 1 42312,42264,41880,41904,42000,41880,41976,42096,42336,42456, 2 42480,42648,42768,43488,43032,42744,42672,42672,42528,42552, 3 42456,42312,42168,42120,42024,42000,41976,41688,41664,41568, 4 41496,41640,41592,41424,41472,41400,41472,41424,54552,54840, 5 55128,55080,55056,54960,54936,54984,54960,54984,55056,54648, 6 54648,54576,54552,54528,54576,54648,54600,54480,54408,54480, 7 54552,54480,54504,54456,54288,54168,54096,53760,53712,53568, 8 53688,53496,53448,19632,19608,19488,19320,19128,19104,18984, 9 18984,18240,18240,18144,18144,17688,17736,17640,17640,17520/ data (jx(i),i= 1801, 1900)/ + 16272,23856,23640,23544,23352, 8808, 8736, 8712, 8640, 8640, 1 8544, 8448, 8328, 8328, 8232, 8136, 8184, 8256, 8112, 8160, 2 8088, 8160, 8352, 8400, 8664,19896,19872,20184,20112,20448, 3 21864,21816,41880,43440,43536,43680,43752,43896,43920,43992, 4 44304,44400,44448,44760,44760,44688,44760,19800,19728,17376, 5 17184,17016,16920,16800,16704,16464,16536,16752,16992,17064, 6 17352,17304,17232,17208,17256,17232,17184,17184,17040,17064, 7 17352,17400,23664,23664,24096,24096,24312,24288,24720,24720, 8 24936,24936,27432,27432,27216,26928,26808,26736,26784,26736, 9 26616,26352,26136,25944,25920,25728,25512,25320,25152,39240/ data (jx(i),i= 1901, 2000)/ + 34656,34608,34368,34368,34224,34248,34128,34128,34056,24696, 1 24792,24696,24960,24816,37080,37008,36768,36456,36480,36360, 2 36240,35856,35304,35256,34776,28800,27744,27696,30456,30480, 3 30648,30672,30552,30552,30672,30720,30888,30936,31128,31056, 4 31104,31248,31248,31464,31464,31680,31680,31800,31800,31896, 5 31920,31872,37560,37608,37536,37728,37728,37848,37824,37920, 6 37896,37992,38040,38040,37968,37920,37800,37752,37584,37536, 7 37392,37296,37128,29352,29472,29496,29088,29064,28848,33384, 8 32712,32736,34128,34536,34536,34392,34392,34272,34224,25728, 9 25440,25368,25152,25032,25056,24936,24960,24888,24864,24768/ data (jx(i),i= 2001, 2100)/ + 24744,24528,24600,20304,23280,23280,23136,23160,22944,22920, 1 22872,22968,22872,23016,22656,22704,22776,22680,22752,22776, 2 22608,22608,22704,22608,22536,22560,22632,22536,22536,22488, 3 22464,22392,22320,22296,22248,22176,22104,22104,22056,22080, 4 41880,29592,29760,29832,30072,30336,41880,41280,45840,45840, 5 45168,45168,22728,22608,21912,21960,21912,21960,21864,21960, 6 21840,21864,21792,21912,21912,22032,22128,22128,22392,22440, 7 22584,26280,26256,26184,26064,25920,25920,25848,25848,25728, 8 22656,22608,22560,22464,22416,22584,22440,22272,22200,22008, 9 21360,39264,39240,38856,38712,38712,38496,38496,38616,38736/ data (jx(i),i= 2101, 2200)/ + 38760,37032,37272,37272,36984,41256,41064,41016,40728,40512, 1 40416,40200,39984,39936,39504,39432,39336,39120,38880,36768, 2 36624,36480,34104,34200,34128,34248,34200,34272,34272,34536, 3 34680,34872,34944,34992,35280,35280,35568,35688,35832,35952, 4 36024,36168,36216,36192,36264,36240,36288,36360,33288,33408, 5 33408,33624,37896,37680,37440,37200,37200,36216,38712,38448, 6 38448,38328,38352,38112,38016,36384,36504,41832,39624,40032, 7 40368,40584,40848,40920,41040,41400,41448,41520,41664,41640, 8 41760,43392,43056,42672,42552,42144,41976,33600,33432,33408, 9 33312,45240,46536,46536,46632,46704,46896,46944,47040,47184/ data (jx(i),i= 2201, 2300)/ + 36096,36216,36096,36000,36072,36000,36048,35952,36096,35952, 1 35928,35976,35952,35832,35832,35952,36072,37896,37248,37248, 2 37128,37128,43824,43824,43608,43608,43176,43176,42888,42816, 3 42744,42600,42384,42072,41784,39504,38520,38544,37896,36000, 4 35808,35856,35760,35736,35640,35496,35544,35472,35496,35400, 5 35448,35208,35232,35160,35232,35184,40776,40920,40776,40752, 6 40800,40992,41472,41544,41784,45816,45696,45528,45480,45288, 7 45744,45912,45936,47664,47640,44472,44352,44352,42408,45240, 8 45408,45672,45744,45912,46032,46200,46320,46248,46344,46320, 9 46248,39504,38640,38616,37464,37608,38136,38208,38856,39000/ data (jx(i),i= 2301, 2400)/ + 39144,39360,39504,39720,40032,40080,45936,45912,40368,39360, 1 39360,40176,40320,40512,40584,40896,40944,40992,40872,40896, 2 40728,40464,46272,46344,46296,46560,47160,47280,47376,47472, 3 47496,47808,47880,48144,48288,48240,48528,48504,48600,48600, 4 48720,48720,46512,46488,45648,45648,45792,45912,48864,48888, 5 40296,40392,40392,40680,41016,41112,41232,41376,41472,41664, 6 41736,41712,40416,40416,44424,44424,44328,44328,44400,44352, 7 44328,43440,43464,43008,43008,42360,49560,49392,49416,49320, 8 49320,49488,49440,49056,49104,48984,41712,41928,42096,42168, 9 42360,41712,41376,41376,37776,49512,41688,41664,44928,47712/ data (jx(i),i= 2401, 2500)/ + 44328,44976,45192,45192,45648,45648,46368,46344,46248,46248, 1 46176,46152,46056,45816,45720,45648,45624,45768,45888,46104, 2 46176,46320,46344,46416,46416,46368,46392,46584,46656,46872, 3 47064,47208,47520,47472,47568,47544,47664,47712,47784,49440, 4 49488,50760,50112,50112,49032,48960,48888,48768,48648,48648, 5 48480,48360,48360,48432,48384,48192,47880,47712,47664,47520, 6 47448,47304,47256,47328,47592,47712,41640,44904,53400,41640, 7 40320,40344,50784,41616,44904,47520,47520,46872,46872,46440, 8 46440,46368,46368,40296,49080,49248,49248,49416,49512,49464, 9 40296,44880,45576,45576,45744,45744,49128,44880,49440,53808/ data (jx(i),i= 2501, 2600)/ + 53976,54672,49416,49464,44880,44232,44256,43176,43176,46824, 1 46848,49512,50808,50808,53376,53376,49512,49512,49512,49584, 2 53400,50784,54360,54360,53976,53328,53208,53352,53304,53424, 3 53520,53592,53664,53568,53712,53880,53976,54048,54192,54168, 4 54240,54216,53064,52992,52920,52824,52704,52728,52488,52464, 5 52344,52392,52272,52344,52776,52968,53088,53160,53328,53280, 6 53208,53232,53184,53136,53112,53160,53064,45960,45912,45936, 7 46608,46584,46488,46416,46368,46392,46536,46632,37824,37704, 8 37512,37464,37752,38112,38160,37968,37968,40464,40512,40584, 9 40344,40344,40392,40152,40224,40224,40320,40224,40176,40200/ data (jx(i),i= 2601, 2700)/ + 36624,36624,36552,36528,36504,36456,36504,48048,48072,47808, 1 47808,48456,48384,48192,48072,45408,45408,45504,43224,43224, 2 43296,43272,43560,43512,43200,43128,43248,43368,43632,43752, 3 43656,43632,43584,49776,49968,50016,50016,50112,50064,49680, 4 49656,49296,49176,49272,48648,48816,49080,49056,48648,48456, 5 48624,48528,48504,47952,48000,47952,47856,51336,51288,51408, 6 51432,50664,50712,50712,51144,50976,50952,51216,51264,50616, 7 50400,50424,50664,50760,50304,50232,50280,50328,53712,53664, 8 53736,53832,53784,54168,54192,54216,54144,54024,54192,54024, 9 53880,53856,53976,54072,54048,54144,54264,54408,54360,54192/ data (jx(i),i= 2701, 2800)/ + 54384,54336,54264,54168,54264,54168,54312,54480,54432,54408, 1 54456,45048,45000,44976,45072,45288,45240,45168,45288,45312, 2 44064,43992,43848,43824,43968,43992,44136,44088,44040,44952, 3 44904,44952,45096,44712,44664,44712,45240,45288,45264,45144, 4 45096,45168,44952,44904,44976,45360,45360,45408,44880,44856, 5 44952,44328,44256,44304,44448,44520,44520,44400,44040,43992, 6 44088,45072,45024,45072,44616,44544,44592,44664,44208,44064, 7 44090,44208,44136,44112,43968,44112,43968,43944,44016,44568, 8 44568,44592,44712,44568,44112,44184,44112,44016,44904,44880, 9 44952,43536,43560,43656,43656,43464,43320,43344,43464,43728/ data (jx(i),i= 2801, 2900)/ + 43632,42888,42912,42840,42384,42168,42168,42624,42696,42648, 1 42576,42744,42792,42840,42768,42936,42960,42816,41760,41712, 2 41808,41232,41136,41064,41136,41064,40872,40872,40752,40920, 3 41112,41160,41208,41208,41400,41424,41520,41328,41784,41736, 4 41832,41256,41280,41352,41112,41112,41184,41016,40992,41040, 5 41544,41616,41544,41496,41448,41280,41376,41496,40560,40560, 6 40632,40584,40488,41472,41424,41400,41448,55104,55104,55056, 7 55032,55080,55104,40968,40968,40920,40320,40368,40536,40488, 8 40248,40272,41424,41376,41424,40584,40512,40560,40728,40728, 9 40656,40656,40512,40440,40440,40752,40704,40728,40776,41424/ data (jx(i),i= 2901, 3000)/ + 41352,41400,40800,40776,40872,40848,40944,40848,40776,41400, 1 41376,41400,40776,40752,40800,40608,40560,40632,40416,40512, 2 40416,40344,40560,40512,40584,40680,40632,40704,40392,40344, 3 40392,40584,40560,40656,40752,40704,40752,41568,41520,41544, 4 38160,38208,38280,38232,38136,37440,37464,37416,37320,37128, 5 37272,37224,37392,37704,37728,37656,37632,37488,37512,37608, 6 37512,37536,38040,37968,37872,37344,37440,37392,37152,37128, 7 37200,37224,37272,37296,38136,38064,38064,37056,36984,37032, 8 37056,37584,37536,37560,37272,37320,37296,37248,37536,37536, 9 37584,37608,37920,37968,37944,38760,38808,38808,38712,38688/ data (jx(i),i= 3001, 3100)/ + 38760,39120,39120,39072,39024,39048,36648,36648,36600,36600, 1 36624,36648,36672,36600,37752,37704,37752,37680,37512,37512, 2 37416,37392,37560,37608,37608,37704,37752,37680,37728,37848, 3 37896,37776,37752,37488,37392,37392,37536,37872,37824,37896, 4 37872,37632,37584,37632,37680,36816,36792,36864,36888,36912, 5 36960,36888,36840,35184,35184,35112,35112,35064,35016,34992, 6 35328,35400,35256,35304,35232,35256,35304,35280,35592,35520, 7 35520,35232,35208,35160,35208,33192,33120,33192,24000,24024, 8 23904,23184,23208,23016,22560,22344,22032,22320,22536,24120, 9 24648,24648,24600,24456,24144,24120,24192,33024,32976,33000/ data (jx(i),i= 3101, 3200)/ + 21240,21576,21912,21744,21960,22224,22056,21888,22992,22872, 1 22992,25488,25440,25152,24936,24840,25104,25296,25416,25440, 2 27048,27120,27024,26952,26904,26952,26976,27072,18384,18576, 3 18360,18096,18120,18744,18792,18840,18768,45864,45864,45960, 4 45912,45720,45720,45624,45528,45504,45552,45648,45600,45720, 5 45648,45696,45840,45864,45792,45552,45624,45504,45504,45432, 6 45552,45624,45552,45504,45552,45360,45168,45312,45456,45624, 7 45528,45456,45528,40968,41160,41064,41088,41208,41184,40992, 8 40896,40776,40824,40848,40776,35952,35880,35904,35832,35808, 9 35808,42384,42432,42408,44136,44256,44256,44088,44280,44040/ data (jx(i),i= 3201, 3300)/ + 43776,43872,43824,43872,43968,44016,44112,46776,46872,47016, 1 45984,45984,46032,46008,36096,36048,36096,46536,46536,46656, 2 45840,45768,45840,45936,45648,45504,45624,45720,45000,45192, 3 45192,44520,44472,44592,44496,44400,44352,44496,44424,44424, 4 44592,44472,44544,44688,44664,44544,44592,44664,44712,44760, 5 44832,44880,44832,45048,45120,45096,45024,44976,44808,44808, 6 44880,45840,45816,45888,45936,44376,44352,44256,44184,45168, 7 45120,45240,45360,45432,45456,45408,45168,45144,44160,44112, 8 44064,44112,45384,45456,45504,45480,45384,46032,46200,46272, 9 46272,46416,46392,46224,46344,46296,46152,46152,45936,45984/ data (jx(i),i= 3301, 3400)/ + 46464,46440,46560,46608,44640,44712,44760,44664,46392,46512, 1 46536,46488,46416,46344,46344,45624,45576,45552,45600,51096, 2 51000,51048,50448,50424,50496,50496,50760,50664,50712,48504, 3 48552,48576,50256,50328,50328,50496,50448,50496,49824,49752, 4 49800,46656,46680,46752,45600,45552,45576,45648,45672,46128, 5 46080,45984,46080,45360,45288,45288,45360,45744,45888,45912, 6 45720,45672,45792,45768,45600,45600,50904,50880,50952,51048, 7 52152,52200,52200,52128,51072,51072,51144,51096,49440,49488, 8 49440,51312,51384,51456,51336,51624,51576,51552,52296,52320, 9 52368,52488,52488,52344,50640,50664,50592,50592,50040,50088/ data (jx(i),i= 3401, 3500)/ + 50136,49776,49800,49848,50808,50760,50832,53664,53712,53664, 1 53568,53520,53016,52944,52944,53040,52920,52872,52608,52656, 2 52416,52296,52104,52056,51816,51624,51480,51432,51624,51720, 3 51720,51912,51936,52296,52176,52248,52344,52392,52488,52416, 4 52560,52560,52680,52872,52824,52920,53016,53136,53160,52944, 5 53184,53280,53448,53568,48240,48168,48168,48240,48312,48336, 6 48240,48192,48864,48888,48864,48816,49008,49008,49104,49056, 7 48336,48432,48336,48192,48840,48792,48888,49008,49104,49176, 8 49104,48984,49032,49032,48912,48504,48384,48648,48648,48504, 9 48600,48576,48648,48720,48744,48840,48840,48672,48264,48216/ data (jx(i),i= 3501, 3600)/ + 48216,48288,48000,47976,48048,47952,47832,48000,48024,47928, 1 47856,47976,48168,48120,48192,47928,47880,48048,48048,48240, 2 48192,48192,48288,47856,47952,47928,47832,47640,47712,48024, 3 48000,48024,48648,48744,48624,47832,47880,47784,47736,48000, 4 48024,47880,47952,46800,46872,46968,46920,46992,46872,46752, 5 46776,46488,46320,46416,46344,46416,46320,46272,46248,46152, 6 46200,46536,46728,46776,46680,46776,46800,46656,46680,46632, 7 46608,46536,46200,46272,46272,46152,46056,46080,46800,46848, 8 46872,46800,46152,46104,46152,46296,46224,46296,47112,47136, 9 47064,47040,45984,45960,46032,45504,45408,45432,45552,45360/ data (jx(i),i= 3601, 3700)/ + 45408,45432,45360,45552,45504,45456,45480,45576,45768,45864, 1 45888,45408,45384,45432,45456,45648,45648,45528,45576,45696, 2 45672,45816,45936,45792,45744,40896,40968,41160,41256,41256, 3 41376,41352,41424,41544,41568,41520,41544,41784,41400,41112, 4 40728,40632,40680,40800,41088,41016,41040,41184,41112,41088, 5 41232,41184,41184,50496,50568,50520,50448,37632,37608,37656, 6 37752,37704,37752,37584,37536,37584,37488,37440,37512,37704, 7 37632,37680,37776,37776,37584,37608,37560,37632,37728,37680, 8 37728,37608,37536,37608,37656,37608,37656,37584,37632,37752, 9 37584,37560,37656,37824,37752,37824,37704,37656,37704,35112/ data (jx(i),i= 3701, 3780)/ + 35040,35040,34584,34536,34560,44496,44472,44424,44448,44568, 1 44304,44328,44376,27960,27888,27888,45864,45768,45696,45744, 2 45816,45960,44904,45072,45192,45312,45192,45168,45096,45960, 3 46008,45984,46056,45984,45936,45960,45912,45888,45816,45648, 4 45696,45912,45840,45192,45168,45192,45408,45360,45288,45432, 5 45432,45336,10920, 8448, 8184, 7968, 8304, 8544, 8928, 8952, 6 8976, 9072, 9648, 9696,11256,12192,12744,13080,12192,11256, 7 10920,10920, 0, 0, 0, 0, 0, 0, 0, 0/ data (jy(i),i= 1, 100)/ + 58176,58416,54384,58320,58584,54168,55896,58728,55368,54192, 1 54096,54144,54240,54312,54336,54288,54384,54432,54480,54528, 2 54528,54672,54528,54528,54312,54264,54432,54456,54576,54936, 3 54648,54696,54840,54792,54744,54768,54696,54384,54456,54384, 4 54192,54192,54072,54000,53880,53928,53880,53808,53736,53904, 5 54000,54192,54312,54096,53928,53544,53400,53256,53136,53136, 6 53232,53328,53208,53280,53352,53376,53448,53448,53520,53472, 7 53520,53448,53400,53232,53256,53328,53352,53256,53136,53232, 8 53328,53328,53472,53280,53448,53472,53280,53160,53184,53328, 9 53328,53280,53136,53160,53088,52896,52632,52608,52368,52248/ data (jy(i),i= 101, 200)/ + 52272,52032,51960,51840,51624,54048,53832,53976,54024,54072, 1 54024,54120,54240,54216,54312,54576,54456,54432,54528,54624, 2 54672,54984,55032,55128,55128,55224,55248,55272,55464,55560, 3 55728,55752,55632,55464,55296,55248,54600,54576,54624,55176, 4 55224,55296,55320,55440,55344,55392,55464,55584,55632,55392, 5 53832,54000,58872,58536,57912,57552,57240,56952,56736,56592, 6 56568,56376,56208,55896,55200,54816,54720,54720,54528,54336, 7 54360,54144,54096,54000,54120,54096,54048,53928,53808,53760, 8 53760,53736,53688,53592,53448,53664,53736,53760,53616,53640, 9 53736,53808,53784,53880,53880,54048,54072,54144,54096,54168/ data (jy(i),i= 201, 300)/ + 54096,54336,54288,54384,54528,54696,54600,54408,54432,54912, 1 55272,55608,54576,55032,51168,51240,51168,51288,51384,51456, 2 51624,51696,51840,51960,52272,52416,52536,52560,52416,52392, 3 52584,52608,53088,52848,52872,53016,53136,53064,53112,53016, 4 53064,52920,52968,52848,52560,52488,52296,52368,52608,52800, 5 53016,53136,53136,53064,53136,52608,52080,52920,55224,54720, 6 55464,52920,51288,51096,50376,50496,50520,50544,50400,50280, 7 50376,50400,50592,50544,50472,50496,50784,50736,50640,50640, 8 50928,51000,51072,51048,51096,50928,51024,50952,51288,51288, 9 51192,51144,51288,51408,51216,51216,51048,51024,51192,51144/ data (jy(i),i= 301, 400)/ + 51264,51168,51216,51168,51264,51144,51192,51024,50736,50808, 1 50712,50640,50472,50304,50328,50256,50376,50208,50112,50136, 2 49968,50016,49872,49848,49728,49512,49200,49056,48912,48816, 3 48624,48600,48360,48240,48048,47952,47976,47904,48408,50976, 4 50160,49008,49368,49464,49752,49920,50088,50112,50328,50472, 5 50568,50760,51240,51312,51168,51144,50904,51048,51312,51384, 6 51360,48432,48480,48744,49056,49176,49224,49512,49656,49728, 7 49920,49920,49968,50160,50040,50136,50328,50448,50568,50784, 8 50880,51072,47736,45528,45336,48744,48720,48624,48480,48120, 9 48096,48024,47832,47712,47496,47472,47280,47208,47256,47208/ data (jy(i),i= 401, 500)/ + 47040,46824,46560,46368,46296,46032,45864,45696,45720,47760, 1 47520,47400,47352,47352,47256,47208,47160,47136,46944,46944, 2 46776,46752,46656,46632,46680,46536,46536,46440,46440,46200, 3 46080,46200,46128,46032,46080,46008,46032,45792,45792,45720, 4 45696,45576,45600,45480,45360,45216,45336,45360,48384,48120, 5 48000,47952,47736,47640,47544,47472,47232,47136,47208,47160, 6 46872,46632,46224,46200,46032,45936,45720,45648,45504,45552, 7 45432,45312,45312,45192,44856,45936,45240,45240,45072,45072, 8 44976,44952,44832,44688,44616,44592,44400,44424,44352,44160, 9 44184,44136,44208,44232,44160,44256,44208,44136,44136,44064/ data (jy(i),i= 501, 600)/ + 44136,44040,44136,44040,43800,43728,43680,43560,43416,43368, 1 43320,43320,43176,43056,43032,42816,45120,45000,44808,44520, 2 44328,44280,44160,44688,44592,44496,44352,44304,44280,44208, 3 43968,43416,43344,43368,43656,43680,44232,45552,45384,45384, 4 43680,43584,43584,43464,43464,43416,43392,43440,43224,43272, 5 42624,41208,41208,41304,41208,42768,42648,42504,42336,42216, 6 42144,42144,42024,42024,41664,41592,41544,41232,41472,41424, 7 41352,41328,41256,41160,41040,41088,41064,40824,40872,40560, 8 39168,39480,39312,39384,39264,39288,39624,39648,39576,39624, 9 39672,39792,39744,39600,39648,39456,39168,39072,38640,38208/ data (jy(i),i= 601, 700)/ + 37608,37848,37896,37248,36576,37152,37320,37632,37704,37848, 1 37872,38184,38232,38256,38304,38448,38496,39408,39528,39600, 2 39720,39768,39936,39840,39816,39936,39816,39720,39696,39792, 3 39840,39984,40224,40344,40320,40464,40488,40416,40488,40416, 4 40560,40584,40584,40848,40872,40992,41016,41064,40440,40416, 5 40296,40248,40176,40176,40080,39912,39816,39816,39672,39360, 6 39336,39240,39216,39120,39000,38832,38784,38616,40008,39816, 7 39216,38784,38664,38592,38376,38376,38328,37824,36912,36072, 8 35712,34344,34296,34392,34392,34680,34824,34944,34944,35064, 9 35208,35280,35760,36408,36528,37080,38184,38832,38976,35568/ data (jy(i),i= 701, 800)/ + 36696,35232,35136,34608,34488,34032,32760,32064,29640,29880, 1 30864,28176,28200,27984,27552,27552,27552,27912,26232,22872, 2 22944,20304,22680,22776,22608,22560,22080,21840,21768,21192, 3 21144,21216,21216,21576,20904,20880,20952,20784,20760,20832, 4 20736,20592,20496,20448,20520,20448,20472,20424,20424,20304, 5 20424,20400,20208,20208,20112,20040,20232,20208,20304,20232, 6 20280,19848,19896,19824,19992,19872,19920,20016,20016,19920, 7 19992,20064,20112,20016,20016,19896,19920,19776,19800,19704, 8 19704,19872,19920,19752,19848,19752,19800,19656,19752,19704, 9 19656,19656,19584,19536,19488,19176,19392,19320,19176,19032/ data (jy(i),i= 801, 900)/ + 19080,19008,14376,14376,14256,14352,14424,14424,14208,14280, 1 14256,14112,14280,14256,14112,14136,14232,14304,14112,14280, 2 14352,14280,14352,14304,14160,14136,14328,14376,14400,14400, 3 14496,14496,14592,14424,14496,14616,14592,14520,14520,14568, 4 14640,14544,14664,14736,14688,14856,14880,14808,14880,14784, 5 14856,14856,14712,14736,14688,14688,14568,14664,14664,14568, 6 14544,14376,14400,14568,14592,14712,14688,14760,14880,14760, 7 14736,14520,14448,14568,14592,14760,14760,14832,14880,15072, 8 15072,15192,15264,15480,15528,15840,15960,15936,16032,16248, 9 16320,16368,16584,16992,17064,17304,17568,14280,14112,14064/ data (jy(i),i= 901, 1000)/ + 13968,14016,13920,14136,14232,14568,14736,15072,15096,15264, 1 15480,15480,15216,15072,15072,14880,14784,14760,14640,14592, 2 14688,14688,14928,15048,15024,15072,15192,15144,15312,15336, 3 15456,15504,15600,15624,15504,15576,15576,15744,15768,15840, 4 15888,15912,16056,16104,16440,16560,16608,16680,16608,16656, 5 16824,17064,17184,17208,17304,17256,17160,17208,17184,17064, 6 17160,17112,16992,16920,17016,17232,17232,17352,17304,17400, 7 17520,17520,17592,17568,17664,17592,17256,17208,17328,17352, 8 17472,17592,17664,17760,17904,17856,18024,18120,18192,18432, 9 18360,18144,18144,18264,18264,18336,18408,18504,18408,18528/ data (jy(i),i= 1001, 1100)/ + 18720,18792,18768,58104,57888,57792,57600,57216,57000,56904, 1 56760,56232,56208,54456,54240,53832,53376,53040,52896,52944, 2 52872,54552,54504,54576,54696,54552,54504,54528,54696,54600, 3 54528,54480,54336,54336,54552,54432,54336,54336,54288,54168, 4 54120,54048,53904,53880,53808,53736,53784,53880,53856,53928, 5 54168,54096,54000,54048,53952,53904,53976,53928,54192,53880, 6 53904,54072,54024,54144,54096,54120,54024,53880,53016,53280, 7 53760,54120,54456,55104,55248,55488,55800,55824,55896,56040, 8 56088,56088,55992,56040,56280,56352,56280,56376,56112,56088, 9 56016,55872,55968,55752,55704,55752,55776,55800,55752,55728/ data (jy(i),i= 1101, 1200)/ + 55632,55680,55536,55608,55536,55584,55464,55560,55536,55392, 1 55464,55488,55416,55416,55344,55248,55272,55104,55032,55176, 2 54960,54864,54744,54648,54528,54456,54408,54312,54264,54144, 3 54288,54216,54360,53616,52392,51768,51816,52080,51936,51840, 4 51936,52056,52080,52440,52512,52632,52728,52632,52560,52584, 5 52800,52944,53184,52992,52992,53064,52992,53088,53232,52920, 6 52920,52896,52776,52776,52584,52584,52800,52824,52944,52776, 7 52800,52896,52824,52944,53160,53208,53088,52920,53040,52824, 8 52752,52776,52632,52680,52632,52728,52680,52584,52584,52464, 9 52464,52296,52296,52200,51984,51816,51984,51912,51840,51672/ data (jy(i),i= 1201, 1300)/ + 51696,51792,51864,51720,51744,51696,51816,51792,51744,51528, 1 51480,51384,51360,51096,51096,51312,51336,51168,51072,51048, 2 51096,51000,50976,50880,50952,51000,51168,51240,51384,51528, 3 51504,51552,51504,51648,51696,51744,51720,51792,51744,51864, 4 51744,51624,51024,50856,50592,50616,50544,50664,51096,50856, 5 50616,50496,50376,51072,50880,48576,48552,48480,48528,48648, 6 48768,48720,48840,48744,48960,49032,49128,49032,49008,49080, 7 49200,49152,49224,49080,49056,48744,48672,48624,48624,48552, 8 48744,49008,49224,49896,49920,49848,49968,50016,49800,49752, 9 49800,49704,49728,49848,50088,50232,50232,50040,49632,49512/ data (jy(i),i= 1301, 1400)/ + 49104,48408,48360,49104,49464,49776,49800,49776,49608,49320, 1 48408,48240,48336,48288,48360,48384,48000,47808,48072,48144, 2 48096,48576,49272,49464,49488,49416,48960,48840,48840,48456, 3 48456,48720,48912,49008,49272,49296,49464,49584,50016,50088, 4 50256,50280,50448,50904,51144,51168,51000,50760,50688,50520, 5 50136,49584,49536,49584,38520,38472,38424,38352,38136,37992, 6 37896,37824,37704,37632,37680,37560,37512,37320,37296,37200, 7 37200,37032,37080,36960,36984,36816,35424,35424,35616,35736, 8 35448,35232,35136,35208,35088,34944,34824,34848,34752,34536, 9 34536,34584,35544,35424,35520,35328,35256,35256,35160,35112/ data (jy(i),i= 1401, 1500)/ + 35184,34920,34656,34608,34488,34368,34344,34128,34152,34056, 1 34224,34416,34560,34776,34968,34968,34872,34992,35040,34992, 2 34848,34872,34752,34680,34656,34488,34320,34296,34152,33984, 3 33864,33600,33504,33504,33336,33312,33096,33072,33240,33240, 4 33096,33048,32952,33000,33000,40176,39912,39840,39480,39312, 5 39120,38832,38376,36672,34320,36576,36576,36480,36576,36696, 6 36240,36072,36000,35640,35352,34608,34920,35112,35088,34464, 7 34128,33600,33360,33072,33048,33120,33168,33432,33816,34104, 8 34248,34176,34008,34032,33960,34080,34224,34128,34248,34032, 9 33600,33456,33480,33312,33168,33168,33216,33240,33480,33552/ data (jy(i),i= 1501, 1600)/ + 33624,33648,33696,33792,33864,33864,33936,34080,34056,33984, 1 34056,34128,34200,34200,34272,34320,34320,34176,34248,34416, 2 34200,34176,32904,32544,32472,32424,32472,32400,32328,32304, 3 32232,32136,32232,32064,31896,31968,32016,31944,31776,31776, 4 31944,31920,31872,31848,31776,31848,31776,31824,31848,31752, 5 31680,31536,31464,31584,31728,31704,31752,31896,31872,31632, 6 31728,31728,31512,31464,31536,31488,31152,31080,31032,29712, 7 29760,29496,29424,29520,29520,29208,29424,29304,29088,29136, 8 29352,29448,29424,29136,29136,28992,29064,27696,28272,28128, 9 28128,27984,27696,27696,27696,27696,27792,27576,30600,30456/ data (jy(i),i= 1601, 1700)/ + 30432,30168,30072,30216,30240,30048,29856,29544,29592,29904, 1 29712,29352,29472,29472,28416,27816,27936,27648,27552,27552, 2 27936,27744,27672,27696,27792,27792,27720,27624,27576,27480, 3 27384,27432,27432,27480,27528,27672,27600,27600,27696,27672, 4 27912,28032,27264,27240,27264,27336,27480,27480,27480,27408, 5 27024,27048,27192,27120,26640,26688,26928,26808,27024,27120, 6 26976,26808,26640,26616,26736,26568,26520,26664,26544,26496, 7 26688,26592,26568,26424,26352,26376,26472,26832,27240,27504, 8 27696,27840,28008,27984,27792,27648,27360,27120,27024,26952, 9 26712,26520,23160,23184,23088,23136,23496,23640,23760,23856/ data (jy(i),i= 1701, 1800)/ + 23856,24120,24120,24000,23856,23760,23832,23952,23952,23832, 1 24048,24024,24120,24192,24168,24312,24384,24264,24480,24480, 2 24672,24840,25272,25776,25632,25416,25440,25344,25176,25008, 3 24888,24504,24528,24456,24456,24576,24480,24408,24576,24552, 4 24744,24912,25224,25416,25488,25632,25680,25824,27504,27480, 5 26472,26304,26544,26808,26736,25536,24600,24528,24552,21288, 6 21192,21216,21288,21264,21120,21168,19224,18792,18912,19320, 7 19368,19560,20112,19800,19608,19296,18720,18432,18216,18216, 8 18144,17736,17784,58008,57744,57720,57480,56976,56712,56520, 9 56328,56376,56592,56592,56712,56736,56688,56496,56256,56088/ data (jy(i),i= 1801, 1900)/ + 56160,55800,55536,55248,55128,58440,58440,58512,58464,58368, 1 58248,58272,58200,57912,57888,57648,57600,57360,57192,57048, 2 56784,56688,56640,55872,55416,56928,56616,56592,54960,54960, 3 55200,54888,52248,53808,53976,53976,54168,54144,54312,54408, 4 54360,54288,54456,54552,54408,54360,54336,54984,54000,54144, 5 53928,53904,53976,53928,53952,53784,54072,54192,54144,54192, 6 54504,54648,54624,54792,54864,55032,55056,55200,55344,55608, 7 55800,56016,55128,54576,54576,54456,54456,54024,54000,53688, 8 53664,53472,55512,55248,54960,54792,54360,54312,54144,54072, 9 53976,53928,53952,53880,53808,53784,53616,53616,53448,51264/ data (jy(i),i= 1901, 2000)/ + 53184,53376,53472,53784,53928,54240,54456,54768,54960,52824, 1 52944,53040,53304,53472,52776,52824,52824,53064,53160,53136, 2 53208,53472,53472,53592,53424,52488,52512,52752,52680,52752, 3 52776,52848,52992,53184,53304,53232,53256,53448,53640,54216, 4 54288,54288,54384,54384,54504,54504,54600,54600,54720,54696, 5 55128,55128,54456,54216,54168,53904,53808,53760,53688,53640, 6 53568,53496,53352,53208,53184,52992,52944,52752,52656,52752, 7 52632,52728,52704,54792,54576,54312,54336,53904,53688,52296, 8 52296,52632,52272,53112,52944,52896,52632,52536,52272,50616, 9 50760,50904,51072,51288,51432,51504,51912,51984,52224,52296/ data (jy(i),i= 2001, 2100)/ + 52440,52560,52752,52224,55056,54960,54960,54840,54504,54264, 1 54192,54096,54000,53952,53784,53712,53712,53640,53592,53520, 2 53424,53376,53352,53304,53160,53016,52968,52968,52896,52920, 3 52608,52512,52536,52368,52368,52248,52296,52224,52224,52152, 4 51600,51816,51864,52224,52416,52488,51288,51288,52080,50976, 5 50976,51096,50736,50448,51960,51864,51768,51744,51600,51528, 6 51504,51408,51360,51288,51000,50832,50856,50784,50688,50592, 7 50544,50328,50472,50544,50448,50448,50400,50400,50568,50568, 8 50256,50280,50160,50088,49896,49200,49008,49080,48936,49008, 9 48528,51168,51000,50856,50616,50472,50304,50088,49968,49920/ data (jy(i),i= 2101, 2200)/ + 49824,50184,50184,50088,49776,51048,50904,50736,50496,50424, 1 50184,49896,49920,49776,49680,49656,49728,49728,49824,49632, 2 49632,49440,52104,52008,51720,51576,51456,51360,51168,51024, 3 51144,51048,51096,51000,50928,50808,50616,50376,50352,50256, 4 49992,49944,49776,49704,49584,49488,49464,49560,49512,49512, 5 49032,49032,49008,49032,49224,49536,49728,48984,49728,49608, 6 49512,49392,49248,49128,48984,49008,49296,48120,49416,49320, 7 49080,49128,49080,49104,49008,48984,48720,48624,48552,48432, 8 48384,48984,48720,48624,48336,48288,48120,48696,48432,48072, 9 47904,47400,47400,47616,47544,47592,47616,47736,47664,47736/ data (jy(i),i= 2201, 2300)/ + 48864,48768,48696,48480,48408,48240,48192,48216,48096,48096, 1 47856,47760,47616,47520,47400,47208,47256,47040,47016,47136, 2 47136,47184,45528,45960,45960,46392,46392,46656,46584,46608, 3 46536,46632,46536,46488,46296,46416,46392,46824,46824,47016, 4 46872,46752,46704,46344,46320,46056,46008,45984,45840,45816, 5 45744,45648,45576,45504,45480,45432,46392,46176,46128,46056, 6 45960,45912,46056,45960,46080,45720,45648,45720,46080,46416, 7 45600,45744,44712,44736,45816,43128,43128,42480,42480,44040, 8 43512,43464,43224,43056,43032,42720,42672,42528,42192,41928, 9 41856,44424,44424,43152,43080,43104,42912,43032,43128,43200/ data (jy(i),i= 2301, 2400)/ + 43152,42960,42936,42816,42600,42504,41184,41424,40344,40320, 1 40560,42432,42048,41880,41736,41496,41328,41280,41136,41040, 2 40968,40704,41760,41736,41640,41520,41520,41304,41208,41256, 3 41160,41280,41472,41400,41136,40896,40488,40344,40248,40056, 4 39960,39888,39864,40080,40104,40632,40680,40848,41208,39816, 5 40248,40200,40104,39648,39576,39600,39432,39384,39264,39288, 6 39240,38928,38928,38592,41184,41064,41040,39768,39672,39576, 7 37920,37920,38040,38040,37920,37920,37920,38208,38352,38544, 8 38760,38832,39072,39312,39528,39768,37680,37776,37728,37632, 9 37656,37296,37296,36648,36696,34008,36624,32736,32712,32688/ data (jy(i),i= 2401, 2500)/ + 37272,37272,36840,36408,36408,35976,35976,35832,35832,35616, 1 35544,35424,35544,35640,35784,35760,35640,35592,35328,35352, 2 35184,35088,34992,34968,34896,34896,34824,34752,34320,34224, 3 34200,34104,33576,33480,33384,33312,33192,32880,32808,34008, 4 32664,32040,32064,32688,29472,29544,29520,29616,29880,30096, 5 30168,30384,30480,30504,30600,30744,30816,30984,31248,31344, 6 31488,31560,31848,31968,32160,32376,30432,30432,29880,29472, 7 29496,30816,29424,28176,28152,29448,28800,28800,28152,28152, 8 28200,28200,28152,28176,29376,29304,29208,29136,28992,27600, 9 27528,26208,26184,26304,26304,26184,26184,24288,22968,22968/ data (jy(i),i= 2501, 2600)/ + 22920,22944,25752,22392,23616,23616,22848,22848,22944,24312, 1 22344,20328,20328,20160,20160,20280,19032,15816,15744,15768, 2 29448,28824,27696,27600,29880,31416,31320,31296,31152,31104, 3 30888,30552,30552,30504,30456,29880,29784,29472,29376,29208, 4 29184,29400,32064,32376,32448,32928,33144,33288,33600,33816, 5 33888,34032,34224,34272,33336,32568,32376,32040,31512,31440, 6 31464,31656,31536,31632,31824,31848,31944,19008,19008,18936, 7 19008,19080,19080,19200,19104,19008,18936,18960,30864,31080, 8 31248,31200,30864,30432,30480,30672,30792,26328,26376,26256, 9 26352,26304,26352,26376,26376,26280,26184,25872,25896,26184/ data (jy(i),i= 2601, 2700)/ + 35880,36048,35928,36696,36648,36696,36888,10776,10896,10848, 1 10920,11088,10992,10920,10728,10248,10176,10152, 9984,10056, 2 10032, 9888, 9792, 9720, 9696, 9720, 9840, 9816, 9960, 9840, 3 9768, 9864, 9864,11664,11856,11832,11712,11736,11640,11568, 4 11592,11328,11328,11400,11160,11208,11400,11304,11016,10992, 5 11088,11064,11112,10800,10824,10752,10800,12624,12672,12744, 6 12672,12384,12336,12288,12408,12288,12336,12648,12552,12024, 7 11904,12000,12192,12192,11808,11832,11904,11856,15720,15792, 8 15816,15960,15696,16896,16968,16896,16776,16368,16752,16152, 9 16008,16056,16152,18600,18624,18648,18528,18600,18696,18624/ data (jy(i),i= 2701, 2800)/ + 18432,18504,18384,18360,18312,18216,18048,19464,19464,19416, 1 19368,19512,19488,19368,19464,19440,19320,19440,19512,19464, 2 19440,19440,19656,19752,19632,19680,19608,19344,19368,19632, 3 19704,19752,19632,19704,19632,19584,19632,19608,19584,19560, 4 19584,19704,19584,19560,19512,19560,19488,19512,19560,19512, 5 19440,19848,19824,19752,19896,19992,19872,19752,19752,19728, 6 19728,19752,19728,19680,19752,19728,19680,19728,19752,19680, 7 19632,19656,20328,20376,20280,20256,20256,20184,20160,19896, 8 19944,19872,19848,19800,19920,19824,19776,19824,19848,19752, 9 19824,20760,20808,20712,20640,20688,20976,21192,20736,20424/ data (jy(i),i= 2801, 2900)/ + 20424,23712,23640,23640,23784,23928,24000,23736,23520,23496, 1 23664,23472,23520,23376,23400,23280,23256,23280,24264,24192, 2 24240,24504,24792,24888,24984,25296,25416,25536,25560,25680, 3 25656,25464,25464,25152,24696,24336,24192,24168,24192,24144, 4 24144,24096,24168,24144,24288,24240,24192,25056,25008,25008, 5 24888,24936,24960,25128,25200,25176,24840,24816,25008,24888, 6 24840,24792,24984,24792,24816,24768,24744,25632,24744,24600, 7 26136,26160,26064,25224,25152,25128,25776,25464,25128,25080, 8 25608,25752,25536,25536,25464,25488,25440,25368,25392,25368, 9 25368,25464,25368,25344,25416,25320,25320,25272,25296,25296/ data (jy(i),i= 2901, 3000)/ + 25344,25272,25272,25200,25272,25800,25776,25704,25752,25704, 1 25704,25776,25704,25632,25656,25584,25608,25680,25656,25560, 2 25560,25656,26424,26400,26352,26400,26376,26352,26520,26472, 3 26472,26496,26448,26448,26472,26448,26376,26400,26400,26472, 4 30432,30456,30264,30192,30360,31392,31320,31320,31656,31992, 5 31920,31872,31656,31320,31272,31272,31320,31656,31776,31632, 6 31608,31656,32136,32184,32088,32664,32736,32616,32544,32808, 7 32784,32616,32616,32808,32448,32376,32424,32280,32376,32472, 8 32424,32976,32952,33072,33024,33048,32880,32904,32760,32904, 9 32904,32760,33456,33456,33336,33336,33360,33288,34128,34104/ data (jy(i),i= 3001, 3100)/ + 34080,34800,34704,34752,34728,34896,35280,35208,35184,35496, 1 35664,35808,35472,35544,39816,39792,39768,41568,41520,41592, 2 41544,41640,41736,41664,41784,41784,41712,41664,41592,41712, 3 41688,41592,41664,41712,41712,41760,41808,41904,41952,41904, 4 41784,41832,41856,41880,41832,43536,43608,43632,43560,43512, 5 43464,43416,43488,43632,43584,43584,43632,43800,43776,43872, 6 44016,43896,43848,43920,43992,44160,44160,44088,44112,44064, 7 44160,44304,44352,44304,44256,46632,46632,46608,48336,48288, 8 48240,48000,47976,47856,47688,47712,47880,47592,47616,48264, 9 48744,48816,48816,48624,48432,48384,48360,47856,47832,47784/ data (jy(i),i= 3101, 3200)/ + 48312,48336,48216,48312,48360,48216,47952,47904,48624,48576, 1 48600,49200,49104,48960,48912,48960,48984,49152,49152,49272, 2 50760,50808,50904,50856,50688,50640,50736,50736,51528,51408, 3 51480,51696,51768,51336,51360,51264,51240,53880,53952,53880, 4 55416,55392,55296,55152,55128,54960,54816,54816,54672,54528, 5 54408,54216,54024,54120,54480,54576,54504,54504,54312,54456, 6 54456,54192,54768,54720,54696,55296,55344,55368,55512,55320, 7 55248,55392,55416,10008, 9960, 9744, 9720, 9888,10008,10104, 8 10032, 9840, 9840, 9696, 9744,10344,10344,10392,10296,10320, 9 10272,10128,10128,10080,10128,10128,10056, 9960, 9960, 9768/ data (jy(i),i= 3201, 3300)/ + 9792, 9912, 9984,10080, 9984,10056,10056,10488,10608,10656, 1 10632,10728,10632,10488,10488,10488,10464,10440,10488,10488, 2 10416,10464,10632,10512,10416,10584,10728,10536,10656,10464, 3 10272, 9984,10008,10080,10080, 9984,10008,10176,10224,10320, 4 10392,10440,10488,10512,10272,10272,10176,10152,10224,10176, 5 10272,10272,10440,10272,10320,10536,10464,10584,10632,10728, 6 10752,10776,10872,10848,10632,10656,10608,10632,10704,10752, 7 10656,10536,10560,10440,10560,10704,10872,10824,10776,10728, 8 10824,10848,10872,10896,10800,10728,10776,11088,10872,10848, 9 10752,10440,10392,10344,10464,10512,10536,10656,11064,11160/ data (jy(i),i= 3301, 3400)/ + 11088,11208,11112,10944,10944,10920,11016,11016,10848,10824, 1 10632,10728,10704,10824,10872,10824,10800,10920,10920,13680, 2 13704,13776,13584,13632,13584,13536,13512,13488,13560,13392, 3 13440,13320,13368,13344,13272,13056,13056,13152,12552,12576, 4 12648,11400,11448,11328,11280,11280,11352,11328,11232,11208, 5 11184,11280,11280,11136,11160,11232,11208,11256,11208,11136, 6 11184,11088,10896,10800,11016,11160,13872,13920,13920,13800, 7 13992,14016,13920,13944,14016,14064,14016,13920,13944,13944, 8 13896,14304,14256,14280,14352,14160,14136,14208,14088,14352, 9 14256,14184,14088,14184,14112,14064,14088,14136,14040,14064/ data (jy(i),i= 3401, 3500)/ + 13992,13968,14016,13944,14016,13944,13968,15696,15648,15480, 1 15456,15240,14400,14352,14304,14280,14160,14016,13800,13944, 2 13608,13608,13344,13224,13032,12744,12672,12768,12840,13056, 3 13176,13176,13272,13656,13800,13824,13728,13752,13872,13968, 4 13944,14088,14112,14424,14544,14592,14568,14784,15048,15192, 5 15192,15240,15408,15648,15288,15288,15240,15216,15240,15192, 6 15072,15168,15192,15120,15072,15120,15048,15096,15096,15024, 7 15024,15096,14928,14976,15024,14904,14952,14976,15048,14880, 8 14880,14856,14856,14784,14736,14832,14904,15168,15096,14952, 9 14976,14880,14856,14904,14808,14808,14760,14712,15432,15432/ data (jy(i),i= 3501, 3600)/ + 15384,15360,15408,15360,15336,15816,15816,15744,15768,15720, 1 15696,15672,15696,15648,15672,15648,15600,15576,15624,15576, 2 15576,15528,15552,15600,15528,15504,15552,15552,15624,15504, 3 15504,15456,15552,15576,15432,17352,17328,17280,17376,17304, 4 17256,17256,17328,18528,18648,18600,18504,18432,18312,18336, 5 18504,18384,18456,18504,18576,18696,18768,18720,18792,18792, 6 18864,18864,18984,18864,18648,18696,18624,18480,18240,18192, 7 18288,18288,19032,19008,18936,18912,18936,19008,18840,18864, 8 18720,18744,18720,18672,18624,18696,18600,18624,18528,18504, 9 18456,18576,19200,19104,19008,19536,19560,19488,19464,19344/ data (jy(i),i= 3601, 3700)/ + 19344,19464,19440,19392,19416,19344,19296,19344,19416,19272, 1 19320,19296,19200,19152,19248,19392,19296,19248,19128,19272, 2 19416,19248,19224,19104,19200,24048,24048,23880,23880,23952, 3 23928,23832,23832,23880,23928,23952,23976,23832,23640,23760, 4 24072,24528,24600,24168,24072,24072,24024,24024,24048,23976, 5 23976,24000,23952,39696,39648,39528,39672,40368,40296,40296, 6 40512,40464,40464,40800,40752,40752,40800,40752,40752,40800, 7 40752,40704,40704,40872,40848,40656,40608,40608,40632,40608, 8 40584,41016,40968,40968,40944,40920,40896,41136,41256,41088, 9 41016,41064,41136,40992,40968,40944,41016,40992,40968,44496/ data (jy(i),i= 3701, 3780)/ + 44472,44568,45120,45120,45168,45408,45312,45408,45600,45528, 1 45576,45648,45552,51144,51120,51240,53136,53064,53088,53400, 2 53472,53232,53112,53064,53256,53184,53184,53040,53016,53784, 3 53760,53544,53352,53256,53424,53544,53568,53496,53520,53976, 4 54072,53808,53712,54096,54024,53976,54000,54192,54192,54360, 5 54312,54384,53976,53640,53640,53784,53688,53712,53784,53760, 6 53856,53784,53928,53880,54072,54120,54072,53952,54048,54000, 7 53986,54048, 0, 0, 0, 0, 0, 0, 0, 0/ data (jb1(i),i= 1, 100)/ + 6, 10, 11, 12, 13, 14, 15, 16, 17, 18, 1 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 2 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 3 3, 40, 41, 42, 43, 44, 45, 46, 47, 48, 4 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 5 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 6 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 7 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 8 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 9 99, 100, 101, 102, 103, 104, 6, 106, 107, 108/ data (jb1(i),i= 101, 200)/ + 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 1 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 2 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 3 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 4 149, 9, 8, 153, 154, 155, 156, 157, 158, 159, 5 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 6 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 7 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 8 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 9 200, 201, 202, 203, 204, 205, 206, 207, 208, 209/ data (jb1(i),i= 201, 300)/ + 210, 9, 215, 216, 217, 218, 219, 220, 221, 222, 1 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 2 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 3 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 4 253, 254, 255, 256, 265, 266, 267, 268, 269, 270, 5 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 6 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, 7 291, 292, 293, 294, 295, 296, 297, 298, 299, 300, 8 263, 263, 302, 303, 304, 264, 264, 307, 308, 309, 9 310, 311, 312, 313, 314, 315, 316, 317, 318, 319/ data (jb1(i),i= 301, 400)/ + 320, 321, 322, 323, 324, 325, 326, 327, 328, 329, 1 330, 331, 332, 333, 334, 335, 336, 337, 342, 343, 2 344, 345, 346, 347, 348, 349, 350, 351, 352, 353, 3 354, 355, 356, 357, 358, 359, 360, 105, 362, 363, 4 364, 365, 366, 367, 368, 369, 370, 371, 372, 373, 5 374, 375, 376, 377, 378, 379, 380, 381, 215, 342, 6 386, 387, 388, 389, 390, 391, 392, 393, 394, 395, 7 396, 397, 398, 399, 400, 401, 402, 403, 404, 405, 8 406, 407, 408, 384, 338, 410, 411, 412, 413, 414, 9 415, 416, 417, 418, 419, 420, 421, 422, 423, 424/ data (jb1(i),i= 401, 500)/ + 425, 426, 427, 428, 429, 430, 431, 432, 433, 434, 1 435, 436, 437, 438, 439, 440, 441, 442, 443, 444, 2 445, 446, 385, 362, 449, 450, 451, 452, 453, 454, 3 455, 456, 457, 458, 459, 460, 461, 462, 463, 464, 4 465, 466, 467, 468, 469, 448, 384, 471, 472, 473, 5 474, 385, 477, 478, 479, 480, 481, 482, 483, 484, 6 485, 486, 487, 488, 489, 490, 491, 492, 493, 494, 7 495, 496, 497, 498, 499, 500, 501, 502, 503, 504, 8 505, 506, 507, 508, 509, 510, 511, 512, 513, 514, 9 515, 448, 517, 518, 519, 520, 521, 522, 475, 524/ data (jb1(i),i= 501, 600)/ + 525, 526, 527, 528, 529, 523, 476, 531, 532, 533, 1 534, 535, 536, 537, 538, 539, 540, 541, 542, 543, 2 544, 545, 546, 547, 548, 549, 550, 551, 553, 554, 3 516, 556, 557, 558, 559, 560, 561, 562, 563, 564, 4 565, 566, 567, 568, 569, 570, 571, 572, 573, 574, 5 575, 576, 577, 578, 579, 581, 582, 583, 584, 585, 6 586, 587, 588, 589, 590, 591, 592, 593, 594, 595, 7 596, 597, 598, 599, 600, 601, 602, 603, 604, 605, 8 606, 607, 608, 609, 610, 611, 612, 613, 614, 615, 9 616, 617, 618, 619, 620, 621, 622, 623, 624, 625/ data (jb1(i),i= 601, 700)/ + 626, 627, 628, 629, 630, 631, 632, 633, 634, 635, 1 636, 637, 638, 639, 640, 641, 642, 643, 644, 645, 2 646, 647, 553, 580, 649, 650, 651, 652, 653, 654, 3 655, 656, 657, 658, 659, 660, 661, 662, 663, 664, 4 665, 666, 667, 552, 669, 670, 671, 672, 673, 674, 5 675, 676, 677, 678, 679, 680, 681, 682, 683, 684, 6 685, 686, 687, 688, 689, 690, 691, 692, 693, 694, 7 695, 696, 697, 698, 581, 721, 723, 724, 725, 726, 8 727, 728, 729, 730, 731, 732, 733, 734, 735, 736, 9 737, 738, 739, 740, 741, 742, 743, 744, 745, 746/ data (jb1(i),i= 701, 800)/ + 747, 748, 749, 750, 751, 752, 753, 754, 755, 756, 1 757, 758, 759, 760, 761, 762, 763, 764, 765, 766, 2 767, 768, 769, 770, 771, 772, 773, 774, 775, 776, 3 777, 778, 779, 780, 781, 782, 783, 784, 785, 786, 4 787, 788, 789, 790, 791, 792, 793, 794, 795, 796, 5 797, 798, 799, 800, 801, 803, 804, 805, 806, 807, 6 808, 809, 810, 811, 812, 813, 814, 815, 816, 817, 7 818, 819, 820, 821, 822, 823, 824, 825, 826, 827, 8 828, 829, 830, 831, 832, 833, 834, 835, 836, 837, 9 838, 839, 840, 841, 842, 843, 844, 845, 846, 847/ data (jb1(i),i= 801, 900)/ + 848, 849, 850, 851, 852, 853, 854, 855, 856, 857, 1 858, 859, 860, 861, 862, 863, 864, 865, 866, 867, 2 868, 869, 870, 871, 872, 873, 874, 875, 876, 877, 3 878, 879, 880, 881, 882, 883, 884, 885, 886, 887, 4 888, 889, 890, 891, 892, 893, 894, 895, 896, 803, 5 898, 899, 900, 901, 902, 903, 904, 905, 906, 907, 6 908, 909, 910, 911, 912, 913, 914, 915, 916, 917, 7 918, 919, 920, 921, 922, 923, 924, 925, 926, 927, 8 928, 929, 930, 931, 932, 933, 934, 935, 936, 937, 9 938, 939, 940, 941, 942, 943, 944, 945, 946, 947/ data (jb1(i),i= 901, 1000)/ + 948, 949, 950, 951, 952, 953, 954, 955, 956, 957, 1 958, 959, 960, 961, 962, 963, 964, 965, 966, 967, 2 968, 969, 970, 971, 972, 973, 974, 975, 976, 977, 3 978, 979, 980, 981, 982, 983, 984, 985, 986, 987, 4 988, 989, 990, 991, 992, 993, 994, 995, 996, 997, 5 998, 999, 1000, 1001, 1002, 802, 5, 2, 2, 1, 6 1, 1004, 1005, 1006, 1007, 1008, 1009, 1010, 1011, 1012, 7 7, 7, 212, 259, 214, 214, 213, 213, 1014, 1015, 8 1016, 1017, 1018, 1019, 1020, 262, 3, 1022, 1023, 1024, 9 1025, 1026, 1027, 1028, 1029, 1030, 1031, 1032, 1033, 1034/ data (jb1(i),i= 1001, 1100)/ + 1035, 1036, 1037, 1038, 1039, 1040, 1041, 1042, 1043, 1044, 1 1045, 1046, 1047, 1048, 1049, 1050, 1051, 1052, 1053, 1054, 2 1055, 1056, 1057, 1058, 1059, 1060, 152, 152, 1062, 1063, 3 1064, 1065, 1066, 1067, 151, 262, 1069, 1070, 1071, 1072, 4 1073, 1074, 1075, 1076, 1077, 1078, 1079, 1080, 1081, 1082, 5 1083, 1084, 1085, 1086, 1087, 1088, 1089, 1090, 1091, 1092, 6 1093, 1094, 1095, 1096, 1097, 1098, 1099, 1100, 1101, 1102, 7 1103, 1104, 1105, 1106, 1107, 1108, 1109, 1110, 1111, 1112, 8 1113, 1114, 1115, 1116, 1117, 1118, 1119, 1120, 1121, 1122, 9 1123, 1124, 1125, 1126, 1127, 1128, 1129, 1130, 1131, 1132/ data (jb1(i),i= 1101, 1200)/ + 40, 151, 258, 258, 1135, 1136, 1137, 1138, 1139, 1140, 1 1141, 1142, 1143, 1144, 1145, 1146, 1147, 1148, 1149, 1150, 2 1151, 1152, 1153, 1154, 1155, 1156, 1157, 1158, 1159, 1160, 3 1161, 1162, 1163, 1164, 1165, 1166, 1167, 1168, 1169, 1170, 4 1171, 1172, 1173, 1174, 1175, 1176, 1177, 1178, 1179, 1180, 5 1181, 1182, 1183, 1184, 1185, 1186, 1187, 1188, 1189, 1190, 6 1191, 1192, 1193, 1194, 1195, 1196, 1197, 1198, 1199, 1200, 7 1201, 1202, 1203, 1204, 1205, 1206, 1207, 1208, 1209, 1210, 8 1211, 1212, 1213, 1214, 1215, 1216, 1217, 306, 340, 1219, 9 1220, 1221, 1222, 1223, 1224, 1225, 1226, 1227, 1228, 1229/ data (jb1(i),i= 1201, 1300)/ + 1230, 1231, 1232, 1233, 1234, 1235, 1236, 1237, 1238, 1239, 1 1240, 1241, 1242, 1243, 1244, 1245, 1246, 1247, 1248, 1249, 2 1250, 1251, 1252, 341, 306, 1254, 340, 339, 1256, 1257, 3 1258, 1259, 1260, 1261, 1262, 1263, 1264, 1265, 1266, 1267, 4 1268, 1269, 1270, 1271, 1272, 1273, 1274, 1275, 1276, 1277, 5 1278, 1279, 1280, 1281, 1282, 1283, 1284, 1285, 1286, 1287, 6 1288, 1289, 1290, 1291, 1292, 1293, 1294, 1295, 1296, 265, 7 341, 1298, 1299, 1300, 1301, 1302, 1303, 1304, 1305, 1306, 8 1307, 1308, 1309, 1310, 1311, 1312, 1313, 1314, 1315, 339, 9 383, 1317, 1318, 1319, 1320, 1321, 1322, 1323, 1324, 1325/ data (jb1(i),i= 1301, 1400)/ + 1326, 1327, 1328, 1329, 1330, 1331, 1332, 1333, 1334, 1335, 1 1336, 1337, 1338, 1339, 1340, 1341, 1342, 1343, 1344, 1345, 2 1346, 1347, 1348, 1349, 1350, 1351, 1352, 1353, 257, 383, 3 668, 1355, 1356, 1357, 1358, 1359, 1360, 1361, 1362, 1363, 4 1364, 1365, 1366, 1367, 1368, 1369, 1370, 1371, 1372, 1373, 5 1374, 1375, 701, 700, 1377, 1378, 1379, 1380, 1381, 702, 6 703, 1383, 702, 703, 1385, 1386, 1387, 1388, 1389, 1390, 7 704, 705, 704, 700, 1393, 1394, 1395, 1396, 1397, 1398, 8 1399, 1400, 1401, 1402, 1403, 1404, 1405, 1406, 1407, 1408, 9 1409, 1410, 1411, 1412, 1413, 1414, 1415, 1416, 1417, 1418/ data (jb1(i),i= 1401, 1500)/ + 1419, 1420, 1421, 1422, 1423, 1424, 1425, 1426, 1427, 1428, 1 1429, 1430, 1431, 1432, 1433, 1434, 1435, 1436, 1437, 1438, 2 1439, 1440, 1441, 1442, 1443, 1444, 707, 555, 1446, 1447, 3 1448, 1449, 1450, 1451, 1452, 1453, 1454, 706, 701, 1456, 4 1457, 1458, 1459, 1460, 1461, 1462, 1463, 1464, 1465, 1466, 5 1467, 1468, 1469, 1470, 1471, 1472, 1473, 1474, 1475, 1476, 6 1477, 1478, 1479, 1480, 1481, 1482, 1483, 1484, 1485, 1486, 7 1487, 1488, 1489, 1490, 1491, 1492, 1493, 1494, 1495, 1496, 8 1497, 1498, 1499, 1500, 1501, 1502, 1503, 1504, 1505, 1506, 9 1507, 1508, 1509, 1510, 1511, 1512, 1513, 1514, 1515, 1516/ data (jb1(i),i= 1501, 1600)/ + 1517, 1518, 1519, 705, 706, 1521, 1522, 708, 707, 1524, 1 1525, 1526, 1527, 1528, 1529, 1530, 1531, 1532, 1533, 1534, 2 1535, 1536, 1537, 1538, 1539, 1540, 1541, 1542, 1543, 1544, 3 1545, 1546, 1547, 1548, 1549, 1550, 1551, 1552, 1553, 1554, 4 1555, 1556, 1557, 1558, 1559, 1560, 1561, 1562, 1563, 1564, 5 1565, 1566, 1567, 711, 708, 710, 709, 1570, 1571, 709, 6 1573, 1574, 1575, 710, 1572, 1577, 1578, 1579, 1580, 1581, 7 1582, 1583, 1584, 1585, 1586, 1587, 713, 712, 714, 1590, 8 1591, 718, 1593, 1596, 1595, 1595, 1593, 711, 1599, 1600, 9 1601, 1602, 1603, 1604, 1605, 1606, 1607, 1608, 1609, 1610/ data (jb1(i),i= 1601, 1700)/ + 1611, 1612, 1613, 1614, 715, 716, 1616, 1617, 717, 1588, 1 1619, 1596, 714, 1621, 1622, 1623, 1624, 1625, 1626, 1627, 2 1628, 1629, 1630, 1631, 1632, 1633, 1634, 1635, 1636, 1637, 3 1638, 1639, 1640, 1641, 712, 715, 1643, 1644, 1645, 1646, 4 716, 717, 1648, 1649, 1650, 1651, 1652, 1653, 1654, 1655, 5 1656, 1657, 1658, 1659, 1660, 1661, 1662, 1663, 1664, 1665, 6 1666, 1667, 1668, 1669, 1670, 1671, 1672, 1673, 1674, 1675, 7 1676, 1677, 1678, 1679, 1680, 1681, 718, 713, 1683, 1684, 8 1685, 1686, 1687, 1688, 1689, 1690, 1691, 719, 721, 1693, 9 1694, 1695, 1696, 1697, 1698, 1699, 1700, 1701, 1702, 1703/ data (jb1(i),i= 1701, 1800)/ + 1704, 1705, 1706, 1707, 1708, 1709, 1710, 1711, 1712, 1713, 1 1714, 1715, 1716, 1717, 1718, 1719, 1720, 1721, 1722, 1723, 2 1724, 1725, 1726, 1727, 1728, 1729, 1730, 1731, 1732, 1733, 3 1734, 1735, 1736, 1737, 1738, 1739, 1740, 1741, 1742, 1743, 4 1744, 1745, 1746, 1747, 719, 1594, 1749, 1750, 1751, 1752, 5 1753, 1754, 1755, 1756, 1757, 1758, 720, 720, 1760, 1761, 6 1762, 1763, 1764, 1765, 722, 722, 1767, 1768, 1769, 1770, 7 1771, 1772, 1773, 1774, 1775, 1776, 1777, 1778, 1779, 1780, 8 1781, 1782, 897, 1, 1784, 1785, 1786, 1787, 2, 1788, 9 1789, 1790, 1791, 1792, 1793, 1794, 1795, 1796, 1797, 1798/ data (jb1(i),i= 1801, 1900)/ + 1799, 1800, 1801, 5, 7, 1802, 1803, 1804, 8, 1806, 1 1807, 1808, 1809, 1810, 1811, 1812, 1813, 1814, 1815, 1816, 2 1817, 1818, 1819, 1820, 1821, 1822, 1823, 1824, 1825, 1788, 3 1826, 1827, 1828, 1829, 1805, 1831, 1830, 1833, 1834, 1835, 4 1836, 1837, 1838, 1839, 1840, 1841, 1842, 1843, 1844, 1845, 5 1846, 1847, 151, 1829, 1848, 1849, 1850, 1851, 1852, 1853, 6 1854, 1855, 1856, 1857, 1858, 1859, 1860, 1861, 1862, 1863, 7 1864, 1865, 1866, 1867, 1868, 1869, 1870, 1871, 1800, 1805, 8 1873, 1874, 1875, 1876, 1877, 1878, 1879, 1880, 1881, 212, 9 1883, 1884, 1885, 1886, 1887, 1888, 1889, 1890, 1891, 1892/ data (jb1(i),i= 1901, 2000)/ + 1893, 1894, 1895, 1896, 1897, 1898, 1882, 1900, 1901, 1902, 1 1903, 1904, 1905, 1906, 1907, 1908, 1909, 1856, 1910, 1911, 2 1912, 1913, 1882, 1915, 1916, 1917, 1918, 1919, 1920, 1921, 3 1922, 1923, 1924, 1901, 1926, 1927, 1910, 1929, 1930, 1931, 4 1932, 1933, 1934, 1935, 1936, 1937, 1938, 1939, 1940, 1941, 5 1942, 1943, 1944, 1945, 1946, 1947, 1948, 1949, 1950, 1951, 6 1952, 260, 1953, 1954, 1955, 1956, 1957, 1958, 1959, 1960, 7 1961, 1962, 1963, 1964, 1965, 1966, 1967, 1968, 1969, 1970, 8 1971, 1972, 1915, 261, 1974, 1975, 1976, 1977, 1978, 1926, 9 1980, 1981, 1929, 1980, 1901, 1984, 1985, 1986, 1987, 1988/ data (jb1(i),i= 2001, 2100)/ + 1983, 1833, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1 1998, 1999, 2000, 2001, 2002, 1910, 1830, 1805, 2005, 2006, 2 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 3 2017, 2018, 2019, 2020, 2021, 2022, 2023, 2024, 2025, 2026, 4 2027, 2028, 2029, 2030, 2031, 2032, 2033, 2034, 2035, 2036, 5 2037, 2038, 2039, 2004, 105, 1833, 1926, 264, 2042, 2043, 6 2044, 2045, 1929, 2041, 2047, 1900, 2004, 257, 2049, 2050, 7 2051, 215, 1990, 2053, 2040, 2055, 2056, 2057, 2058, 2059, 8 2060, 2061, 2062, 2063, 2064, 2065, 2066, 2067, 2068, 2069, 9 2070, 2054, 265, 2072, 2073, 2074, 2075, 2076, 2077, 2078/ data (jb1(i),i= 2101, 2200)/ + 2079, 1990, 2054, 2081, 2082, 2083, 2084, 2085, 2086, 2087, 1 2088, 2089, 2090, 2091, 340, 1900, 2092, 2093, 2094, 2095, 2 2096, 2097, 2098, 2099, 2100, 1915, 2102, 2103, 2104, 2048, 3 2106, 2107, 2108, 2109, 2110, 2111, 2112, 2113, 2114, 2115, 4 2116, 2117, 2118, 2101, 2105, 2120, 2121, 1983, 2123, 2124, 5 2125, 2126, 2127, 2128, 2129, 2130, 2131, 2132, 2133, 2134, 6 2135, 2136, 2137, 2138, 2139, 2140, 2141, 2142, 2143, 2144, 7 2145, 2146, 2147, 2122, 1980, 2149, 2150, 2151, 2153, 2154, 8 2155, 2156, 2105, 2152, 2101, 2159, 2160, 2161, 2162, 2163, 9 2164, 2153, 2158, 2166, 2122, 2047, 2115, 2169, 2170, 2171/ data (jb1(i),i= 2201, 2300)/ + 2172, 2173, 2174, 2175, 2176, 2177, 2178, 2179, 2180, 2168, 1 342, 2182, 2183, 2184, 2185, 2186, 2168, 2152, 2188, 2189, 2 2190, 338, 2192, 2193, 2194, 2195, 2196, 2197, 2198, 2199, 3 2200, 362, 2158, 2201, 2202, 2203, 2204, 2205, 2206, 2207, 4 2208, 2209, 2210, 2211, 2212, 2213, 2214, 2215, 2216, 2153, 5 2218, 2219, 2220, 2221, 2217, 384, 2223, 2224, 2225, 2226, 6 2227, 2228, 2229, 2230, 2231, 2232, 2233, 2234, 2236, 2237, 7 2238, 2218, 2217, 2240, 2241, 2242, 2243, 2244, 2245, 2246, 8 2247, 2248, 2249, 2250, 2251, 2252, 2253, 2254, 2255, 2256, 9 2168, 2236, 2257, 2258, 2259, 2260, 2261, 2262, 2263, 2264/ data (jb1(i),i= 2301, 2400)/ + 2235, 2266, 2267, 2268, 2269, 2192, 2266, 2271, 2266, 2272, 1 2273, 2274, 2275, 475, 2276, 2277, 2278, 523, 2280, 2281, 2 2282, 2283, 2284, 2285, 2286, 2287, 2288, 2289, 2290, 2236, 3 2292, 2293, 516, 2295, 2296, 2297, 2294, 2294, 2299, 2300, 4 2301, 2302, 2303, 2304, 2305, 2279, 552, 2307, 2291, 2309, 5 2310, 580, 2306, 2312, 2313, 2314, 2315, 2316, 2317, 2318, 6 2319, 2320, 2321, 2309, 2291, 2323, 2324, 2325, 2326, 2327, 7 2328, 2329, 2330, 2331, 2332, 2333, 2334, 2335, 2336, 2337, 8 2338, 2339, 2340, 2341, 2342, 2343, 2344, 2345, 2346, 2347, 9 2307, 555, 2349, 2342, 2309, 2351, 2352, 2353, 2354, 2355/ data (jb1(i),i= 2401, 2500)/ + 2356, 2357, 2358, 2359, 2360, 2361, 2362, 2363, 668, 2307, 1 2365, 2366, 2367, 2368, 2369, 2370, 2371, 2372, 2373, 2374, 2 2375, 2279, 2377, 2378, 2379, 2380, 2381, 2382, 2383, 2384, 3 2385, 2350, 2371, 2362, 2387, 2388, 2389, 2390, 2376, 2387, 4 2392, 2393, 2394, 2395, 702, 704, 706, 2377, 2394, 2397, 5 2398, 2398, 2399, 2371, 2401, 2402, 2403, 2404, 2405, 2406, 6 2407, 2408, 2409, 2410, 2411, 2412, 2413, 2414, 2415, 2416, 7 2417, 2418, 2419, 2420, 2421, 2422, 2423, 2424, 2425, 2426, 8 2427, 2428, 2429, 2430, 2431, 2432, 2433, 2434, 2435, 2436, 9 2437, 2438, 2400, 2396, 2440, 2400, 708, 2442, 2443, 2441/ data (jb1(i),i= 2501, 2600)/ + 2445, 2446, 2447, 2448, 2449, 2450, 2451, 2452, 2453, 2454, 1 2455, 2456, 2457, 2458, 2459, 2460, 2461, 2462, 2463, 2464, 2 2465, 2400, 2398, 2399, 2467, 709, 2469, 2467, 2470, 2471, 3 2472, 2442, 2470, 2474, 2468, 2475, 2445, 2476, 2477, 2478, 4 2479, 2480, 2481, 2482, 2475, 2474, 2484, 2445, 2485, 2486, 5 2487, 2488, 2489, 715, 717, 2491, 2475, 2492, 2492, 2493, 6 2494, 2495, 2496, 2490, 2492, 2499, 2500, 2501, 2502, 2490, 7 2499, 2499, 2498, 2505, 2506, 2507, 2508, 2509, 2498, 2510, 8 2504, 2504, 2512, 2513, 2514, 2515, 2516, 2512, 802, 2517, 9 2518, 2519, 2520, 2473, 1572, 1593, 1588, 2473, 2490, 1594/ data (jb1(i),i= 2601, 2700)/ + 2523, 2490, 1, 2, 3, 4, 5, 6, 7, 8, 1 9, 10, 11, 12, 13, 14, 15, 16, 17, 1, 2 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 3 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 4 39, 40, 41, 42, 19, 44, 45, 44, 47, 48, 5 49, 50, 51, 52, 53, 47, 55, 56, 57, 58, 6 59, 60, 61, 62, 55, 64, 65, 64, 67, 68, 7 67, 70, 71, 72, 73, 74, 75, 70, 77, 78, 8 77, 80, 81, 82, 80, 84, 85, 86, 87, 88, 9 89, 90, 84, 92, 93, 92, 95, 96, 97, 95/ data (jb1(i),i= 2701, 2800)/ + 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 1 99, 110, 111, 112, 113, 114, 115, 116, 110, 118, 2 119, 118, 121, 122, 123, 124, 125, 126, 127, 128, 3 121, 130, 131, 132, 130, 134, 135, 136, 134, 138, 4 139, 138, 141, 142, 143, 144, 141, 146, 147, 148, 5 149, 146, 151, 152, 153, 151, 155, 156, 157, 158, 6 155, 160, 161, 162, 160, 164, 165, 166, 167, 168, 7 164, 170, 171, 170, 173, 174, 175, 173, 177, 178, 8 179, 180, 181, 182, 177, 184, 185, 186, 184, 188, 9 189, 190, 188, 192, 193, 194, 195, 192, 197, 198/ data (jb1(i),i= 2801, 2900)/ + 199, 200, 201, 202, 203, 204, 197, 206, 207, 208, 1 206, 210, 211, 210, 213, 214, 215, 216, 217, 213, 2 219, 220, 219, 222, 223, 222, 225, 226, 225, 228, 3 229, 228, 231, 232, 233, 231, 235, 236, 235, 238, 4 239, 238, 241, 242, 243, 241, 245, 246, 247, 245, 5 249, 250, 251, 249, 253, 254, 253, 256, 257, 258, 6 259, 256, 261, 262, 263, 261, 265, 266, 265, 268, 7 269, 270, 268, 272, 273, 274, 275, 276, 272, 278, 8 279, 278, 281, 282, 283, 284, 285, 286, 281, 288, 9 289, 290, 288, 292, 293, 292, 295, 296, 295, 298/ data (jb1(i),i= 2901, 3000)/ + 299, 300, 301, 302, 303, 304, 305, 306, 307, 308, 1 309, 310, 311, 312, 313, 298, 315, 316, 315, 318, 2 319, 318, 321, 322, 321, 324, 325, 324, 327, 328, 3 327, 330, 331, 332, 333, 330, 335, 336, 337, 338, 4 335, 340, 341, 342, 340, 344, 345, 346, 347, 348, 5 344, 350, 351, 350, 353, 354, 355, 356, 357, 353, 6 359, 360, 359, 362, 363, 362, 365, 366, 367, 365, 7 369, 370, 369, 372, 373, 374, 372, 376, 377, 376, 8 379, 380, 379, 382, 383, 384, 382, 386, 387, 386, 9 389, 390, 389, 392, 393, 392, 395, 396, 397, 395/ data (jb1(i),i= 3001, 3100)/ + 399, 400, 399, 402, 403, 402, 405, 406, 405, 408, 1 409, 408, 411, 412, 411, 414, 415, 414, 417, 418, 2 419, 420, 417, 422, 423, 424, 425, 426, 427, 428, 3 422, 430, 431, 432, 430, 434, 435, 436, 437, 434, 4 439, 440, 439, 442, 443, 444, 445, 446, 447, 448, 5 449, 442, 451, 452, 451, 454, 455, 456, 454, 458, 6 459, 458, 461, 462, 463, 461, 465, 466, 467, 465, 7 469, 470, 469, 472, 473, 472, 475, 476, 475, 478, 8 479, 480, 481, 478, 483, 484, 485, 483, 487, 488, 9 489, 487, 491, 492, 491, 494, 495, 496, 497, 498/ data (jb1(i),i= 3101, 3200)/ + 499, 500, 501, 502, 503, 504, 494, 506, 507, 508, 1 506, 510, 511, 512, 510, 514, 515, 516, 514, 518, 2 519, 520, 518, 522, 523, 524, 522, 526, 527, 528, 3 526, 530, 531, 532, 530, 534, 535, 534, 537, 538, 4 539, 540, 537, 542, 543, 542, 545, 546, 545, 548, 5 549, 550, 548, 552, 553, 552, 555, 556, 557, 558, 6 559, 560, 561, 562, 563, 564, 565, 566, 567, 568, 7 569, 570, 571, 572, 555, 574, 575, 574, 577, 578, 8 579, 580, 581, 582, 583, 577, 585, 586, 585, 588, 9 589, 590, 591, 592, 593, 594, 595, 588, 597, 598/ data (jb1(i),i= 3201, 3300)/ + 599, 600, 601, 602, 603, 597, 605, 606, 607, 608, 1 605, 610, 611, 612, 610, 614, 615, 614, 617, 618, 2 619, 620, 621, 622, 623, 624, 625, 626, 627, 628, 3 629, 630, 617, 632, 633, 632, 635, 636, 637, 635, 4 639, 640, 639, 642, 643, 644, 642, 646, 647, 648, 5 646, 650, 651, 652, 653, 654, 655, 656, 650, 658, 6 659, 660, 658, 662, 663, 662, 665, 666, 665, 668, 7 669, 668, 671, 672, 673, 674, 675, 676, 677, 678, 8 679, 680, 681, 682, 671, 684, 685, 684, 687, 688, 9 689, 687, 691, 692, 691, 694, 695, 694, 697, 698/ data (jb1(i),i= 3301, 3400)/ + 699, 697, 701, 702, 703, 701, 705, 706, 707, 708, 1 709, 710, 711, 712, 713, 714, 715, 716, 717, 718, 2 719, 720, 721, 722, 723, 724, 725, 726, 727, 728, 3 729, 730, 731, 732, 733, 734, 735, 736, 705, 738, 4 739, 740, 738, 742, 743, 744, 742, 746, 747, 748, 5 749, 750, 751, 752, 753, 746, 755, 756, 757, 755, 6 759, 760, 761, 762, 759, 764, 765, 766, 767, 768, 7 769, 770, 771, 772, 773, 774, 775, 764, 777, 778, 8 779, 777, 781, 782, 783, 781, 785, 786, 787, 788, 9 789, 790, 785, 792, 793, 794, 792, 796, 797, 796/ data (jb1(i),i= 3401, 3500)/ + 799, 800, 801, 799, 803, 804, 803, 806, 807, 806, 1 809, 810, 809, 812, 813, 812, 815, 816, 815, 818, 2 819, 818, 821, 822, 823, 824, 821, 826, 827, 828, 3 826, 830, 831, 832, 830, 834, 835, 836, 834, 838, 4 839, 840, 841, 838, 843, 844, 845, 843, 847, 848, 5 849, 847, 851, 852, 853, 851, 855, 856, 855, 858, 6 859, 860, 858, 862, 863, 862, 865, 866, 867, 868, 7 869, 865, 871, 872, 873, 871, 875, 876, 875, 878, 8 879, 878, 881, 882, 881, 884, 885, 886, 887, 888, 9 889, 890, 891, 892, 893, 894, 895, 896, 897, 898/ data (jb1(i),i= 3501, 3600)/ + 899, 900, 901, 902, 903, 904, 905, 906, 907, 908, 1 909, 910, 911, 912, 913, 914, 915, 916, 917, 918, 2 919, 920, 921, 922, 923, 924, 925, 926, 927, 928, 3 929, 884, 931, 932, 931, 934, 935, 936, 937, 934, 4 939, 940, 941, 939, 943, 944, 945, 943, 947, 948, 5 949, 947, 951, 952, 951, 954, 955, 956, 954, 958, 6 959, 960, 958, 962, 963, 964, 965, 966, 967, 968, 7 969, 970, 971, 972, 973, 962, 975, 976, 977, 975, 8 979, 980, 979, 982, 983, 984, 982, 986, 987, 986, 9 989, 990, 989, 992, 993, 994, 992, 996, 997, 998/ data (jb1(i),i= 3601, 3700)/ + 996, 1000, 1001, 1002, 1003, 1004, 1000, 1006, 1007, 1006, 1 1009, 1010, 1009, 1012, 1013, 1014, 1012, 1016, 1017, 1018, 2 1016, 1020, 1021, 1022, 1023, 1024, 1025, 1026, 1020, 1028, 3 1029, 1030, 1031, 1032, 1033, 1034, 1035, 1036, 1037, 1038, 4 1039, 1040, 1041, 1042, 1043, 1044, 1045, 1046, 1047, 1028, 5 1049, 1050, 1051, 1052, 1053, 1049, 1055, 1056, 1057, 1055, 6 1059, 1060, 1059, 1062, 1063, 1062, 1065, 1066, 1067, 1065, 7 1069, 1070, 1069, 1072, 1073, 1074, 1072, 1076, 1077, 1078, 8 1076, 1080, 1081, 1082, 1083, 1080, 1085, 1086, 1085, 1088, 9 1089, 1090, 1088, 1092, 1093, 1094, 1095, 1096, 1092, 1098/ data (jb1(i),i= 3701, 3800)/ + 1099, 1100, 1098, 1102, 1103, 1104, 1105, 1106, 1107, 1108, 1 1109, 1110, 1111, 1112, 1113, 1114, 1115, 1116, 1117, 1118, 2 1119, 1102, 1121, 1122, 1121, 1124, 1125, 1124, 1127, 1128, 3 1127, 1130, 1131, 1132, 1130, 1134, 1135, 1134, 1137, 1138, 4 1137, 1140, 1141, 1140, 1143, 1144, 1143, 1146, 1147, 1148, 5 1149, 1150, 1146, 1152, 1153, 1152, 1155, 1156, 1155, 1158, 6 1159, 1158, 1161, 1162, 1161, 1164, 1165, 1166, 1167, 1168, 7 1164, 1170, 1171, 1170, 1173, 1174, 1173, 1176, 1177, 1176, 8 1179, 1180, 1179, 1182, 1183, 1184, 1185, 1182, 1187, 1188, 9 1187, 1190, 1191, 1190, 1193, 1194, 1195, 1196, 1197, 1193/ data (jb1(i),i= 3801, 3850)/ + 1199, 1200, 1201, 1202, 1203, 1204, 1199, 1206, 1207, 1208, 1 1209, 1210, 1211, 1212, 1213, 1214, 1215, 1216, 1217, 1218, 2 1206, 1220, 1221, 1222, 1223, 1224, 1220, 1226, 1227, 1226, 3 1229, 1230, 1231, 1232, 1233, 1234, 1235, 1236, 1237, 1238, 4 1239, 1229, 1241, 1242, 1243, 1244, 1245, 1246, 1247, 1241/ data (jb2(i),i= 1, 100)/ + 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 1 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 2 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 3 39, 41, 42, 43, 44, 45, 46, 47, 48, 49, 4 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 5 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 6 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 7 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 8 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 9 100, 101, 102, 103, 104, 105, 106, 107, 108, 109/ data (jb2(i),i= 101, 200)/ + 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 1 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 2 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 3 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 4 150, 150, 153, 154, 155, 156, 157, 158, 159, 160, 5 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 6 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 7 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 8 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 9 201, 202, 203, 204, 205, 206, 207, 208, 209, 210/ data (jb2(i),i= 201, 300)/ + 211, 211, 216, 217, 218, 219, 220, 221, 222, 223, 1 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 2 234, 235, 236, 237, 238, 239, 240, 241, 242, 243, 3 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 4 254, 255, 256, 257, 266, 267, 268, 269, 270, 271, 5 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 6 282, 283, 284, 285, 286, 287, 288, 289, 290, 291, 7 292, 293, 294, 295, 296, 297, 298, 299, 300, 301, 8 301, 302, 303, 304, 305, 305, 307, 308, 309, 310, 9 311, 312, 313, 314, 315, 316, 317, 318, 319, 320/ data (jb2(i),i= 301, 400)/ + 321, 322, 323, 324, 325, 326, 327, 328, 329, 330, 1 331, 332, 333, 334, 335, 336, 337, 338, 343, 344, 2 345, 346, 347, 348, 349, 350, 351, 352, 353, 354, 3 355, 356, 357, 358, 359, 360, 361, 361, 363, 364, 4 365, 366, 367, 368, 369, 370, 371, 372, 373, 374, 5 375, 376, 377, 378, 379, 380, 381, 382, 382, 386, 6 387, 388, 389, 390, 391, 392, 393, 394, 395, 396, 7 397, 398, 399, 400, 401, 402, 403, 404, 405, 406, 8 407, 408, 409, 409, 410, 411, 412, 413, 414, 415, 9 416, 417, 418, 419, 420, 421, 422, 423, 424, 425/ data (jb2(i),i= 401, 500)/ + 426, 427, 428, 429, 430, 431, 432, 433, 434, 435, 1 436, 437, 438, 439, 440, 441, 442, 443, 444, 445, 2 446, 447, 447, 449, 450, 451, 452, 453, 454, 455, 3 456, 457, 458, 459, 460, 461, 462, 463, 464, 465, 4 466, 467, 468, 469, 470, 470, 471, 472, 473, 474, 5 475, 477, 478, 479, 480, 481, 482, 483, 484, 485, 6 486, 487, 488, 489, 490, 491, 492, 493, 494, 495, 7 496, 497, 498, 499, 500, 501, 502, 503, 504, 505, 8 506, 507, 508, 509, 510, 511, 512, 513, 514, 515, 9 516, 517, 518, 519, 520, 521, 522, 523, 524, 525/ data (jb2(i),i= 501, 600)/ + 526, 527, 528, 529, 530, 530, 531, 532, 533, 534, 1 535, 536, 537, 538, 539, 540, 541, 542, 543, 544, 2 545, 546, 547, 548, 549, 550, 551, 552, 554, 555, 3 556, 557, 558, 559, 560, 561, 562, 563, 564, 565, 4 566, 567, 568, 569, 570, 571, 572, 573, 574, 575, 5 576, 577, 578, 579, 580, 582, 583, 584, 585, 586, 6 587, 588, 589, 590, 591, 592, 593, 594, 595, 596, 7 597, 598, 599, 600, 601, 602, 603, 604, 605, 606, 8 607, 608, 609, 610, 611, 612, 613, 614, 615, 616, 9 617, 618, 619, 620, 621, 622, 623, 624, 625, 626/ data (jb2(i),i= 601, 700)/ + 627, 628, 629, 630, 631, 632, 633, 634, 635, 636, 1 637, 638, 639, 640, 641, 642, 643, 644, 645, 646, 2 647, 648, 648, 649, 650, 651, 652, 653, 654, 655, 3 656, 657, 658, 659, 660, 661, 662, 663, 664, 665, 4 666, 667, 668, 669, 670, 671, 672, 673, 674, 675, 5 676, 677, 678, 679, 680, 681, 682, 683, 684, 685, 6 686, 687, 688, 689, 690, 691, 692, 693, 694, 695, 7 696, 697, 698, 699, 699, 723, 724, 725, 726, 727, 8 728, 729, 730, 731, 732, 733, 734, 735, 736, 737, 9 738, 739, 740, 741, 742, 743, 744, 745, 746, 747/ data (jb2(i),i= 701, 800)/ + 748, 749, 750, 751, 752, 753, 754, 755, 756, 757, 1 758, 759, 760, 761, 762, 763, 764, 765, 766, 767, 2 768, 769, 770, 771, 772, 773, 774, 775, 776, 777, 3 778, 779, 780, 781, 782, 783, 784, 785, 786, 787, 4 788, 789, 790, 791, 792, 793, 794, 795, 796, 797, 5 798, 799, 800, 801, 802, 804, 805, 806, 807, 808, 6 809, 810, 811, 812, 813, 814, 815, 816, 817, 818, 7 819, 820, 821, 822, 823, 824, 825, 826, 827, 828, 8 829, 830, 831, 832, 833, 834, 835, 836, 837, 838, 9 839, 840, 841, 842, 843, 844, 845, 846, 847, 848/ data (jb2(i),i= 801, 900)/ + 849, 850, 851, 852, 853, 854, 855, 856, 857, 858, 1 859, 860, 861, 862, 863, 864, 865, 866, 867, 868, 2 869, 870, 871, 872, 873, 874, 875, 876, 877, 878, 3 879, 880, 881, 882, 883, 884, 885, 886, 887, 888, 4 889, 890, 891, 892, 893, 894, 895, 896, 897, 898, 5 899, 900, 901, 902, 903, 904, 905, 906, 907, 908, 6 909, 910, 911, 912, 913, 914, 915, 916, 917, 918, 7 919, 920, 921, 922, 923, 924, 925, 926, 927, 928, 8 929, 930, 931, 932, 933, 934, 935, 936, 937, 938, 9 939, 940, 941, 942, 943, 944, 945, 946, 947, 948/ data (jb2(i),i= 901, 1000)/ + 949, 950, 951, 952, 953, 954, 955, 956, 957, 958, 1 959, 960, 961, 962, 963, 964, 965, 966, 967, 968, 2 969, 970, 971, 972, 973, 974, 975, 976, 977, 978, 3 979, 980, 981, 982, 983, 984, 985, 986, 987, 988, 4 989, 990, 991, 992, 993, 994, 995, 996, 997, 998, 5 999, 1000, 1001, 1002, 1003, 1003, 8, 5, 4, 4, 6 1004, 1005, 1006, 1007, 1008, 1009, 1010, 1011, 1012, 1013, 7 1013, 212, 261, 261, 259, 260, 260, 1014, 1015, 1016, 8 1017, 1018, 1019, 1020, 1021, 1021, 1022, 1023, 1024, 1025, 9 1026, 1027, 1028, 1029, 1030, 1031, 1032, 1033, 1034, 1035/ data (jb2(i),i= 1001, 1100)/ + 1036, 1037, 1038, 1039, 1040, 1041, 1042, 1043, 1044, 1045, 1 1046, 1047, 1048, 1049, 1050, 1051, 1052, 1053, 1054, 1055, 2 1056, 1057, 1058, 1059, 1060, 1061, 1061, 1062, 1063, 1064, 3 1065, 1066, 1067, 1068, 1068, 1069, 1070, 1071, 1072, 1073, 4 1074, 1075, 1076, 1077, 1078, 1079, 1080, 1081, 1082, 1083, 5 1084, 1085, 1086, 1087, 1088, 1089, 1090, 1091, 1092, 1093, 6 1094, 1095, 1096, 1097, 1098, 1099, 1100, 1101, 1102, 1103, 7 1104, 1105, 1106, 1107, 1108, 1109, 1110, 1111, 1112, 1113, 8 1114, 1115, 1116, 1117, 1118, 1119, 1120, 1121, 1122, 1123, 9 1124, 1125, 1126, 1127, 1128, 1129, 1130, 1131, 1132, 1133/ data (jb2(i),i= 1101, 1200)/ + 1133, 1134, 1134, 1135, 1136, 1137, 1138, 1139, 1140, 1141, 1 1142, 1143, 1144, 1145, 1146, 1147, 1148, 1149, 1150, 1151, 2 1152, 1153, 1154, 1155, 1156, 1157, 1158, 1159, 1160, 1161, 3 1162, 1163, 1164, 1165, 1166, 1167, 1168, 1169, 1170, 1171, 4 1172, 1173, 1174, 1175, 1176, 1177, 1178, 1179, 1180, 1181, 5 1182, 1183, 1184, 1185, 1186, 1187, 1188, 1189, 1190, 1191, 6 1192, 1193, 1194, 1195, 1196, 1197, 1198, 1199, 1200, 1201, 7 1202, 1203, 1204, 1205, 1206, 1207, 1208, 1209, 1210, 1211, 8 1212, 1213, 1214, 1215, 1216, 1217, 1218, 1218, 1219, 1220, 9 1221, 1222, 1223, 1224, 1225, 1226, 1227, 1228, 1229, 1230/ data (jb2(i),i= 1201, 1300)/ + 1231, 1232, 1233, 1234, 1235, 1236, 1237, 1238, 1239, 1240, 1 1241, 1242, 1243, 1244, 1245, 1246, 1247, 1248, 1249, 1250, 2 1251, 1252, 1253, 1253, 1254, 1255, 1255, 1256, 1257, 1258, 3 1259, 1260, 1261, 1262, 1263, 1264, 1265, 1266, 1267, 1268, 4 1269, 1270, 1271, 1272, 1273, 1274, 1275, 1276, 1277, 1278, 5 1279, 1280, 1281, 1282, 1283, 1284, 1285, 1286, 1287, 1288, 6 1289, 1290, 1291, 1292, 1293, 1294, 1295, 1296, 1297, 1297, 7 1298, 1299, 1300, 1301, 1302, 1303, 1304, 1305, 1306, 1307, 8 1308, 1309, 1310, 1311, 1312, 1313, 1314, 1315, 1316, 1316, 9 1317, 1318, 1319, 1320, 1321, 1322, 1323, 1324, 1325, 1326/ data (jb2(i),i= 1301, 1400)/ + 1327, 1328, 1329, 1330, 1331, 1332, 1333, 1334, 1335, 1336, 1 1337, 1338, 1339, 1340, 1341, 1342, 1343, 1344, 1345, 1346, 2 1347, 1348, 1349, 1350, 1351, 1352, 1353, 1354, 1354, 476, 3 1355, 1356, 1357, 1358, 1359, 1360, 1361, 1362, 1363, 1364, 4 1365, 1366, 1367, 1368, 1369, 1370, 1371, 1372, 1373, 1374, 5 1375, 1376, 1376, 1377, 1378, 1379, 1380, 1381, 1382, 1382, 6 1383, 1384, 1384, 1385, 1386, 1387, 1388, 1389, 1390, 1391, 7 1391, 1392, 1392, 1393, 1394, 1395, 1396, 1397, 1398, 1399, 8 1400, 1401, 1402, 1403, 1404, 1405, 1406, 1407, 1408, 1409, 9 1410, 1411, 1412, 1413, 1414, 1415, 1416, 1417, 1418, 1419/ data (jb2(i),i= 1401, 1500)/ + 1420, 1421, 1422, 1423, 1424, 1425, 1426, 1427, 1428, 1429, 1 1430, 1431, 1432, 1433, 1434, 1435, 1436, 1437, 1438, 1439, 2 1440, 1441, 1442, 1443, 1444, 1445, 1445, 1446, 1447, 1448, 3 1449, 1450, 1451, 1452, 1453, 1454, 1455, 1455, 1456, 1457, 4 1458, 1459, 1460, 1461, 1462, 1463, 1464, 1465, 1466, 1467, 5 1468, 1469, 1470, 1471, 1472, 1473, 1474, 1475, 1476, 1477, 6 1478, 1479, 1480, 1481, 1482, 1483, 1484, 1485, 1486, 1487, 7 1488, 1489, 1490, 1491, 1492, 1493, 1494, 1495, 1496, 1497, 8 1498, 1499, 1500, 1501, 1502, 1503, 1504, 1505, 1506, 1507, 9 1508, 1509, 1510, 1511, 1512, 1513, 1514, 1515, 1516, 1517/ data (jb2(i),i= 1501, 1600)/ + 1518, 1519, 1520, 1520, 1521, 1522, 1523, 1523, 1524, 1525, 1 1526, 1527, 1528, 1529, 1530, 1531, 1532, 1533, 1534, 1535, 2 1536, 1537, 1538, 1539, 1540, 1541, 1542, 1543, 1544, 1545, 3 1546, 1547, 1548, 1549, 1550, 1551, 1552, 1553, 1554, 1555, 4 1556, 1557, 1558, 1559, 1560, 1561, 1562, 1563, 1564, 1565, 5 1566, 1567, 1568, 1568, 1569, 1569, 1570, 1571, 1572, 1573, 6 1574, 1575, 1576, 1576, 1577, 1578, 1579, 1580, 1581, 1582, 7 1583, 1584, 1585, 1586, 1587, 1588, 1589, 1589, 1590, 1591, 8 1592, 1592, 1594, 1597, 1597, 1598, 1598, 1599, 1600, 1601, 9 1602, 1603, 1604, 1605, 1606, 1607, 1608, 1609, 1610, 1611/ data (jb2(i),i= 1601, 1700)/ + 1612, 1613, 1614, 1615, 1615, 1616, 1617, 1618, 1618, 1619, 1 1620, 1620, 1621, 1622, 1623, 1624, 1625, 1626, 1627, 1628, 2 1629, 1630, 1631, 1632, 1633, 1634, 1635, 1636, 1637, 1638, 3 1639, 1640, 1641, 1642, 1642, 1643, 1644, 1645, 1646, 1647, 4 1647, 1648, 1649, 1650, 1651, 1652, 1653, 1654, 1655, 1656, 5 1657, 1658, 1659, 1660, 1661, 1662, 1663, 1664, 1665, 1666, 6 1667, 1668, 1669, 1670, 1671, 1672, 1673, 1674, 1675, 1676, 7 1677, 1678, 1679, 1680, 1681, 1682, 1682, 1683, 1684, 1685, 8 1686, 1687, 1688, 1689, 1690, 1691, 1692, 1692, 1693, 1694, 9 1695, 1696, 1697, 1698, 1699, 1700, 1701, 1702, 1703, 1704/ data (jb2(i),i= 1701, 1800)/ + 1705, 1706, 1707, 1708, 1709, 1710, 1711, 1712, 1713, 1714, 1 1715, 1716, 1717, 1718, 1719, 1720, 1721, 1722, 1723, 1724, 2 1725, 1726, 1727, 1728, 1729, 1730, 1731, 1732, 1733, 1734, 3 1735, 1736, 1737, 1738, 1739, 1740, 1741, 1742, 1743, 1744, 4 1745, 1746, 1747, 1748, 1748, 1749, 1750, 1751, 1752, 1753, 5 1754, 1755, 1756, 1757, 1758, 1759, 1759, 1760, 1761, 1762, 6 1763, 1764, 1765, 1766, 1766, 1767, 1768, 1769, 1770, 1771, 7 1772, 1773, 1774, 1775, 1776, 1777, 1778, 1779, 1780, 1781, 8 1782, 1783, 1783, 1784, 1785, 1786, 1787, 1788, 3, 1789, 9 1790, 1791, 1792, 1793, 1794, 1795, 1796, 1797, 1798, 1799/ data (jb2(i),i= 1801, 1900)/ + 1800, 1801, 4, 6, 1802, 1803, 1804, 1805, 1806, 1807, 1 1808, 1809, 1810, 1811, 1812, 1813, 1814, 1815, 1816, 1817, 2 1818, 1819, 1820, 1821, 1822, 1823, 1824, 1825, 9, 1826, 3 1827, 1828, 1829, 1830, 1831, 1832, 1832, 1834, 1835, 1836, 4 1837, 1838, 1839, 1840, 1841, 1842, 1843, 1844, 1845, 1846, 5 1847, 40, 152, 1848, 1849, 1850, 1851, 1852, 1853, 1854, 6 1855, 1856, 1857, 1858, 1859, 1860, 1861, 1862, 1863, 1864, 7 1865, 1866, 1867, 1868, 1869, 1870, 1871, 1872, 1872, 1873, 8 1874, 1875, 1876, 1877, 1878, 1879, 1880, 1881, 1882, 1883, 9 1884, 1885, 1886, 1887, 1888, 1889, 1890, 1891, 1892, 1893/ data (jb2(i),i= 1901, 2000)/ + 1894, 1895, 1896, 1897, 1898, 1899, 1899, 213, 1902, 1903, 1 1904, 1905, 1906, 1907, 1908, 1909, 214, 258, 1911, 1912, 2 1913, 1914, 1914, 1916, 1917, 1918, 1919, 1920, 1921, 1922, 3 1923, 1924, 1925, 1925, 1927, 1928, 1928, 1930, 1931, 1932, 4 1933, 1934, 1935, 1936, 1937, 1938, 1939, 1940, 1941, 1942, 5 1943, 1944, 1945, 1946, 1947, 1948, 1949, 1950, 1951, 1952, 6 259, 1953, 1954, 1955, 1956, 1957, 1958, 1959, 1960, 1961, 7 1962, 1963, 1964, 1965, 1966, 1967, 1968, 1969, 1970, 1971, 8 1972, 1973, 1973, 1974, 1975, 1976, 1977, 1978, 1979, 1979, 9 1981, 1982, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989/ data (jb2(i),i= 2001, 2100)/ + 1989, 262, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1 1999, 2000, 2001, 2002, 2003, 2003, 2004, 2005, 2006, 2007, 2 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 3 2018, 2019, 2020, 2021, 2022, 2023, 2024, 2025, 2026, 2027, 4 2028, 2029, 2030, 2031, 2032, 2033, 2034, 2035, 2036, 2037, 5 2038, 2039, 2040, 2040, 2041, 2041, 263, 2042, 2043, 2044, 6 2045, 2046, 2046, 2047, 2048, 2048, 306, 2049, 2050, 2051, 7 2052, 2052, 2053, 2054, 2055, 2056, 2057, 2058, 2059, 2060, 8 2061, 2062, 2063, 2064, 2065, 2066, 2067, 2068, 2069, 2070, 9 2071, 2071, 2072, 2073, 2074, 2075, 2076, 2077, 2078, 2079/ data (jb2(i),i= 2101, 2200)/ + 2080, 2080, 2081, 2082, 2083, 2084, 2085, 2086, 2087, 2088, 1 2089, 2090, 2091, 339, 341, 2092, 2093, 2094, 2095, 2096, 2 2097, 2098, 2099, 2100, 2101, 2102, 2103, 2104, 2105, 2106, 3 2107, 2108, 2109, 2110, 2111, 2112, 2113, 2114, 2115, 2116, 4 2117, 2118, 2119, 2119, 2120, 2121, 2122, 2123, 2124, 2125, 5 2126, 2127, 2128, 2129, 2130, 2131, 2132, 2133, 2134, 2135, 6 2136, 2137, 2138, 2139, 2140, 2141, 2142, 2143, 2144, 2145, 7 2146, 2147, 2148, 2148, 2149, 2150, 2151, 2152, 2154, 2155, 8 2156, 2157, 2157, 2158, 2159, 2160, 2161, 2162, 2163, 2164, 9 2165, 2165, 2166, 2167, 2167, 2168, 2169, 2170, 2171, 2172/ data (jb2(i),i= 2201, 2300)/ + 2173, 2174, 2175, 2176, 2177, 2178, 2179, 2180, 2181, 2181, 1 2182, 2183, 2184, 2185, 2186, 2187, 2187, 2188, 2189, 2190, 2 2191, 2191, 2193, 2194, 2195, 2196, 2197, 2198, 2199, 2200, 3 383, 2192, 2201, 2202, 2203, 2204, 2205, 2206, 2207, 2208, 4 2209, 2210, 2211, 2212, 2213, 2214, 2215, 2216, 2217, 2218, 5 2219, 2220, 2221, 2222, 2222, 2223, 2224, 2225, 2226, 2227, 6 2228, 2229, 2230, 2231, 2232, 2233, 2234, 2235, 2237, 2238, 7 2239, 2239, 2240, 2241, 2242, 2243, 2244, 2245, 2246, 2247, 8 2248, 2249, 2250, 2251, 2252, 2253, 2254, 2255, 2256, 385, 9 2235, 2257, 2258, 2259, 2260, 2261, 2262, 2263, 2264, 2265/ data (jb2(i),i= 2301, 2400)/ + 2265, 2267, 2268, 2269, 2270, 2270, 2271, 448, 2272, 2273, 1 2274, 2275, 476, 2276, 2277, 2278, 2279, 2280, 2281, 2282, 2 2283, 2284, 2285, 2286, 2287, 2288, 2289, 2290, 2291, 2292, 3 2293, 2294, 2295, 2296, 2297, 2298, 2298, 2299, 2300, 2301, 4 2302, 2303, 2304, 2305, 2306, 2306, 553, 2308, 2308, 2310, 5 2311, 2311, 2312, 2313, 2314, 2315, 2316, 2317, 2318, 2319, 6 2320, 2321, 2322, 2322, 2323, 2324, 2325, 2326, 2327, 2328, 7 2329, 2330, 2331, 2332, 2333, 2334, 2335, 2336, 2337, 2338, 8 2339, 2340, 2341, 2342, 2343, 2344, 2345, 2346, 2347, 2348, 9 2348, 2349, 2350, 2350, 2351, 2352, 2353, 2354, 2355, 2356/ data (jb2(i),i= 2401, 2500)/ + 2357, 2358, 2359, 2360, 2361, 2362, 2363, 2364, 2364, 2365, 1 2366, 2367, 2368, 2369, 2370, 2371, 2372, 2373, 2374, 2375, 2 2376, 2376, 2378, 2379, 2380, 2381, 2382, 2383, 2384, 2385, 3 2386, 2386, 2377, 2387, 2388, 2389, 2390, 2391, 2391, 2392, 4 2393, 2394, 2395, 701, 703, 705, 2396, 2396, 2397, 2398, 5 707, 2399, 2400, 2401, 2402, 2403, 2404, 2405, 2406, 2407, 6 2408, 2409, 2410, 2411, 2412, 2413, 2414, 2415, 2416, 2417, 7 2418, 2419, 2420, 2421, 2422, 2423, 2424, 2425, 2426, 2427, 8 2428, 2429, 2430, 2431, 2432, 2433, 2434, 2435, 2436, 2437, 9 2438, 2439, 2439, 2440, 2441, 2441, 2442, 2443, 2444, 2444/ data (jb2(i),i= 2501, 2600)/ + 2446, 2447, 2448, 2449, 2450, 2451, 2452, 2453, 2454, 2455, 1 2456, 2457, 2458, 2459, 2460, 2461, 2462, 2463, 2464, 2465, 2 2466, 2466, 2467, 2468, 2468, 2469, 710, 2470, 2471, 2472, 3 711, 2473, 2474, 712, 2475, 713, 2476, 2477, 2478, 2479, 4 2480, 2481, 2482, 2483, 2483, 2484, 714, 2485, 2486, 2487, 5 2488, 2489, 2490, 716, 2491, 718, 2492, 719, 2493, 2494, 6 2495, 2496, 2497, 2497, 2498, 2500, 2501, 2502, 720, 2503, 7 2503, 2504, 2505, 2506, 2507, 2508, 2509, 721, 2510, 2511, 8 2511, 2512, 2513, 2514, 2515, 2516, 722, 2517, 2517, 2518, 9 2519, 2520, 803, 2521, 2521, 1595, 1596, 2522, 2522, 2523/ data (jb2(i),i= 2601, 2700)/ + 2524, 2524, 2, 3, 4, 5, 6, 7, 8, 9, 1 10, 11, 12, 13, 14, 15, 16, 17, 18, 18, 2 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 3 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 4 40, 41, 42, 43, 43, 45, 46, 46, 48, 49, 5 50, 51, 52, 53, 54, 54, 56, 57, 58, 59, 6 60, 61, 62, 63, 63, 65, 66, 66, 68, 69, 7 69, 71, 72, 73, 74, 75, 76, 76, 78, 79, 8 79, 81, 82, 83, 83, 85, 86, 87, 88, 89, 9 90, 91, 91, 93, 94, 94, 96, 97, 98, 98/ data (jb2(i),i= 2701, 2800)/ + 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 1 109, 111, 112, 113, 114, 115, 116, 117, 117, 119, 2 120, 120, 122, 123, 124, 125, 126, 127, 128, 129, 3 129, 131, 132, 133, 133, 135, 136, 137, 137, 139, 4 140, 140, 142, 143, 144, 145, 145, 147, 148, 149, 5 150, 150, 152, 153, 154, 154, 156, 157, 158, 159, 6 159, 161, 162, 163, 163, 165, 166, 167, 168, 169, 7 169, 171, 172, 172, 174, 175, 176, 176, 178, 179, 8 180, 181, 182, 183, 183, 185, 186, 187, 187, 189, 9 190, 191, 191, 193, 194, 195, 196, 196, 198, 199/ data (jb2(i),i= 2801, 2900)/ + 200, 201, 202, 203, 204, 205, 205, 207, 208, 209, 1 209, 211, 212, 212, 214, 215, 216, 217, 218, 218, 2 220, 221, 221, 223, 224, 224, 226, 227, 227, 229, 3 230, 230, 232, 233, 234, 234, 236, 237, 237, 239, 4 240, 240, 242, 243, 244, 244, 246, 247, 248, 248, 5 250, 251, 252, 252, 254, 255, 255, 257, 258, 259, 6 260, 260, 262, 263, 264, 264, 266, 267, 267, 269, 7 270, 271, 271, 273, 274, 275, 276, 277, 277, 279, 8 280, 280, 282, 283, 284, 285, 286, 287, 287, 289, 9 290, 291, 291, 293, 294, 294, 296, 297, 297, 299/ data (jb2(i),i= 2901, 3000)/ + 300, 301, 302, 303, 304, 305, 306, 307, 308, 309, 1 310, 311, 312, 313, 314, 314, 316, 317, 317, 319, 2 320, 320, 322, 323, 323, 325, 326, 326, 328, 329, 3 329, 331, 332, 333, 334, 334, 336, 337, 338, 339, 4 339, 341, 342, 343, 343, 345, 346, 347, 348, 349, 5 349, 351, 352, 352, 354, 355, 356, 357, 358, 358, 6 360, 361, 361, 363, 364, 364, 366, 367, 368, 368, 7 370, 371, 371, 373, 374, 375, 375, 377, 378, 378, 8 380, 381, 381, 383, 384, 385, 385, 387, 388, 388, 9 390, 391, 391, 393, 394, 394, 396, 397, 398, 398/ data (jb2(i),i= 3001, 3100)/ + 400, 401, 401, 403, 404, 404, 406, 407, 407, 409, 1 410, 410, 412, 413, 413, 415, 416, 416, 418, 419, 2 420, 421, 421, 423, 424, 425, 426, 427, 428, 429, 3 429, 431, 432, 433, 433, 435, 436, 437, 438, 438, 4 440, 441, 441, 443, 444, 445, 446, 447, 448, 449, 5 450, 450, 452, 453, 453, 455, 456, 457, 457, 459, 6 460, 460, 462, 463, 464, 464, 466, 467, 468, 468, 7 470, 471, 471, 473, 474, 474, 476, 477, 477, 479, 8 480, 481, 482, 482, 484, 485, 486, 486, 488, 489, 9 490, 490, 492, 493, 493, 495, 496, 497, 498, 499/ data (jb2(i),i= 3101, 3200)/ + 500, 501, 502, 503, 504, 505, 505, 507, 508, 509, 1 509, 511, 512, 513, 513, 515, 516, 517, 517, 519, 2 520, 521, 521, 523, 524, 525, 525, 527, 528, 529, 3 529, 531, 532, 533, 533, 535, 536, 536, 538, 539, 4 540, 541, 541, 543, 544, 544, 546, 547, 547, 549, 5 550, 551, 551, 553, 554, 554, 556, 557, 558, 559, 6 560, 561, 562, 563, 564, 565, 566, 567, 568, 569, 7 570, 571, 572, 573, 573, 575, 576, 576, 578, 579, 8 580, 581, 582, 583, 584, 584, 586, 587, 587, 589, 9 590, 591, 592, 593, 594, 595, 596, 596, 598, 599/ data (jb2(i),i= 3201, 3300)/ + 600, 601, 602, 603, 604, 604, 606, 607, 608, 609, 1 609, 611, 612, 613, 613, 615, 616, 616, 618, 619, 2 620, 621, 622, 623, 624, 625, 626, 627, 628, 629, 3 630, 631, 631, 633, 634, 634, 636, 637, 638, 638, 4 640, 641, 641, 643, 644, 645, 645, 647, 648, 649, 5 649, 651, 652, 653, 654, 655, 656, 657, 657, 659, 6 660, 661, 661, 663, 664, 664, 666, 667, 667, 669, 7 670, 670, 672, 673, 674, 675, 676, 677, 678, 679, 8 680, 681, 682, 683, 683, 685, 686, 686, 688, 689, 9 690, 690, 692, 693, 693, 695, 696, 696, 698, 699/ data (jb2(i),i= 3301, 3400)/ + 700, 700, 702, 703, 704, 704, 706, 707, 708, 709, 1 710, 711, 712, 713, 714, 715, 716, 717, 718, 719, 2 720, 721, 722, 723, 724, 725, 726, 727, 728, 729, 3 730, 731, 732, 733, 734, 735, 736, 737, 737, 739, 4 740, 741, 741, 743, 744, 745, 745, 747, 748, 749, 5 750, 751, 752, 753, 754, 754, 756, 757, 758, 758, 6 760, 761, 762, 763, 763, 765, 766, 767, 768, 769, 7 770, 771, 772, 773, 774, 775, 776, 776, 778, 779, 8 780, 780, 782, 783, 784, 784, 786, 787, 788, 789, 9 790, 791, 791, 793, 794, 795, 795, 797, 798, 798/ data (jb2(i),i= 3401, 3500)/ + 800, 801, 802, 802, 804, 805, 805, 807, 808, 808, 1 810, 811, 811, 813, 814, 814, 816, 817, 817, 819, 2 820, 820, 822, 823, 824, 825, 825, 827, 828, 829, 3 829, 831, 832, 833, 833, 835, 836, 837, 837, 839, 4 840, 841, 842, 842, 844, 845, 846, 846, 848, 849, 5 850, 850, 852, 853, 854, 854, 856, 857, 857, 859, 6 860, 861, 861, 863, 864, 864, 866, 867, 868, 869, 7 870, 870, 872, 873, 874, 874, 876, 877, 877, 879, 8 880, 880, 882, 883, 883, 885, 886, 887, 888, 889, 9 890, 891, 892, 893, 894, 895, 896, 897, 898, 899/ data (jb2(i),i= 3501, 3600)/ + 900, 901, 902, 903, 904, 905, 906, 907, 908, 909, 1 910, 911, 912, 913, 914, 915, 916, 917, 918, 919, 2 920, 921, 922, 923, 924, 925, 926, 927, 928, 929, 3 930, 930, 932, 933, 933, 935, 936, 937, 938, 938, 4 940, 941, 942, 942, 944, 945, 946, 946, 948, 949, 5 950, 950, 952, 953, 953, 955, 956, 957, 957, 959, 6 960, 961, 961, 963, 964, 965, 966, 967, 968, 969, 7 970, 971, 972, 973, 974, 974, 976, 977, 978, 978, 8 980, 981, 981, 983, 984, 985, 985, 987, 988, 988, 9 990, 991, 991, 993, 994, 995, 995, 997, 998, 999/ data (jb2(i),i= 3601, 3700)/ + 999, 1001, 1002, 1003, 1004, 1005, 1005, 1007, 1008, 1008, 1 1010, 1011, 1011, 1013, 1014, 1015, 1015, 1017, 1018, 1019, 2 1019, 1021, 1022, 1023, 1024, 1025, 1026, 1027, 1027, 1029, 3 1030, 1031, 1032, 1033, 1034, 1035, 1036, 1037, 1038, 1039, 4 1040, 1041, 1042, 1043, 1044, 1045, 1046, 1047, 1048, 1048, 5 1050, 1051, 1052, 1053, 1054, 1054, 1056, 1057, 1058, 1058, 6 1060, 1061, 1061, 1063, 1064, 1064, 1066, 1067, 1068, 1068, 7 1070, 1071, 1071, 1073, 1074, 1075, 1075, 1077, 1078, 1079, 8 1079, 1081, 1082, 1083, 1084, 1084, 1086, 1087, 1087, 1089, 9 1090, 1091, 1091, 1093, 1094, 1095, 1096, 1097, 1097, 1099/ data (jb2(i),i= 3701, 3800)/ + 1100, 1101, 1101, 1103, 1104, 1105, 1106, 1107, 1108, 1109, 1 1110, 1111, 1112, 1113, 1114, 1115, 1116, 1117, 1118, 1119, 2 1120, 1120, 1122, 1123, 1123, 1125, 1126, 1126, 1128, 1129, 3 1129, 1131, 1132, 1133, 1133, 1135, 1136, 1136, 1138, 1139, 4 1139, 1141, 1142, 1142, 1144, 1145, 1145, 1147, 1148, 1149, 5 1150, 1151, 1151, 1153, 1154, 1154, 1156, 1157, 1157, 1159, 6 1160, 1160, 1162, 1163, 1163, 1165, 1166, 1167, 1168, 1169, 7 1169, 1171, 1172, 1172, 1174, 1175, 1175, 1177, 1178, 1178, 8 1180, 1181, 1181, 1183, 1184, 1185, 1186, 1186, 1188, 1189, 9 1189, 1191, 1192, 1192, 1194, 1195, 1196, 1197, 1198, 1198/ data (jb2(i),i= 3801, 3850)/ + 1200, 1201, 1202, 1203, 1204, 1205, 1205, 1207, 1208, 1209, 1 1210, 1211, 1212, 1213, 1214, 1215, 1216, 1217, 1218, 1219, 2 1219, 1221, 1222, 1223, 1224, 1225, 1225, 1227, 1228, 1228, 3 1230, 1231, 1232, 1233, 1234, 1235, 1236, 1237, 1238, 1239, 4 1240, 1240, 1242, 1243, 1244, 1245, 1246, 1247, 1248, 1248/ c state=istate irot=jrot npart=ipart do i=1,5 jv(i)=kv(i) jb(i)=kb(i) ib(i)=iib(i) enddo do i=1,jv(npart+1)-1 ix(i)=jx(i) iy(i)=jy(i) enddo do i=1,jb(npart+1)-1 ib1(i)=jb1(i) ib2(i)=jb2(i) enddo return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine ga(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(*) :: jv,jb,ib,ix,iy,ib1,ib2 integer(kind=iknd), save, dimension(5) :: kv,kb,iib integer(kind=iknd), save, dimension(4230) :: jx,jy integer(kind=iknd), save, dimension(4390) :: jb1,jb2 integer(kind=iknd), save :: jrot,ipart character(len=80) :: state character(len=80), save :: istate cy data istate/'georgia '/ data jrot,ipart/0,2/ data kv/ 1,4090,4230, 0, 0/ data kb/ 1,4249,4389, 0, 0/ data iib/ 854, 140, 0, 0, 0/ data (jx(i),i= 1, 100)/ + 16968,10704,23640,21744,13464,27408,29232, 9744, 7896,15120, 1 7944,31632,29352, 8400,32136,34800, 8712,36792, 8976, 9312, 2 40176, 9648,42024,10056,43752,10440,46800,11376,48336,12360, 3 12768,50736,49296,11184,10368,48984,50760,50424,49656,11208, 4 48024,11232,46752,39720,37704,12768,20712,42984,17688,24192, 5 28128,30360,36000, 7392,26688,26688,29256,29568,29568,29784, 6 29736,29856,29928,30072,30120,30264,30288,30384,30384,30552, 7 30648,30744,30768,31056,31176,31224,31368,31440,31464,31632, 8 31512,31632,31584,31776,31728,29280,29232,29352,29352,29712, 9 29856,30192,30336,30768,31032,30984,31104,31320,31440,31824/ data (jx(i),i= 101, 200)/ + 31824,31968,32088,32592,32760,32928,33096,33216,33384,33552, 1 33792,33984,34248,34560,36504,36480,36192,36024,36024,35688, 2 35328,35088,35112,35016,36936,37248,37512,38160,38448,38760, 3 38904,39288,39408,39528,39864,40008,40320,40344,40464,40728, 4 40944,41256,41352,41832,42312,42432,42984,43128,43128,42984, 5 43008,42840,42936,43032,42984,42840,42816,42912,42888,43176, 6 43080,43176,43176,43272,43296,43368,43440,43440,43608,43656, 7 43728,43800,43752,43656,43656,43800,43968,43800,43848,43752, 8 43992,44160,44208,44448,44472,44568,44664,44544,44592,45024, 9 45576,45768,46128,46104,46224,46224,46368,46512,46560,46632/ data (jx(i),i= 201, 300)/ + 46584,10464,10680,10728,10584,10608,11016,10824,10824,10872, 1 11040,11088,11040,11088,11304,11136,11352,11304,47112,47064, 2 47136,47208,47304,47232,47304,47232,47184,47136,47112,47208, 3 47208,47376,47424,47568,47568,47472,47424,47496,47568,47712, 4 47640,47760,47808,47904,48000,47928,48000,47952,47928,47976, 5 47928,48048,47904,48000,48120,48000,48120,48144,48048,48048, 6 47952,48144,48240,48144,48264,48072,48024,11424,11904,12120, 7 12168,12456,12288,12384,12192,12216,48384,48504,48576,48648, 8 48648,48792,49032,49200,49248,49296,49320,49416,49488,49680, 9 49848,49848,50328,50280,50160,50208,50136,50160,50424,50400/ data (jx(i),i= 301, 400)/ + 50640,50616,50760,50904,50832,51000,50952,50736,50736,50640, 1 12240,12192,12000,11976,12600,13104,12912,12744,12744,12840, 2 49440,49464,49632,49560,49752,49776,50136,50232,50112,50304, 3 50496,50664,50856,51120,51264,51312,51240,51000,50808,50712, 4 50304,50280,50592,50328,50304,50472,50544,50712,50904,51024, 5 51144,51000,50760,50832,50928,50856,51048,51072,51216,51240, 6 51480,51816,51984,52200,52200,52272,52920,52536,52320,52344, 7 52296,52056,52032,52128,52056,51984,51984,51840,51960,52176, 8 52224,52152,52176,52392,52512,52704,52584,52776,52896,52872, 9 52728,52728,52536,52752,52968,52992,52872,52968,52920,53400/ data (jx(i),i= 401, 500)/ + 53664,53688,53592,53688,53712,53760,53784,53736,53376,53256, 1 53040,52800,52632,52368,52200,51960,51600,51432,51240,51024, 2 50952,51024,50880,50976,51096,50976,51048,50664,12720,12240, 3 12192,12336,11832,11328,11424,11352,11328,50544,50424,50184, 4 49968,49992,50136,50112,49848,49728,49728,49488,49488,49392, 5 49368,11208,11016,11016,10704,10728,10488,10536,10392,10464, 6 50376,50472,50448,50208,50520,50496,50424,50136,49944,49608, 7 49512,49488,49320,49128,51168,51576,51648,51744,51816,51600, 8 51552,51264,50808,50640,50472,50544,10488,10560,10488,10512, 9 10920,10872,11088,11112,11256,49656,49872,49848,49992,50184/ data (jx(i),i= 501, 600)/ + 50136,50040,49968,49824,49824,49704,49584,49536,49560,49296, 1 49080,48984,48936,48936,48768,48648,48528,48504,48576,48816, 2 48888,48888,49056,49176,49488,49560,49512,49224,49176,49536, 3 49824,49968,49896,50016,50040,50208,50448,50328,50088,49944, 4 49848,49848,49656,49416,49320,49176,49104,49080,48936,48816, 5 48768,48696,48696,48888,48960,48792,48768,48624,48384,48384, 6 48528,48744,48984,49200,49176,49080,49128,49224,49272,49320, 7 49296,49056,48888,48792,48408,47808,47568,47304,47328,47568, 8 47880,48024,48288,48360,48120,48984,49032,49392,49416,49848, 9 49968,50304,50136,49848,49656,49440,49392,49440,49608,50160/ data (jx(i),i= 601, 700)/ + 50496,50232,50376,50592,50664,50832,50880,50832,50760,50880, 1 50880,50568,50424,50304,50352,50232,50184,50112,50064,49992, 2 49752,10944,10968,10872,10824,10656,10752,10680,10608,10464, 3 10416,10560,10536,10464,10464,10560,10536,10752,10968,11136, 4 11208,48024,48192,48192,48264,48312,48240,48432,48720,49176, 5 49368,49296,49296,49368,49344,49464,49536,49344,49320,49176, 6 49032,48816,48768,49032,48528,48456,48480,48288,48144,47976, 7 47928,48024,48024,47976,47832,47544,47520,47616,47640,47736, 8 47688,47496,47184,47160,46944,46872,46608,46560,46296,45936, 9 45960,46056,46488,46584,46752,46752,46584,46584,46704,46872/ data (jx(i),i= 701, 800)/ + 47016,47016,46896,46920,47376,47376,47208,47136,46800,11376, 1 11448,11664,11640,11736,12096,12072,12168,12048,12240,12480, 2 12504,43104,43200,43344,43464,43656,43944,44136,44232,44376, 3 44640,44856,45072,45312,45360,45336,45240,45240,45456,45408, 4 45552,45528,45600,45816,45840,45984,46056,46104,46272,46392, 5 46440,46584,46704,46800,47088,47136,47088,47208,47184,46704, 6 46752,46944,46968,46704,46656,46488,46368,46296,46224,46320, 7 46464,46560,46800,46944,47064,47160,47232,47232,46944,46944, 8 47280,47352,47640,47592,47400,47280,47184,46896,46824,46704, 9 46536,46032,45888,45696,45576,45600,45672,45960,46128,46464/ data (jx(i),i= 801, 900)/ + 46608,46752,47016,47112,47136,47232,47472,47496,47280,47256, 1 47088,47016,46800,42984,42912,42696,42648,42456,42384,42384, 2 42240,42120,41952,41808,41760,41832,41760,41568,41544,41592, 3 41448,41472,41712,41808,41880,41760,41808,41760,41568,41592, 4 41496,41592,41448,41280,40800,40296,40128,40008,39840,39888, 5 39840,39648,39528,39600,16944,16896,11760,11616,11616,11208, 6 11256,10632,25080,25104,24936,24984,24840,24816,24888,24840, 7 24720,24528,24528,24624,24624,24384,24384,23808,23784,23640, 8 23544,21336,21912,22008,22032,21744,21672,21576,21528,21576, 9 21720,21816,21936,21864,21696,21408,21408,21336,21240,20976/ data (jx(i),i= 901, 1000)/ + 20952,20688,20520,20544,20448,20448,20376,20424,19872,19752, 1 19704,19728,19320,18888,18864,17976,16464,16512,16680,16728, 2 16680,16992,17232,17184,17064,13464,13296,13272,13104,13008, 3 12984,12912,12888,12624,12600,12168,12168,12000,12000,11904, 4 27408,26880,26952,26904,26616,26568,26448,26376,26328,26256, 5 26280,26352,26064,26184,25464,25824,12600,12648,11496,24648, 6 24600,24624,24576,24312,26112,26160,26376,26520,26568,26520, 7 26592,26592,26424,26424,26352,26352,26184,26184,26424,26328, 8 26400,26400,26616,26592,26424,26136,26112,28920,28752,28560, 9 28536,28320,28296,28128,28008,27768,27696,27456,27456,27312/ data (jx(i),i= 1001, 1100)/ + 27216,27264,27096,26976,26808,26736, 9000, 8808, 8760, 8688, 1 8640, 8352, 8328,15072,14880,14784,14832,14952,14856,15000, 2 14880,14760,14808,14736,14640,14664,14544,14616,14736,14760, 3 14376,14472,14568,14568,14400,14568,14520,14472,14280,14208, 4 13896,13800,13824,14232,14208,14088,13992,13800,13680,13728, 5 13824,13848,13968,13944,24288,24144,24168,24096,24144,24120, 6 24144,24096,24096,24216,24192,24288,24288,24408,24408,24504, 7 24504,24384,24384,13800,13824,12600,24192,24120,23952,23904, 8 23520,23064,22968,22656,22584,22512,22536,22440,22224,22200, 9 22032,21672,21552,21552,21456,21384,21048,21192,21288,12024/ data (jx(i),i= 1101, 1200)/ + 20976,12384,12552,12528,16200,16200,15960,15960,15720,15720, 1 15792,15816,15888,15888,15600,15552,15360,15264,15240,14424, 2 14424,13992,13992,19488,19488,19608,19584,19656,19824,19872, 3 20016,20184,20160,20376,20400,20688,20784,16464,19224,19200, 4 18696,18696,18624,18264,18264,18096,18096,18192,18192,17928, 5 17928,17856,17832,17760,17760,23016,21792,21864,21720,20976, 6 21024,12360,12432,12432,12168,12144,11928,12096,12144,12048, 7 11952,11976,12144,12696,12768,12960,30888,28968,28728,24912, 8 24912,25032,25008,29112,28128,26592,26688,26856,26928,27120, 9 27120,27192,27360,11616,11256,10896,10920,10824,10824,10656/ data (jx(i),i= 1201, 1300)/ + 10560, 9696, 9312, 9192, 9240, 9144,31680,31536,31656,31536, 1 31464,24384,24048,24024,23928,23928,23616,23592,23712,23712, 2 23256,23088,23088,16416,16416,16512,16512,16440,15624,15624, 3 13440,13464,13296,13272,13200,13200,13104,13104,12960,20280, 4 20328,19704,19464,17112,17088,18456,18480,18648,18648,18864, 5 18864,18960,18960,20256,23208,23160,23112,22968,23040,22992, 6 23016,22968,23088,23040,22968,26496,26328,26208,26136,26040, 7 26208,26232,26328,26448,26496,30864,30576,30480,30264,30216, 8 29880,29856,29760,29640,29352,29064,28872,28728,29256,29208, 9 31800,31440,20184,32376,32664,32592,32736,32904,32952,33384/ data (jx(i),i= 1301, 1400)/ + 34152,34272,28896,28608,27864,27768,27720,27648,27048,16200, 1 16368,16464,16488,16392,23304,23232,23352,23496,23472,23208, 2 23232,23040,23016,23088,23064,22944,22848,22248,22152,22104, 3 24504,24000,21696,21528,21624,21912,22104,12408,12480,12696, 4 12696,12792,12792,12696,12768,12936,11664,11640,11304,11304, 5 10320,10320,13608,13536,13536,13464,13464,12384,13704,13704, 6 13872,13872,15432,16032,16032,16080,19512,19416,19248,19152, 7 18888,18768,18600,18576,16560,16512,16560,16560,16680,16632, 8 17664,17664,17712,20160,20208,20424,20616,20688,20856,20928, 9 21288,21384,19992,20088,20040,20088,20088,20184,20304,20520/ data (jx(i),i= 1401, 1500)/ + 20688,20688,20784,20880,21000,21120,21432,28992,29040,28848, 1 28776,28848,28776,28704,28992,32760,32736,32640,32616,32520, 2 32472,32400,32184,32232,32064,32064,31896,31728,31536,31656, 3 31632,18576,18720,18744,18960,18960,18816,18240,18288,18096, 4 18072,18120,17952,16848,32472,32376,32040,31632,31584,31464, 5 31440,31296,30912,30624,30432,30336,30312,30192,29976,29352, 6 29616,29736,29904,27216,27600,27552,27744,28728,28656,28728, 7 28800,24552,24744,24768,25008,25296,25368,25416,25440,25512, 8 25560,25680,25776,25800,25872,25944,26064,26112,26184,26328, 9 26472,26616,26880,26904,26976,36408,36168,36048,36048,36000/ data (jx(i),i= 1501, 1600)/ + 34680,34080,34032,33840,33816,33624,33480,33432,33216,33072, 1 33144,32976,35904,35472,35232,34920,12288,12312,13008,10680, 2 10680,24624,24480,24312,24240,23952,26112,24960,24984,25176, 3 25272,25560,25824,12360,12408,37584,37272,36648,36456,36576, 4 36696,36624,36360,29880,29856,29808,29880,29880,29760,29784, 5 30120,29760,27504,27888,28008,28368,28704,28728,28872,28944, 6 29064,29256,29256,15360,15528,15456,13704,26232,26304,26736, 7 26688,26808,26808,27120,27240,27216,27480,14088,15432,22776, 8 29448,29592,29568,29688,29640,29688,16464,22272,20040,19968, 9 20112,20352,20616,21072,21288,21480,21864,22128,23424,31272/ data (jx(i),i= 1601, 1700)/ + 31968,32304,32496,29544,29568,28440,32952,32856,32592,32688, 1 32856,33000,33216,33360,33480,33744,33912,34008,34224,34416, 2 34536,12240,12192,12024,12024,11544,11400,11400,11304, 9792, 3 27648,27696,27816,27912,28056,28248,28320,32568,19344,19224, 4 19080,19752,20688,20328,20304,20112,20112,38112,38160,38232, 5 38232,38304,38328,38424,38424,38640,38640,38760,38760,38856, 6 38832,38952,39072,39288,39624,39936,40080,22008,21384,21264, 7 21144,21024,20904,20832,20856,37944,37944,38064,38040,38136, 8 38232,38232,38016,37968,38496,38328,38352,38496,38496,38568, 9 38688,38976,38928,39000,39216,39360,37560,37368,37320,37320/ data (jx(i),i= 1701, 1800)/ + 37200,37152,37008,36936,36840,36792,36720,36648,36576,36480, 1 36216,36240,36144,36216,36048,35952,35952,35880,37776,37872, 2 38040,16776,16704,16560,16320,16296,16104,16104,16056,15504, 3 15312,15240,15096,15000,14568,14520,13560,13656,13584,13584, 4 13656,25680,25512,25584,25176,24936,35592,35688,35808,35856, 5 33600,33672,33600,33672,33888,34056,34152,34272,34848,35136, 6 35232,35472,35520,18024,17976,28536,28680,28800,28872,28968, 7 28968,29064,29088,29184,29304,29448,29424,29544,29664,29736, 8 29616,29592,29664,29616,14352,14280,14424,14304,14064,23376, 9 23424,23376,23304,23376,23232,22080,20736,21216,21288,21480/ data (jx(i),i= 1801, 1900)/ + 21912,21960,25608,25704,25656,16632,16464,16344,16344,16032, 1 14016,13824,13536,13344,13200,13008,12720,12672,12696,12432, 2 12408,32256,32544,32544,32280,32520,32400,32544,32616,32688, 3 32736,32928,32808,32664,23232,22992,23016,22248,22104,21960, 4 27096,33864,33720,33984,34008,34152,34176,34248,34488,34704, 5 34896,34968,35160,35136,35352,35352,35424,35496,33552,33456, 6 32976,32832,32544,26904,23808,23952,24120,24024,24000,24168, 7 24216,24336,24744,25104,25416,25344,25416,25584,25704,25632, 8 25584,23352,23496,23520,23664,23712,23784,18600,18528,18528, 9 18624,18552,18648,18576,18480,18480,18600,18600,18672,18696/ data (jx(i),i= 1901, 2000)/ + 18528,18432,18336,18336,18216,18168,19752,19848,19848,19944, 1 19920,20016,20016,20112,20112,20016,20016,19920,19896,19680, 2 19680,19584,19560,19464,19464,19272,19272,18960,18936,30744, 3 30696,30600,30504,30504,30432,30360,30264,30240,30144,30192, 4 30264,30144,29952,30000,29784,29832,29664,24144,24264,24072, 5 24264,24072,24144,24000,24024,23808,23856,21408,21408,21696, 6 21720,21912,21912,22008,22008,22104,22128,22296,22632,22632, 7 22728,22728,19992,19992,20952,20928,21000,21168,21552,21192, 8 21240,21192,21168,38760,36504,36816,36888,36840,36984,37344, 9 37800,38040,38136,38208,38472,16296,16248,16368,16560,16632/ data (jx(i),i= 2001, 2100)/ + 16728,16848,17136,17280,17328,17472,18648,18576,18624,18600, 1 18216,18120,12888,13008,13008,12936,13080,39624,39336,39288, 2 38976,37992,17400,17376,17424,17352,17472,34776,34992,35304, 3 35544,35880,36336,36432,36720,33960,34032,34128,34128,34080, 4 34176,34152,34224,34320,34344,34368,34440,34392,34392,34536, 5 34488,34704,11280,11280,11376,11376,11472,11472,11568,11568, 6 11880,12000,12048,13824,13824,13728,13752,13824,13824,15936, 7 15936,15696,15624,15504,15504,15288,15288,13920,13920,34848, 8 34848,21984,17496,17448,43680,43416,43248,42936,42768,42456, 9 42168,42000,41688,41328,41016,40944,40584,19920,18672,18696/ data (jx(i),i= 2101, 2200)/ + 18480,18480,17904,17832,17688,17616,20136,20160,21168,23712, 1 23856,23952,30936,30864,30912,30672,30336,30216,30072,30120, 2 30072,29976,29832,29832,29736,29616,29616,28032,29424,29304, 3 29160,29160,29064,29040,28920,28800,28704,28728,28608,28464, 4 28368,28296,28176,28056,25920,24576,24552,24192,24120,24216, 5 34944,34896,34992,34920,34920,35112,35280,35400,35688,35880, 6 35904,36288,36504,36504,36552,36456,36456,34536,34344,34056, 7 34008,33768,33432,33288,32832,32592,32208,31776,24192,24384, 8 24600,24864,24960,25056,25104,25032,25128,25080,25080,25224, 9 25200,31560,31464,31272,31224,31128,31248,31224,31344,31344/ data (jx(i),i= 2201, 2300)/ + 29760,19872,19776,19752,19656,19632,17352,17352,17256,17232, 1 17304,17208,17208,17088,17280,17232,17136,17136,16992,17016, 2 16968,17088,17040,17136,17064,17280,17448,19344,19344,19416, 3 19440,21072,21096,21864,21768,21768,31536,31608,31704,31800, 4 31776,31608,31728,31752,31848,31152,30984,30816,30768,30696, 5 30504,30648,30240,29592,29640,29520,29400,28704,13680,17232, 6 17184,17040,17040,17136,17088,16992,13680,28200,44544,13896, 7 14616,15288,16584,17232,21048,24984,24984,23352,22584,22608, 8 22488,22488,27120,27096,27024,26616,26496,26304,25704,25656, 9 25344,25296,39072,39528,39360,39600,39768,39960,39888,39792/ data (jx(i),i= 2301, 2400)/ + 35808,35904,35880,36024,36000,36144,36096,36240,36288,36480, 1 36696,36768,36864,37152,37008,36984,37032,44376,44064,44040, 2 43944,43656,42672,41424,40992,40752,40776,41376,42168,40656, 3 40080,39984,39792,39672,39192,19392,19224,19104,19008,18888, 4 18744,18696,18696,18624,18432,18360,18144,17952,17856,17712, 5 17616,17520,17448,17376,17544,17328,27360,27264,27312,26448, 6 26376,26304,26232,26208,26256,26232,26112,26232,32760,34224, 7 34248,34488,34536,35112,35424,35568,36120,36624,31656,31776, 8 31752,31992,32256,32520,32544,32688,32664,32640,37488,37704, 9 37872,38040,38112,38232,38232,38136,38112,38040,38064,38304/ data (jx(i),i= 2401, 2500)/ + 38544,38688,38760,38976,20256,20280,20760,20952,20952,20040, 1 19872,19944,19896,19824,19704,19608,32640,32760,25224,25128, 2 23352,23448,23496,23688,24000,24240,24624,24816,26160,25776, 3 25560,46704,46416,46224,46128,46032,46008,45912,45792,45720, 4 45624,45552,45432,45288,45120,45000,44904,44856,44736,44664, 5 44448,44352,44376,44208,44160,44016,43920,43776,43512,43536, 6 15360,15312,15360,15360,15408,15408,15312,15288,15240,15192, 7 15192,15288,15240,13104,13104,19320,19200,19008,18864,18840, 8 18576,18456,18288,18120,18096,17736,29928,31632,15216,15504, 9 15360,15384,15216,17256,17256,17112,17112,16848,16848,16752/ data (jx(i),i= 2501, 2600)/ + 16752,16656,16632,16512,16536,16296,16200,16104,15960,15792, 1 15648,15384,22152,22632,22632,22728,22728,22896,22896,22992, 2 24552,22032,22008,21936,21816,21720,21720,21672,21696,21552, 3 21456,21624,21552,21480,21264,21168,21168,20904,20784,20592, 4 41880,22152,21984,33600,34344,34272,35520,35424,35688,35880, 5 36144,36168,36216,36264,36336,36552,36288,36240,37080,37008, 6 37224,37272,37560,37296,37224,37512,37680,23688,23616,23424, 7 23376,23136,22920,22920,22848,22944,22848,22848,22464,22464, 8 22296,22296,46800,27168,28080,28056,28128,28176,26328,26400, 9 26592,26760,26784,26712,26832,26832,26712,26688,26784,26832/ data (jx(i),i= 2601, 2700)/ + 26952,26928,27024,27264,27240,25128,25128,24936,24936,25008, 1 25008,25056,25008,24960,24696,24672,24384,24384,24288,24288, 2 24192,24168,23976,23976,23856,23880,23712,17736,17640,17640, 3 17736,17736,17832,17808,17904,17904,18048,18024,18168,18192, 4 18312,30768,12624,13368,13920,14040,14184,14328,14400,14568, 5 14712,14904,27168,27288,27312,27264,21984,21816,21816,21624, 6 21624,21432,21432,21048,21048,20928,20160,19656,19584,19560, 7 18312,18504,18480,18576,18576,18672,18672,18888,18864,35976, 8 36552,36840,37200,37896,37968,38232,38352,38232,38208,38064, 9 38064,15768,15576,15456,41376,40704,40368,40296,39624,39768/ data (jx(i),i= 2701, 2800)/ + 39768,39840,23616,23640,23544,23568,23760,23760,23784,23688, 1 34920,34848,34824,34680,34800,34872,34848,34896,34992,34992, 2 35088,35184,35136,35256,35232,35328,35544,35688,35832,35832, 3 35616,25944,26904,27096,25104,25104,24912,24912,35592,35640, 4 35184,35448,35472,39360,38616,38568,38376,38208,38136,30432, 5 29088,29280,28776,28728,28656,28704,28656,15552,41904,13992, 6 13992,13896,13896,42480,42384,42432,42528,42552,42768,42816, 7 42984,42600,42480,44352,44352,44232,44136,44112,43992,43752, 8 43608,43224,43008,42624,42528,20256,19872,19896,19536,20736, 9 20712,21168,21336,21576,21768,47808,47856,47808,47784,47688/ data (jx(i),i= 2801, 2900)/ + 47712,47640,47640,47520,47520,47304,47280,47112,47088,46944, 1 46968,46848,46848,46728,46824,46800,46920,46872,46776,46824, 2 18312,18192,18192,17952,17952,17760,17736,17832,17832,17736, 3 17736,33264,33336,33408,33480,33528,34440,34512,34584,34512, 4 23136,23112,22416,22224,21936,21768,19248,19224,19344,19344, 5 19440,19416,20208,17712,16728,16752,16656,16656,16560,16560, 6 16368,16368,16032,16032,15936,15936,15816,15840,32184,33384, 7 32808,25968,26016,25920,25944,26040,26040,28368,29184,28824, 8 29064,28704,28512,28536,28392,27912,27912,27720,27720,26640, 9 26640,26544,26544,44976,44760,44592,44592,44376,50232,48288/ data (jx(i),i= 2901, 3000)/ + 47928,47880,48048,48000,48072,48048,48168,48096,48120,48144, 1 48312,48480,48432,48504,48504,48792,48816,48936,48936,48984, 2 48960,49008,49032,49128,49080,49104,49296,22392,22392,22320, 3 22320,22224,22248,22152,22272,22128,22152,22056,21912,21960, 4 21840,21720,11280,11280,11496,11496,11784,11784,11904,11904, 5 12384,12384,12264,12264,12360,12336,12552,12528,12720,12720, 6 12840,25944,44544,43248,42336,43896,43992,17640,17568,17520, 7 37296,37728,37752,43728,43512,43392,43248,43320,43320,43176, 8 43200,43008,42912,42672,42576,42312,42312,42408,15360,15384, 9 15480,15480,15384,15384,15480,15480,15384,15384,15408,15504/ data (jx(i),i= 3001, 3100)/ + 15552,15576,15480,15480,15576,15624,15696,15720,15624,15624, 1 15552,13800,13800,13896,13896,15048,15072,15168,15168,15912, 2 37512,37776,36648,36696,36624,36528,36504,36432,36144,36144, 3 36072,36120,36024,36000,36072,35952,36024,35880,35976,35928, 4 36000,35904,35808,35976,35976,35880,35832,35808,35880,35760, 5 35784,35640,35760,35664,35664,35616,35664,17472,17400,17400, 6 37152,37104,37296,37200,36768,22488,22536,22728,22704,22776, 7 22752,48336,48336,48216,48240,48120,48168,48096,47928,47520, 8 47400,47304,47208,47136,47040,46968,46800,46632,46512,46368, 9 46248,46224,46152,46128,45984,45960,45792,45648,45552,45432/ data (jx(i),i= 3101, 3200)/ + 45384,45288,45264,45024,35616,35136,34824,34416,34248,34008, 1 33720,33528,33384,33216,33072,33048,32928,32712,36408,36144, 2 36072,35952,32760,32832,32760,32544,32664,29976,28824,28896, 3 28992,29088,29040,29040,28968,29088,29064,29160,29064,29256, 4 29256,29136,29136,29184,29184,29400,29568,29664,29664,29760, 5 29736,29832,29880,39912,40080,40200,40320,40200,40080,40008, 6 40032,39888,38016,38016,38088,38088,38232,38208,38256,38376, 7 38328,38448,38952,39048,39096,39192,39264,39432,39528,39624, 8 39744,39792,18552,18552,17736,18096,18336,40200,40200,40512, 9 40632,40776,40752,40920,40944,40992,41040,40944,41040,41280/ data (jx(i),i= 3201, 3300)/ + 41616,47232,45720,45696,45528,45192,45000,44856,44784,44616, 1 44472,44472,44688,44712,44640,44160,22560,22584,22680,22608, 2 22680,22632,25848,27192,30240,30192,30240,30192,30120,30048, 3 29976,30192,29904,11064,11064,11544,11568,12240,12720,23904, 4 23784,23688,23496,23496,23400,23400,25824,33672,33696,33840, 5 33960,33960,34176,34152,34248,34296,34488,34632,34968,35064, 6 35112,35184,35304,35256,49032,48888,48912,48816,48720,48840, 7 48744,48768,48600,48624,48696,48720,48600,48648,48552,48504, 8 48456,48456,50616,50568,50448,33480,33408,33264,33120,33000, 9 32856,32688,32472,32232,32064,31968,31872,31728,31608,31632/ data (jx(i),i= 3301, 3400)/ + 31464,31272,31200,31152,31032,30936,30888,30696,30672,30504, 1 30504,41832,41952,42024,42144,42120,42336,27432,27384,27240, 2 27216,27144,37776,36864,36864,36552,36552,36840,36840,32016, 3 21696,21768,21672,21696,21648,21576,21840,21888,21984,22056, 4 21984,22008,21840,21840,22032,22152,22128,22272,22344,22488, 5 35760,33648,36816,13608,12336,12360,12480,12480,12384,12384, 6 12288,12312,12216,15840,16224,16176,16488,16416,16464,16344, 7 16248,16248,16128,16128,16032,16032,15936,15936,15840,15840, 8 15744,15744,15576,15576,15432,15456,15312,15312,15240,15240, 9 28272,28272,28584,28584,28728,28704,29304,29304,30192,30216/ data (jx(i),i= 3401, 3500)/ + 17304,18864,18888,18696,18720,18912,19032,19320,19272,19320, 1 18960,21432,21528,49512,49176,49008,48768,48624,48528,48480, 2 48408,48192,48000,47808,47712,47592,47472,47544,47496,26904, 3 26928,27000,27048,27336,27432,27288,27408,25392,25416,25344, 4 25248,25200,25200,25128,25056,24912,24840,23928,23952,46464, 5 45480,13536,13536,13632,13632,13536,13560,13656,13656,13776, 6 13584,13584,13488,13488,13584,11424,11400,11832,11976,12096, 7 12336,45408,45312,45288,45168,45120,45144,45144,45096,44904, 8 44856,44808,44736,44664,44688,44520,44424,44400,44472,44208, 9 44256,44160,44136,44040,43992,43944,43992,43896,43800,43824/ data (jx(i),i= 3501, 3600)/ + 43608,43632,43440,43344,43056,42984,43008,42912,42864,42792, 1 42672,42672,42600,42576,45432,45456,45600,45552,45672,45648, 2 45720,45888,45984,45888,37080,37320,37512,37536,37704,37968, 3 38400,38904,39336,39432,39624,39792,26904,27216,27192,27720, 4 27936,28104,28080,28128,28272,28512,30480,31992,31872,31848, 5 31680,31680,31536,31536,31392,31344,31104,30984,30816,30744, 6 15360,13800,13824,13680,13656,13752,13752,13656,13656,13536, 7 17352,17232,17280,17232,17304,17400,17544,17496,17640,17496, 8 17448,21840,21840,22008,22008,21840,21888,22032,22032,21888, 9 21912,21744,21744,21840,21840,21936,21936,20376,35736,36048/ data (jx(i),i= 3601, 3700)/ + 36024,41304,41232,41232,41040,41016,41208,41208,40752,40728, 1 40584,40584,40752,40728,19680,19656,17280,17280,16944,16944, 2 16848,16824,16608,16608,16512,16488,16392,16392,16272,16272, 3 40584,40392,39840,30408,30528,30528,39648,39672,39480,39480, 4 39360,39336,39024,39024,38880,38880,38736,38736,38568,38568, 5 37992,37992,37800,37056,37080,37200,37200,41664,41616,41496, 6 41520,41496,41136,40872,35688,35712,32352,32352,33504,33576, 7 33600,33768,28512,28200,28176,28032,28032,27888,27888,27720, 8 27720,27576,27528,21792,25296,25344,25176,25224,25368,26712, 9 27408,27408,27264,27240,24216,24216,24672,24672,44784,44088/ data (jx(i),i= 3701, 3800)/ + 42840,41736,44856,45120,45048,45192,45456,46008,46080,46344, 1 46512,46656,46608,46752,46776,46872,46968,47088,47304,47448, 2 47592,47760,47784,48000,15240,15312,15408,15408,15312,39168, 3 38880,38808,38496,38400,38304,38328,38136,38136,37968,37968, 4 37800,37800,37968,37968,37800,39288,39768,40104,40296,40512, 5 40608,40608,40632,40704,40896,41112,41424,41976,42072,42144, 6 41928,41664,31416,31368,31440,31392,31560,31416,31224,31152, 7 31056,30912,30792,30744,30504,32184,35232,35040,34920,34968, 8 35328,35592,35664,44760,44616,44400,44256,44256,44400,14928, 9 14808,14784,14688,14712,14592,14592,14496,14256,14256,14160/ data (jx(i),i= 3801, 3900)/ + 14136,12432,12312,16176,16296,16512,16584,16560,16632,16560, 1 16752,16824,16800,16968,16944,17064,17160,17472,17448,17544, 2 17640,17592,17616,17904,18024,18096,18312,18360,18312,18456, 3 18552,18624,18984,19056,19200,19296,19344,19488,19656,19752, 4 19824,19944,19944,19992,19992,20208,20232,14256,17880,15120, 5 15120,20520,21672,21576,21552,21672,21648,26016,26088,26088, 6 26208,26232,26352,26376,26496,26712,26688,26784,26688,46704, 7 46536,46368,46536,46464,46392,46320,46224,45984,45888,45768, 8 45672,45624,45456,45216,44856,44472,26016,24360,23904,23904, 9 23760,23760,21648,26256,26376,26520,26688,26760,26808,27024/ data (jx(i),i= 3901, 4000)/ + 44400,44280,44232,44136,44160,44040,43776,43656,43416,43248, 1 43176,42888,42768,42792,42672,42720,42672,28848,28968,28944, 2 29016,28848,28776,28704,28608,28584,28752,28776,28656,28512, 3 28512,28464,28512,28392,28200,27984,27768,27624,27528,27456, 4 27528,29832,29856,30168,30192,31488,39792,40464,40176,37704, 5 37800,40680,40368,39912,39912,39720,39528,39168,41208,41400, 6 31560,31608,31536,31464,31392,30000,30024,29928,29952,36000, 7 36432,36720,37032,36960,37560,37560,37608,37584,37704,14232, 8 14136,14136,14016,13944,13824,13776,13776,13608,13560,13392, 9 13320,13056,13032,12912,12912,12816,12816,12744,12696,20448/ data (jx(i),i= 4001, 4100)/ + 20640,20880,20808,20880,20784,32112,31992,31896,31752,31704, 1 43104,43056,42960,42912,42864,43128,42912,42864,42984,42936, 2 42984,28056,28056,27768,27720,27552,27504,27312,27216,27144, 3 27000,27024,26856,27024,27144,27120,27192,27264,27216,27408, 4 27576,27792,27936,28008,28152,28248,28272,28056,27744,27648, 5 27600,27504,27360,27384,27456,27336,27336,27216,30384,30576, 6 30576,30384,30408,30456,30408,30408,30456,30528,30744,30744, 7 30912,30912,33384,33384,33552,33480,33504,33672,33768,33888, 8 34176,34536,34920,35112,35808,35976,36072,36000,36072,51456, 9 51576,51648,51408,51360,47544,47568,47496,47496,47976,48096/ data (jx(i),i= 4101, 4200)/ + 48072,48024,48048,48024,47880,47784,47496,47496,47640,47616, 1 47568,47592,47496,47256,47064,47184,47400,47328,47376,47352, 2 47424,47304,47400,46776,46824,46872,46776,47112,47160,47064, 3 47280,47208,47256,47304,47040,47016,47160,47112,46488,46536, 4 46416,46344,46392,47160,47112,47232,47928,48120,48048,48000, 5 47880,47736,47880,47760,47832,47784,47712,47496,47448,47448, 6 47352,47256,47232,47088,47088,47016,47136,47112,47232,47376, 7 47496,47640,47712,47424,47376,47520,47496,46944,46872,46872, 8 47112,47088,49128,49104,49224,49176,49224,49272,47928,47856, 9 47952,47568,47712,47736,47808,47736,47568,49344,49296,49056/ data (jx(i),i= 4201, 4230)/ + 49224,48864,48864,48912,48984,48960,49104,49080,47976,48096, 1 48048,48432,48408,48600,48504,48912,48912,48840,49800,49848, 2 49896,49944,50088,50112,49824,49752,49512,49488,49632, 0/ data (jy(i),i= 1, 100)/ + 61680,61872,61440,61488,61800,61392,58056,61896,57720,61728, 1 57288,55896,57720,53688,55416,52920,51240,48936,49056,46152, 2 45720,43464,44016,39912,40488,36840,38088,33672,32760,30936, 3 29160,28392,25104,26400,23928,23448,23976,23352,21432,20784, 4 17616,15552,14832, 8880, 9048,11184,10512,11928,10776,10200, 5 9840, 9672, 9192,62016,61344,61392,58248,58560,58944,59136, 6 59280,59256,59328,59304,59616,59592,59832,59856,59976,60000, 7 60072,60024,60144,60432,60408,60576,60528,60576,60648,60648, 8 60816,60816,61008,61272,61392,57960,57888,57792,57648,57504, 9 57312,57096,56880,56736,56736,56592,56544,56208,56184,55824/ data (jy(i),i= 101, 200)/ + 55632,55512,55488,55128,55224,55248,55176,55248,55200,55272, 1 55176,54864,53832,53544,49608,49824,50232,50304,50568,51024, 2 51288,52008,52320,52656,48840,48768,48408,47880,47784,47520, 3 47496,47136,46848,46824,46488,45912,45504,45192,44952,44808, 4 44592,44640,44520,44256,43656,43320,43080,42840,42720,42648, 5 42432,42360,42240,41976,41928,41976,41928,41784,41640,41640, 6 41520,41448,41352,41520,41376,41304,41304,41184,41256,41160, 7 41208,41184,41088,41088,40968,40896,40632,40704,40560,40536, 8 40248,40200,40056,40032,40176,40104,39864,39672,39504,39024, 9 38808,38640,38664,38496,38544,38424,38376,38184,38256,38232/ data (jy(i),i= 201, 300)/ + 38088,36672,36624,36528,36384,36096,35712,35568,35472,35328, 1 35304,35208,35016,34728,34344,34104,34008,33912,37872,37800, 2 37656,37704,37632,37560,37488,37152,37104,37152,37128,36888, 3 36792,36648,36336,36336,36288,36264,36144,36096,36120,36000, 4 35712,35784,35664,35688,35568,35496,35352,35280,35160,35088, 5 34968,34896,34824,34800,34656,34560,34560,34512,34368,34152, 6 34032,33912,33552,33528,33432,33288,33168,33456,32880,32520, 7 31848,31536,31296,31104,31032,30984,32688,32712,32568,32592, 8 32520,32424,32376,32400,32304,32376,32304,32304,32016,31872, 9 31848,31656,31224,31128,31056,30984,30888,30744,30384,30216/ data (jy(i),i= 301, 400)/ + 29832,29760,29880,29712,29592,29112,28992,28824,28704,28584, 1 30864,30720,30528,30360,30024,29544,29400,29400,29352,29304, 2 25104,24960,24912,24744,24672,24576,24864,24768,24528,24624, 3 24552,24216,24072,24144,24096,24192,24360,24336,24432,24768, 4 24864,24912,24864,25104,25152,25176,25008,24960,24552,24456, 5 24480,24888,25056,25224,25296,25056,25008,24888,24816,24576, 6 24240,24240,24144,24144,24048,24048,24648,24720,24912,24960, 7 25032,25224,25392,25704,25752,25728,25896,25968,25968,25776, 8 25560,25344,25224,25128,25008,25200,25368,25296,25416,25776, 9 25872,25992,26136,26064,25848,25392,25248,25152,25056,25176/ data (jy(i),i= 401, 500)/ + 25392,25488,25704,25704,25584,25632,25824,26016,25944,26208, 1 26232,26352,26544,26640,26880,26880,26736,26832,27024,27072, 2 27336,27504,27672,27744,27768,27936,28008,28344,29040,29016, 3 28872,28776,28608,28032,27528,27432,26712,24144,24504,24528, 4 24456,24552,24696,24768,24456,24480,24648,24672,24864,24888, 5 25008,26160,26016,25800,25464,25272,25224,25056,24600,24192, 6 23304,23136,23112,23184,22728,22536,22512,22632,22776,22872, 7 22968,23280,23352,23328,23928,23616,23568,23640,23568,23064, 8 22992,22848,22440,22776,22896,23112,23760,23352,23088,22896, 9 22392,22248,22008,21432,21096,21336,21216,21024,21072,20928/ data (jy(i),i= 501, 600)/ + 20688,20568,20520,20592,20472,20472,20688,20664,20448,20616, 1 20472,20712,20616,20424,20448,20376,20400,20280,20232,20376, 2 20328,20280,20256,20112,20256,20184,20040,19824,19680,19776, 3 20184,20160,20040,20016,20160,20280,20064,19968,19464,19296, 4 19272,19104,18864,18432,18480,18744,18912,19104,19032,19104, 5 19224,19224,19056,18912,18792,18672,18480,18648,18576,18384, 6 18432,18360,18528,18336,18264,18240,17976,18000,18216,18168, 7 17736,17760,17952,17856,17952,17976,18288,18192,18072,18024, 8 17856,17784,17832,17712,17568,23376,23256,23208,22872,22680, 9 22512,22272,21984,22056,21960,21960,21888,21816,21720,21696/ data (jy(i),i= 601, 700)/ + 21840,21888,22032,22080,22176,22152,21672,21480,21480,21360, 1 21288,20640,20472,20688,20904,21216,21264,21216,21240,21432, 2 21456,20280,19824,19728,19296,18960,18528,18216,18096,18024, 3 17928,17400,17208,17064,16944,16800,16632,16536,16104,15936, 4 15744,17400,17280,17016,17040,17136,17496,17664,17640,17352, 5 17352,17256,17088,17088,16992,17112,17040,16896,16776,16488, 6 16560,17040,16800,16416,15816,15936,15696,15528,15504,15624, 7 15792,15912,16056,16320,16536,16200,15960,15816,15648,15528, 8 15360,15240,15480,15672,15744,16152,16368,16560,16536,16416, 9 16344,16320,16440,16200,16056,15600,15696,15648,15480,15408/ data (jy(i),i= 701, 800)/ + 15264,15120,15072,14928,14496,14424,14472,14616,14712,15192, 1 14352,14208,13848,13800,13272,12912,12768,12576,11688,11616, 2 11472,11856,11616,11520,11520,11448,11472,11352,11112,11280, 3 11160,10944,10944,10848,10872,10944,10920,10968,11016,10920, 4 10896,10752,10704,10800,10704,10584,10728,10608,10656,10608, 5 10536,10560,10464,10656,10680,10752,10992,10992,11304,11736, 6 11832,11832,11952,11952,12096,12120,12312,12192,12264,12360, 7 12360,12168,12168,12096,12096,12024,12048,12120,12456,12600, 8 12888,13056,13320,13536,13584,13416,13392,13464,13632,13632, 9 13488,13632,13776,13800,13680,13800,13872,13848,13704,13824/ data (jy(i),i= 801, 900)/ + 13800,13848,13656,13632,13848,13728,13920,14040,14040,14304, 1 14400,14520,14616,11808,11784,11832,11904,11856,11760,11568, 2 11328,11328,11472,11472,11376,11136,11040,11016,10728,10512, 3 10128, 9912, 9312, 9216, 8784, 8328, 8208, 7752, 7320, 7128, 4 7008, 6576, 6408, 6360, 6480, 6384, 6456, 6624, 7080, 7872, 5 7992, 8208, 8520, 8784,60072,60120,59256,59256,59328,59352, 6 60288,60312,59088,59376,59472,59688,59904,60096,60264,60432, 7 60528,60480,60432,60432,60360,60360,60528,60720,60912,61152, 8 61224,57456,58416,58416,59280,59232,59256,59376,59736,59904, 9 60048,60048,60312,60336,60648,60816,60912,60936,61080,57288/ data (jy(i),i= 901, 1000)/ + 57384,57528,57720,57768,57888,58272,58272,58368,59328,59328, 1 59400,59448,59616,59832,59904,59928,56880,58608,58896,59112, 2 59184,59328,59664,59856,59904,61608,61608,61248,60768,60768, 3 60432,60432,60360,60336,59832,59832,59760,59760,59856,59856, 4 60840,60768,60528,60456,60432,60240,60216,60096,60072,59664, 5 59496,59400,59160,59208,59160,59040,57480,58656,58704,58944, 6 58776,58560,58368,58272,58992,59016,58800,58776,58704,58560, 7 58488,58296,57984,57720,57648,57576,57480,57408,57024,56904, 8 56688,56544,56208,56088,55920,55752,55632,58320,58248,58320, 9 58440,58416,58296,58296,58200,58320,58296,58392,58488,58512/ data (jy(i),i= 1001, 1100)/ + 58896,58944,59064,59352,59448,59400,60648,60144,59280,59184, 1 58944,58584,58224,61536,61248,60912,60792,60720,60648,60336, 2 60216,60240,60144,60144,59976,59856,59688,59592,59568,59496, 3 59280,59016,58944,58824,58728,58632,58512,58440,58512,58416, 4 58560,58512,58392,58080,57960,57936,58128,58080,58128,57984, 5 57984,57792,57648,57528,57960,57768,57600,57528,57504,57360, 6 57312,57168,56928,56856,56232,56256,56136,56136,56016,56016, 7 55920,55920,55704,57480,57384,57408,58320,58296,58320,58392, 8 58512,58200,57792,57720,57504,57504,57384,57360,57456,57552, 9 57504,57672,57624,57552,57480,57528,57264,57360,57312,57096/ data (jy(i),i= 1101, 1200)/ + 57120,57072,57480,57072,56904,56976,57000,57096,57096,57264, 1 57264,57168,57168,57384,57384,57216,57312,57288,57240,57264, 2 57360,57360,57528,56496,56568,56592,56712,56736,56664,56712, 3 56568,56544,56616,56544,56880,56880,57024,56472,56520,56352, 4 56376,56472,56376,56400,56544,56568,56472,56472,56400,56424, 5 56568,56568,56496,56496,56424,54720,55320,55344,55392,56208, 6 56928,56832,56832,56472,56496,55608,55608,55344,55152,55128, 7 55008,54912,54864,54864,54744,54744,55224,55176,55056,55680, 8 55776,55776,55680,57600,55320,54768,54936,54960,55128,55272, 9 55344,55344,55464,56280,55320,55272,55176,55152,55104,55104/ data (jy(i),i= 1201, 1300)/ + 54960,54600,54072,53832,53760,53640,54456,53616,53640,52848, 1 52800,55608,55272,55176,55176,55296,55296,55200,55176,55080, 2 54936,54840,54768,54864,55368,55368,55464,55464,54888,54696, 3 54816,54624,54648,54816,54816,54648,54648,54840,54888,54360, 4 55368,55392,56352,54840,54456,54408,54504,54480,54408,54384, 5 54312,54312,54384,53808,53712,53808,53784,54000,54048,54120, 6 54240,54312,54528,54624,54648,54624,54576,54432,54144,54024, 7 53808,53472,53328,53280,53160,52392,52512,52464,52488,52440, 8 52536,52584,52584,52728,52536,52248,54672,53448,52680,52440, 9 52176,52656,52056,52296,52176,52128,52008,52128,52104,52440/ data (jy(i),i= 1301, 1400)/ + 52680,52656,52056,51936,52728,52680,52728,52680,52656,50904, 1 54096,54072,54168,54192,53640,53496,53256,53136,53064,52944, 2 52584,52464,52416,52368,52296,52296,52080,52056,51960,51768, 3 51216,50904,50376,50568,50952,51552,51696,51240,52632,52632, 4 53064,53064,53160,53160,54192,54192,51288,51120,51144,51312, 5 51384,51120,51048,51072,51000,51024,51072,51096,51048,50976, 6 51000,51048,50952,50904,50976,50904,52080,51984,51936,51360, 7 51312,51192,51192,50760,50880,51024,51024,50976,50976,50880, 8 50832,50856,50808,51144,51072,50976,51000,50904,50808,50664, 9 50448,50496,49320,49440,49512,49536,49680,49704,49848,49896/ data (jy(i),i= 1401, 1500)/ + 49800,49728,49704,49776,50136,50184,50184,51480,50976,50592, 1 50544,50448,50400,50208,50088,50040,50112,50160,50280,50352, 2 50472,50448,50688,50880,50976,51072,51384,51384,51552,51792, 3 51960,50520,50328,49992,49752,49608,49392,48864,48624,48168, 4 48000,47880,47880,46920,49896,49944,49728,49944,49872,49872, 5 49992,50112,49968,49704,49608,49584,49680,49752,49584,49920, 6 49680,49632,49656,49248,49488,49608,49560,49968,50016,50064, 7 49992,51048,50880,50736,50472,50472,50376,50424,50352,50352, 8 50232,50328,50328,50232,50304,50256,50304,50232,50280,50208, 9 50232,50088,50112,50040,50040,49224,49248,49152,49248,49296/ data (jy(i),i= 1501, 1600)/ + 49152,49416,49296,49320,49392,49536,49560,49656,49608,49728, 1 49848,49968,49368,49272,49296,49152,49032,49560,49536,49080, 2 49008,48888,49176,49320,49536,49776,48576,48600,48456,48552, 3 48504,48576,48720,47904,49032,45240,45696,46992,47472,47568, 4 47880,47976,47808,49584,49368,49320,49248,49152,49056,48912, 5 48456,47784,48840,48816,48744,48744,48408,48360,48264,48144, 6 48168,48048,47904,49392,49392,47712,47472,48504,48312,48264, 7 48072,47928,47880,47688,47568,47544,47496,47376,47400,47232, 8 47376,47352,47208,47088,46872,46776,47664,46800,49248,49200, 9 48840,48696,48336,48072,47856,47520,47136,47016,46728,45984/ data (jy(i),i= 1601, 1700)/ + 46176,45888,45912,46560,46440,46056,46368,46584,46944,47184, 1 47304,47712,47784,48072,48168,48600,48648,48792,48816,48912, 2 48888,47904,46752,46752,46704,46512,46512,46608,46608,46104, 3 47328,47352,47040,46968,46344,46272,46128,46056,49536,49512, 4 45720,45696,45648,45672,45480,45480,45672,45312,45384,45336, 5 45480,45480,45552,45456,45576,45600,45672,45600,45696,45672, 6 45840,45744,45864,45888,45672,45792,45696,46560,45240,45456, 7 45456,45624,45552,45576,45648,45168,45072,44928,44808,44688, 8 44688,44616,44328,44136,43872,43728,43440,43272,43128,43008, 9 42936,42552,42360,42312,41928,41808,45168,45360,45336,45432/ data (jy(i),i= 1701, 1800)/ + 45360,45264,45312,45192,45240,45168,45264,45192,45360,45168, 1 45120,45048,44976,44880,44880,44952,44832,44856,45144,45312, 2 45360,46752,46752,46560,46440,46272,46248,46056,45936,45816, 3 45696,45552,45648,45480,45168,45000,45024,46776,46776,46872, 4 46872,44928,45072,45168,45504,45528,44760,44808,44760,44880, 5 45024,45048,45096,45216,45216,45384,45360,45432,44952,44928, 6 44832,45000,44808,45768,44592,45960,45600,45504,45144,45048, 7 44856,44856,44736,44688,44472,44424,44352,44208,44208,44088, 8 43944,43800,43608,43488,44880,44688,44376,44280,44280,46464, 9 46344,46296,46344,46080,45648,44184,45432,44664,44616,44664/ data (jy(i),i= 1801, 1900)/ + 44424,44232,44832,44616,44088,44280,44088,44088,44184,44208, 1 44088,44064,43848,43512,43440,43464,43680,43632,43512,43392, 2 43320,43248,43512,43848,44568,44832,45048,45144,44976,45048, 3 45288,45480,45696,45744,43224,43560,43656,43800,44016,44088, 4 42960,42936,43200,43440,43560,43632,43800,43848,43704,43752, 5 43704,43920,44064,44232,44520,44616,44664,44640,42960,42864, 6 42936,43056,43008,39864,42264,42336,42552,42672,42816,42816, 7 43080,43056,43224,43560,43632,43728,43776,43584,43632,43704, 8 43896,42864,42744,42600,42528,42384,42384,42240,42336,42504, 9 42504,42720,42816,43032,43032,43224,43224,43320,43320,43536/ data (jy(i),i= 1901, 2000)/ + 43824,43920,43920,44112,44280,44592,45600,45600,45504,45504, 1 45216,45216,45120,45096,45024,45024,44904,44904,44520,44520, 2 43752,43776,43200,43200,43104,43104,43200,43224,42216,41928, 3 42120,42264,42312,42384,42432,42360,42336,42264,42240,42408, 4 42480,42552,42480,42720,43008,43152,43248,40056,40176,40440, 5 40848,41112,41376,41664,41784,41952,42096,41520,41544,41544, 6 41736,41712,41880,41856,41976,41976,42216,42216,42552,42624, 7 42624,42720,42192,42000,41952,41688,41736,41544,41352,40968, 8 40872,40848,40392,41304,42960,42552,42072,41808,41856,41616, 9 41640,41544,41544,41400,41304,43800,43344,42936,42624,42360/ data (jy(i),i= 2001, 2100)/ + 42360,42168,42096,41856,41448,41136,42120,42024,41928,41832, 1 41472,41112,41616,41592,41400,41400,40920,40752,40872,41016, 2 41256,40872,40728,40776,40848,41040,41088,40656,40704,40896, 3 40896,41208,41328,41448,41496,42792,42816,42720,42408,42336, 4 42240,42120,42000,42000,41952,41592,41472,41448,41352,41280, 5 40848,40680,40272,40440,40440,40632,40632,40536,40512,40344, 6 40488,40440,40536,40872,40680,40680,40536,40584,40488,40776, 7 40872,40896,40800,40800,40920,40920,40824,40872,40488,40488, 8 40584,40368,40440,40272,40464,40656,40656,40560,40416,40248, 9 40344,40320,40440,40296,40536,40848,41088,40248,40320,40416/ data (jy(i),i= 2101, 2200)/ + 40440,40536,40560,40464,40464,40344,40248,40128,40104,40296, 1 40200,40224,41760,41544,41400,41304,41064,41088,41040,40920, 2 40800,40872,40824,40536,40248,40152,39984,39984,40032,39912, 3 39936,39792,39840,39768,39792,39912,39912,39792,39816,39984, 4 39960,39984,39912,40008,39744,39456,39504,39456,39816,39648, 5 40248,40176,40080,40008,39720,39672,39384,39360,39144,39096, 6 39144,39120,39072,39360,39456,39552,39672,40488,40296,40176, 7 40080,40008,39336,39216,38976,39000,38664,38664,39360,39264, 8 38832,38616,38376,38280,38136,38040,37896,37824,37608,37464, 9 37320,38496,38472,38328,38568,38712,39144,39240,39312,39528/ data (jy(i),i= 2201, 2300)/ + 39984,38496,38496,38400,38400,37920,40176,40080,39840,39744, 1 39648,39552,39336,39264,39096,39024,39048,38760,38544,38448, 2 38232,38112,37944,37824,37776,37800,38040,37944,38040,38040, 3 37944,37176,37872,37344,37344,37152,37104,37416,37440,37560, 4 37776,38040,38160,38304,38424,37416,37824,37848,37704,37776, 5 37608,37392,37560,37296,37224,37080,37200,36912,36720,36696, 6 37080,37104,37272,37512,37656,37680,36672,36600,36480,36672, 7 36648,36336,36288,36648,36216,37320,37176,36120,36144,36240, 8 36264,36168,36000,36024,35952,36384,36240,36528,36528,36672, 9 36864,37200,35664,36864,38352,39408,39576,40320,40344,40584/ data (jy(i),i= 2301, 2400)/ + 38856,38832,38640,38496,38424,38376,38256,38160,38040,37992, 1 37800,37872,37008,36648,36048,35664,35544,36696,36816,36912, 2 36888,37008,36672,36600,36216,35448,35376,33600,32928,35400, 3 35280,35376,35400,35520,35568,35040,35232,35160,35232,35208, 4 35496,35496,35376,35448,35472,35544,36120,36168,36024,36072, 5 36360,36384,36360,36408,36648,36720,35736,35568,35520,34752, 6 34824,34752,34824,34776,34680,34344,34248,33888,34872,35424, 7 35352,35256,34968,35112,35256,35088,35256,35520,36912,36600, 8 36456,36024,36000,35784,35616,35352,35304,34872,34992,34848, 9 34824,34896,34872,34992,35064,35088,35208,35256,35424,35472/ data (jy(i),i= 2401, 2500)/ + 35424,35568,35568,35736,34272,34512,35640,35640,36216,34704, 1 34776,34848,34920,34920,34800,34944,34248,34584,34224,34224, 2 35784,35760,35616,35472,34848,34656,34488,34296,33840,34008, 3 34008,31512,31776,31704,31824,31824,31944,31920,32016,31968, 4 32112,32088,32208,32208,32424,32424,32520,32664,32736,32856, 5 32928,33000,33072,33144,33360,33384,33456,33408,33792,33576, 6 36144,35112,35112,35016,34992,34896,34896,34728,34728,34632, 7 34440,34440,33240,33600,33312,34896,34896,34752,34752,34248, 8 34272,33792,33576,33480,32904,32904,32856,33792,33000,33000, 9 32760,32664,32472,32928,32760,32760,32688,32712,32784,32808/ data (jy(i),i= 2501, 2600)/ + 32712,32712,32784,32688,32544,32496,32496,32640,32592,32640, 1 32640,32472,32424,32784,32640,32640,32856,32976,33048,33048, 2 34248,32496,32616,32592,32736,32712,32808,32856,32928,33000, 3 33552,33624,33696,33672,33984,34128,34248,34152,34272,34176, 4 32136,32328,32112,34320,33984,33672,33072,32040,31896,31992, 5 31992,31872,32136,32160,32016,32112,32400,32664,33216,33312, 6 33408,33312,33456,33648,33912,34224,34296,31632,31704,31752, 7 31872,31992,31992,31824,31824,32160,32160,32088,32112,32208, 8 32208,32112,31752,31344,31848,31920,31944,31896,33864,33768, 9 33792,33432,33336,33288,32928,32832,32784,32664,32544,32136/ data (jy(i),i= 2601, 2700)/ + 32040,31968,31848,31752,31440,34032,33744,33744,33576,33552, 1 33264,33264,33120,32208,32376,32040,32040,32136,32136,31944, 2 31944,31344,31368,31272,31272,31488,31536,32664,32688,32568, 3 32568,32400,32400,32088,32088,31992,31992,31512,31440,31224, 4 31224,30912,30864,31296,31296,31368,31272,31392,31368,31704, 5 31872,32352,30744,30792,30840,31200,32016,32016,32208,32208, 6 32304,32328,32232,32232,32136,32136,30936,30936,30888,30600, 7 31296,31296,30936,30936,30792,30792,30936,30936,30624,31800, 8 31800,31680,31704,31296,31200,31104,31008,30672,30384,30144, 9 29976,32184,32184,29088,32376,31920,31368,30888,29928,29856/ data (jy(i),i= 2701, 2800)/ + 29616,29544,29520,30312,30312,30600,30600,30984,31272,31272, 1 29496,29520,29640,29784,29880,30048,30144,30120,30240,30480, 2 30504,30648,30960,31080,31200,31272,31272,31368,31584,31680, 3 31848,29448,30744,30600,29472,29400,29400,29472,29352,29520, 4 29328,29328,29424,29256,29256,29568,29784,29784,29952,31272, 5 30000,29784,29328,29400,29328,29256,29184,29088,29064,29112, 6 28992,29016,29112,31824,31680,31296,31248,31104,30912,30744, 7 30648,29136,28920,27552,27816,28008,28080,28344,28560,28608, 8 28752,28992,28992,28896,28968,28896,28920,29688,29712,28872, 9 28368,28416,28320,28320,28152,28584,28608,28656,28920,29064/ data (jy(i),i= 2801, 2900)/ + 29136,29160,29352,29424,29616,29688,29880,29928,30096,30216, 1 30360,30360,30528,30672,30720,30864,31056,31248,31248,31416, 2 31152,31152,29760,29760,28992,28992,28560,28536,28320,28320, 3 28224,28176,28248,28176,28248,28176,29040,28968,29040,29112, 4 29544,29424,29064,28752,28512,28296,28152,28104,28104,28176, 5 28176,28080,28056,27840,27888,28080,28080,28176,28176,28368, 6 28392,28560,28584,28800,28896,28992,28992,29088,27648,28032, 7 27480,27432,28848,28896,28992,28992,29424,28920,28080,27744, 8 27504,27216,27216,27288,27528,27552,27456,27480,27384,27408, 9 27504,27504,27408,26784,26952,26976,27072,27312,28512,26928/ data (jy(i),i= 2901, 3000)/ + 28416,28272,28176,28056,27912,27600,27480,27336,27144,26976, 1 26688,26544,26496,26400,26304,26112,25992,25968,25896,25896, 2 25800,25848,25776,25728,25680,25512,25440,26472,26544,26568, 3 26664,26640,26856,26976,27216,27240,27312,27312,27552,27672, 4 27744,27960,26376,26304,26304,26184,26184,26280,26280,26184, 5 26136,26040,26064,25872,25848,25752,25752,25656,25632,25536, 6 25536,26352,26304,26352,26712,25896,25920,26760,26760,25872, 7 25464,28392,29304,25776,25440,25368,25152,24912,24768,24576, 8 24504,24408,24000,23808,23520,23448,23304,23280,25416,25872, 9 25872,25968,25968,26064,26064,26136,26160,26328,26664,26664/ data (jy(i),i= 3001, 3100)/ + 27504,28128,28128,28224,28224,28416,28416,28488,28512,28992, 1 28992,25488,25584,25584,25464,25392,25512,25488,25416,25392, 2 25392,25416,25344,25464,25608,25584,25728,25704,25968,26040, 3 26088,26184,26208,26304,26376,26544,26712,26808,26856,27024, 4 27096,27120,27384,27600,27744,27816,28008,28152,28272,28464, 5 28608,28728,29016,29112,29208,29232,29304,25392,25392,25320, 6 25440,25344,25320,25224,25368,26304,25944,25512,25344,25200, 7 25080,24024,24240,24336,24480,24744,24888,25056,24984,25128, 8 25416,25344,25344,25272,25344,25248,25296,25224,25248,25392, 9 25392,25608,25656,25848,25992,26088,26208,26424,26400,26496/ data (jy(i),i= 3101, 3200)/ + 26616,26664,26760,26832,24888,25344,25896,25992,26112,26448, 1 26592,26616,26760,26832,27024,27240,27360,27384,25320,25032, 2 25104,24984,27552,27624,27696,27480,27360,24768,27168,26976, 3 27024,26856,26808,26616,26544,26400,26304,26280,26088,25896, 4 25848,25848,25776,25776,25656,25392,25320,25344,25248,25200, 5 25128,25056,24888,24744,26688,27456,27744,28152,28272,28488, 6 28656,29064,25296,25200,25224,25344,25200,25296,25344,25248, 7 25128,25128,24984,25056,25008,25104,25104,24936,24984,24792, 8 24840,24744,24744,25248,25584,25272,24888,24672,24600,24648, 9 24576,24672,24504,24432,24576,24600,24408,24144,24168,23904/ data (jy(i),i= 3201, 3300)/ + 23736,22176,22968,23232,23376,23520,23784,23856,24000,24096, 1 24264,24408,24984,25296,25440,25512,24312,24432,24504,24720, 2 24768,24888,24312,24192,24144,24264,24432,24504,24456,24528, 3 24624,24192,24120,23880,23784,23760,23856,23808,23784,23760, 4 23856,23832,24048,23952,23952,24168,23712,23640,23712,23688, 5 23784,23856,23928,24120,24120,24216,24192,24384,24528,24696, 6 24648,24672,24792,24912,23568,23616,23712,23832,23784,23760, 7 23688,23568,23520,23592,23568,23664,23712,23808,23784,23904, 8 23832,23904,23832,23616,23496,23496,23328,23352,23280,23376, 9 23328,23376,23328,23448,23304,23232,23304,23280,23376,23424/ data (jy(i),i= 3301, 3400)/ + 23424,23568,23568,23688,23640,23784,23688,23688,23856,23856, 1 23928,23568,23688,23400,23400,23328,23208,23136,23568,23736, 2 24000,24048,23904,23904,22848,22872,22704,22704,22392,22032, 3 22008,22176,22416,22488,22704,22776,22992,23232,23280,23376, 4 23496,23592,23688,23784,23856,23808,23904,24168,24168,24336, 5 21960,21984,21960,21888,21936,22368,22368,22560,22560,22656, 6 22656,23040,23064,23616,23592,23400,22512,22320,22104,21816, 7 21816,21912,21912,21816,21840,22008,22032,21840,21840,22032, 8 22032,21912,21936,22032,22056,22104,22128,22056,22056,21864, 9 23088,23256,23232,23088,23088,22200,22176,21864,21816,22128/ data (jy(i),i= 3401, 3500)/ + 21792,21744,22440,22440,22560,22560,23736,23736,23952,24168, 1 24624,21696,21912,21600,21576,21696,21552,21648,21648,21576, 2 21624,21504,21624,21480,21648,21696,21936,22008,22104,21192, 3 21504,21504,22416,22392,22560,22944,23040,20928,21264,20976, 4 20904,20952,21264,21336,21288,21360,21552,21624,23712,20760, 5 20280,20496,20712,20712,20832,20856,21048,21048,21144,21240, 6 21264,21576,21576,21696,21696,20784,20400,20400,20496,20448, 7 20568,20400,20328,20448,20448,20592,20592,20760,20832,20904, 8 21024,21024,21120,21024,21144,21264,21192,21264,21312,21408, 9 21504,21528,21648,21672,21768,21768,21648,21624,21696,21768/ data (jy(i),i= 3501, 3600)/ + 21816,21936,22104,22344,22512,22680,22824,22920,22824,22944, 1 22920,22992,23064,23256,20280,20208,20160,19920,19848,19776, 2 19680,19632,19488,19272,22392,22032,21888,21816,21792,21552, 3 21432,20976,20760,20616,20568,20232,20928,20904,20760,20712, 4 20448,20040,19896,19848,19896,19776,19680,21888,21888,21600, 5 21600,21456,21456,21312,21312,20760,20184,20088,19752,19704, 6 19632,19728,19920,20016,20160,20160,20496,20496,20376,20376, 7 21600,21360,21216,20928,20880,20472,20256,20112,19848,19728, 8 19608,19560,19776,19776,19920,19944,20832,20832,20976,20976, 9 21696,21696,21792,21816,21888,21888,21984,19560,20616,20616/ data (jy(i),i= 3601, 3700)/ + 19560,23736,23664,23400,23400,23232,23232,23088,23088,20688, 1 20688,20544,20544,19536,19584,19536,19608,19752,19776,19608, 2 19608,19512,19560,19656,19680,19584,19584,19680,19680,19584, 3 19512,19584,20112,19536,19344,19080,20232,20088,20088,19944, 4 19944,19800,19800,19488,19512,19368,19368,19200,19200,19056, 5 19080,18912,18912,19536,19224,19248,18936,18360,18600,18792, 6 19056,19392,19632,19608,18312,19560,19008,18840,18816,18792, 7 18624,18360,19656,19656,18912,18888,18768,18768,18624,18600, 8 18456,18480,18312,18264,18120,19344,19368,19944,19944,18048, 9 18312,18144,18120,18048,18168,18024,18000,18168,17832,18216/ data (jy(i),i= 3701, 3800)/ + 18024,18264,17784,18216,18360,18648,18648,19200,18960,18648, 1 18504,18480,18360,18360,18264,18240,18120,18096,17880,17928, 2 17760,17832,17592,17520,17568,18432,18432,18528,18528,16632, 3 16656,16776,17016,17208,17256,17376,17472,18240,18240,18456, 4 18456,18600,18600,18720,18744,16560,16584,16368,16536,16584, 5 16776,16968,17016,16968,17160,17232,17160,17232,17352,17592, 6 17688,18216,16272,16536,16704,16824,17376,17448,18120,18192, 7 18192,18288,18480,18696,18864,16248,16200,16680,16680,17304, 8 17424,17256,17256,17424,17256,16320,15936,15888,15936,17592, 9 17568,17496,17496,17568,17568,17496,17520,17520,17592,17592/ data (jy(i),i= 3801, 3900)/ + 17520,17640,15456,15408,17496,15384,15504,15744,15840,15912, 1 16104,16104,16296,16392,16440,16416,16584,16752,16632,16656, 2 16824,16920,17016,17232,17256,17472,17688,17856,18024,18120, 3 18096,18240,18288,18432,18360,18408,18384,18576,18624,18576, 4 19008,19080,19008,18984,19200,19296,19248,15360,15360,15312, 5 15456,15264,15648,15648,15528,15528,15216,15120,15264,15360, 6 15504,15840,15936,16296,16344,16632,16968,17424,17736,14904, 7 14880,15048,15360,15456,15432,15288,15312,15240,15312,15192, 8 15312,15264,15408,15384,15696,15720,14592,14688,14712,14568, 9 14568,14712,14808,14832,14808,14832,14760,14808,14664,14568/ data (jy(i),i= 3901, 4000)/ + 15888,15840,15624,15648,15864,15696,15600,15408,15312,15096, 1 15120,15048,14856,14664,14664,14616,14496,14472,14616,14736, 2 14880,14976,15216,15216,15288,15552,15864,16128,16200,16416, 3 16704,16800,16968,17136,17088,17208,17544,17664,17664,17928, 4 18120,14424,14856,14856,15864,15816, 8880,11400,11496,11568, 5 14160,14088,14544,14976,15984,15960,16128,16248,14088,14856, 6 12336,12936,13080,13104,13464,13536,14112,14136,14424,14232, 7 14016,13584,13560,11880,11880,10512,10344, 9408, 9432,15120, 8 15144,15024,15024,13200,13200,13080,12600,12432,12216,12168, 9 12000,11952,11880,11880,11784,11784,11664,11616,11424,13968/ data (jy(i),i= 4001, 4100)/ + 13584,13296,12864,12720,12600,12528,12576,12432,12432,12336, 1 12864,12840,12912,12864,12936,13464,13632,13776,13920,14064, 2 14400, 9912,10104,10248,10344,10320,10488,10488,10584,10752, 3 10848,11016,11256,11400,11400,11640,11664,11880,12024,11976, 4 12144,12096,12144,12264,12240,12288,12432,12792,12792,12912, 5 12864,12888,13032,13440,13560,13848,13992,14088, 9912, 9912, 6 10056,10080,10824,10824,10872,11472,11688,11784,11784,12096, 7 12096,12336,12096,12000,11808,11688,11496,11400,11112,10992, 8 10896,10848,10896,10776,10632,10536,10368,10176, 9984,23952, 9 23880,24048,24096,24024,10536,10584,10920,11232,12480,13176/ data (jy(i),i= 4101, 4200)/ + 13248,13200,13296,13632,13560,13176,12936,12816,12744,12600, 1 12600,12672,12768,12768,12504,12336,12264,12072,11952,11496, 2 11208,10728,10608,12024,12000,12072,12072,11952,11856,11928, 3 11760,11664,11616,11664,11808,11664,11616,11808,13608,13704, 4 13728,13632,13560,13560,13512,13512,14208,14928,15336,15360, 5 15144,15048,14544,14136,14088,14400,14352,14472,14568,14664, 6 14784,14808,14856,14832,14928,15000,15048,15288,15240,15024, 7 15000,14808,14856,14256,14160,14160,14256,15672,15672,15576, 8 15432,15576,17616,17496,17400,16368,16344,16416,15984,15840, 9 15960,15960,15792,15816,16080,16272,16080,20424,20496,20400/ data (jy(i),i= 4201, 4230)/ + 20256,18576,18672,18672,18648,18600,18528,18624,17880,17880, 1 17832,17808,17736,17760,17832,17784,17712,17688,21336,21360, 2 21312,21816,21792,21864,21960,21864,21912,21864,21792, 0/ data (jb1(i),i= 1, 100)/ + 9, 8, 2, 2, 5, 1, 1, 3, 3, 55, 1 6, 7, 57, 58, 59, 60, 61, 62, 63, 64, 2 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 3 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 4 6, 7, 86, 87, 13, 9, 13, 89, 90, 91, 5 92, 93, 94, 95, 96, 97, 98, 12, 12, 100, 6 101, 102, 15, 15, 104, 105, 106, 107, 108, 109, 7 110, 111, 112, 113, 16, 11, 14, 18, 115, 116, 8 117, 118, 119, 120, 121, 122, 123, 16, 17, 19, 9 18, 125, 126, 127, 128, 129, 130, 131, 132, 133/ data (jb1(i),i= 101, 200)/ + 134, 135, 21, 21, 137, 138, 139, 140, 141, 142, 1 143, 23, 20, 23, 145, 146, 147, 148, 149, 150, 2 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 3 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 4 171, 172, 173, 174, 175, 176, 177, 178, 179, 25, 5 22, 24, 25, 181, 182, 183, 184, 185, 186, 187, 6 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 7 198, 199, 200, 27, 26, 202, 203, 204, 205, 206, 8 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 9 217, 28, 27, 219, 220, 221, 222, 223, 224, 225/ data (jb1(i),i= 201, 300)/ + 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 1 236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 2 246, 247, 248, 249, 250, 251, 252, 253, 254, 255, 3 256, 257, 258, 259, 260, 261, 262, 263, 264, 265, 4 266, 29, 28, 268, 269, 270, 271, 272, 273, 274, 5 275, 30, 29, 277, 278, 279, 280, 281, 282, 283, 6 284, 285, 286, 287, 288, 289, 290, 291, 292, 293, 7 294, 295, 296, 297, 298, 299, 300, 301, 302, 303, 8 304, 305, 306, 307, 308, 309, 32, 30, 311, 312, 9 313, 314, 315, 316, 317, 318, 319, 31, 33, 321/ data (jb1(i),i= 301, 400)/ + 322, 323, 324, 325, 326, 327, 328, 329, 330, 331, 1 332, 333, 334, 335, 336, 337, 338, 339, 340, 341, 2 342, 343, 344, 345, 346, 347, 348, 349, 350, 351, 3 352, 353, 354, 355, 356, 357, 358, 359, 360, 361, 4 362, 363, 364, 365, 366, 367, 368, 369, 370, 371, 5 372, 373, 374, 375, 376, 377, 378, 379, 380, 381, 6 382, 383, 384, 385, 386, 387, 388, 389, 390, 391, 7 392, 393, 394, 395, 396, 397, 398, 399, 400, 401, 8 402, 403, 404, 405, 406, 407, 408, 409, 410, 411, 9 412, 413, 414, 415, 416, 417, 418, 419, 420, 421/ data (jb1(i),i= 401, 500)/ + 422, 423, 424, 425, 426, 427, 32, 31, 429, 430, 1 431, 432, 433, 434, 435, 436, 34, 37, 438, 439, 2 440, 441, 442, 443, 444, 445, 446, 447, 448, 449, 3 450, 33, 34, 452, 453, 454, 455, 456, 457, 458, 4 459, 35, 38, 461, 462, 463, 464, 465, 466, 467, 5 468, 469, 470, 471, 472, 473, 36, 37, 475, 476, 6 477, 478, 479, 480, 481, 482, 483, 484, 485, 38, 7 35, 487, 488, 489, 490, 491, 492, 493, 494, 40, 8 39, 496, 497, 498, 499, 500, 501, 502, 503, 504, 9 505, 506, 507, 508, 509, 510, 511, 512, 513, 514/ data (jb1(i),i= 501, 600)/ + 515, 516, 517, 518, 519, 520, 521, 522, 523, 524, 1 525, 526, 527, 528, 529, 530, 531, 532, 533, 534, 2 535, 536, 537, 538, 539, 540, 541, 542, 543, 544, 3 545, 546, 547, 548, 549, 550, 551, 552, 553, 554, 4 555, 556, 557, 558, 559, 560, 561, 562, 563, 564, 5 565, 566, 567, 568, 569, 570, 571, 572, 573, 574, 6 575, 576, 577, 578, 579, 580, 581, 582, 583, 584, 7 41, 36, 586, 587, 588, 589, 590, 591, 592, 593, 8 594, 595, 596, 597, 598, 599, 600, 601, 602, 603, 9 604, 605, 606, 607, 608, 609, 610, 611, 612, 613/ data (jb1(i),i= 601, 700)/ + 614, 615, 616, 617, 618, 619, 620, 39, 40, 622, 1 623, 624, 625, 626, 627, 628, 629, 630, 631, 632, 2 633, 634, 635, 636, 637, 638, 639, 640, 42, 41, 3 642, 643, 644, 645, 646, 647, 648, 649, 650, 651, 4 652, 653, 654, 655, 656, 657, 658, 659, 660, 661, 5 662, 663, 664, 665, 666, 667, 668, 669, 670, 671, 6 672, 673, 674, 675, 676, 677, 678, 679, 680, 681, 7 682, 683, 684, 685, 686, 687, 688, 689, 690, 691, 8 692, 693, 694, 695, 696, 697, 698, 699, 700, 701, 9 702, 703, 704, 705, 706, 707, 708, 43, 42, 710/ data (jb1(i),i= 701, 800)/ + 711, 712, 713, 714, 715, 716, 717, 718, 719, 720, 1 46, 48, 722, 723, 724, 725, 726, 727, 728, 729, 2 730, 731, 732, 733, 734, 735, 736, 737, 738, 739, 3 740, 741, 742, 743, 744, 745, 746, 747, 748, 749, 4 750, 751, 752, 753, 754, 755, 756, 757, 758, 759, 5 760, 761, 762, 763, 764, 765, 766, 767, 768, 769, 6 770, 771, 772, 773, 774, 775, 776, 777, 778, 779, 7 780, 781, 782, 783, 784, 785, 786, 787, 788, 789, 8 790, 791, 792, 793, 794, 795, 796, 797, 798, 799, 9 800, 801, 802, 803, 804, 805, 806, 807, 808, 809/ data (jb1(i),i= 801, 900)/ + 810, 811, 812, 43, 46, 47, 47, 50, 51, 52, 1 45, 44, 48, 814, 815, 816, 817, 818, 819, 820, 2 821, 822, 823, 824, 825, 826, 827, 828, 829, 830, 3 831, 832, 833, 834, 835, 836, 837, 838, 839, 840, 4 841, 842, 843, 844, 845, 846, 847, 848, 849, 850, 5 851, 852, 853, 44, 855, 856, 857, 858, 859, 860, 6 861, 862, 863, 864, 865, 866, 867, 868, 869, 870, 7 871, 872, 873, 874, 875, 876, 877, 878, 879, 880, 8 881, 882, 883, 884, 885, 886, 887, 888, 889, 890, 9 891, 892, 893, 894, 895, 896, 897, 898, 899, 900/ data (jb1(i),i= 901, 1000)/ + 901, 902, 903, 904, 905, 906, 907, 908, 909, 910, 1 911, 912, 913, 914, 915, 855, 917, 918, 919, 920, 2 921, 922, 923, 924, 855, 5, 926, 927, 928, 929, 3 930, 931, 932, 933, 934, 935, 936, 937, 938, 939, 4 857, 6, 941, 942, 943, 944, 945, 946, 947, 948, 5 949, 950, 951, 953, 952, 863, 955, 953, 957, 958, 6 857, 863, 960, 961, 962, 963, 953, 965, 966, 967, 7 968, 969, 970, 971, 972, 973, 974, 975, 976, 977, 8 978, 979, 980, 981, 982, 983, 984, 985, 986, 7, 9 988, 989, 990, 991, 992, 993, 994, 995, 996, 997/ data (jb1(i),i= 1001, 1100)/ + 998, 999, 1000, 1001, 1002, 1003, 1004, 1005, 952, 8, 1 1007, 1008, 1009, 1010, 1011, 1012, 1013, 10, 1014, 1015, 2 1016, 1017, 1018, 1019, 1020, 1021, 1022, 1023, 1024, 1025, 3 1026, 1027, 1028, 1029, 1030, 1031, 1032, 1033, 1034, 1035, 4 1036, 1037, 1038, 1039, 1040, 1041, 1042, 1043, 1044, 1045, 5 1046, 1047, 1048, 1049, 1050, 1051, 1052, 1053, 964, 1055, 6 1056, 1057, 1058, 1059, 1060, 1061, 1062, 1063, 1064, 1065, 7 1066, 1067, 1068, 1069, 1070, 1071, 1072, 1054, 1074, 1075, 8 957, 964, 1077, 1078, 1079, 1080, 1081, 1082, 1083, 1084, 9 1085, 1086, 1087, 1088, 1089, 1090, 1091, 1092, 1093, 1094/ data (jb1(i),i= 1101, 1200)/ + 1095, 882, 900, 1097, 1098, 882, 11, 900, 1100, 957, 1 1103, 1102, 917, 1105, 1106, 1107, 1108, 1109, 1110, 1111, 2 1112, 1113, 1114, 1115, 1116, 1117, 1118, 1119, 1120, 1121, 3 1122, 1054, 1124, 1125, 1126, 1127, 1128, 1129, 1130, 1131, 4 1132, 1133, 1134, 1135, 1136, 1101, 917, 1124, 1139, 1140, 5 1141, 1142, 1143, 1144, 1145, 1146, 1147, 1148, 1149, 1150, 6 1151, 1152, 1153, 1154, 1138, 1156, 1157, 1158, 1159, 1160, 7 1101, 1102, 1162, 1163, 1164, 1165, 1166, 1167, 1168, 1169, 8 1170, 1171, 1172, 1173, 1174, 1175, 12, 1177, 1178, 1073, 9 1180, 1181, 1182, 987, 13, 1184, 1186, 1187, 1188, 1189/ data (jb1(i),i= 1201, 1300)/ + 1190, 1191, 1192, 1185, 1100, 1194, 1195, 1196, 1197, 1198, 1 1199, 1200, 1201, 1202, 1203, 1204, 1205, 1206, 15, 1207, 2 1208, 1209, 1210, 1073, 1212, 1213, 1214, 1215, 1216, 1217, 3 1218, 1219, 1220, 1221, 1222, 1156, 1179, 1224, 1225, 1226, 4 1227, 1138, 987, 1224, 1229, 1230, 1231, 1232, 1233, 1234, 5 1235, 1236, 1237, 1238, 1176, 1240, 1241, 1242, 1124, 1224, 6 1244, 1245, 1246, 1247, 1248, 1249, 1250, 1251, 1252, 1240, 7 1240, 1254, 1255, 1256, 1257, 1258, 1259, 1260, 1261, 1262, 8 1263, 1264, 1156, 1186, 1266, 1267, 1268, 1269, 1270, 1271, 9 1272, 1273, 1274, 1211, 1276, 1277, 1278, 1279, 1280, 1281/ data (jb1(i),i= 1301, 1400)/ + 1282, 1283, 1284, 1285, 1179, 1287, 1288, 1289, 1286, 1291, 1 1211, 1254, 1291, 1294, 1295, 1296, 1297, 1298, 1299, 1300, 2 1301, 1302, 1286, 1303, 1304, 1305, 1306, 1307, 1308, 1275, 3 1310, 1311, 1312, 1313, 1224, 1255, 1315, 1316, 1317, 1318, 4 1319, 1320, 1321, 1322, 1323, 1324, 1325, 1326, 1327, 1328, 5 1329, 1331, 1330, 1333, 1334, 1335, 1336, 1330, 1338, 1339, 6 1340, 1341, 1342, 1343, 1344, 1345, 1176, 1275, 1338, 1347, 7 1348, 1349, 1350, 1351, 1352, 1353, 1354, 1355, 1356, 1357, 8 1338, 1353, 1359, 1360, 1361, 1362, 1363, 1364, 1365, 1310, 9 1293, 1367, 1368, 1369, 1370, 1371, 1372, 1373, 1310, 1375/ data (jb1(i),i= 1401, 1500)/ + 1376, 1377, 1378, 1379, 1380, 1381, 1382, 1374, 1293, 1384, 1 1385, 1386, 1387, 1388, 1389, 1390, 1391, 1333, 1393, 1394, 2 1395, 1396, 1397, 1398, 1399, 1400, 1401, 1402, 1403, 1404, 3 1405, 1406, 1333, 1304, 1408, 1409, 1410, 1411, 1412, 1413, 4 1414, 1416, 1417, 1418, 1419, 1420, 1421, 1422, 1423, 1424, 5 1425, 1426, 1427, 1428, 1429, 1430, 1291, 1374, 1432, 1433, 6 1434, 1435, 1436, 1437, 1438, 1439, 1440, 1441, 1442, 1443, 7 1416, 1445, 1446, 1447, 1448, 1449, 1450, 1451, 1452, 1453, 8 1454, 1455, 1456, 1457, 1458, 1415, 1460, 1461, 1462, 1459, 9 1464, 1465, 1466, 1467, 1468, 1469, 1470, 1415, 1331, 1472/ data (jb1(i),i= 1501, 1600)/ + 1473, 1474, 1475, 1476, 1477, 1478, 1479, 1480, 1481, 1482, 1 1483, 1484, 1485, 1486, 1487, 1488, 1489, 1490, 1491, 1492, 2 1493, 1494, 1464, 18, 1496, 1497, 1498, 1499, 1501, 1502, 3 1503, 1504, 1505, 1506, 1507, 1508, 1509, 1510, 1511, 1416, 4 1500, 1513, 1514, 1515, 1501, 1517, 1518, 1353, 1517, 1520, 5 1521, 1522, 1523, 1524, 1525, 1331, 1464, 1522, 1528, 1529, 6 1530, 1531, 1532, 1527, 1534, 1517, 1536, 1537, 1538, 1539, 7 1540, 1541, 1542, 1500, 1459, 1544, 1545, 1546, 1547, 1548, 8 1549, 1550, 1551, 1464, 1553, 1554, 1555, 1556, 1557, 1558, 9 1559, 1560, 1561, 1562, 1552, 1363, 1564, 1565, 1534, 1527/ data (jb1(i),i= 1601, 1700)/ + 1568, 1569, 1570, 1571, 1572, 1573, 1574, 1575, 1576, 1567, 1 1578, 1566, 1522, 1552, 1581, 1582, 1583, 1584, 1585, 1566, 2 1444, 1580, 1393, 1589, 1590, 1591, 1592, 1593, 1594, 1595, 3 1596, 1597, 1588, 1580, 1586, 1600, 1601, 1602, 1586, 1604, 4 1605, 1607, 1608, 1609, 1610, 1611, 1612, 1613, 1614, 1615, 5 1616, 1617, 1618, 1619, 1620, 1501, 1534, 1622, 1623, 1624, 6 1625, 1626, 1627, 1628, 1629, 1630, 1577, 1631, 1632, 1633, 7 1634, 1635, 1636, 1606, 1607, 1603, 1393, 1639, 1640, 1641, 8 1643, 1644, 1645, 1646, 1642, 1648, 1649, 1650, 1651, 1652, 9 1653, 1654, 1655, 1656, 1657, 1658, 1659, 1660, 1661, 1662/ data (jb1(i),i= 1701, 1800)/ + 1663, 1664, 1665, 1666, 1667, 1588, 1668, 1669, 1670, 1671, 1 1672, 1673, 1674, 1643, 1648, 1676, 1677, 1678, 1679, 1680, 2 1681, 1682, 1683, 1684, 1685, 1686, 1687, 1688, 1689, 1690, 3 1691, 1692, 1693, 1694, 1695, 1536, 1697, 1698, 1699, 1700, 4 1701, 1702, 1703, 1704, 1705, 1706, 1707, 1708, 1709, 1710, 5 1711, 1712, 1713, 1714, 1715, 1716, 1717, 1536, 1719, 1720, 6 1648, 1444, 1722, 1723, 1724, 1725, 1726, 1727, 1728, 1729, 7 1730, 1731, 1732, 1733, 1734, 1735, 1736, 1737, 1738, 1739, 8 1740, 1567, 1577, 1742, 1743, 1744, 1745, 1599, 1747, 1748, 9 1749, 1718, 1607, 1751, 1752, 1753, 1754, 1755, 1756, 1757/ data (jb1(i),i= 1801, 1900)/ + 1758, 1759, 1760, 1761, 1762, 1747, 1641, 1764, 1606, 1766, 1 1767, 1768, 1769, 1770, 1771, 1772, 1773, 1774, 1775, 1776, 2 1777, 1778, 1779, 1780, 1781, 1782, 1783, 1736, 1785, 1786, 3 1787, 1788, 1599, 1790, 1791, 1792, 1793, 1794, 1795, 1643, 4 1797, 1798, 1799, 1800, 1801, 1796, 1742, 1803, 1804, 1765, 5 1806, 1807, 1808, 1809, 1789, 1789, 1811, 1812, 1813, 1814, 6 1815, 1816, 1817, 1818, 1819, 1820, 1821, 1822, 1823, 1824, 7 1825, 1826, 1827, 1828, 1829, 1830, 1831, 1832, 1833, 1603, 8 1835, 1836, 1837, 1838, 1839, 1796, 1784, 1805, 1842, 1843, 9 1844, 1845, 1846, 1847, 1848, 1849, 1850, 1851, 1852, 1853/ data (jb1(i),i= 1901, 2000)/ + 1854, 1855, 1856, 1857, 1747, 1842, 1859, 1860, 1861, 1862, 1 1822, 1696, 1841, 1865, 1866, 1867, 1868, 1869, 1870, 1871, 2 1872, 1873, 1874, 1875, 1876, 1877, 1878, 1879, 1880, 1805, 3 1835, 1882, 1883, 1884, 1885, 1886, 1865, 1888, 1889, 1890, 4 1891, 1892, 1893, 1894, 1895, 1896, 1897, 1898, 1899, 1900, 5 1901, 1902, 1903, 1904, 1905, 1765, 1642, 1907, 1908, 1909, 6 1910, 1911, 1912, 1913, 1914, 1915, 1916, 1917, 1918, 1919, 7 1920, 1921, 1922, 1923, 1924, 1925, 1926, 1927, 1928, 1888, 8 1822, 1930, 1931, 1932, 1933, 1934, 1935, 1936, 1937, 1938, 9 1939, 1940, 1941, 1942, 1943, 1944, 1945, 1946, 1784, 1948/ data (jb1(i),i= 2001, 2100)/ + 1949, 1950, 1951, 1952, 1953, 1954, 1955, 1956, 1865, 1958, 1 1959, 1960, 1961, 1962, 1963, 1964, 1965, 1966, 1967, 1968, 2 1969, 1970, 1971, 1835, 1929, 1973, 1974, 1975, 1976, 1977, 3 1958, 1958, 1979, 1980, 1981, 1982, 1696, 1718, 1985, 1986, 4 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1984, 1807, 5 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 6 1888, 2007, 2008, 2009, 2010, 2011, 2006, 1821, 2013, 2014, 7 2015, 2016, 2018, 2019, 2020, 1984, 1995, 2023, 2024, 2025, 8 2026, 2006, 2028, 2029, 2030, 2031, 2032, 2033, 2034, 2022, 9 1842, 2036, 2037, 2038, 2039, 2040, 2041, 2042, 2043, 2044/ data (jb1(i),i= 2101, 2200)/ + 2045, 2046, 2047, 2048, 2049, 2050, 2051, 2028, 24, 2053, 1 2054, 2055, 2056, 2057, 2058, 2059, 2060, 2061, 2062, 2017, 2 2017, 2064, 2065, 2066, 2067, 2068, 2023, 2070, 2071, 2072, 3 2073, 2074, 2075, 2076, 2077, 2078, 2069, 2080, 2028, 1983, 4 2023, 2083, 25, 2085, 2086, 2087, 2088, 2089, 2090, 2091, 5 2092, 2093, 2094, 2095, 2096, 2018, 2098, 2099, 2100, 2101, 6 2102, 2103, 2104, 2105, 2084, 2098, 2107, 2108, 1983, 2082, 7 2110, 2111, 1948, 1930, 2113, 2114, 2115, 2116, 2117, 2118, 8 2119, 2120, 2121, 2122, 2123, 2124, 2125, 2126, 1864, 2127, 9 2129, 2130, 2131, 2132, 2133, 2134, 2135, 2136, 2137, 2138/ data (jb1(i),i= 2201, 2300)/ + 2139, 2140, 2141, 2142, 2143, 2128, 1864, 2145, 2146, 2147, 1 1948, 2149, 2148, 2080, 2151, 2152, 2153, 2154, 2155, 2156, 2 2157, 2158, 2159, 2160, 2161, 2162, 2163, 2164, 2165, 2166, 3 2022, 2080, 2168, 2169, 2170, 2171, 2172, 2173, 2174, 2175, 4 2176, 2177, 2148, 2179, 2180, 2181, 2182, 2183, 2184, 2185, 5 2186, 2187, 2188, 2189, 2190, 2178, 2192, 2193, 2194, 2195, 6 2196, 2197, 2198, 2199, 2200, 2127, 2098, 2202, 2203, 2204, 7 2205, 2084, 2207, 2208, 2209, 2210, 2211, 2212, 2213, 2214, 8 2215, 2216, 2217, 2218, 2219, 2220, 2221, 2222, 2223, 2224, 9 2225, 2226, 2227, 2228, 2229, 2230, 2206, 2232, 2206, 2082/ data (jb1(i),i= 2301, 2400)/ + 2234, 2235, 2232, 2237, 2238, 2239, 2240, 2241, 2242, 2243, 1 2244, 2178, 2237, 2246, 2247, 2248, 2249, 2250, 2251, 2252, 2 2253, 2254, 2255, 2256, 2257, 2128, 2069, 2260, 2261, 2262, 3 2263, 2264, 2265, 2225, 26, 2259, 2258, 27, 2259, 2270, 4 2271, 2272, 2273, 2260, 2232, 2191, 2276, 2277, 2278, 2279, 5 2280, 2281, 2275, 2268, 2283, 2284, 2285, 2286, 2287, 2288, 6 2289, 2290, 2291, 2191, 2293, 2294, 2295, 2296, 2297, 2298, 7 2299, 2018, 2159, 2301, 2302, 2303, 2304, 2305, 2306, 2307, 8 2308, 2309, 2310, 2311, 2312, 2313, 2314, 2315, 2316, 2269, 9 2318, 2319, 2320, 2321, 2322, 2323, 2324, 2325, 2326, 2327/ data (jb1(i),i= 2401, 2500)/ + 2328, 2327, 2330, 2331, 2332, 2333, 2334, 2293, 2336, 2337, 1 2338, 2339, 2340, 2341, 2342, 2343, 2344, 2345, 2346, 2347, 2 2348, 2349, 2350, 2351, 2352, 2353, 2354, 2355, 2260, 2283, 3 2357, 2358, 2359, 2360, 2361, 2362, 2363, 2364, 2365, 2366, 4 2367, 2369, 2370, 2371, 2372, 2373, 2374, 2375, 2376, 2377, 5 2317, 2237, 2379, 2380, 2381, 2382, 2383, 2384, 2385, 2386, 6 2387, 2369, 2317, 2389, 2390, 2391, 2392, 2393, 2394, 2395, 7 2396, 2397, 2398, 2399, 2400, 2401, 2402, 2403, 2293, 2405, 8 2406, 2407, 2408, 2275, 2405, 2410, 2411, 2412, 2413, 2414, 9 2415, 2336, 2417, 2369, 2419, 2278, 2421, 2422, 2423, 2424/ data (jb1(i),i= 2501, 2600)/ + 2425, 2426, 2427, 2420, 2368, 2429, 2430, 2419, 2432, 2433, 1 2434, 2435, 2436, 2437, 2438, 2439, 2440, 2441, 2442, 2443, 2 2444, 2445, 2446, 2447, 2448, 2449, 2450, 2451, 2452, 2453, 3 2454, 2455, 2456, 2457, 2269, 2459, 2458, 2272, 2461, 2462, 4 2463, 2464, 2465, 2466, 2467, 2468, 2469, 2470, 2471, 2472, 5 28, 2474, 2473, 2329, 2336, 2476, 2477, 2478, 2479, 2480, 6 2481, 2482, 2483, 2484, 2485, 2487, 2417, 2268, 2473, 2489, 7 2490, 2491, 2492, 2486, 2494, 2495, 2496, 2497, 2498, 2499, 8 2500, 2501, 2502, 2503, 2504, 2505, 2506, 2507, 2508, 2509, 9 2510, 2511, 2493, 2513, 2514, 2515, 2516, 2517, 2518, 2519/ data (jb1(i),i= 2601, 2700)/ + 2520, 2420, 2513, 2522, 2523, 2524, 2525, 2526, 2527, 2528, 1 2529, 2530, 2531, 2532, 2533, 2534, 2535, 2536, 2537, 2538, 2 2539, 2405, 2329, 2513, 2542, 2417, 2544, 2545, 2546, 2547, 3 2548, 2549, 2550, 2551, 2552, 2553, 2554, 2555, 2556, 2557, 4 2558, 2559, 2560, 2561, 2562, 2563, 2564, 2565, 2566, 2391, 5 2568, 2569, 2570, 2571, 2572, 2573, 2574, 2575, 2576, 2577, 6 2578, 2579, 2580, 2581, 2543, 29, 2432, 2584, 2585, 2586, 7 2587, 2487, 2368, 2589, 2590, 2591, 2592, 2593, 2594, 2595, 8 2596, 2597, 2598, 2599, 2600, 2601, 2602, 2603, 2604, 2584, 9 2419, 2606, 2607, 2608, 2609, 2610, 2611, 2612, 2613, 2614/ data (jb1(i),i= 2701, 2800)/ + 2615, 2616, 2617, 2618, 2619, 2620, 2621, 2622, 2623, 2624, 1 2625, 2626, 2568, 2486, 2628, 2629, 2630, 2631, 2632, 2633, 2 2634, 2635, 2636, 2637, 2638, 2639, 2640, 2487, 30, 2643, 3 2644, 2645, 2646, 2647, 2648, 2649, 2650, 2651, 2493, 2653, 4 2654, 2655, 2584, 2543, 2657, 2658, 2659, 2660, 2661, 2662, 5 2663, 2664, 2665, 2666, 2667, 2668, 2669, 2641, 2671, 2672, 6 2673, 2674, 2675, 2676, 2677, 2678, 2670, 2549, 2680, 2681, 7 2682, 2683, 2684, 2685, 2686, 2687, 2688, 2689, 2690, 2510, 8 2692, 2693, 2541, 2695, 2696, 2697, 2698, 2699, 2700, 2701, 9 2703, 2704, 2705, 2706, 2707, 2708, 2709, 2568, 2711, 2712/ data (jb1(i),i= 2801, 2900)/ + 2713, 2714, 2715, 2716, 2717, 2718, 2719, 2720, 2721, 2722, 1 2723, 2724, 2725, 2726, 2727, 2728, 2729, 2730, 2549, 2732, 2 2733, 2653, 2732, 2735, 2736, 2737, 2703, 2739, 2691, 2711, 3 2741, 2742, 2739, 2702, 2744, 2745, 2746, 2747, 2748, 2691, 4 2642, 2750, 2751, 2752, 2753, 2754, 2755, 2756, 2653, 2694, 5 2702, 2694, 2760, 2761, 2762, 2763, 2541, 2764, 2765, 2766, 6 2767, 2768, 2769, 2770, 2771, 2772, 2759, 2774, 2775, 2776, 7 2777, 2778, 2779, 2780, 2781, 2782, 2783, 2784, 2773, 2786, 8 2787, 2788, 2670, 2786, 2790, 2791, 2792, 2793, 2794, 2796, 9 2797, 2798, 2799, 2800, 2801, 2802, 2803, 2804, 2805, 2806/ data (jb1(i),i= 2901, 3000)/ + 2807, 2808, 2809, 2810, 2811, 2812, 2813, 2814, 2815, 2816, 1 2817, 2818, 2819, 2432, 2641, 2821, 2822, 2823, 2824, 2825, 2 2826, 2827, 2828, 2829, 2830, 2832, 2833, 2834, 2835, 2836, 3 2837, 2838, 2839, 2711, 2703, 2841, 2842, 2843, 2844, 2845, 4 2795, 2831, 2847, 2848, 2849, 2850, 2851, 2852, 2786, 2831, 5 2854, 2855, 2856, 2857, 2858, 2859, 2860, 2861, 2862, 2863, 6 2864, 2865, 2866, 2867, 2758, 2642, 2832, 2774, 2832, 2870, 7 2872, 2873, 2874, 2875, 2876, 2732, 2757, 2878, 2879, 2880, 8 2881, 2882, 2883, 2884, 2885, 2886, 2887, 2888, 2889, 2890, 9 2891, 2892, 2872, 2894, 2895, 2896, 2897, 2774, 32, 2899/ data (jb1(i),i= 3001, 3100)/ + 2796, 2901, 2902, 2903, 2904, 2905, 2906, 2907, 2908, 2909, 1 2900, 2900, 2911, 2912, 2913, 2914, 2915, 2916, 2917, 2918, 2 2919, 2920, 2921, 2922, 2923, 2924, 2925, 2926, 2927, 2928, 3 2929, 2930, 2931, 2932, 2933, 2934, 2935, 2936, 2937, 2938, 4 2939, 2940, 2941, 2795, 34, 2943, 2944, 2945, 2946, 2947, 5 2948, 2949, 2950, 2951, 2952, 2953, 2954, 2955, 2956, 2957, 6 2958, 2959, 2960, 2872, 2928, 2963, 2964, 2759, 2894, 2966, 7 2963, 2854, 2968, 2969, 2971, 2972, 2691, 2966, 2974, 2975, 8 2976, 2977, 2978, 2979, 2980, 2981, 2982, 2983, 2984, 2985, 9 2986, 2987, 2989, 2990, 2991, 2992, 2993, 2994, 2995, 2996/ data (jb1(i),i= 3101, 3200)/ + 2997, 2998, 2999, 3000, 3001, 3002, 3003, 3004, 3005, 3006, 1 3007, 3008, 3009, 3010, 2758, 2961, 3012, 3013, 3014, 3015, 2 3016, 3017, 3018, 2989, 2989, 2971, 3021, 3023, 3024, 3025, 3 3026, 3027, 3028, 3029, 3030, 3031, 3032, 3033, 3034, 3035, 4 3036, 3037, 3038, 3039, 3040, 3041, 3042, 3043, 3044, 3045, 5 3046, 3047, 3048, 3049, 3050, 3051, 3052, 3053, 3054, 3055, 6 3056, 2739, 2970, 3058, 3059, 3020, 2971, 3061, 3062, 3063, 7 3064, 3023, 2928, 3066, 3067, 3068, 3069, 3070, 3072, 3073, 8 3074, 3075, 3076, 3077, 3078, 3079, 3080, 3081, 3082, 3083, 9 3084, 3085, 3086, 3087, 3088, 3089, 3090, 3091, 3092, 3093/ data (jb1(i),i= 3201, 3300)/ + 3094, 3095, 3096, 3097, 3098, 3099, 3100, 3101, 3102, 3103, 1 2894, 3105, 3106, 3107, 3108, 3109, 3110, 3111, 3112, 3113, 2 3114, 3115, 3116, 3117, 2871, 3023, 3119, 3120, 3121, 3105, 3 2871, 3123, 3124, 3125, 3126, 3127, 2882, 3129, 3130, 3131, 4 3132, 3133, 3134, 3135, 3136, 3137, 3138, 3139, 3140, 3141, 5 3142, 3143, 3144, 3145, 3146, 3147, 3148, 3149, 3150, 3151, 6 3152, 3128, 3154, 3155, 3156, 3157, 3158, 3159, 3160, 3161, 7 2702, 3022, 3163, 3164, 3165, 3166, 3167, 3168, 3169, 3170, 8 3171, 3172, 3173, 3174, 3175, 3176, 3177, 3178, 3179, 3180, 9 3181, 3154, 3183, 3071, 2970, 3185, 3186, 3183, 3154, 3188/ data (jb1(i),i= 3301, 3400)/ + 3189, 3190, 3191, 3192, 3193, 3194, 3195, 3196, 3197, 3198, 1 3199, 3200, 3202, 3203, 3204, 3205, 3206, 3207, 3208, 3209, 2 3210, 3211, 3212, 3213, 3214, 3215, 2966, 3217, 3218, 3219, 3 3220, 3221, 3071, 2962, 3223, 3225, 3226, 3227, 3228, 3229, 4 3230, 3128, 3225, 3232, 3224, 35, 3234, 3235, 3236, 3237, 5 2961, 3238, 3240, 3241, 3242, 3243, 3244, 3245, 3217, 3240, 6 3223, 3248, 3249, 3250, 3251, 3252, 3253, 3254, 3255, 3256, 7 3257, 3258, 3259, 3260, 3261, 3262, 3263, 3105, 36, 3265, 8 3266, 3267, 3268, 3269, 3270, 3271, 3272, 3273, 3274, 3275, 9 3276, 3277, 3278, 3279, 3280, 3281, 3072, 37, 3283, 3284/ data (jb1(i),i= 3401, 3500)/ + 3285, 3248, 3286, 3287, 3288, 3289, 3290, 3291, 3292, 3293, 1 3294, 3295, 3296, 3297, 3298, 3299, 3300, 3301, 3302, 3303, 2 3304, 3305, 3306, 3307, 3308, 3309, 3310, 3225, 3201, 3312, 3 3313, 3314, 3315, 3316, 2988, 3318, 3319, 3320, 3321, 3224, 4 3022, 3323, 3324, 3325, 3326, 3327, 3328, 3295, 3331, 3332, 5 3333, 3334, 3335, 3336, 3337, 3338, 3339, 3340, 3341, 3342, 6 3343, 3344, 3345, 3346, 3347, 3348, 3349, 3217, 3351, 3248, 7 3329, 3351, 3354, 3355, 3356, 3357, 3358, 3359, 3360, 3361, 8 3362, 3238, 3020, 3364, 3365, 3366, 3367, 3368, 3369, 3370, 9 3371, 3372, 3373, 3374, 3375, 3376, 3377, 3378, 3379, 3380/ data (jb1(i),i= 3501, 3600)/ + 3381, 3382, 3383, 3384, 3385, 3386, 3387, 3388, 3389, 3354, 1 3318, 3391, 3392, 3393, 3394, 3395, 3396, 3397, 3398, 3399, 2 3330, 3370, 3402, 3403, 3404, 3405, 3406, 3407, 3408, 3409, 3 3410, 3183, 3401, 3402, 3412, 3331, 39, 3414, 3415, 3416, 4 3417, 3418, 3419, 3420, 3421, 3422, 3423, 3424, 3425, 3426, 5 3427, 3428, 3202, 3430, 3431, 3432, 3433, 3434, 3435, 3436, 6 3318, 3438, 3430, 3438, 3440, 3441, 3442, 3443, 3444, 3445, 7 3446, 3447, 3448, 3240, 3202, 3450, 3452, 3453, 3454, 3455, 8 3456, 3457, 3458, 3459, 3460, 3461, 3462, 3463, 3464, 3354, 9 40, 3466, 3467, 3468, 3469, 3470, 3452, 3451, 3472, 3473/ data (jb1(i),i= 3601, 3700)/ + 3474, 3475, 3476, 3477, 3478, 3479, 3480, 3481, 3482, 3483, 1 3484, 3485, 3486, 3487, 3488, 3489, 3490, 3491, 3492, 3493, 2 3494, 3495, 3496, 3497, 3498, 3499, 3500, 3501, 3502, 3503, 3 3504, 3505, 3506, 3507, 3508, 3509, 3510, 3511, 3512, 3513, 4 2988, 3451, 3515, 3516, 3517, 3518, 3519, 3520, 3521, 3522, 5 3523, 3329, 3525, 3526, 3527, 3528, 3529, 3530, 3531, 3532, 6 3533, 3534, 3535, 3430, 3537, 3538, 3539, 3540, 3541, 3542, 7 3543, 3544, 3545, 3546, 3330, 3548, 3549, 3550, 3551, 3552, 8 3553, 3554, 3555, 3556, 3557, 3558, 3559, 3547, 3561, 3562, 9 3563, 3564, 3565, 3566, 3567, 3568, 3569, 3452, 3401, 3571/ data (jb1(i),i= 3701, 3800)/ + 3572, 3573, 3574, 3575, 3576, 3577, 3578, 3579, 3580, 3582, 1 3583, 3584, 3585, 3586, 3587, 3588, 3589, 3590, 3591, 3592, 2 3593, 3594, 3595, 3596, 3331, 3582, 3351, 3599, 3600, 3201, 3 3602, 3603, 3604, 3605, 3606, 3607, 3608, 3609, 3610, 3611, 4 3612, 3613, 3598, 3615, 3581, 3581, 3617, 3618, 3619, 3620, 5 3621, 3622, 3623, 3624, 3625, 3626, 3627, 3628, 3629, 3561, 6 3614, 3631, 3632, 3536, 3547, 3634, 3635, 3536, 3637, 3638, 7 3639, 3640, 3641, 3642, 3643, 3644, 3645, 3646, 3647, 3648, 8 3649, 3650, 3651, 3652, 3601, 3654, 3655, 3656, 3653, 3658, 9 3659, 3660, 3661, 3662, 3663, 3614, 3665, 3601, 3636, 3667/ data (jb1(i),i= 3801, 3900)/ + 3668, 3669, 3670, 3671, 3665, 3546, 3673, 3674, 3675, 3676, 1 3677, 3678, 3679, 3680, 3681, 3682, 3582, 3685, 3686, 3687, 2 3688, 3438, 3685, 3683, 3691, 3692, 3693, 3690, 3684, 3695, 3 3696, 3697, 3685, 3699, 3700, 3701, 3658, 3699, 3703, 3704, 4 3705, 3706, 3524, 3524, 3708, 3709, 3710, 3711, 3712, 3713, 5 3714, 3715, 3716, 3717, 3718, 3719, 3720, 3721, 3722, 3723, 6 3724, 3725, 3726, 3727, 3728, 3561, 3730, 3731, 3732, 3733, 7 3734, 3735, 3736, 3737, 3738, 3739, 3740, 3741, 3742, 3743, 8 3744, 3653, 3730, 3746, 3747, 3748, 3749, 3750, 3751, 3752, 9 3753, 3754, 3755, 3756, 3757, 3758, 3759, 3760, 3761, 3658/ data (jb1(i),i= 3901, 4000)/ + 3763, 3764, 3765, 3766, 3767, 3768, 3769, 3770, 3771, 3772, 1 3773, 3774, 3636, 3763, 3777, 3778, 3779, 3780, 3781, 3782, 2 3665, 3776, 3699, 3784, 3785, 3786, 3787, 3788, 3725, 3790, 3 3791, 3792, 3793, 3794, 3795, 3796, 3797, 3798, 3799, 3800, 4 3801, 3802, 3803, 3804, 3725, 3806, 3807, 3808, 3809, 3810, 5 3811, 3812, 3813, 3814, 3815, 3816, 3817, 3818, 3819, 3820, 6 3821, 3822, 3823, 3824, 3825, 3826, 3827, 3828, 3829, 3830, 7 3831, 3832, 3833, 3834, 3835, 3836, 3837, 3838, 3839, 3840, 8 3841, 3842, 3843, 3844, 3845, 3846, 3598, 3804, 3803, 3806, 9 3848, 3850, 3804, 3849, 3684, 3853, 3854, 3855, 3856, 3852/ data (jb1(i),i= 4001, 4100)/ + 3858, 3859, 3860, 3861, 3862, 3863, 3864, 3865, 3866, 3867, 1 3868, 3690, 43, 3870, 3871, 3872, 3873, 3874, 3875, 3876, 2 3877, 3878, 3879, 3880, 3881, 3882, 3883, 3884, 3885, 3789, 3 3858, 3887, 3888, 3889, 3890, 3891, 3892, 3857, 3858, 3894, 4 3895, 3896, 3897, 3898, 3899, 3789, 3901, 3902, 3903, 3904, 5 3905, 3906, 3907, 3908, 3909, 3910, 3911, 3912, 3913, 3914, 6 3915, 3916, 3918, 3919, 3920, 3921, 3922, 3923, 3924, 3925, 7 3926, 3927, 3928, 3929, 3930, 3931, 3932, 3933, 3934, 3935, 8 3936, 3937, 3938, 3939, 3940, 3683, 3900, 3942, 3943, 3944, 9 3945, 3763, 3918, 44, 3947, 3948, 3949, 3950, 3951, 3952/ data (jb1(i),i= 4101, 4200)/ + 3953, 3954, 3955, 3956, 3957, 3730, 3952, 3959, 3917, 3961, 1 3962, 3963, 3964, 3965, 3966, 3967, 3968, 3942, 3777, 3970, 2 3971, 3972, 3973, 3974, 3975, 3976, 3977, 3978, 3979, 3848, 3 3980, 3981, 3982, 3983, 3984, 3985, 3986, 3987, 3988, 3989, 4 3990, 3991, 3992, 3993, 3994, 3995, 3996, 3997, 3998, 3999, 5 3852, 4000, 4001, 4002, 4003, 4004, 4005, 3776, 4006, 4007, 6 4008, 4009, 3961, 48, 4011, 4012, 4013, 4014, 4015, 4016, 7 4017, 4018, 4019, 4020, 3917, 3849, 3888, 4022, 4023, 4024, 8 4025, 4026, 4027, 4028, 4029, 4030, 4031, 4032, 4033, 4034, 9 4035, 4036, 4037, 4038, 4039, 4040, 4041, 4042, 4043, 4044/ data (jb1(i),i= 4201, 4300)/ + 4045, 4046, 4047, 4048, 4049, 4050, 4051, 4052, 4053, 4054, 1 4055, 4056, 4057, 3900, 4022, 52, 4059, 4060, 4061, 4062, 2 4063, 4064, 4065, 4066, 4067, 4068, 4069, 4070, 4071, 3961, 3 4006, 4073, 4074, 4075, 4076, 4077, 4078, 4079, 4080, 4081, 4 4082, 4083, 4084, 4085, 4086, 4087, 4088, 4089, 1, 2, 5 3, 4, 1, 6, 7, 8, 9, 10, 11, 12, 6 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 7 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 8 33, 6, 35, 36, 37, 35, 39, 40, 39, 42, 9 43, 44, 42, 46, 47, 48, 46, 50, 51, 52/ data (jb1(i),i= 4301, 4390)/ + 53, 50, 55, 56, 55, 58, 59, 60, 61, 62, 1 63, 64, 65, 58, 67, 68, 69, 70, 71, 72, 2 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 3 83, 67, 85, 86, 87, 85, 89, 90, 91, 92, 4 89, 94, 95, 94, 97, 98, 97, 100, 101, 100, 5 103, 104, 105, 106, 107, 103, 109, 110, 111, 109, 6 113, 114, 113, 116, 117, 118, 116, 120, 121, 120, 7 123, 124, 125, 123, 127, 128, 127, 130, 131, 130, 8 133, 134, 135, 136, 137, 138, 139, 133, 0, 0/ data (jb2(i),i= 1, 100)/ + 54, 54, 8, 5, 10, 10, 4, 4, 55, 56, 1 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 2 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 3 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 4 85, 86, 87, 88, 88, 11, 89, 90, 91, 92, 5 93, 94, 95, 96, 97, 98, 99, 99, 100, 101, 6 102, 103, 103, 104, 105, 106, 107, 108, 109, 110, 7 111, 112, 113, 114, 114, 14, 17, 115, 116, 117, 8 118, 119, 120, 121, 122, 123, 124, 124, 19, 20, 9 125, 126, 127, 128, 129, 130, 131, 132, 133, 134/ data (jb2(i),i= 101, 200)/ + 135, 136, 136, 137, 138, 139, 140, 141, 142, 143, 1 144, 144, 22, 145, 146, 147, 148, 149, 150, 151, 2 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 3 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 4 172, 173, 174, 175, 176, 177, 178, 179, 180, 180, 5 24, 26, 181, 182, 183, 184, 185, 186, 187, 188, 6 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 7 199, 200, 201, 201, 202, 203, 204, 205, 206, 207, 8 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 9 218, 218, 219, 220, 221, 222, 223, 224, 225, 226/ data (jb2(i),i= 201, 300)/ + 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 1 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 2 247, 248, 249, 250, 251, 252, 253, 254, 255, 256, 3 257, 258, 259, 260, 261, 262, 263, 264, 265, 266, 4 267, 267, 268, 269, 270, 271, 272, 273, 274, 275, 5 276, 276, 277, 278, 279, 280, 281, 282, 283, 284, 6 285, 286, 287, 288, 289, 290, 291, 292, 293, 294, 7 295, 296, 297, 298, 299, 300, 301, 302, 303, 304, 8 305, 306, 307, 308, 309, 310, 310, 311, 312, 313, 9 314, 315, 316, 317, 318, 319, 320, 320, 321, 322/ data (jb2(i),i= 301, 400)/ + 323, 324, 325, 326, 327, 328, 329, 330, 331, 332, 1 333, 334, 335, 336, 337, 338, 339, 340, 341, 342, 2 343, 344, 345, 346, 347, 348, 349, 350, 351, 352, 3 353, 354, 355, 356, 357, 358, 359, 360, 361, 362, 4 363, 364, 365, 366, 367, 368, 369, 370, 371, 372, 5 373, 374, 375, 376, 377, 378, 379, 380, 381, 382, 6 383, 384, 385, 386, 387, 388, 389, 390, 391, 392, 7 393, 394, 395, 396, 397, 398, 399, 400, 401, 402, 8 403, 404, 405, 406, 407, 408, 409, 410, 411, 412, 9 413, 414, 415, 416, 417, 418, 419, 420, 421, 422/ data (jb2(i),i= 401, 500)/ + 423, 424, 425, 426, 427, 428, 428, 429, 430, 431, 1 432, 433, 434, 435, 436, 437, 437, 438, 439, 440, 2 441, 442, 443, 444, 445, 446, 447, 448, 449, 450, 3 451, 451, 452, 453, 454, 455, 456, 457, 458, 459, 4 460, 460, 461, 462, 463, 464, 465, 466, 467, 468, 5 469, 470, 471, 472, 473, 474, 474, 475, 476, 477, 6 478, 479, 480, 481, 482, 483, 484, 485, 486, 486, 7 487, 488, 489, 490, 491, 492, 493, 494, 495, 495, 8 496, 497, 498, 499, 500, 501, 502, 503, 504, 505, 9 506, 507, 508, 509, 510, 511, 512, 513, 514, 515/ data (jb2(i),i= 501, 600)/ + 516, 517, 518, 519, 520, 521, 522, 523, 524, 525, 1 526, 527, 528, 529, 530, 531, 532, 533, 534, 535, 2 536, 537, 538, 539, 540, 541, 542, 543, 544, 545, 3 546, 547, 548, 549, 550, 551, 552, 553, 554, 555, 4 556, 557, 558, 559, 560, 561, 562, 563, 564, 565, 5 566, 567, 568, 569, 570, 571, 572, 573, 574, 575, 6 576, 577, 578, 579, 580, 581, 582, 583, 584, 585, 7 585, 586, 587, 588, 589, 590, 591, 592, 593, 594, 8 595, 596, 597, 598, 599, 600, 601, 602, 603, 604, 9 605, 606, 607, 608, 609, 610, 611, 612, 613, 614/ data (jb2(i),i= 601, 700)/ + 615, 616, 617, 618, 619, 620, 621, 621, 622, 623, 1 624, 625, 626, 627, 628, 629, 630, 631, 632, 633, 2 634, 635, 636, 637, 638, 639, 640, 641, 641, 642, 3 643, 644, 645, 646, 647, 648, 649, 650, 651, 652, 4 653, 654, 655, 656, 657, 658, 659, 660, 661, 662, 5 663, 664, 665, 666, 667, 668, 669, 670, 671, 672, 6 673, 674, 675, 676, 677, 678, 679, 680, 681, 682, 7 683, 684, 685, 686, 687, 688, 689, 690, 691, 692, 8 693, 694, 695, 696, 697, 698, 699, 700, 701, 702, 9 703, 704, 705, 706, 707, 708, 709, 709, 710, 711/ data (jb2(i),i= 701, 800)/ + 712, 713, 714, 715, 716, 717, 718, 719, 720, 721, 1 721, 722, 723, 724, 725, 726, 727, 728, 729, 730, 2 731, 732, 733, 734, 735, 736, 737, 738, 739, 740, 3 741, 742, 743, 744, 745, 746, 747, 748, 749, 750, 4 751, 752, 753, 754, 755, 756, 757, 758, 759, 760, 5 761, 762, 763, 764, 765, 766, 767, 768, 769, 770, 6 771, 772, 773, 774, 775, 776, 777, 778, 779, 780, 7 781, 782, 783, 784, 785, 786, 787, 788, 789, 790, 8 791, 792, 793, 794, 795, 796, 797, 798, 799, 800, 9 801, 802, 803, 804, 805, 806, 807, 808, 809, 810/ data (jb2(i),i= 801, 900)/ + 811, 812, 813, 813, 49, 49, 50, 51, 52, 53, 1 53, 45, 814, 815, 816, 817, 818, 819, 820, 821, 2 822, 823, 824, 825, 826, 827, 828, 829, 830, 831, 3 832, 833, 834, 835, 836, 837, 838, 839, 840, 841, 4 842, 843, 844, 845, 846, 847, 848, 849, 850, 851, 5 852, 853, 854, 854, 856, 1, 858, 859, 860, 861, 6 862, 2, 864, 865, 866, 867, 868, 869, 870, 871, 7 872, 873, 874, 875, 876, 877, 878, 879, 880, 881, 8 3, 883, 884, 885, 886, 887, 888, 889, 890, 891, 9 892, 893, 894, 895, 896, 897, 898, 899, 4, 901/ data (jb2(i),i= 901, 1000)/ + 902, 903, 904, 905, 906, 907, 908, 909, 910, 911, 1 912, 913, 914, 915, 916, 916, 918, 919, 920, 921, 2 922, 923, 924, 925, 925, 926, 927, 928, 929, 930, 3 931, 932, 933, 934, 935, 936, 937, 938, 939, 940, 4 940, 941, 942, 943, 944, 945, 946, 947, 948, 949, 5 950, 951, 952, 954, 954, 955, 956, 956, 958, 959, 6 959, 960, 961, 962, 963, 964, 965, 966, 967, 968, 7 969, 970, 971, 972, 973, 974, 975, 976, 977, 978, 8 979, 980, 981, 982, 983, 984, 985, 986, 987, 988, 9 989, 990, 991, 992, 993, 994, 995, 996, 997, 998/ data (jb2(i),i= 1001, 1100)/ + 999, 1000, 1001, 1002, 1003, 1004, 1005, 1006, 1006, 1007, 1 1008, 1009, 1010, 1011, 1012, 1013, 9, 1014, 1015, 1016, 2 1017, 1018, 1019, 1020, 1021, 1022, 1023, 1024, 1025, 1026, 3 1027, 1028, 1029, 1030, 1031, 1032, 1033, 1034, 1035, 1036, 4 1037, 1038, 1039, 1040, 1041, 1042, 1043, 1044, 1045, 1046, 5 1047, 1048, 1049, 1050, 1051, 1052, 1053, 1054, 1055, 1056, 6 1057, 1058, 1059, 1060, 1061, 1062, 1063, 1064, 1065, 1066, 7 1067, 1068, 1069, 1070, 1071, 1072, 1073, 1074, 1075, 1076, 8 1076, 1077, 1078, 1079, 1080, 1081, 1082, 1083, 1084, 1085, 9 1086, 1087, 1088, 1089, 1090, 1091, 1092, 1093, 1094, 1095/ data (jb2(i),i= 1101, 1200)/ + 1096, 1096, 1097, 1098, 1099, 1099, 1100, 1101, 1102, 1103, 1 1104, 1104, 1105, 1106, 1107, 1108, 1109, 1110, 1111, 1112, 2 1113, 1114, 1115, 1116, 1117, 1118, 1119, 1120, 1121, 1122, 3 1123, 1123, 1125, 1126, 1127, 1128, 1129, 1130, 1131, 1132, 4 1133, 1134, 1135, 1136, 1137, 1137, 1138, 1139, 1140, 1141, 5 1142, 1143, 1144, 1145, 1146, 1147, 1148, 1149, 1150, 1151, 6 1152, 1153, 1154, 1155, 1155, 1157, 1158, 1159, 1160, 1161, 7 1161, 1162, 1163, 1164, 1165, 1166, 1167, 1168, 1169, 1170, 8 1171, 1172, 1173, 1174, 1175, 1176, 1177, 1178, 1179, 1180, 9 1181, 1182, 1183, 1183, 1184, 1185, 1187, 1188, 1189, 1190/ data (jb2(i),i= 1201, 1300)/ + 1191, 1192, 1193, 1193, 1194, 1195, 1196, 1197, 1198, 1199, 1 1200, 1201, 1202, 1203, 1204, 1205, 1206, 14, 1207, 1208, 2 1209, 1210, 1211, 1212, 1213, 1214, 1215, 1216, 1217, 1218, 3 1219, 1220, 1221, 1222, 1223, 1223, 1185, 1225, 1226, 1227, 4 1228, 1228, 1186, 1229, 1230, 1231, 1232, 1233, 1234, 1235, 5 1236, 1237, 1238, 1239, 1239, 1241, 1242, 1243, 1243, 1244, 6 1245, 1246, 1247, 1248, 1249, 1250, 1251, 1252, 1253, 1253, 7 1254, 1255, 1256, 1257, 1258, 1259, 1260, 1261, 1262, 1263, 8 1264, 1265, 1265, 1266, 1267, 1268, 1269, 1270, 1271, 1272, 9 1273, 1274, 1275, 1276, 1277, 1278, 1279, 1280, 1281, 1282/ data (jb2(i),i= 1301, 1400)/ + 1283, 1284, 1285, 1286, 1287, 1288, 1289, 1290, 1290, 1292, 1 1292, 1293, 1294, 1295, 1296, 1297, 1298, 1299, 1300, 1301, 2 1302, 16, 1303, 1304, 1305, 1306, 1307, 1308, 1309, 1309, 3 1311, 1312, 1313, 1314, 1314, 1315, 1316, 1317, 1318, 1319, 4 1320, 1321, 1322, 1323, 1324, 1325, 1326, 1327, 1328, 1329, 5 1330, 1332, 1332, 1334, 1335, 1336, 1337, 1337, 1339, 1340, 6 1341, 1342, 1343, 1344, 1345, 1346, 1346, 1331, 1347, 1348, 7 1349, 1350, 1351, 1352, 17, 1354, 1355, 1356, 1357, 1358, 8 1358, 1359, 1360, 1361, 1362, 1363, 1364, 1365, 1366, 1366, 9 1367, 1368, 1369, 1370, 1371, 1372, 1373, 1374, 1375, 1376/ data (jb2(i),i= 1401, 1500)/ + 1377, 1378, 1379, 1380, 1381, 1382, 1383, 1383, 1384, 1385, 1 1386, 1387, 1388, 1389, 1390, 1391, 1392, 1392, 1394, 1395, 2 1396, 1397, 1398, 1399, 1400, 1401, 1402, 1403, 1404, 1405, 3 1406, 1407, 1407, 1408, 1409, 1410, 1411, 1412, 1413, 1414, 4 1415, 1417, 1418, 1419, 1420, 1421, 1422, 1423, 1424, 1425, 5 1426, 1427, 1428, 1429, 1430, 1431, 1431, 1432, 1433, 1434, 6 1435, 1436, 1437, 1438, 1439, 1440, 1441, 1442, 1443, 1444, 7 1445, 1446, 1447, 1448, 1449, 1450, 1451, 1452, 1453, 1454, 8 1455, 1456, 1457, 1458, 1459, 1460, 1461, 1462, 1463, 1463, 9 1465, 1466, 1467, 1468, 1469, 1470, 1471, 1471, 1472, 1473/ data (jb2(i),i= 1501, 1600)/ + 1474, 1475, 1476, 1477, 1478, 1479, 1480, 1481, 1482, 1483, 1 1484, 1485, 1486, 1487, 1488, 1489, 1490, 1491, 1492, 1493, 2 1494, 1495, 1495, 1496, 1497, 1498, 1499, 1500, 1502, 1503, 3 1504, 1505, 1506, 1507, 1508, 1509, 1510, 1511, 1512, 1512, 4 1513, 1514, 1515, 1516, 1516, 1518, 1519, 1519, 1520, 1521, 5 19, 1523, 1524, 1525, 1526, 1526, 1527, 1528, 1529, 1530, 6 1531, 1532, 1533, 1533, 1535, 1535, 1537, 1538, 1539, 1540, 7 1541, 1542, 1543, 1543, 1544, 1545, 1546, 1547, 1548, 1549, 8 1550, 1551, 1552, 1553, 1554, 1555, 1556, 1557, 1558, 1559, 9 1560, 1561, 1562, 1563, 1563, 1564, 1565, 1566, 1567, 1568/ data (jb2(i),i= 1601, 1700)/ + 1569, 1570, 1571, 1572, 1573, 1574, 1575, 1576, 1577, 1578, 1 1579, 1579, 1580, 1581, 1582, 1583, 1584, 1585, 1586, 1587, 2 1587, 1588, 1589, 1590, 1591, 1592, 1593, 1594, 1595, 1596, 3 1597, 1598, 1598, 1599, 1600, 1601, 1602, 1603, 1604, 1605, 4 1606, 1608, 1609, 1610, 1611, 1612, 1613, 1614, 1615, 1616, 5 1617, 1618, 1619, 1620, 1621, 1621, 1622, 1623, 1624, 1625, 6 1626, 1627, 1628, 1629, 1630, 20, 1631, 1632, 1633, 1634, 7 1635, 1636, 1637, 1637, 1638, 1638, 1639, 1640, 1641, 1642, 8 1644, 1645, 1646, 1647, 1647, 1649, 1650, 1651, 1652, 1653, 9 1654, 1655, 1656, 1657, 1658, 1659, 1660, 1661, 1662, 1663/ data (jb2(i),i= 1701, 1800)/ + 1664, 1665, 1666, 1667, 21, 1668, 1669, 1670, 1671, 1672, 1 1673, 1674, 1675, 1675, 1676, 1677, 1678, 1679, 1680, 1681, 2 1682, 1683, 1684, 1685, 1686, 1687, 1688, 1689, 1690, 1691, 3 1692, 1693, 1694, 1695, 1696, 1697, 1698, 1699, 1700, 1701, 4 1702, 1703, 1704, 1705, 1706, 1707, 1708, 1709, 1710, 1711, 5 1712, 1713, 1714, 1715, 1716, 1717, 1718, 1719, 1720, 1721, 6 1721, 1722, 1723, 1724, 1725, 1726, 1727, 1728, 1729, 1730, 7 1731, 1732, 1733, 1734, 1735, 1736, 1737, 1738, 1739, 1740, 8 1741, 1741, 1742, 1743, 1744, 1745, 1746, 1746, 1748, 1749, 9 1750, 1750, 1751, 1752, 1753, 1754, 1755, 1756, 1757, 1758/ data (jb2(i),i= 1801, 1900)/ + 1759, 1760, 1761, 1762, 1763, 1763, 1764, 1765, 1766, 1767, 1 1768, 1769, 1770, 1771, 1772, 1773, 1774, 1775, 1776, 1777, 2 1778, 1779, 1780, 1781, 1782, 1783, 1784, 1785, 1786, 1787, 3 1788, 1789, 1790, 1791, 1792, 1793, 1794, 1795, 1796, 1797, 4 1798, 1799, 1800, 1801, 1802, 1802, 1803, 1804, 1805, 1806, 5 1807, 1808, 1809, 1810, 1810, 1811, 1812, 1813, 1814, 1815, 6 1816, 1817, 1818, 1819, 1820, 1821, 22, 1823, 1824, 1825, 7 1826, 1827, 1828, 1829, 1830, 1831, 1832, 1833, 1834, 1834, 8 1836, 1837, 1838, 1839, 1840, 1840, 1841, 1841, 1843, 1844, 9 1845, 1846, 1847, 1848, 1849, 1850, 1851, 1852, 1853, 1854/ data (jb2(i),i= 1901, 2000)/ + 1855, 1856, 1857, 1858, 1858, 1859, 1860, 1861, 1862, 1863, 1 1863, 23, 1864, 1866, 1867, 1868, 1869, 1870, 1871, 1872, 2 1873, 1874, 1875, 1876, 1877, 1878, 1879, 1880, 1881, 1881, 3 1882, 1883, 1884, 1885, 1886, 1887, 1887, 1889, 1890, 1891, 4 1892, 1893, 1894, 1895, 1896, 1897, 1898, 1899, 1900, 1901, 5 1902, 1903, 1904, 1905, 1906, 1906, 1907, 1908, 1909, 1910, 6 1911, 1912, 1913, 1914, 1915, 1916, 1917, 1918, 1919, 1920, 7 1921, 1922, 1923, 1924, 1925, 1926, 1927, 1928, 1929, 1929, 8 1930, 1931, 1932, 1933, 1934, 1935, 1936, 1937, 1938, 1939, 9 1940, 1941, 1942, 1943, 1944, 1945, 1946, 1947, 1947, 1949/ data (jb2(i),i= 2001, 2100)/ + 1950, 1951, 1952, 1953, 1954, 1955, 1956, 1957, 1957, 1959, 1 1960, 1961, 1962, 1963, 1964, 1965, 1966, 1967, 1968, 1969, 2 1970, 1971, 1972, 1972, 1973, 1974, 1975, 1976, 1977, 1978, 3 1978, 1979, 1980, 1981, 1982, 1983, 1984, 1985, 1986, 1987, 4 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1995, 1996, 5 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 6 2007, 2008, 2009, 2010, 2011, 2012, 2012, 2013, 2014, 2015, 7 2016, 2017, 2019, 2020, 2021, 2021, 2022, 2024, 2025, 2026, 8 2027, 2027, 2029, 2030, 2031, 2032, 2033, 2034, 2035, 2035, 9 2036, 2037, 2038, 2039, 2040, 2041, 2042, 2043, 2044, 2045/ data (jb2(i),i= 2101, 2200)/ + 2046, 2047, 2048, 2049, 2050, 2051, 2052, 2052, 2053, 2054, 1 2055, 2056, 2057, 2058, 2059, 2060, 2061, 2062, 2063, 2063, 2 2064, 2065, 2066, 2067, 2068, 2069, 2070, 2071, 2072, 2073, 3 2074, 2075, 2076, 2077, 2078, 2079, 2079, 2081, 2081, 2082, 4 2083, 2084, 2085, 2086, 2087, 2088, 2089, 2090, 2091, 2092, 5 2093, 2094, 2095, 2096, 2097, 2097, 2099, 2100, 2101, 2102, 6 2103, 2104, 2105, 2106, 2106, 2107, 2108, 2109, 2109, 2110, 7 2111, 2112, 2112, 2113, 2114, 2115, 2116, 2117, 2118, 2119, 8 2120, 2121, 2122, 2123, 2124, 2125, 2126, 2127, 2128, 2129, 9 2130, 2131, 2132, 2133, 2134, 2135, 2136, 2137, 2138, 2139/ data (jb2(i),i= 2201, 2300)/ + 2140, 2141, 2142, 2143, 2144, 2144, 2145, 2146, 2147, 2148, 1 2149, 2150, 2150, 2151, 2152, 2153, 2154, 2155, 2156, 2157, 2 2158, 2159, 2160, 2161, 2162, 2163, 2164, 2165, 2166, 2167, 3 2167, 2168, 2169, 2170, 2171, 2172, 2173, 2174, 2175, 2176, 4 2177, 2178, 2179, 2180, 2181, 2182, 2183, 2184, 2185, 2186, 5 2187, 2188, 2189, 2190, 2191, 2192, 2193, 2194, 2195, 2196, 6 2197, 2198, 2199, 2200, 2201, 2201, 2202, 2203, 2204, 2205, 7 2206, 2207, 2208, 2209, 2210, 2211, 2212, 2213, 2214, 2215, 8 2216, 2217, 2218, 2219, 2220, 2221, 2222, 2223, 2224, 2225, 9 2226, 2227, 2228, 2229, 2230, 2231, 2231, 2233, 2233, 2234/ data (jb2(i),i= 2301, 2400)/ + 2235, 2236, 2236, 2238, 2239, 2240, 2241, 2242, 2243, 2244, 1 2245, 2245, 2246, 2247, 2248, 2249, 2250, 2251, 2252, 2253, 2 2254, 2255, 2256, 2257, 2258, 2258, 2259, 2261, 2262, 2263, 3 2264, 2265, 2266, 2266, 2267, 2267, 2268, 2269, 2270, 2271, 4 2272, 2273, 2274, 2274, 2275, 2276, 2277, 2278, 2279, 2280, 5 2281, 2282, 2282, 2283, 2284, 2285, 2286, 2287, 2288, 2289, 6 2290, 2291, 2292, 2292, 2294, 2295, 2296, 2297, 2298, 2299, 7 2300, 2300, 2301, 2302, 2303, 2304, 2305, 2306, 2307, 2308, 8 2309, 2310, 2311, 2312, 2313, 2314, 2315, 2316, 2317, 2318, 9 2319, 2320, 2321, 2322, 2323, 2324, 2325, 2326, 2327, 2328/ data (jb2(i),i= 2401, 2500)/ + 2329, 2330, 2331, 2332, 2333, 2334, 2335, 2335, 2337, 2338, 1 2339, 2340, 2341, 2342, 2343, 2344, 2345, 2346, 2347, 2348, 2 2349, 2350, 2351, 2352, 2353, 2354, 2355, 2356, 2356, 2357, 3 2358, 2359, 2360, 2361, 2362, 2363, 2364, 2365, 2366, 2367, 4 2368, 2370, 2371, 2372, 2373, 2374, 2375, 2376, 2377, 2378, 5 2378, 2379, 2380, 2381, 2382, 2383, 2384, 2385, 2386, 2387, 6 2388, 2388, 2389, 2390, 2391, 2392, 2393, 2394, 2395, 2396, 7 2397, 2398, 2399, 2400, 2401, 2402, 2403, 2404, 2404, 2406, 8 2407, 2408, 2409, 2409, 2410, 2411, 2412, 2413, 2414, 2415, 9 2416, 2416, 2418, 2418, 2420, 2421, 2422, 2423, 2424, 2425/ data (jb2(i),i= 2501, 2600)/ + 2426, 2427, 2428, 2428, 2429, 2430, 2431, 2431, 2433, 2434, 1 2435, 2436, 2437, 2438, 2439, 2440, 2441, 2442, 2443, 2444, 2 2445, 2446, 2447, 2448, 2449, 2450, 2451, 2452, 2453, 2454, 3 2455, 2456, 2457, 2458, 2459, 2460, 2460, 2461, 2462, 2463, 4 2464, 2465, 2466, 2467, 2468, 2469, 2470, 2471, 2472, 2473, 5 2474, 2475, 2475, 2458, 2476, 2477, 2478, 2479, 2480, 2481, 6 2482, 2483, 2484, 2485, 2486, 2488, 2488, 2487, 2489, 2490, 7 2491, 2492, 2493, 2494, 2495, 2496, 2497, 2498, 2499, 2500, 8 2501, 2502, 2503, 2504, 2505, 2506, 2507, 2508, 2509, 2510, 9 2511, 2512, 2512, 2514, 2515, 2516, 2517, 2518, 2519, 2520/ data (jb2(i),i= 2601, 2700)/ + 2521, 2521, 2522, 2523, 2524, 2525, 2526, 2527, 2528, 2529, 1 2530, 2531, 2532, 2533, 2534, 2535, 2536, 2537, 2538, 2539, 2 2540, 2540, 2541, 2542, 2543, 2544, 2545, 2546, 2547, 2548, 3 2549, 2550, 2551, 2552, 2553, 2554, 2555, 2556, 2557, 2558, 4 2559, 2560, 2561, 2562, 2563, 2564, 2565, 2566, 2567, 2567, 5 2569, 2570, 2571, 2572, 2573, 2574, 2575, 2576, 2577, 2578, 6 2579, 2580, 2581, 2582, 2582, 2583, 2583, 2585, 2586, 2587, 7 2588, 2588, 2589, 2590, 2591, 2592, 2593, 2594, 2595, 2596, 8 2597, 2598, 2599, 2600, 2601, 2602, 2603, 2604, 2605, 2605, 9 2606, 2607, 2608, 2609, 2610, 2611, 2612, 2613, 2614, 2615/ data (jb2(i),i= 2701, 2800)/ + 2616, 2617, 2618, 2619, 2620, 2621, 2622, 2623, 2624, 2625, 1 2626, 2627, 2627, 2628, 2629, 2630, 2631, 2632, 2633, 2634, 2 2635, 2636, 2637, 2638, 2639, 2640, 2641, 2642, 2643, 2644, 3 2645, 2646, 2647, 2648, 2649, 2650, 2651, 2652, 2652, 2654, 4 2655, 2656, 2656, 2657, 2658, 2659, 2660, 2661, 2662, 2663, 5 2664, 2665, 2666, 2667, 2668, 2669, 2670, 2671, 2672, 2673, 6 2674, 2675, 2676, 2677, 2678, 2679, 2679, 2680, 2681, 2682, 7 2683, 2684, 2685, 2686, 2687, 2688, 2689, 2690, 2691, 2692, 8 2693, 2694, 2695, 2696, 2697, 2698, 2699, 2700, 2701, 2702, 9 2704, 2705, 2706, 2707, 2708, 2709, 2710, 2710, 2712, 2713/ data (jb2(i),i= 2801, 2900)/ + 2714, 2715, 2716, 2717, 2718, 2719, 2720, 2721, 2722, 2723, 1 2724, 2725, 2726, 2727, 2728, 2729, 2730, 2731, 2731, 2733, 2 2734, 2734, 2735, 2736, 2737, 2738, 2738, 2740, 2740, 2741, 3 2742, 2743, 2743, 2744, 2745, 2746, 2747, 2748, 2749, 2749, 4 2750, 2751, 2752, 2753, 2754, 2755, 2756, 2757, 2757, 2758, 5 2759, 2760, 2761, 2762, 2763, 31, 2764, 2765, 2766, 2767, 6 2768, 2769, 2770, 2771, 2772, 2773, 2773, 2775, 2776, 2777, 7 2778, 2779, 2780, 2781, 2782, 2783, 2784, 2785, 2785, 2787, 8 2788, 2789, 2789, 2790, 2791, 2792, 2793, 2794, 2795, 2797, 9 2798, 2799, 2800, 2801, 2802, 2803, 2804, 2805, 2806, 2807/ data (jb2(i),i= 2901, 3000)/ + 2808, 2809, 2810, 2811, 2812, 2813, 2814, 2815, 2816, 2817, 1 2818, 2819, 2820, 2820, 2821, 2822, 2823, 2824, 2825, 2826, 2 2827, 2828, 2829, 2830, 2831, 2833, 2834, 2835, 2836, 2837, 3 2838, 2839, 2840, 2840, 2841, 2842, 2843, 2844, 2845, 2846, 4 2846, 2847, 2848, 2849, 2850, 2851, 2852, 2853, 2853, 2854, 5 2855, 2856, 2857, 2858, 2859, 2860, 2861, 2862, 2863, 2864, 6 2865, 2866, 2867, 2868, 2868, 2869, 2869, 2796, 2870, 2871, 7 2873, 2874, 2875, 2876, 2877, 2877, 2878, 2879, 2880, 2881, 8 2882, 2883, 2884, 2885, 2886, 2887, 2888, 2889, 2890, 2891, 9 2892, 2893, 2893, 2895, 2896, 2897, 2898, 2898, 2899, 2900/ data (jb2(i),i= 3001, 3100)/ + 2901, 2902, 2903, 2904, 2905, 2906, 2907, 2908, 2909, 2910, 1 2910, 2911, 2912, 2913, 2914, 2915, 2916, 2917, 2918, 2919, 2 2920, 2921, 2922, 2923, 2924, 2925, 2926, 2927, 33, 2929, 3 2930, 2931, 2932, 2933, 2934, 2935, 2936, 2937, 2938, 2939, 4 2940, 2941, 2942, 2942, 2943, 2944, 2945, 2946, 2947, 2948, 5 2949, 2950, 2951, 2952, 2953, 2954, 2955, 2956, 2957, 2958, 6 2959, 2960, 2961, 2962, 2962, 2964, 2965, 2965, 2963, 2967, 7 2967, 2968, 2969, 2970, 2972, 2973, 2973, 2974, 2975, 2976, 8 2977, 2978, 2979, 2980, 2981, 2982, 2983, 2984, 2985, 2986, 9 2987, 2988, 2990, 2991, 2992, 2993, 2994, 2995, 2996, 2997/ data (jb2(i),i= 3101, 3200)/ + 2998, 2999, 3000, 3001, 3002, 3003, 3004, 3005, 3006, 3007, 1 3008, 3009, 3010, 3011, 3011, 3012, 3013, 3014, 3015, 3016, 2 3017, 3018, 3019, 3019, 3020, 3021, 3022, 3024, 3025, 3026, 3 3027, 3028, 3029, 3030, 3031, 3032, 3033, 3034, 3035, 3036, 4 3037, 3038, 3039, 3040, 3041, 3042, 3043, 3044, 3045, 3046, 5 3047, 3048, 3049, 3050, 3051, 3052, 3053, 3054, 3055, 3056, 6 3057, 3057, 3058, 3059, 3060, 3060, 3061, 3062, 3063, 3064, 7 3065, 3065, 3066, 3067, 3068, 3069, 3070, 3071, 3073, 3074, 8 3075, 3076, 3077, 3078, 3079, 3080, 3081, 3082, 3083, 3084, 9 3085, 3086, 3087, 3088, 3089, 3090, 3091, 3092, 3093, 3094/ data (jb2(i),i= 3201, 3300)/ + 3095, 3096, 3097, 3098, 3099, 3100, 3101, 3102, 3103, 3104, 1 3104, 3106, 3107, 3108, 3109, 3110, 3111, 3112, 3113, 3114, 2 3115, 3116, 3117, 3118, 3118, 3119, 3120, 3121, 3122, 3122, 3 3123, 3124, 3125, 3126, 3127, 3128, 3129, 3130, 3131, 3132, 4 3133, 3134, 3135, 3136, 3137, 3138, 3139, 3140, 3141, 3142, 5 3143, 3144, 3145, 3146, 3147, 3148, 3149, 3150, 3151, 3152, 6 3153, 3153, 3155, 3156, 3157, 3158, 3159, 3160, 3161, 3162, 7 3162, 3163, 3164, 3165, 3166, 3167, 3168, 3169, 3170, 3171, 8 3172, 3173, 3174, 3175, 3176, 3177, 3178, 3179, 3180, 3181, 9 3182, 3182, 3184, 3184, 3185, 3186, 3187, 3187, 3188, 3189/ data (jb2(i),i= 3301, 3400)/ + 3190, 3191, 3192, 3193, 3194, 3195, 3196, 3197, 3198, 3199, 1 3200, 3201, 3203, 3204, 3205, 3206, 3207, 3208, 3209, 3210, 2 3211, 3212, 3213, 3214, 3215, 3216, 3216, 3218, 3219, 3220, 3 3221, 3222, 3222, 3223, 3224, 3226, 3227, 3228, 3229, 3230, 4 3231, 3231, 3232, 3233, 3233, 3234, 3235, 3236, 3237, 3238, 5 3239, 3239, 3241, 3242, 3243, 3244, 3245, 3246, 3246, 3247, 6 3247, 3249, 3250, 3251, 3252, 3253, 3254, 3255, 3256, 3257, 7 3258, 3259, 3260, 3261, 3262, 3263, 3264, 3264, 3265, 3266, 8 3267, 3268, 3269, 3270, 3271, 3272, 3273, 3274, 3275, 3276, 9 3277, 3278, 3279, 3280, 3281, 3282, 3282, 3283, 3284, 3285/ data (jb2(i),i= 3401, 3500)/ + 38, 3286, 3287, 3288, 3289, 3290, 3291, 3292, 3293, 3294, 1 3295, 3296, 3297, 3298, 3299, 3300, 3301, 3302, 3303, 3304, 2 3305, 3306, 3307, 3308, 3309, 3310, 3311, 3311, 3312, 3313, 3 3314, 3315, 3316, 3317, 3317, 3319, 3320, 3321, 3322, 3322, 4 3323, 3324, 3325, 3326, 3327, 3328, 3329, 3330, 3332, 3333, 5 3334, 3335, 3336, 3337, 3338, 3339, 3340, 3341, 3342, 3343, 6 3344, 3345, 3346, 3347, 3348, 3349, 3350, 3350, 3352, 3352, 7 3353, 3353, 3355, 3356, 3357, 3358, 3359, 3360, 3361, 3362, 8 3363, 3363, 3364, 3365, 3366, 3367, 3368, 3369, 3370, 3371, 9 3372, 3373, 3374, 3375, 3376, 3377, 3378, 3379, 3380, 3381/ data (jb2(i),i= 3501, 3600)/ + 3382, 3383, 3384, 3385, 3386, 3387, 3388, 3389, 3390, 3390, 1 3391, 3392, 3393, 3394, 3395, 3396, 3397, 3398, 3399, 3400, 2 3400, 3401, 3403, 3404, 3405, 3406, 3407, 3408, 3409, 3410, 3 3411, 3411, 3402, 3412, 3413, 3413, 3414, 3415, 3416, 3417, 4 3418, 3419, 3420, 3421, 3422, 3423, 3424, 3425, 3426, 3427, 5 3428, 3429, 3429, 3431, 3432, 3433, 3434, 3435, 3436, 3437, 6 3437, 3439, 3439, 3440, 3441, 3442, 3443, 3444, 3445, 3446, 7 3447, 3448, 3449, 3449, 3450, 3451, 3453, 3454, 3455, 3456, 8 3457, 3458, 3459, 3460, 3461, 3462, 3463, 3464, 3465, 3465, 9 3466, 3467, 3468, 3469, 3470, 3471, 3471, 3472, 3473, 3474/ data (jb2(i),i= 3601, 3700)/ + 3475, 3476, 3477, 3478, 3479, 3480, 3481, 3482, 3483, 3484, 1 3485, 3486, 3487, 3488, 3489, 3490, 3491, 3492, 3493, 3494, 2 3495, 3496, 3497, 3498, 3499, 3500, 3501, 3502, 3503, 3504, 3 3505, 3506, 3507, 3508, 3509, 3510, 3511, 3512, 3513, 3514, 4 3514, 3515, 3516, 3517, 3518, 3519, 3520, 3521, 3522, 3523, 5 3524, 3525, 3526, 3527, 3528, 3529, 3530, 3531, 3532, 3533, 6 3534, 3535, 3536, 3537, 3538, 3539, 3540, 3541, 3542, 3543, 7 3544, 3545, 3546, 3547, 3548, 3549, 3550, 3551, 3552, 3553, 8 3554, 3555, 3556, 3557, 3558, 3559, 3560, 3560, 3562, 3563, 9 3564, 3565, 3566, 3567, 3568, 3569, 3570, 3570, 3571, 3572/ data (jb2(i),i= 3701, 3800)/ + 3573, 3574, 3575, 3576, 3577, 3578, 3579, 3580, 3581, 3583, 1 3584, 3585, 3586, 3587, 3588, 3589, 3590, 3591, 3592, 3593, 2 3594, 3595, 3596, 3597, 3597, 3598, 3599, 3600, 3601, 3602, 3 3603, 3604, 3605, 3606, 3607, 3608, 3609, 3610, 3611, 3612, 4 3613, 3614, 3615, 3616, 3616, 3617, 3618, 3619, 3620, 3621, 5 3622, 3623, 3624, 3625, 3626, 3627, 3628, 3629, 3630, 3630, 6 3631, 3632, 3633, 3633, 3634, 3635, 3636, 3637, 3638, 3639, 7 3640, 3641, 3642, 3643, 3644, 3645, 3646, 3647, 3648, 3649, 8 3650, 3651, 3652, 3653, 3654, 3655, 3656, 3657, 3657, 3659, 9 3660, 3661, 3662, 3663, 3664, 3664, 3666, 3666, 3667, 3668/ data (jb2(i),i= 3801, 3900)/ + 3669, 3670, 3671, 3672, 3672, 3673, 3674, 3675, 3676, 3677, 1 3678, 3679, 3680, 3681, 3682, 3683, 3684, 3686, 3687, 3688, 2 3689, 3689, 3690, 3691, 3692, 3693, 3694, 3694, 3695, 3696, 3 3697, 3698, 3698, 3700, 3701, 3702, 3702, 3703, 3704, 3705, 4 3706, 3707, 3707, 3708, 3709, 3710, 3711, 3712, 3713, 3714, 5 3715, 3716, 3717, 3718, 3719, 3720, 3721, 3722, 3723, 3724, 6 41, 3726, 3727, 3728, 3729, 3729, 3731, 3732, 3733, 3734, 7 3735, 3736, 3737, 3738, 3739, 3740, 3741, 3742, 3743, 3744, 8 3745, 3745, 3746, 3747, 3748, 3749, 3750, 3751, 3752, 3753, 9 3754, 3755, 3756, 3757, 3758, 3759, 3760, 3761, 3762, 3762/ data (jb2(i),i= 3901, 4000)/ + 3764, 3765, 3766, 3767, 3768, 3769, 3770, 3771, 3772, 3773, 1 3774, 3775, 3775, 3776, 3778, 3779, 3780, 3781, 3782, 3783, 2 3783, 3777, 3784, 3785, 3786, 3787, 3788, 3789, 3790, 3791, 3 3792, 3793, 3794, 3795, 3796, 3797, 3798, 3799, 3800, 3801, 4 3802, 3803, 42, 3805, 3805, 3807, 3808, 3809, 3810, 3811, 5 3812, 3813, 3814, 3815, 3816, 3817, 3818, 3819, 3820, 3821, 6 3822, 3823, 3824, 3825, 3826, 3827, 3828, 3829, 3830, 3831, 7 3832, 3833, 3834, 3835, 3836, 3837, 3838, 3839, 3840, 3841, 8 3842, 3843, 3844, 3845, 3846, 3847, 3847, 3806, 3848, 3849, 9 3850, 3851, 3851, 3852, 3853, 3854, 3855, 3856, 3857, 3857/ data (jb2(i),i= 4001, 4100)/ + 3859, 3860, 3861, 3862, 3863, 3864, 3865, 3866, 3867, 3868, 1 3869, 3869, 3870, 3871, 3872, 3873, 3874, 3875, 3876, 3877, 2 3878, 3879, 3880, 3881, 3882, 3883, 3884, 3885, 3886, 3886, 3 3887, 3888, 3889, 3890, 3891, 3892, 3893, 3893, 3894, 3895, 4 3896, 3897, 3898, 3899, 3900, 3901, 3902, 3903, 3904, 3905, 5 3906, 3907, 3908, 3909, 3910, 3911, 3912, 3913, 3914, 3915, 6 3916, 3917, 3919, 3920, 3921, 3922, 3923, 3924, 3925, 3926, 7 3927, 3928, 3929, 3930, 3931, 3932, 3933, 3934, 3935, 3936, 8 3937, 3938, 3939, 3940, 3941, 3941, 3918, 3943, 3944, 3945, 9 3946, 3946, 3942, 3947, 3948, 3949, 3950, 3951, 3952, 3953/ data (jb2(i),i= 4101, 4200)/ + 3954, 3955, 3956, 3957, 3958, 3958, 3959, 3960, 3960, 3962, 1 3963, 3964, 3965, 3966, 3967, 3968, 3969, 3969, 3970, 3971, 2 3972, 3973, 3974, 3975, 3976, 3977, 3978, 3979, 45, 3980, 3 3981, 3982, 3983, 3984, 3985, 3986, 3987, 3988, 3989, 3990, 4 3991, 3992, 3993, 3994, 3995, 3996, 3997, 3998, 3999, 46, 5 4000, 4001, 4002, 4003, 4004, 4005, 47, 4006, 4007, 4008, 6 4009, 4010, 4010, 4011, 4012, 4013, 4014, 4015, 4016, 4017, 7 4018, 4019, 4020, 4021, 4021, 49, 50, 4023, 4024, 4025, 8 4026, 4027, 4028, 4029, 4030, 4031, 4032, 4033, 4034, 4035, 9 4036, 4037, 4038, 4039, 4040, 4041, 4042, 4043, 4044, 4045/ data (jb2(i),i= 4201, 4300)/ + 4046, 4047, 4048, 4049, 4050, 4051, 4052, 4053, 4054, 4055, 1 4056, 4057, 4058, 4058, 51, 4059, 4060, 4061, 4062, 4063, 2 4064, 4065, 4066, 4067, 4068, 4069, 4070, 4071, 4072, 4072, 3 4073, 4074, 4075, 4076, 4077, 4078, 4079, 4080, 4081, 4082, 4 4083, 4084, 4085, 4086, 4087, 4088, 4089, 53, 2, 3, 5 4, 5, 5, 7, 8, 9, 10, 11, 12, 13, 6 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 7 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 8 34, 34, 36, 37, 38, 38, 40, 41, 41, 43, 9 44, 45, 45, 47, 48, 49, 49, 51, 52, 53/ data (jb2(i),i= 4301, 4390)/ + 54, 54, 56, 57, 57, 59, 60, 61, 62, 63, 1 64, 65, 66, 66, 68, 69, 70, 71, 72, 73, 2 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 3 84, 84, 86, 87, 88, 88, 90, 91, 92, 93, 4 93, 95, 96, 96, 98, 99, 99, 101, 102, 102, 5 104, 105, 106, 107, 108, 108, 110, 111, 112, 112, 6 114, 115, 115, 117, 118, 119, 119, 121, 122, 122, 7 124, 125, 126, 126, 128, 129, 129, 131, 132, 132, 8 134, 135, 136, 137, 138, 139, 140, 140, 0, 0/ c state=istate irot=jrot npart=ipart do i=1,5 jv(i)=kv(i) jb(i)=kb(i) ib(i)=iib(i) enddo do i=1,jv(npart+1)-1 ix(i)=jx(i) iy(i)=jy(i) enddo do i=1,jb(npart+1)-1 ib1(i)=jb1(i) ib2(i)=jb2(i) enddo return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine hi(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(*) :: jv,jb,ib,ix,iy,ib1,ib2 integer(kind=iknd), save, dimension(5) :: kv,kb,iib integer(kind=iknd), save, dimension(660) :: jx,jy,jb1,jb2 integer(kind=iknd), save :: jrot,ipart character(len=80) :: state character(len=80), save :: istate cy data istate/'hawaii '/ data jrot,ipart/1,1/ data kv/ 1, 653, 0, 0, 0/ data kb/ 1, 653, 0, 0, 0/ data iib/ 652, 0, 0, 0, 0/ data (jx(i),i= 1, 100)/ + 19584,19728,19800,19920,19992,20088,20136,20280,20688,20688, 1 20568,20784,20736,20808,20712,20808,20760,20976,20904,20736, 2 20592,20592,20520,20472,20400,20184,20064,20064,19992,20016, 3 19920,19992,20016,19704,19584,19608,19560,19536,18936,18912, 4 18312,18216,17856,17808,17808,17592,17496,17472,17328,17280, 5 17208,17064,16992,16944,16920,16824,16896,16896,16968,16920, 6 16944,16872,16944,17160,17112,16800,16872,16896,17376,17376, 7 17568,17592,17712,17712,17880,18288,18624,18912,19032,19200, 8 26448,26328,26352,26472,26352,26400,26544,26568,26856,26760, 9 26712,26640,26688,26448,26496,26592,26616,26712,26712,26808/ data (jx(i),i= 101, 200)/ + 27072,27168,27384,27432,27120,26568,26376,26208,25752,25584, 1 25584,25392,25392,24768,24648,24240,24168,24096,24168,24096, 2 24192,24120,24000,23952,23880,23568,23424,22992,22704,22776, 3 22896,23040,23112,23136,23352,23376,23592,23784,23832,24144, 4 24192,24384,24432,24360,24384,24576,24792,24960,25008,25056, 5 25488,25464,25560,25560,25800,25920,25896,26040,26016,25800, 6 25728,25584,25536,25632,25512,25656,25704,25992,26160,26184, 7 26376,26568,26856,27096,27192,27192,27408,27672,27768,27792, 8 27624,27552,27648,27864,27840,27792,27624,27504,27528,27480, 9 27408,27408,27168,27192,27072,27120,27000,27120,27240,27264/ data (jx(i),i= 201, 300)/ + 27216,27192,26952,26784,26712,26712,26640,26544,19128,19104, 1 19152,19224,19128,19104,19368,19440,19416,19368,19464,19896, 2 20064,20112,20208,20256,20664,20952,21240,21552,21576,21648, 3 21696,21840,21864,22008,21936,21816,21696,21576,21480,20880, 4 20808,20832,20736,20664,20568,20352,19944,19896,19728,19728, 5 19632,26712,26568,26544,26592,27240,27312,27264,27168,28584, 6 28536,28440,28464,28392,28464,28392,28416,28152,28224,28128, 7 28488,28632,28752,28944,29088,29160,29496,29640,29712,29616, 8 29592,29424,29520,29544,29616,29808,29784,30192,30096,30120, 9 29928,29856,29664,29424,29232,29232,28776,28824,28728,28656/ data (jx(i),i= 301, 400)/ + 28680,28776,28656,28800,28752,28824,28776,28824,28752,28824, 1 28728,28776,28656,28296,28176,28296,28536,28608,31752,31992, 2 32016,32256,32688,32832,33432,33408,33696,33624,33720,33696, 3 33744,33696,33744,33384,33192,32712,32352,32232,32232,32064, 4 31968,31704,31536,31464,31536,31536,34464,34536,34512,34680, 5 34656,34872,34872,34776,34824,35184,35208,35304,35352,35448, 6 35376,35400,35232,35160,35232,35208,35064,34944,34728,34680, 7 34104,33384,33048,32928,33192,33000,32976,32784,32808,32496, 8 32472,32088,31920,31776,31656,31320,30600,30528,30456,30432, 9 30312,30336,30240,30240,30408,30480,30648,30600,30792,30816/ data (jx(i),i= 401, 500)/ + 31008,31200,31344,31368,31608,31632,31848,31848,31752,31752, 1 31656,31656,31488,31296,31296,31200,31176,31248,31200,31320, 2 31272,31344,31296,31368,31608,31584,31656,31800,31872,31896, 3 32016,32112,32160,32112,32208,32496,32544,32472,32664,32664, 4 32808,32952,33048,33144,33120,33288,33288,33384,33840,34032, 5 34152,34248,34344,34560,35424,35616,35736,35928,36096,36240, 6 36312,36360,36264,36144,36192,36312,36168,36216,36072,36288, 7 36144,36120,36168,36000,35904,35904,35856,35568,35544,35400, 8 35280,35160,35160,45744,45864,45984,46392,46800,46848,46968, 9 46992,47088,47304,47592,47664,47760,47976,48336,48552,48648/ data (jx(i),i= 501, 600)/ + 48864,48912,49296,50160,50304,51192,51480,51456,51552,51672, 1 51912,52296,52320,52464,52464,52800,52920,52992,53472,53736, 2 53880,54168,54048,54072,53928,53832,53736,53688,53496,53472, 3 53112,53040,52872,52632,52200,52128,51912,51792,51696,51576, 4 51528,51264,50808,50160,49488,49320,49008,48552,47808,47400, 5 47376,47160,47112,46776,46512,46272,46128,45960,45816,45432, 6 45168,44712,44616,44664,44616,44808,44688,44808,44808,44304, 7 43920,43848,43584,43320,43152,43032,42864,42768,42576,42552, 8 42288,42168,42048,41904,41568,41448,41328,41208,41160,40704, 9 40632,40656,40512,40512,40392,40296,40440,40344,40176,40128/ data (jx(i),i= 601, 660)/ + 39936,39504,39264,39216,39120,38976,38904,38832,38760,38760, 1 39096,39696,39768,40104,40632,40680,40968,41016,41136,41184, 2 41520,41832,42192,42144,42144,42408,42480,42456,42552,42552, 3 42768,42864,42936,42960,43080,43224,43464,43488,43584,43800, 4 43896,43896,44088,44232,44256,44400,44496,44904,44952,45000, 5 45120,45360, 0, 0, 0, 0, 0, 0, 0, 0/ data (jy(i),i= 1, 100)/ + 15528,15672,15960,16056,16536,16608,16728,16776,17184,17256, 1 17328,17856,17904,18048,18120,18360,18456,18912,18912,19224, 2 19344,19488,19464,19536,19560,19896,19896,19776,19800,19872, 3 19920,19944,20088,20088,20136,20040,20016,20088,20040,20208, 4 20400,20496,20472,20448,20328,20328,20280,20304,20232,20064, 5 20064,19896,19512,19536,19416,19320,19272,19104,19032,18936, 6 18696,18456,18336,18312,18072,17736,17664,17472,16848,16680, 7 16368,16152,16032,15960,15864,15744,15312,15264,15168,15240, 8 34896,34704,34536,34560,34392,34344,34416,34512,34584,34512, 9 34392,34392,34296,34176,34056,34080,34032,34104,34272,34464/ data (jy(i),i= 101, 200)/ + 34584,34560,33672,33144,32952,32760,32640,32352,32232,32016, 1 31944,31872,31752,31752,31680,31248,31944,32064,32184,32808, 2 32952,32976,33120,33048,33072,33528,33504,33936,34344,34632, 3 34776,34848,34992,34944,35088,35184,35088,35208,35328,35472, 4 35544,35592,35616,35688,35832,35952,36000,35976,35856,35832, 5 35976,36024,36120,36192,36264,36384,36504,36576,36672,36816, 6 36648,36648,36744,37008,37128,37152,37032,36960,37080,37272, 7 37368,37320,37440,37848,37872,37992,37896,37464,37536,37320, 8 37296,37200,36744,36408,36240,36120,36048,35952,35856,35784, 9 35832,35616,35688,35592,35520,35424,35400,35160,35112,34992/ data (jy(i),i= 201, 300)/ + 34944,34704,34608,34632,34704,34896,34848,34920,12096,12048, 1 12024,12048,12144,12120,12336,12240,12168,12144,11928,11760, 2 11520,11304,11304,11040,10656,10584,10416,10392,10488,10464, 3 10560,10632,10752,10896,10968,10920,11064,11016,11064,11448, 4 11688,11952,12024,12216,12288,12192,12216,12312,12360,12432, 5 12504,34632,34752,34728,34608,35448,35448,35592,35448,44688, 6 44064,43872,43680,43536,43320,43176,42912,42624,42480,42120, 7 42240,42216,42168,41832,41808,41712,41568,41640,42168,42768, 8 43488,43872,43944,44328,44568,44712,44880,46272,46392,46488, 9 46848,47160,47376,47640,47760,47808,48000,47664,47664,47616/ data (jy(i),i= 301, 400)/ + 47232,47088,46968,46632,46536,46320,46296,46152,46008,45984, 1 45696,45672,45432,45288,45168,45048,45000,44928,46152,46344, 2 46464,46704,46992,46992,46632,46464,46080,46056,45696,45624, 3 45504,45432,45288,45072,45024,45024,44832,44640,44496,44352, 4 44304,44352,44664,45048,45288,45720,55104,54912,54816,54648, 5 54528,54264,53760,53592,53376,52824,52608,52560,51936,51720, 6 51576,51240,51216,51120,51072,51024,50928,50928,50808,50904, 7 50856,50736,50592,50256,49944,49632,49392,49152,48912,48768, 8 48672,48336,48264,48288,48192,48192,48456,48696,48768,48720, 9 48768,49080,49176,49272,49344,49656,49680,49752,49896,49968/ data (jy(i),i= 401, 500)/ + 50016,50184,50184,50280,50376,50496,50592,50616,50640,50856, 1 51096,51264,51600,51840,51960,52056,52248,52320,52584,52728, 2 52824,52896,52920,53184,53184,53328,53352,53520,53496,53544, 3 53856,53856,53976,54192,54264,54360,54432,54696,54960,55104, 4 55488,55608,55776,55800,55848,55800,55848,55848,55728,55608, 5 55344,55272,55368,55224,48984,48816,48480,48288,48216,48432, 6 48432,48600,48768,48816,48864,48864,49152,49248,49344,49440, 7 49584,49800,49872,50016,50016,49800,49776,49848,49920,49896, 8 49824,49608,49416,55536,55560,55920,56112,56184,56256,56208, 9 56304,56328,56256,56400,56400,56688,56640,56736,56856,56784/ data (jy(i),i= 501, 600)/ + 56904,57000,57120,57096,57024,56976,56880,56928,56928,56856, 1 56832,56952,57048,57120,57168,57240,57408,57984,58680,59256, 2 59400,59400,59616,59664,59760,59928,59928,60024,60072,60288, 3 60432,60504,60528,60768,60792,60912,61032,61272,61248,61416, 4 61752,61992,64343,66287,66743,66575,67079,67463,68399,68663, 5 68615,68639,68783,68279,67655,67439,67199,67175,66887,66839, 6 66887,66671,66551,66479,66071,65951,65927,65807,65711,65615, 7 65663,65591,65687,65639,65543,65327,65255,65111,65063,64919, 8 64679,64415,64319,64031,63599,63167,63095,62831,62568,61824, 9 61584,61464,61176,61008,60792,60432,60144,60000,59928,59688/ data (jy(i),i= 601, 660)/ + 59472,58656,58608,58416,58416,57912,57864,57552,57504,57192, 1 56808,56736,56808,56832,56952,57048,57216,57288,57312,57408, 2 57624,57624,57552,57480,57384,57168,57192,57096,57096,57024, 3 56976,56880,56904,56832,56784,56592,56592,56256,56040,55872, 4 55872,55776,55656,55512,55392,55296,55272,55296,55200,55200, 5 55296,55344, 0, 0, 0, 0, 0, 0, 0, 0/ data (jb1(i),i= 1, 100)/ + 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 1 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 2 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 3 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 4 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 5 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 6 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 7 71, 72, 73, 74, 75, 76, 77, 78, 79, 1, 8 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 9 91, 92, 93, 94, 95, 96, 97, 98, 99, 100/ data (jb1(i),i= 101, 200)/ + 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 1 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 2 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 3 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 4 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 5 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 6 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 7 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 8 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 9 191, 192, 193, 194, 195, 196, 197, 198, 199, 200/ data (jb1(i),i= 201, 300)/ + 201, 202, 203, 204, 205, 206, 207, 81, 209, 210, 1 211, 212, 213, 209, 215, 216, 217, 218, 219, 220, 2 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 3 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 4 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 5 215, 252, 253, 254, 252, 256, 257, 258, 256, 260, 6 261, 262, 263, 264, 265, 266, 267, 268, 269, 270, 7 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 8 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, 9 291, 292, 293, 294, 295, 296, 297, 298, 299, 300/ data (jb1(i),i= 301, 400)/ + 301, 302, 303, 304, 305, 306, 307, 308, 309, 310, 1 311, 312, 313, 314, 315, 316, 317, 260, 319, 320, 2 321, 322, 323, 324, 325, 326, 327, 328, 329, 330, 3 331, 332, 333, 334, 335, 336, 337, 338, 339, 340, 4 341, 342, 343, 344, 345, 319, 347, 348, 349, 350, 5 351, 352, 353, 354, 355, 356, 357, 358, 359, 360, 6 361, 362, 363, 364, 365, 366, 367, 368, 369, 370, 7 371, 372, 373, 374, 375, 376, 377, 378, 379, 380, 8 381, 382, 383, 384, 385, 386, 387, 388, 389, 390, 9 391, 392, 393, 394, 395, 396, 397, 398, 399, 400/ data (jb1(i),i= 401, 500)/ + 401, 402, 403, 404, 405, 406, 407, 408, 409, 410, 1 411, 412, 413, 414, 415, 416, 417, 418, 419, 420, 2 421, 422, 423, 424, 425, 426, 427, 428, 429, 430, 3 431, 432, 433, 434, 435, 436, 437, 438, 439, 440, 4 441, 442, 443, 444, 445, 446, 447, 448, 449, 450, 5 451, 452, 453, 347, 455, 456, 457, 458, 459, 460, 6 461, 462, 463, 464, 465, 466, 467, 468, 469, 470, 7 471, 472, 473, 474, 475, 476, 477, 478, 479, 480, 8 481, 482, 455, 484, 485, 486, 487, 488, 489, 490, 9 491, 492, 493, 494, 495, 496, 497, 498, 499, 500/ data (jb1(i),i= 501, 600)/ + 501, 502, 503, 504, 505, 506, 507, 508, 509, 510, 1 511, 512, 513, 514, 515, 516, 517, 518, 519, 520, 2 521, 522, 523, 524, 525, 526, 527, 528, 529, 530, 3 531, 532, 533, 534, 535, 536, 537, 538, 539, 540, 4 541, 542, 543, 544, 545, 546, 547, 548, 549, 550, 5 551, 552, 553, 554, 555, 556, 557, 558, 559, 560, 6 561, 562, 563, 564, 565, 566, 567, 568, 569, 570, 7 571, 572, 573, 574, 575, 576, 577, 578, 579, 580, 8 581, 582, 583, 584, 585, 586, 587, 588, 589, 590, 9 591, 592, 593, 594, 595, 596, 597, 598, 599, 600/ data (jb1(i),i= 601, 660)/ + 601, 602, 603, 604, 605, 606, 607, 608, 609, 610, 1 611, 612, 613, 614, 615, 616, 617, 618, 619, 620, 2 621, 622, 623, 624, 625, 626, 627, 628, 629, 630, 3 631, 632, 633, 634, 635, 636, 637, 638, 639, 640, 4 641, 642, 643, 644, 645, 646, 647, 648, 649, 650, 5 651, 484, 0, 0, 0, 0, 0, 0, 0, 0/ data (jb2(i),i= 1, 100)/ + 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 1 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 2 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 3 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 4 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 5 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 6 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 7 72, 73, 74, 75, 76, 77, 78, 79, 80, 80, 8 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 9 92, 93, 94, 95, 96, 97, 98, 99, 100, 101/ data (jb2(i),i= 101, 200)/ + 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 1 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 2 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 3 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 4 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 5 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 6 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 7 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 8 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 9 192, 193, 194, 195, 196, 197, 198, 199, 200, 201/ data (jb2(i),i= 201, 300)/ + 202, 203, 204, 205, 206, 207, 208, 208, 210, 211, 1 212, 213, 214, 214, 216, 217, 218, 219, 220, 221, 2 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 3 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 4 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 5 251, 253, 254, 255, 255, 257, 258, 259, 259, 261, 6 262, 263, 264, 265, 266, 267, 268, 269, 270, 271, 7 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 8 282, 283, 284, 285, 286, 287, 288, 289, 290, 291, 9 292, 293, 294, 295, 296, 297, 298, 299, 300, 301/ data (jb2(i),i= 301, 400)/ + 302, 303, 304, 305, 306, 307, 308, 309, 310, 311, 1 312, 313, 314, 315, 316, 317, 318, 318, 320, 321, 2 322, 323, 324, 325, 326, 327, 328, 329, 330, 331, 3 332, 333, 334, 335, 336, 337, 338, 339, 340, 341, 4 342, 343, 344, 345, 346, 346, 348, 349, 350, 351, 5 352, 353, 354, 355, 356, 357, 358, 359, 360, 361, 6 362, 363, 364, 365, 366, 367, 368, 369, 370, 371, 7 372, 373, 374, 375, 376, 377, 378, 379, 380, 381, 8 382, 383, 384, 385, 386, 387, 388, 389, 390, 391, 9 392, 393, 394, 395, 396, 397, 398, 399, 400, 401/ data (jb2(i),i= 401, 500)/ + 402, 403, 404, 405, 406, 407, 408, 409, 410, 411, 1 412, 413, 414, 415, 416, 417, 418, 419, 420, 421, 2 422, 423, 424, 425, 426, 427, 428, 429, 430, 431, 3 432, 433, 434, 435, 436, 437, 438, 439, 440, 441, 4 442, 443, 444, 445, 446, 447, 448, 449, 450, 451, 5 452, 453, 454, 454, 456, 457, 458, 459, 460, 461, 6 462, 463, 464, 465, 466, 467, 468, 469, 470, 471, 7 472, 473, 474, 475, 476, 477, 478, 479, 480, 481, 8 482, 483, 483, 485, 486, 487, 488, 489, 490, 491, 9 492, 493, 494, 495, 496, 497, 498, 499, 500, 501/ data (jb2(i),i= 501, 600)/ + 502, 503, 504, 505, 506, 507, 508, 509, 510, 511, 1 512, 513, 514, 515, 516, 517, 518, 519, 520, 521, 2 522, 523, 524, 525, 526, 527, 528, 529, 530, 531, 3 532, 533, 534, 535, 536, 537, 538, 539, 540, 541, 4 542, 543, 544, 545, 546, 547, 548, 549, 550, 551, 5 552, 553, 554, 555, 556, 557, 558, 559, 560, 561, 6 562, 563, 564, 565, 566, 567, 568, 569, 570, 571, 7 572, 573, 574, 575, 576, 577, 578, 579, 580, 581, 8 582, 583, 584, 585, 586, 587, 588, 589, 590, 591, 9 592, 593, 594, 595, 596, 597, 598, 599, 600, 601/ data (jb2(i),i= 601, 660)/ + 602, 603, 604, 605, 606, 607, 608, 609, 610, 611, 1 612, 613, 614, 615, 616, 617, 618, 619, 620, 621, 2 622, 623, 624, 625, 626, 627, 628, 629, 630, 631, 3 632, 633, 634, 635, 636, 637, 638, 639, 640, 641, 4 642, 643, 644, 645, 646, 647, 648, 649, 650, 651, 5 652, 652, 0, 0, 0, 0, 0, 0, 0, 0/ c state=istate irot=jrot npart=ipart do i=1,5 jv(i)=kv(i) jb(i)=kb(i) ib(i)=iib(i) enddo do i=1,jv(npart+1)-1 ix(i)=jx(i) iy(i)=jy(i) enddo do i=1,jb(npart+1)-1 ib1(i)=jb1(i) ib2(i)=jb2(i) enddo return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine id(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(*) :: jv,jb,ib,ix,iy,ib1,ib2 integer(kind=iknd), save, dimension(5) :: kv,kb,iib integer(kind=iknd), save, dimension(1310) :: jx,jy integer(kind=iknd), save, dimension(1350) :: jb1,jb2 integer(kind=iknd), save :: jrot,ipart character(len=80) :: state character(len=80), save :: istate cy data istate/'idaho '/ data jrot,ipart/0,1/ data kv/ 1,1305, 0, 0, 0/ data kb/ 1,1348, 0, 0, 0/ data iib/ 428, 0, 0, 0, 0/ data (jx(i),i= 1, 100)/ + 13464,18648,13416,18720,13416,13416,24744,13440,26784,14808, 1 27240,15432,14256,44208,37440,14232,13752,13488,25248,29736, 2 37320,42600,13488,18600,24456,24240,24120,24048,23904,23784, 3 23736,23592,23424,23136,23064,22848,22896,22752,22728,22248, 4 22152,22032,21744,21624,21456,21216,21096,20928,20856,20520, 5 20352,20352,20496,20688,20880,20952,21000,20880,20808,20712, 6 20592,20640,20352,20448,20688,20640,20448,20472,20304,20208, 7 20160,20088,19896,19824,19776,19608,19536,19008,18864,26688, 8 26544,26616,26448,26232,26136,26016,25872,25848,25728,25848, 9 25800,25704,25488,25272,25104,25080,24936,24936,24840,24936/ data (jx(i),i= 101, 200)/ + 24888,24960,27096,27192,27312,27504,27648,28056,28248,28296, 1 28296,28200,28248,28176,28200,28128,27960,27888,27888,28056, 2 27984,27816,27864,27768,27792,27600,27576,27696,27720,27600, 3 27408,27312,27360,27576,27672,27624,27504,27456,27624,27552, 4 27600,27720,27984,28008,27888,28152,28008,27864,27624,27528, 5 27480,27168,27192,27288,27336,27552,27576,27504,27576,27528, 6 27216,27360,14448,14376,14256,14256,14136,13944,13752,13776, 7 13896,14088,13848,13848,13704,13704,13560,13488,13344,13296, 8 13464,15504,15504,15912,15960,16152,16152,16272,16320,16536, 9 16632,16272,16176,15840,15552,15288,14904,14856,37464,37272/ data (jx(i),i= 201, 300)/ + 37128,37056,36960,36696,36384,36240,36312,36096,36144,35856, 1 36024,36024,35952,35928,35736,35688,35496,35520,35280,35136, 2 34848,34320,34272,34296,34248,34056,33864,33840,33648,33408, 3 33696,33672,33720,33600,33624,33408,33384,33216,33288,33192, 4 33048,32904,32928,32784,32784,32520,32376,32232,32184,32256, 5 31920,31920,31680,31776,31680,31632,31752,31680,31584,31320, 6 31416,31512,31488,31368,31248,31176,30912,30936,30744,30696, 7 30528,30432,30264,30192,30264,30000,29880,29688,29616,29376, 8 29304,29016,29016,28896,28752,28536,28416,28320,28032,27960, 9 27816,27816,27576,27432,27312,15360,15168,14880,14880,14784/ data (jx(i),i= 301, 400)/ + 14544,14472,14496,14568,14616,14496,14592,14568,14448,14256, 1 14208,13992,13824,13824,13752,13464,13344,13008,12792,12552, 2 12408,12576,12288,12432,12384,12528,12600,12816,12840,12936, 3 12960,13296,13320,13488,13680,14016,14064,43728,43656,43464, 4 43392,43152,43056,42912,42768,42336,42120,41832,41880,41688, 5 41448,41280,40824,40704,40536,40272,40032,40032,39912,39624, 6 39456,39216,38976,38832,38640,38280,37944,37800,37608,37368, 7 37320,44400,44616,44808,44904,45096,45072,44808,44832,44736, 8 44712,44808,44736,44880,44976,44880,45144,45288,45360,45360, 9 45432,45576,45768,46128,46104,46200,46440,46320,46392,46632/ data (jx(i),i= 401, 500)/ + 46728,46968,46992,47088,47472,47784,48072,13872,13824,13872, 1 13776,14016,13968,14016,13992,13824,13800,14112,13488,13608, 2 13752,19608,13464,48336,48600,46176,48888,32280,14760,14784, 3 15600,15600,16296,16296,17256,18408,18288,18120,17928,17736, 4 17568,17256,17280,15864,15864,15648,15648,15072,15072,14904, 5 14904,14664,14664,17304,16584,16584,14544,14544,14400,14232, 6 14040,13896,13776,13848,13776,13632,17304,17328,16608,16632, 7 16800,17088,17088,15696,15312,15216,18192,18072,17448,17376, 8 18336,18432,18528,18840,19008,19296,19680,20280,20496,20616, 9 20640,20832,20880,21072,21168,16872,16896,17112,17160,17112/ data (jx(i),i= 501, 600)/ + 16536,16464,16440,15192,15384,15264,15264,15576,15624,15960, 1 16248,16272,16320,16320,16512,16536,16680,16728,16848,16992, 2 17376,17472,17616,18096,18168,18384,18432,18720,18960,19104, 3 18960,18912,18696,18480,15048,15024,15120,15024,26592,26688, 4 27120,26976,26760,26664,26664,26472,26424,26304,26136,25992, 5 25944,26064,26328,26568,26592,26712,26904,27024,17328,17592, 6 17544,17592,17664,17688,17568,17568,18456,18576,18792,18960, 7 19368,19440,19392,26016,26136,26256,26280,26448,26496,26424, 8 26496,26400,26472,26424,26472,26400,26472,26376,26424,18432, 9 18288,18408,18288,18312,18120,18216,18384,18408,18552,18624/ data (jx(i),i= 601, 700)/ + 18528,18576,18672,18696,18768,18648,18480,14688,14688,14808, 1 14808,15768,15792,15936,15888,16320,16344,17016,17616,34680, 2 34560,34584,34368,34104,34080,33912,33816,33720,33576,33384, 3 33264,33120,32640,32496,31896,31560,31128,30816,30672,30624, 4 30528,30360,30168,29856,29424,29376,29472,29520,29472,29352, 5 29136,29040,28872,28824,28728,28608,28584,28416,28320,28368, 6 28512,28440,28488,28176,28128,27912,27720,27624,27480,27264, 7 27288,27048,26904,26496,26400,26184,26112,25992,26088,23376, 8 23640,23760,23688,23736,23616,23424,23352,23280,23400,23520, 9 23544,23712,23712,23856,24024,24168,24120,24480,24792,24792/ data (jx(i),i= 701, 800)/ + 24864,24912,25008,25200,25416,25440,41376,42096,42048,42744, 1 42720,43032,43008,43344,43320,44304,17688,17976,18096,18264, 2 16800,17328,17328,17400,17376,37488,37560,36528,25200,25200, 3 25320,25200,25224,25104,24936,24816,24888,24984,25080,25104, 4 25104,24936,24816,24984,24912,24768,24744,24576,24480,24360, 5 24264,24144,24072,24168,24072,24024,23976,23880,23832,23688, 6 23640,23424,34104,34176,33912,34056,34008,34056,33960,34008, 7 34248,34368,34512,34512,34248,34080,34080,33864,33480,33336, 8 32784,32544,32376,32136,18456,18480,18120,18144,18672,18744, 9 21984,22392,22824,22872,23088,22992,23040,23184,38328,36624/ data (jx(i),i= 801, 900)/ + 17760,17808,17784,38304,42480,42456,41424,20784,20856,21000, 1 21120,21432,21600,21528,21528,21648,21720,21936,22032,22032, 2 22128,22152,22272,22440,22968,23208,23520,23544,23784,23976, 3 23760,24120,24240,24288,24264,24480,24600,24624,24576,24720, 4 24672,24768,24888,24984,16776,16320,16320,16080,16104,15288, 5 15312,45792,45672,45528,45240,44880,44880,44112,44088,43296, 6 43272,44664,44640,44088,43968,43776,43488,43248,43128,43008, 7 42816,42552,32088,32040,31896,31728,31512,31416,31104,30768, 8 30720,30624,30576,30240,30048,29928,29376,29280,29232,28896, 9 28800,28512,28152,28056,27912,27888,27672,27552,27504,27360/ data (jx(i),i= 901, 1000)/ + 26952,26184,26160,25824,25632,25440,25296,25152,25296,25200, 1 14832,14832,14496,14496,14280,14280,14160,14160,13920,13920, 2 28872,28848,28752,28728,28680,27912,27960,27936,27840,27816, 3 28032,27984,27792,27672,27528,27576,27528,27312,27120,27000, 4 27120,27096,27024,26976,27024,26976,27000,27096,26952,26904, 5 26832,26784,26736,26616,26472,26352,26040,25968,26016,25776, 6 25416,16440,24768,24696,24864,25008,24960,25128,25080,24936, 7 24936,24960,25128,16464,16464,16704,16704,16464,18288,18288, 8 18432,18600,18600,18720,18744,18840,18840,18960,18960,19368, 9 19440,39480,38472,20616,39528,36792,37152,37128,37200,37152/ data (jx(i),i= 1001, 1100)/ + 38856,38808,34752,34728,33144,33144,33312,33360,33168,32928, 1 32904,32784,32736,32664,32520,32376,19704,19776,20208,19872, 2 20520,19464,19536,19680,19584,17928,39576,41976,42000,42336, 3 42360,43632,43680,45048,45144,16392,16104,15816,15576,15168, 4 14952,14928,14712,14520,14304,14208,13920,13800,17736,17520, 5 17232,17256,17088,17016,32712,34488,34608,34272,34296,27648, 6 32808,32568,32592,31584,36864,35832,35712,35688,36048,36000, 7 35664,35496,24936,24816,42432,38424,38088,36936,38496,38664, 8 38880,25104,22680,22680,22752,22728,22416,22176,21864,21576, 9 21312,20808,20664,20640,20424,20184,20016,19896,19656,19704/ data (jx(i),i= 1101, 1200)/ + 19392,19176,18984,18792,18600,18624,18384,18264,18312,18240, 1 18048,27696,38568,38448,38544,38568,38616,38736,38688,38760, 2 39024,39408,39576,39816,39840,39960,39984,40176,40200,40464, 3 40488,40704,40704,40512,40536,43752,43728,43632,43608,43488, 4 43464,43248,43248,43152,43176,43080,42576,42384,42312,42240, 5 42120,42048,42144,42144,42000,42024,42072,42240,42336,42504, 6 27624,27384,27240,26808,26472,26400,26352,26232,26256,26184, 7 25872,25704,25728,25848,25896,25800,25704,25512,25032,25032, 8 24936,24936,25104,30888,30864,29160,29136,29016,29016,27576, 9 31656,34056,33744,33336,33096,32736,32616,32496,32256,31968/ data (jx(i),i= 1201, 1300)/ + 34896,35280,35544,35592,37200,37080,36072,36048,31200,30960, 1 30480,30288,30144,29856,29304,29040,28536,28200,27720,40080, 2 40128,39192,39240,40728,40752,41064,41232,41304,41352,41160, 3 41208,41304,41448,41568,41952,42168,42384,29616,30888,30840, 4 30888,31200,43200,43200,43752,43656,42576,42624,42720,42744, 5 42504,47184,46992,46896,46848,46728,46320,46224,46176,46080, 6 46056,45960,46872,47136,47472,47664,47904,45432,45528,45456, 7 45384,45168,45240,45144,45288,46824,46920,47208,47376,47544, 8 47520,47400,47520,47880,47952,48192,48480,48504,44784,44784, 9 44568,44568,46080,45576,45624,45360,45432,45648,45504,45648/ data (jx(i),i= 1301, 1310)/ + 45672,45552,45504,45408, 0, 0, 0, 0, 0, 0/ data (jy(i),i= 1, 100)/ + 60744,58056,53832,53832,48984,47088,45696,42456,43392,37008, 1 34848,32352,28944,27624,26088,23472,21312,19728, 6480, 6576, 2 6912, 7176,61968,62016,46008,45984,46416,46560,46632,46776, 3 46992,47040,47280,47424,47616,47688,47928,48072,48216,48264, 4 48384,48360,48432,48552,48912,49128,49176,49200,49344,49512, 5 49488,49560,49680,49752,49752,49800,49896,49920,50016,49992, 6 50256,50376,50472,50640,50856,51120,51288,51696,51816,51840, 7 52032,52128,52104,52344,52680,52848,52800,53472,53760,43416, 8 43608,43968,44160,44184,44016,43992,43848,43920,43968,44232, 9 44376,44472,44520,44736,44664,44808,44904,45048,45144,45264/ data (jy(i),i= 101, 200)/ + 45408,45552,43512,43440,43464,43392,43584,43704,43608,43512, 1 43248,43080,42936,42768,42480,42408,42384,42336,42216,41856, 2 41640,41472,41064,40824,40632,40512,40416,40224,39744,39672, 3 39696,39504,39336,39264,39120,38856,38760,38592,38568,38376, 4 38304,38328,38184,38016,37848,37464,37200,37272,37152,37176, 5 37128,36576,36480,36432,36288,36120,35976,35856,35784,35640, 6 35472,35232,37440,37776,37848,37968,38112,38664,38808,38880, 7 38976,39480,39744,40104,40320,40488,40632,40824,40896,40968, 8 41424,32448,32784,33456,33696,33936,34248,34392,34608,34776, 9 35088,35688,36192,36432,36432,36768,36744,36792,25848,25704/ data (jy(i),i= 201, 300)/ + 25848,26040,25992,26112,26400,26712,26976,27144,27288,27576, 1 27768,27864,27936,28176,28344,28584,28776,28920,28992,29136, 2 29280,28968,29016,29088,29208,29352,29352,29472,29592,30168, 3 30312,30576,30696,30960,31080,31128,31224,31296,31512,31536, 4 31488,31608,31728,31848,32064,32280,32520,32616,32712,32808, 5 33192,33648,33792,33936,34008,34176,34416,34656,34704,34656, 6 35064,35184,35232,35400,35400,35472,35448,35664,35856,36048, 7 35976,36096,36024,35880,35688,35496,35160,35088,34920,34824, 8 34728,34800,34608,34296,34248,34080,34176,34368,34464,34632, 9 34752,34896,34824,34944,34824,32184,31344,30960,30840,30672/ data (jy(i),i= 301, 400)/ + 30432,30024,30000,30096,30072,29904,29688,29568,29256,23592, 1 23664,23784,23808,24096,24192,24240,24096,24480,24288,24408, 2 24648,24912,25344,25656,26088,26184,26376,26496,26784,26856, 3 27120,27864,28032,28224,28272,28464,28656,27672,27552,27480, 4 27384,27360,27240,27384,27672,27552,27384,27432,27312,27360, 5 27240,27336,27336,27528,27552,27312,27240,26880,26568,26592, 6 26760,26640,26808,26760,26808,26784,26904,26760,26712,26400, 7 26208,27720,27696,27552,27624,27624,27720,27768,27864,28008, 8 28176,28296,28392,28416,28632,28920,29064,28992,29112,29280, 9 29328,29160,29136,28704,28536,28560,28344,28272,28008,27960/ data (jy(i),i= 401, 500)/ + 27792,27696,27504,27384,27264,23376,19512,21672,21768,21888, 1 21984,22152,22296,22368,22512,22656,22920,23088,20736,21048, 2 21192, 6384, 6384,15696,11688, 7440, 7608, 6648,60744,58008, 3 53832,53952,53952,53160,53160,54264,54312,54240,54360,54576, 4 54552,54168,49368,49368,49272,49272,49032,49032,49152,49152, 5 49104,49104,48984,46272,46272,46392,46368,46440,46512,46704, 6 46752,46632,46800,46968,47064,47112,45552,43152,43128,42024, 7 42072,42072,41880,43128,42768,42456,41136,41424,41424,41640, 8 41112,40992,41040,41016,40752,40512,40512,40320,40440,40848, 9 41112,41304,41304,41568,41952,41856,41688,41472,41160,40896/ data (jy(i),i= 501, 600)/ + 40920,40896,40728,40728,40128,40032,38136,38136,38472,38376, 1 38184,38352,38376,39192,39120,39336,39696,39744,39792,39672, 2 39624,39528,39552,39384,39624,39864,39888,39840,39888,39960, 3 40056,40176,40272,40464,37848,37608,37344,37128,31920,32256, 4 32760,32808,33024,33144,33264,33408,33528,33528,33792,33816, 5 34392,34440,34224,34248,34152,34080,34584,34608,32328,31680, 6 31608,31416,31392,31272,31176,31080,31080,31488,31464,31536, 7 31968,31920,31776,28848,29088,29136,29376,29424,29496,29784, 8 29880,30024,30432,30912,31080,31128,31320,31584,31800,26256, 9 27024,27912,28032,28224,28416,29304,29496,29784,29784,30024/ data (jy(i),i= 601, 700)/ + 30264,30408,30480,30648,30720,30816,30840,28944,28992,28992, 1 28920,28944,27528,27312,27120,27144,26184,25800,25800,24576, 2 24768,24984,25488,25752,25944,26064,26304,26280,26016,26040, 3 26040,26160,26232,26352,26424,26784,27096,27480,27552,27696, 4 27744,28104,28272,28440,28440,28488,28704,29064,29352,29448, 5 29280,29112,29040,28872,28848,28656,28440,28440,28296,28176, 6 28128,27912,27816,27600,27336,27144,27264,27096,27024,27192, 7 27384,27648,27696,27624,27888,28128,28104,28320,28728,25056, 8 25416,26040,26064,26136,26496,26472,26616,26952,27192,27192, 9 27264,27264,27384,27336,27528,28056,28152,28512,28320,28200/ data (jy(i),i= 701, 800)/ + 28320,28080,28176,28104,28248,28392,23520,23568,24264,24312, 1 24672,24696,25680,25704,26376,26448,25872,25968,26304,26208, 2 23472,23472,23880,24024,24840,26088,24696,24672,21984,22104, 3 22248,22320,22488,22560,22536,22752,22944,23016,22992,23064, 4 23136,23184,23352,23496,23664,23688,23664,23808,23736,23904, 5 23880,23976,24240,24312,24672,24720,24624,24624,24792,24792, 6 24936,24984,24552,23160,23136,22512,22272,22128,21792,21696, 7 21600,21504,21216,21144,21240,21144,20904,20616,20376,20232, 8 19944,19680,19656,19200,26256,24864,24864,23472,23472,24168, 9 24192,24240,24480,24648,24840,25080,25104,25128,22680,22584/ data (jy(i),i= 801, 900)/ + 20736,20736,23496,23352,22536,22896,22824,19536,19488,19632, 1 19656,19944,20160,20184,20328,20592,20688,20688,20760,21168, 2 21216,21360,21480,21504,21720,21720,21888,22104,22464,22920, 3 23136,23040,22824,22560,22392,22152,22200,22104,22056,22032, 4 21960,21936,22080,22008,22776,22776,22320,22320,22128,22128, 5 20736,22752,22656,22656,22752,22512,22368,22296,22416,22368, 6 22584,20304,20520,20496,20568,20592,20904,20976,21144,21144, 7 21288,21168,19176,19368,19464,19776,19800,19992,20232,20856, 8 20712,20664,20472,20472,20736,20760,21096,21216,21600,21624, 9 21504,21624,21648,21720,21624,21264,21216,21264,21480,21624/ data (jy(i),i= 901, 1000)/ + 21864,21840,22392,22368,22248,21984,21912,21696,21336,21288, 1 20688,20592,20616,20736,20736,20856,20856,20976,20976,21312, 2 16128,16560,16536,17016,17160,17136,17616,17688,17736,17976, 3 18264,18456,18456,18576,18768,18888,19032,19080,19272,19176, 4 19632,19800,19824,19968,20016,20136,20280,20400,20472,20784, 5 20904,20952,20880,20904,20760,20856,20736,20808,20952,21000, 6 21240,20736,16008,19248,19224,19392,19776,20040,20184,20328, 7 20520,20808,21048,16584,17976,17952,19296,19896,20208,20064, 8 20064,19896,19728,19728,19608,19608,19488,19464,19128,19128, 9 19080,19992,19896,19464,19392,17136,17160,17808,17808,18456/ data (jy(i),i= 1001, 1100)/ + 18528,19344,17040,17712,17640,18144,18264,18432,18576,18600, 1 18768,18960,19224,19344,19368,19248,19104,19152,19080,19056, 2 19320,19056,18984,19032,15288,15240,18384,18528,18408,18432, 3 18072,18144,17472,17568,15504,16680,16776,17256,17400,17904, 4 18072,18480,18888,19056,19056,19104,19368,19656,15264,15600, 5 15840,16224,16416,16632,16248,16320,13560,13536,12096,16104, 6 13488,13488,12816,12768,15768,11880,11880,12216,12240,12936, 7 12936,15696,13752,13800,15360,14568,13848,13752,14880,14928, 8 15144,12624,12552,13224,13224,13872,13848,13920,13872,14040, 9 13896,13896,13968,14160,14112,14256,14208,14400,14184,13920/ data (jy(i),i= 1101, 1200)/ + 13944,14232,14232,14424,14472,14616,14688,14784,15024,15096, 1 15096,13320,14496,14280,14184,14304,14280,14400,14544,14472, 2 14520,14784,14640,14280,13344,13368,12912,12912,12576,12576, 3 12240,12264,11568,11568,11112,10584,11160,11160,11496,11496, 4 12288,12264,12624,12624,12744,12936,12936,12720,12744,12984, 5 13104,13536,13680,13776,14280,14568,14688,14760,14976,15048, 6 11736,11808,11808,11904,11808,11880,12168,12216,12456,12528, 7 12648,12624,13008,13128,13248,13536,13536,13776,13752,13632, 8 13632,13392,13392,12768,13080,13032,13128,13128,13368,13320, 9 10944,12096,11928,11088,10896,10896,11112,11136,10968,11064/ data (jy(i),i= 1201, 1300)/ + 12216,11832,11856,11760, 9528,11592,11568,11856,10872,10872, 1 10608,10704,10944,11064,11184,11352,11352,11592,11664,11088, 2 10392,10344, 9648,11112,11016,10680,10800,10704,10296, 9912, 3 9696, 9744, 9672, 9960, 9984, 9552, 9480, 9960, 9984,10680, 4 10776,10824, 9528, 9288, 9312,10584, 9336, 9192, 9144, 8568, 5 8544,23064,22896,22968,22944,23016,22776,22776,22872,22872, 6 22944,20352,20400,19800,19848,19704,19728,10704,10800,10968, 7 11184,11424,11616,11856,12072,12168,11976,11880,12288,12024, 8 11664,11472,11328,11328,11448,11400,11520,11640,10656,10776, 9 10752,10632, 7992, 8160, 8496, 8928, 9360, 9528, 9936,10128/ data (jy(i),i= 1301, 1310)/ + 10248,10368,10512,10512, 0, 0, 0, 0, 0, 0/ data (jb1(i),i= 1, 100)/ + 1, 23, 2, 2, 1, 3, 7, 25, 26, 27, 1 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 2 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 3 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 4 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 5 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 6 78, 4, 5, 9, 80, 81, 82, 83, 84, 85, 7 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 8 96, 97, 98, 99, 100, 101, 7, 9, 103, 104, 9 105, 106, 107, 108, 109, 110, 111, 112, 113, 114/ data (jb1(i),i= 101, 200)/ + 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 1 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 2 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 3 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 4 155, 156, 157, 158, 159, 160, 161, 11, 6, 10, 5 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 6 173, 174, 175, 176, 177, 178, 179, 180, 8, 12, 7 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 8 192, 193, 194, 195, 196, 197, 10, 15, 199, 200, 9 201, 202, 203, 204, 205, 206, 207, 208, 209, 210/ data (jb1(i),i= 201, 300)/ + 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 1 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 2 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 3 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 4 251, 252, 253, 254, 255, 256, 257, 258, 259, 260, 5 261, 262, 263, 264, 265, 266, 267, 268, 269, 270, 6 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 7 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, 8 291, 292, 293, 294, 11, 12, 296, 297, 298, 299, 9 300, 301, 302, 303, 304, 305, 306, 307, 308, 13/ data (jb1(i),i= 301, 400)/ + 16, 310, 311, 312, 313, 314, 315, 316, 317, 318, 1 319, 320, 321, 322, 323, 324, 325, 326, 327, 328, 2 329, 330, 331, 332, 333, 334, 335, 336, 13, 14, 3 338, 339, 340, 341, 342, 343, 344, 345, 346, 347, 4 348, 349, 350, 351, 352, 353, 354, 355, 356, 357, 5 358, 359, 360, 361, 362, 363, 364, 365, 366, 367, 6 368, 369, 370, 15, 14, 372, 373, 374, 375, 376, 7 377, 378, 379, 380, 381, 382, 383, 384, 385, 386, 8 387, 388, 389, 390, 391, 392, 393, 394, 395, 396, 9 397, 398, 399, 400, 401, 402, 403, 404, 405, 406/ data (jb1(i),i= 401, 500)/ + 17, 408, 409, 410, 411, 412, 413, 414, 415, 416, 1 417, 16, 18, 419, 420, 17, 19, 422, 18, 407, 2 424, 426, 425, 22, 21, 20, 21, 19, 1, 429, 3 430, 3, 431, 432, 433, 434, 4, 436, 437, 438, 4 439, 440, 441, 435, 435, 443, 444, 445, 446, 447, 5 448, 449, 450, 451, 452, 453, 443, 454, 455, 456, 6 457, 458, 459, 460, 461, 462, 463, 464, 465, 466, 7 467, 454, 467, 468, 469, 470, 471, 472, 469, 474, 8 475, 476, 477, 478, 479, 473, 477, 481, 482, 483, 9 484, 485, 486, 487, 488, 489, 490, 491, 492, 493/ data (jb1(i),i= 501, 600)/ + 494, 495, 473, 496, 497, 498, 499, 500, 501, 502, 1 503, 504, 505, 506, 507, 508, 509, 510, 511, 512, 2 513, 514, 515, 516, 517, 518, 519, 520, 521, 522, 3 523, 524, 525, 526, 527, 528, 529, 530, 531, 532, 4 533, 477, 507, 535, 536, 537, 538, 539, 540, 541, 5 542, 543, 544, 545, 546, 547, 548, 549, 550, 551, 6 552, 553, 554, 555, 556, 557, 558, 12, 559, 560, 7 561, 562, 563, 564, 565, 566, 567, 568, 569, 570, 8 571, 572, 539, 574, 575, 576, 577, 578, 579, 580, 9 581, 582, 583, 584, 585, 586, 587, 588, 539, 590/ data (jb1(i),i= 601, 700)/ + 591, 592, 593, 594, 595, 596, 597, 598, 599, 600, 1 601, 602, 603, 604, 605, 606, 567, 13, 608, 609, 2 610, 611, 612, 613, 614, 615, 616, 617, 618, 620, 3 621, 622, 623, 624, 625, 626, 627, 628, 629, 630, 4 631, 632, 633, 634, 635, 636, 637, 638, 639, 640, 5 641, 642, 643, 644, 645, 646, 647, 648, 649, 650, 6 651, 652, 653, 654, 655, 656, 657, 658, 659, 660, 7 661, 662, 663, 664, 665, 666, 667, 668, 669, 670, 8 671, 672, 673, 674, 675, 676, 677, 678, 574, 680, 9 681, 682, 683, 684, 685, 686, 687, 688, 689, 690/ data (jb1(i),i= 701, 800)/ + 691, 692, 693, 694, 695, 696, 697, 698, 699, 700, 1 701, 702, 703, 704, 705, 574, 707, 708, 709, 710, 2 711, 712, 713, 714, 715, 716, 619, 717, 718, 719, 3 590, 721, 722, 723, 724, 619, 15, 726, 727, 620, 4 729, 730, 731, 732, 733, 734, 735, 736, 737, 738, 5 739, 740, 741, 742, 743, 744, 745, 746, 747, 748, 6 749, 750, 751, 752, 753, 754, 755, 756, 757, 758, 7 759, 760, 761, 680, 620, 763, 764, 765, 766, 767, 8 768, 769, 770, 771, 772, 773, 774, 775, 776, 777, 9 778, 779, 780, 781, 782, 783, 590, 785, 786, 787/ data (jb1(i),i= 801, 900)/ + 788, 789, 790, 791, 792, 793, 794, 795, 796, 797, 1 680, 799, 728, 721, 801, 802, 788, 707, 799, 805, 2 806, 707, 808, 809, 810, 811, 812, 813, 814, 815, 3 816, 817, 818, 819, 820, 821, 822, 823, 824, 825, 4 826, 827, 828, 829, 830, 831, 832, 833, 834, 835, 5 836, 837, 838, 839, 840, 841, 842, 843, 729, 721, 6 845, 846, 847, 848, 849, 850, 852, 853, 854, 855, 7 856, 857, 858, 859, 860, 805, 862, 863, 864, 865, 8 866, 867, 868, 869, 870, 871, 805, 784, 873, 874, 9 875, 876, 877, 878, 879, 880, 881, 882, 883, 884/ data (jb1(i),i= 901, 1000)/ + 885, 886, 887, 888, 889, 890, 891, 892, 893, 894, 1 895, 896, 897, 898, 899, 900, 901, 902, 903, 904, 2 905, 906, 729, 907, 908, 909, 851, 911, 912, 913, 3 914, 915, 916, 917, 918, 919, 920, 921, 922, 923, 4 924, 925, 926, 927, 928, 929, 930, 931, 932, 933, 5 934, 935, 936, 937, 938, 939, 940, 941, 942, 943, 6 944, 945, 946, 947, 948, 949, 950, 951, 952, 953, 7 954, 955, 956, 957, 958, 959, 960, 910, 801, 851, 8 963, 964, 965, 966, 967, 968, 969, 970, 971, 972, 9 910, 974, 975, 976, 977, 962, 801, 979, 980, 981/ data (jb1(i),i= 1001, 1100)/ + 982, 983, 984, 985, 986, 987, 988, 989, 990, 862, 1 799, 992, 808, 992, 996, 997, 998, 999, 1000, 1001, 2 995, 996, 1003, 1004, 1005, 1006, 1007, 1008, 1009, 1010, 3 1011, 1012, 1013, 1014, 1015, 784, 1017, 1019, 1018, 994, 4 1019, 991, 1022, 1023, 1017, 1023, 1025, 995, 1027, 1028, 5 1029, 1030, 1031, 1032, 1033, 1034, 974, 1036, 1037, 1038, 6 1039, 1040, 1041, 1042, 1043, 1044, 1045, 1046, 1047, 1048, 7 1026, 1049, 1050, 1051, 1052, 1053, 974, 1055, 1056, 1057, 8 1058, 921, 921, 963, 1055, 1061, 1062, 1063, 996, 1066, 9 1067, 1068, 1069, 1070, 1071, 1065, 1073, 963, 1035, 1076/ data (jb1(i),i= 1101, 1200)/ + 1077, 1065, 1076, 1079, 1080, 1075, 1082, 1083, 1084, 1085, 1 1086, 1087, 1088, 1089, 1090, 1091, 1092, 1093, 1094, 1095, 2 1096, 1097, 1098, 1099, 1100, 1101, 1102, 1103, 1104, 1105, 3 1106, 1107, 1108, 1109, 1110, 1026, 1060, 1076, 1113, 1114, 4 1115, 1116, 1117, 1118, 1119, 1120, 1121, 1122, 1123, 1124, 5 1125, 1126, 1127, 1128, 1129, 1130, 1131, 1132, 1133, 1134, 6 1136, 1137, 1138, 1139, 1140, 1141, 1142, 1143, 1144, 1145, 7 1146, 1147, 1148, 1149, 1150, 1151, 1152, 1153, 1154, 1155, 8 1156, 1157, 1158, 1159, 1075, 1161, 1162, 1163, 1164, 1165, 9 1166, 1167, 1168, 1169, 1170, 1171, 1172, 1173, 1174, 1175/ data (jb1(i),i= 1201, 1300)/ + 1176, 1177, 1073, 1073, 1179, 1180, 1181, 1182, 1082, 1064, 1 1184, 1185, 1186, 1187, 1188, 1112, 1161, 1112, 1064, 1059, 2 1192, 1193, 1194, 1195, 1196, 1197, 1198, 1199, 1191, 1059, 3 1201, 1202, 1203, 1066, 1205, 1206, 1207, 1066, 1082, 1209, 4 1210, 1211, 1212, 1213, 1214, 1215, 1216, 1217, 1218, 1161, 5 1135, 1220, 1221, 1222, 1205, 1191, 1135, 1224, 1225, 1226, 6 1227, 1228, 1229, 1230, 1231, 1232, 1233, 1234, 1235, 1236, 7 20, 1238, 1239, 1240, 1241, 1209, 1237, 1243, 1244, 1245, 8 1136, 1205, 1237, 1247, 1248, 1249, 1250, 1251, 406, 1252, 9 1253, 1254, 1255, 1256, 1257, 1258, 1259, 1260, 852, 852/ data (jb1(i),i= 1301, 1350)/ + 862, 1262, 1263, 1264, 1265, 1266, 407, 1035, 1268, 1269, 1 1270, 1271, 1272, 1273, 1274, 1275, 1276, 1277, 1278, 1279, 2 1280, 1281, 1282, 1283, 1284, 1285, 1286, 1287, 425, 1268, 3 1289, 1290, 1291, 1136, 426, 1293, 1294, 1295, 1296, 1297, 4 1298, 1299, 1300, 1301, 1302, 1303, 1268, 0, 0, 0/ data (jb2(i),i= 1, 100)/ + 23, 24, 24, 4, 3, 5, 25, 26, 27, 28, 1 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 2 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 3 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 4 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 5 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 6 79, 79, 6, 80, 81, 82, 83, 84, 85, 86, 7 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 8 97, 98, 99, 100, 101, 102, 102, 103, 104, 105, 9 106, 107, 108, 109, 110, 111, 112, 113, 114, 115/ data (jb2(i),i= 101, 200)/ + 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 1 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 2 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 3 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 4 156, 157, 158, 159, 160, 161, 162, 162, 8, 163, 5 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 6 174, 175, 176, 177, 178, 179, 180, 181, 181, 182, 7 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 8 193, 194, 195, 196, 197, 198, 198, 199, 200, 201, 9 202, 203, 204, 205, 206, 207, 208, 209, 210, 211/ data (jb2(i),i= 201, 300)/ + 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 1 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 2 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 3 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 4 252, 253, 254, 255, 256, 257, 258, 259, 260, 261, 5 262, 263, 264, 265, 266, 267, 268, 269, 270, 271, 6 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 7 282, 283, 284, 285, 286, 287, 288, 289, 290, 291, 8 292, 293, 294, 295, 295, 296, 297, 298, 299, 300, 9 301, 302, 303, 304, 305, 306, 307, 308, 309, 309/ data (jb2(i),i= 301, 400)/ + 310, 311, 312, 313, 314, 315, 316, 317, 318, 319, 1 320, 321, 322, 323, 324, 325, 326, 327, 328, 329, 2 330, 331, 332, 333, 334, 335, 336, 337, 337, 338, 3 339, 340, 341, 342, 343, 344, 345, 346, 347, 348, 4 349, 350, 351, 352, 353, 354, 355, 356, 357, 358, 5 359, 360, 361, 362, 363, 364, 365, 366, 367, 368, 6 369, 370, 371, 371, 372, 373, 374, 375, 376, 377, 7 378, 379, 380, 381, 382, 383, 384, 385, 386, 387, 8 388, 389, 390, 391, 392, 393, 394, 395, 396, 397, 9 398, 399, 400, 401, 402, 403, 404, 405, 406, 407/ data (jb2(i),i= 401, 500)/ + 408, 409, 410, 411, 412, 413, 414, 415, 416, 417, 1 418, 418, 419, 420, 421, 421, 422, 423, 423, 424, 2 425, 427, 427, 426, 22, 428, 428, 20, 429, 430, 3 2, 431, 432, 433, 434, 435, 436, 437, 438, 439, 4 440, 441, 442, 442, 443, 444, 445, 446, 447, 448, 5 449, 450, 451, 452, 453, 5, 454, 455, 456, 457, 6 458, 459, 460, 461, 462, 463, 464, 465, 466, 6, 7 7, 467, 468, 469, 470, 471, 472, 473, 474, 475, 8 476, 8, 478, 479, 480, 480, 481, 482, 483, 484, 9 485, 486, 487, 488, 489, 490, 491, 492, 493, 494/ data (jb2(i),i= 501, 600)/ + 495, 9, 496, 497, 498, 499, 500, 501, 502, 503, 1 504, 505, 506, 507, 508, 509, 510, 511, 512, 513, 2 514, 515, 516, 517, 518, 519, 520, 521, 522, 523, 3 524, 525, 526, 527, 528, 529, 530, 531, 532, 533, 4 534, 534, 535, 536, 537, 538, 10, 540, 541, 542, 5 543, 544, 545, 546, 547, 548, 549, 550, 551, 552, 6 553, 554, 555, 556, 557, 558, 11, 559, 560, 561, 7 562, 563, 564, 565, 566, 567, 568, 569, 570, 571, 8 572, 573, 573, 575, 576, 577, 578, 579, 580, 581, 9 582, 583, 584, 585, 586, 587, 588, 589, 589, 591/ data (jb2(i),i= 601, 700)/ + 592, 593, 594, 595, 596, 597, 598, 599, 600, 601, 1 602, 603, 604, 605, 606, 607, 607, 608, 609, 610, 2 611, 612, 613, 614, 615, 616, 617, 618, 619, 621, 3 622, 623, 624, 625, 626, 627, 628, 629, 630, 631, 4 632, 633, 634, 635, 636, 637, 638, 639, 640, 641, 5 642, 643, 644, 645, 646, 647, 648, 649, 650, 651, 6 652, 653, 654, 655, 656, 657, 658, 659, 660, 661, 7 662, 663, 664, 665, 666, 667, 668, 669, 670, 671, 8 672, 673, 674, 675, 676, 677, 678, 679, 679, 681, 9 682, 683, 684, 685, 686, 687, 688, 689, 690, 691/ data (jb2(i),i= 701, 800)/ + 692, 693, 694, 695, 696, 697, 698, 699, 700, 701, 1 702, 703, 704, 705, 706, 706, 708, 709, 710, 711, 2 712, 713, 714, 715, 716, 14, 717, 718, 719, 720, 3 720, 722, 723, 724, 725, 725, 726, 727, 728, 728, 4 730, 731, 732, 733, 734, 735, 736, 737, 738, 739, 5 740, 741, 742, 743, 744, 745, 746, 747, 748, 749, 6 750, 751, 752, 753, 754, 755, 756, 757, 758, 759, 7 760, 761, 762, 762, 763, 764, 765, 766, 767, 768, 8 769, 770, 771, 772, 773, 774, 775, 776, 777, 778, 9 779, 780, 781, 782, 783, 784, 785, 786, 787, 788/ data (jb2(i),i= 801, 900)/ + 789, 790, 791, 792, 793, 794, 795, 796, 797, 798, 1 798, 800, 800, 16, 802, 803, 803, 804, 804, 806, 2 807, 807, 809, 810, 811, 812, 813, 814, 815, 816, 3 817, 818, 819, 820, 821, 822, 823, 824, 825, 826, 4 827, 828, 829, 830, 831, 832, 833, 834, 835, 836, 5 837, 838, 839, 840, 841, 842, 843, 844, 844, 845, 6 846, 847, 848, 849, 850, 851, 853, 854, 855, 856, 7 857, 858, 859, 860, 861, 861, 863, 864, 865, 866, 8 867, 868, 869, 870, 871, 872, 872, 873, 874, 875, 9 876, 877, 878, 879, 880, 881, 882, 883, 884, 885/ data (jb2(i),i= 901, 1000)/ + 886, 887, 888, 889, 890, 891, 892, 893, 894, 895, 1 896, 897, 898, 899, 900, 901, 902, 903, 904, 905, 2 906, 907, 907, 908, 909, 910, 911, 912, 913, 914, 3 915, 916, 917, 918, 919, 920, 17, 922, 923, 924, 4 925, 926, 927, 928, 929, 930, 931, 932, 933, 934, 5 935, 936, 937, 938, 939, 940, 941, 942, 943, 944, 6 945, 946, 947, 948, 949, 950, 951, 952, 953, 954, 7 955, 956, 957, 958, 959, 960, 961, 961, 962, 962, 8 964, 965, 966, 967, 968, 969, 970, 971, 972, 973, 9 973, 975, 976, 977, 978, 978, 979, 980, 981, 982/ data (jb2(i),i= 1001, 1100)/ + 983, 984, 985, 986, 987, 988, 989, 990, 991, 992, 1 993, 993, 994, 995, 997, 998, 999, 1000, 1001, 1002, 2 1002, 1003, 1004, 1005, 1006, 1007, 1008, 1009, 1010, 1011, 3 1012, 1013, 1014, 1015, 1016, 1016, 1018, 1020, 1020, 1021, 4 1021, 1022, 1023, 1024, 1024, 1025, 1026, 1027, 1028, 1029, 5 1030, 1031, 1032, 1033, 1034, 1035, 1036, 1037, 1038, 1039, 6 1040, 1041, 1042, 1043, 1044, 1045, 1046, 1047, 1048, 18, 7 1049, 1050, 1051, 1052, 1053, 1054, 1054, 1056, 1057, 1058, 8 1059, 1055, 1060, 1060, 1061, 1062, 1063, 1064, 1065, 1067, 9 1068, 1069, 1070, 1071, 1072, 1072, 1074, 1074, 1075, 1077/ data (jb2(i),i= 1101, 1200)/ + 1078, 1078, 1079, 1080, 1081, 1081, 1083, 1084, 1085, 1086, 1 1087, 1088, 1089, 1090, 1091, 1092, 1093, 1094, 1095, 1096, 2 1097, 1098, 1099, 1100, 1101, 1102, 1103, 1104, 1105, 1106, 3 1107, 1108, 1109, 1110, 1111, 1111, 1112, 1113, 1114, 1115, 4 1116, 1117, 1118, 1119, 1120, 1121, 1122, 1123, 1124, 1125, 5 1126, 1127, 1128, 1129, 1130, 1131, 1132, 1133, 1134, 1135, 6 1137, 1138, 1139, 1140, 1141, 1142, 1143, 1144, 1145, 1146, 7 1147, 1148, 1149, 1150, 1151, 1152, 1153, 1154, 1155, 1156, 8 1157, 1158, 1159, 1160, 1160, 1162, 1163, 1164, 1165, 1166, 9 1167, 1168, 1169, 1170, 1171, 1172, 1173, 1174, 1175, 1176/ data (jb2(i),i= 1201, 1300)/ + 1177, 1178, 1178, 1179, 1180, 1181, 1182, 1183, 1183, 1184, 1 1185, 1186, 1187, 1188, 1189, 1189, 1190, 1190, 1191, 1192, 2 1193, 1194, 1195, 1196, 1197, 1198, 1199, 1200, 1200, 1201, 3 1202, 1203, 1204, 1204, 1206, 1207, 1208, 1208, 19, 1210, 4 1211, 1212, 1213, 1214, 1215, 1216, 1217, 1218, 1219, 1219, 5 1220, 1221, 1222, 1223, 1223, 1209, 1224, 1225, 1226, 1227, 6 1228, 1229, 1230, 1231, 1232, 1233, 1234, 1235, 1236, 1237, 7 1238, 1239, 1240, 1241, 1242, 1242, 1243, 1244, 1245, 1246, 8 1246, 21, 1247, 1248, 1249, 1250, 1251, 22, 1252, 1253, 9 1254, 1255, 1256, 1257, 1258, 1259, 1260, 1261, 1261, 1262/ data (jb2(i),i= 1301, 1350)/ + 1262, 1263, 1264, 1265, 1266, 1267, 1267, 424, 1269, 1270, 1 1271, 1272, 1273, 1274, 1275, 1276, 1277, 1278, 1279, 1280, 2 1281, 1282, 1283, 1284, 1285, 1286, 1287, 1288, 1288, 1289, 3 1290, 1291, 1292, 1292, 1293, 1294, 1295, 1296, 1297, 1298, 4 1299, 1300, 1301, 1302, 1303, 1304, 1304, 0, 0, 0/ c state=istate irot=jrot npart=ipart do i=1,5 jv(i)=kv(i) jb(i)=kb(i) ib(i)=iib(i) enddo do i=1,jv(npart+1)-1 ix(i)=jx(i) iy(i)=jy(i) enddo do i=1,jb(npart+1)-1 ib1(i)=jb1(i) ib2(i)=jb2(i) enddo return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine il(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(*) :: jv,jb,ib,ix,iy,ib1,ib2 integer(kind=iknd), save, dimension(5) :: kv,kb,iib integer(kind=iknd), save, dimension(1050) :: jx,jy integer(kind=iknd), save, dimension(1150) :: jb1,jb2 integer(kind=iknd), save :: jrot,ipart character(len=80) :: state character(len=80), save :: istate cy data istate/'illinois '/ data jrot,ipart/0,1/ data kv/ 1,1047, 0, 0, 0/ data kb/ 1,1148, 0, 0, 0/ data iib/ 439, 0, 0, 0, 0/ data (jx(i),i= 1, 100)/ + 25152,28200,32064,35496,37200,40968,44184,26280,25560,45864, 1 19176,45840,19968,45840,18000,45792,15336,45720,16200,45696, 2 19320,44952,22944,24264,45672,24912,44712,42048,24216,24528, 3 41208,28608,29784,40896,38568,30048,37920,34440,32448,24792, 4 24504,24408,24504,24120,23544,23448,23088,22848,22824,22920, 5 43872,43920,43848,43776,43728,43632,43632,43776,43824,43944, 6 25920,26040,26256,26304,26256,26448,26352,26232,26304,26040, 7 26016,25176,25008,24984,24864,24768,24744,24240,23880,23664, 8 23160,22896,22776,22704,22320,21624,20904,20304,19848,19464, 9 19416,19344,19224,45888,45840,45768,45672,45576,45528,45576/ data (jx(i),i= 101, 200)/ + 45528,45528,45312,45264,45312,45240,45240,45264,45360,45192, 1 45216,45072,45144,44976,44784,44448,19152,18816,18936,19008, 2 19176,19248,19392,19560,19704,19992,18408,18552,18600,18792, 3 18768,18792,19056,19464,19800,19896,19872,19992,15360,15480, 4 15456,15768,16008,16416,16488,16392,16560,16440,16200,16272, 5 16752,17016,17496,16200,16032,15720,15624,15648,15864,15336, 6 15360,15240,15264,19248,18888,18600,18432,18168,18024,17712, 7 17616,17544,17160,16824,16248,16152,45696,45624,45504,45312, 8 45120,45024,45168,45096,45216,45336,45384,45336,45120,45024, 9 45000,44832,23448,23904,22776,22536,22104,21912,21528,21264/ data (jx(i),i= 201, 300)/ + 21192,21192,20928,21144,21192,21000,20904,20376,19920,19416, 1 45504,45648,45576,45768,45696,45768,45744,45816,45624,45312, 2 45408,45312,45408,45312,45360,45192,45000,45048,44808,44736, 3 44760,44904,44712,44760,24696,24696,25104,25440,25560,25488, 4 24888,24672,44784,44832,45000,44904,44952,45072,45120,45672, 5 45768,45936,45888,45912,45792,45912,45912,45696,45744,24888, 6 24768,24408,42096,42264,42312,42384,42336,42456,42576,42672, 7 42600,42672,42960,43032,43032,43080,43176,43272,43320,43464, 8 43728,43968,43992,44088,43920,43920,44016,44256,44424,44544, 9 44640,44736,44736,44568,44688,24264,23976,23688,23544,23376/ data (jx(i),i= 301, 400)/ + 23280,23304,23448,24000,41256,41424,41736,41808,41760,41424, 1 41376,41448,41568,41664,41664,41832,41712,41856,41640,41592, 2 41640,41928,42240,42288,42240,41856,41808,41904,42096,42192, 3 42360,42600,42552,42432,42408,42240,42120,28344,28056,27744, 4 27576,27336,27216,26880,26544,26304,26352,26568,26544,26088, 5 25704,25272,25152,40800,40656,40656,40944,41472,41616,41688, 6 41640,41400,41256,41232,41280,41568,41688,41712,41400,28752, 7 28656,28680,29064,29256,29736,29880,29856,30096,30144,30096, 8 29856,41280,41328,41304,41184,39528,39288,39072,38976,38688, 9 29808,30000,30384,30528,30432,29808,29736,29880,30192,30120/ data (jx(i),i= 401, 500)/ + 30192,30432,30816,30744,31320,31488,31584,31728,31752,31656, 1 31392,31344,31824,31920,32208,32256,32424,32736,32568,32400, 2 32376,38328,38088,38016,37752,37776,38280,38448,38376,38160, 3 33960,33576,33216,32928,37488,36840,36264,35976,35472,28152, 4 29856,31992,35400,33672,33672,37128,38016,40896,40608,40608, 5 40416,40392,29784,30216,30192,35328,32208,32208,31896,31800, 6 31704,31752,31704,31464,31392,31296,40368,25536,25584,25536, 7 25608,25536,25656,25584,26136,26040,26136,26064,25896,37992, 8 37896,37800,42984,42984,42576,42096,42096,35304,37824,28368, 9 30096,33576,33552,43896,43872,43008,42984,42096,40416,37824/ data (jx(i),i= 501, 600)/ + 23976,24048,24480,24528,24600,24768,24936,25008,25488,25680, 1 25824,25944,33528,28296,42168,42168,40440,23856,27264,28200, 2 28176,29928,29904,31200,31224,32064,32208,32208,32712,21216, 3 33480,32160,32088,32184,32256,40440,40368,37824,23832,27216, 4 29856,41256,40392,31104,31224,31320,34344,34344,34296,34296, 5 35232,35184,30888,30432,30384,30456,35160,23640,27120,20136, 6 21000,23592,37800,37824,38712,40416,34728,34728,34272,34272, 7 33840,33816,33576,33576,32544,32112,32112,32544,27936,28704, 8 28944,29256,29376,29496,29616,29592,29928,29952,30408,30480, 9 27072,27960,42672,41280,27864,27816,27648,27528,27288,27024/ data (jx(i),i= 601, 700)/ + 26592,26496,26376,26328,26040,25896,25632,25488,25296,38664, 1 42696,29928,29064,29088,19920,32520,23424,42696,42600,42600, 2 33384,32520,37776,38640,19872,23400,24120,24264,24480,24768, 3 25224,25296,19824,29880,29664,29376,29232,29184,28920,28728, 4 28488,28296,27816,27624,27552,27504,27408,27240,27096,27024, 5 26952,26928,26976,26856,26832,26832,26784,26736,26592,26568, 6 26520,26472,26424,26328,26184,26136,26088,26016,25848,25776, 7 25656,25536,25368,25320,25176,25080,25032,24864,24792,24600, 8 24576,24480,24504,24408,24240,24168,33360,36888,36864,36432, 9 36432,23928,23784,23520,23448,22920,22824,21480,21384,21504/ data (jx(i),i= 701, 800)/ + 21648,21624,21720,21792,21960,22128,22152,22056,22056,22176, 1 22128,22608,22728,22728,29880,30048,30024,22248,22608,22656, 2 22824,26808,32760,31344,31320,30720,30744,29112,29064,28536, 3 28536,33336,26784,19680,22320,22248,38544,45360,45528,45096, 4 45096,22104,22344,32736,19632,36360,38472,38544,42600,42360, 5 42360,34200,33288,33312,32976,36288,36264,35856,35832,38448, 6 41592,41616,36360,35832,36528,36528,36528,22032,21696,22152, 7 22200,22128,22992,22968,23832,23784,24072,24072,24336,24288, 8 25416,26760,26832,26832,27240,27192,28944,30240,30240,30672, 9 30696,31104,31128,31200,31392,31584,31608,31632,31872,31872/ data (jx(i),i= 801, 900)/ + 32064,32064,32184,32184,32400,32472,36528,37176,37104,37104, 1 36528,38424,37536,37536,37416,37392,37248,37248,42384,44496, 2 44520,21888,21816,41952,41952,38400,33216,30192,34128,25368, 3 33192,35784,38400,42432,41976,39240,38400,24960,24960,24096, 4 24072,22752,22656,22536,22152,22128,22080,22008,22032,21936, 5 21936,21792,21768,21888,21816,21888,21912,21744,44736,44736, 6 44016,44016,32328,32280,25320,28800,29256,29688,29664,22752, 7 22392,22224,21960,22008,21888,21936,24312,36600,35736,39192, 8 39984,39168,42432,42744,36576,32184,29232,29520,29520,33096, 9 33120,28632,29496,36504,39960,39744,39744,39840,39624,39720/ data (jx(i),i= 901, 1000)/ + 39720,39816,39816,39984,39984,40824,40824,42336,42672,33000, 1 33000,36456,28584,31800,31320,31224,31176,30888,30720,30312, 2 30240,30240,30096,29952,29832,29664,29664,29376,29184,29160, 3 29040,28896,28872,28824,28776,28656,28632,36408,42336,42432, 4 42336,42408,42360,42240,42168,42216,42120,42264,42288,42336, 5 42336,42312,42120,42144,42024,42000,39024,40752,41712,25128, 6 25128,25944,25944,26904,26976,26904,26856,26904,26832,26808, 7 26904,27024,27000,28512,29400,32880,32856,33000,34752,34464, 8 36360,25920,25896,29304,32952,33096,33072,32904,32880,32928, 9 32856,32712,32592,36336,38952,41136,41040,40848,40824,32808/ data (jx(i),i= 1001, 1050)/ + 32784,28728,28608,36312,32712,38928,36264,30384,30216,29952, 1 29904,33600,38616,40368,40536,40632,33552,31920,36216,34680, 2 34704,34464,33528,33792,34152,34176,37920,32112,32208,32232, 3 32184,32088,31920,31824,31728,31824,31704,31704,31776,31776, 4 31704,31632,31776,31920,31920,32304, 0, 0, 0, 0/ data (jy(i),i= 1, 100)/ + 58800,61776,61608,61488,61440,61392,57912,56088,54648,51072, 1 50424,49344,47760,46512,43512,41304,39264,35232,34800,31176, 2 31080,28008,26616,26136,24960,23448,22128,19032,22080,17760, 3 15480,14808,12432,12216,10776,10080, 7200, 8880, 7344,58968, 4 59328,59688,60120,60672,61056,61272,61464,61656,61848,62016, 5 61320,60960,60240,60024,60048,59424,59232,58656,58656,58272, 6 58392,58104,58032,57960,57288,56856,56568,56376,55920,55248, 7 54864,54408,54192,53784,53664,53352,52752,52536,52152,52056, 8 52152,52056,51984,51816,51528,51456,51552,51264,51360,51288, 9 51240,50928,50712,53496,53832,53952,53976,54144,54144,54192/ data (jy(i),i= 101, 200)/ + 54216,54336,54744,54912,55032,55056,55152,55272,55296,55392, 1 55488,55944,55992,56184,57048,57456,50184,49536,49320,49104, 2 48936,48768,48696,48720,48624,48024,43752,43920,44448,44904, 3 45192,45336,45552,46080,46296,46608,46824,47256,39648,39816, 4 39984,40704,40968,41088,41184,41568,42192,42480,42696,42888, 5 43272,43368,43536,35184,35424,35616,35904,36144,36480,37560, 6 37848,38544,39024,31176,31344,31584,31776,32448,32544,32616, 7 32784,33144,33408,33840,34392,34584,29928,29952,29832,29832, 8 29544,29496,29448,29280,28920,28992,28944,28536,28296,28296, 9 28176,28080,26496,26208,26544,26064,25680,25656,25896,26280/ data (jy(i),i= 201, 300)/ + 26568,26904,27504,27888,28056,28488,29496,30144,30576,30936, 1 25080,25248,25392,25488,25584,25704,25848,25968,26184,26328, 2 26376,26448,26640,26832,27000,27240,27288,27480,27504,27552, 3 27600,27600,27768,27936,23928,24096,24600,24840,25248,25368, 4 25752,25968,22200,22368,22320,22512,22848,22920,23088,23328, 5 23592,23856,23928,24096,24144,24216,24288,24624,24696,23016, 6 22800,22440,19056,18888,19032,19080,19224,19416,19464,19440, 7 19224,19152,19584,19536,19296,19224,19248,19440,19896,20064, 8 20184,20520,20808,20952,21000,21144,21240,21264,21336,21528, 9 21480,21528,21624,21888,22008,18024,18552,18720,18888,19272/ data (jy(i),i= 301, 400)/ + 19704,20136,20568,21288,15576,15456,15408,15456,15624,15672, 1 15720,15840,15744,15792,16056,16200,16584,16776,16824,16920, 2 16992,17016,17184,17328,17496,17328,17472,17544,17568,17784, 3 17784,18072,18168,18096,18240,18312,18456,14976,15312,15432, 4 15648,15816,15792,15504,15576,16032,16128,16320,16416,16488, 5 16920,17160,17448,12360,12864,13176,13608,13944,14184,14472, 6 14592,14544,14640,14784,14832,14736,14784,14880,15072,14592, 7 14328,14256,14136,13872,13704,13608,13104,12792,12600,12528, 8 12528,11808,11688,11448,11280,11016,10896,10632,10584,10776, 9 12144,11640,11088,10632,10176, 9840, 9480, 9264, 9192, 8880/ data (jy(i),i= 401, 500)/ + 8568, 8064, 7608, 7152, 6768, 6576, 6552, 6696, 6864, 6984, 1 7152, 7320, 7296, 7080, 6840, 6432, 6360, 6480, 6624, 6888, 2 7152,10704,10464,10008, 9384, 9192, 8544, 8040, 7776, 7392, 3 8904, 8712, 8352, 7848, 7224, 7728, 7968, 8016, 8424,58704, 4 58680,58632,58056,58608,58080,58032,58008,57960,57960,57096, 5 57096,56304,55968,55944,55656,55440,55488,55608,55608,55464, 6 55536,55608,55680,55728,55728,55656,53664,54456,54456,54336, 7 54072,53856,53712,53616,53256,53184,53088,52752,52656,57120, 8 57144,53664,56328,53568,53280,53280,53688,52800,52800,52560, 9 52512,52848,52416,51096,51984,51960,52824,52824,51072,51024/ data (jy(i),i= 501, 600)/ + 50136,51432,51648,51840,51912,51960,51912,51984,52056,52176, 1 52200,52488,49656,49056,49344,48480,48456,48408,48240,49056, 2 48216,48984,48144,48120,48960,48936,49368,49584,49800,47688, 3 47616,47640,47688,47784,48096,47592,47592,47568,47520,46512, 4 46416,46392,46368,45840,45960,46368,47592,47160,47136,45816, 5 47592,45816,45384,44664,44448,44136,44064,44040,43872,43416, 6 43344,43176,44040,42648,42624,42624,44088,43200,43200,42840, 7 42816,42696,42696,42552,42552,44088,42768,42768,41856,42240, 8 42216,42312,42192,42288,42456,42672,43128,43296,43680,43848, 9 43032,42984,41280,41304,41784,41496,41232,41112,40992,40704/ data (jy(i),i= 601, 700)/ + 40464,40056,39936,39720,39384,39072,38976,38784,38640,40440, 1 40416,39888,39888,41064,39864,39864,39672,38664,38664,35208, 2 39408,39432,39312,39288,38976,38808,38112,38232,38256,38400, 3 38328,38400,38088,37896,38208,38304,38232,38112,38136,37968, 4 38016,37944,38088,38040,38136,38088,38160,38064,38208,38040, 5 38040,37968,37920,37872,37896,37800,37872,37776,37824,37896, 6 37824,37872,37776,37800,37608,37632,37584,37608,37560,37440, 7 37488,37416,37464,37368,37416,37344,37416,37416,37488,37416, 8 37560,37632,37680,38016,38088,38040,37080,37944,37512,37512, 9 37080,38064,37680,37512,37128,36912,36768,38016,37872,37752/ data (jy(i),i= 701, 800)/ + 37752,37440,37416,37320,37224,37248,37176,37152,37104,36960, 1 36768,36768,36768,36816,37608,37608,36432,35688,36120,36312, 2 36600,35808,35760,35832,35952,35976,36432,36456,35856,35880, 3 35736,35736,35496,35496,35328,35472,35256,35232,35112,35088, 4 35208,34824,35208,34704,34608,34416,34392,34392,34344,34368, 5 33312,33096,33120,34560,34752,34416,33936,33936,33072,33000, 6 33288,32976,32304,32328,32256,32304,31992,34608,34008,32592, 7 32448,32160,34800,34440,34416,33528,33528,33240,33240,32064, 8 32016,34632,34632,33960,32352,31992,31944,31920,33072,33048, 9 33504,33480,34248,34104,34080,34224,34200,34320,34248,34320/ data (jy(i),i= 801, 900)/ + 34344,34488,34512,34584,34656,34824,31776,31584,31584,31704, 1 31728,30960,30984,31272,31272,31416,31416,31584,31272,31176, 2 31296,31536,30912,31272,30240,30240,30072,30144,30024,29448, 3 28776,28704,28632,28200,28200,28200,28224,29424,29112,29136, 4 28632,28680,28536,28776,28800,28872,28728,28800,28632,28560, 5 28416,28176,30600,29880,29544,29352,28968,28584,28008,28152, 6 28152,28224,28776,26880,26808,26712,26712,26976,26688,26616, 7 26496,26592,27048,27240,27456,27600,26856,25680,25656,25608, 8 24960,25008,24960,24960,24792,24048,25464,25440,24120,23976, 9 24840,23304,23256,22608,23784,23760,23304,23136,22848,22752/ data (jy(i),i= 901, 1000)/ + 22680,22680,22632,22536,22488,22464,22176,22152,22152,21648, 1 21360,21288,20928,21720,21840,21672,21696,21576,21648,21408, 2 21480,21432,21432,21528,21456,21504,21552,21480,21360,21240, 3 21168,21192,21072,21096,21000,21000,20904,19128,21912,21816, 4 21648,21072,20688,20616,20472,20400,20304,19968,19704,19680, 5 19584,19392,19296,19224,19224,19080,19080,19056,19032,21120, 6 20952,20064,19920,19872,19632,19560,19584,19656,19656,19560, 7 19176,19104,19008,18936,18912,18768,17904,17880,17856,17856, 8 17808,19056,18192,16272,17664,17592,17256,17112,16968,16824, 9 16488,16224,16152,15648,15624,15408,15552,15672,15624,16152/ data (jy(i),i= 1001, 1050)/ + 15288,15072,14976,15216,12648,12552,12576,12696,12336,12432, 1 12480,12600,12552,12528,12456,12288, 9936,10032, 9960, 9960, 2 9816, 9672, 9576, 9744, 9648, 9600, 8112, 9984, 9888, 9648, 3 9480, 9480, 9336, 9000, 8928, 8568, 8472, 8304, 8280, 8184, 4 8040, 7872, 7608, 7608, 7536, 7488, 0, 0, 0, 0/ data (jb1(i),i= 1, 100)/ + 1, 40, 41, 42, 43, 44, 45, 46, 47, 48, 1 49, 2, 2, 3, 4, 5, 6, 51, 52, 53, 2 54, 55, 56, 57, 58, 59, 7, 1, 61, 62, 3 63, 64, 65, 66, 67, 8, 8, 69, 70, 9, 4 9, 72, 73, 74, 75, 76, 77, 78, 79, 80, 5 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 6 91, 92, 11, 10, 94, 95, 96, 97, 98, 99, 7 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 8 110, 111, 112, 113, 114, 115, 7, 10, 11, 117, 9 118, 119, 120, 121, 122, 123, 124, 125, 13, 12/ data (jb1(i),i= 101, 200)/ + 15, 127, 128, 129, 130, 131, 132, 133, 134, 135, 1 136, 137, 13, 14, 17, 139, 140, 141, 142, 143, 2 144, 145, 146, 147, 148, 149, 150, 151, 152, 15, 3 16, 19, 154, 155, 156, 157, 158, 159, 160, 161, 4 162, 17, 18, 21, 164, 165, 166, 167, 168, 169, 5 170, 171, 172, 173, 174, 175, 19, 20, 177, 178, 6 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 7 189, 190, 191, 22, 23, 193, 24, 23, 195, 196, 8 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 9 207, 208, 209, 21, 25, 211, 212, 213, 214, 215/ data (jb1(i),i= 201, 300)/ + 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 1 226, 227, 228, 229, 230, 231, 232, 233, 22, 26, 2 235, 236, 237, 238, 239, 240, 241, 24, 27, 243, 3 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 4 254, 255, 256, 257, 258, 25, 26, 260, 261, 29, 5 28, 263, 264, 265, 266, 267, 268, 269, 270, 271, 6 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 7 282, 283, 284, 285, 286, 287, 288, 289, 290, 291, 8 292, 293, 294, 27, 30, 296, 297, 298, 299, 300, 9 301, 302, 303, 29, 31, 305, 306, 307, 308, 309/ data (jb1(i),i= 301, 400)/ + 310, 311, 312, 313, 314, 315, 316, 317, 318, 319, 1 320, 321, 322, 323, 324, 325, 326, 327, 328, 329, 2 330, 331, 332, 333, 334, 335, 336, 28, 32, 338, 3 339, 340, 341, 342, 343, 344, 345, 346, 347, 348, 4 349, 350, 351, 352, 30, 34, 354, 355, 356, 357, 5 358, 359, 360, 361, 362, 363, 364, 365, 366, 367, 6 368, 31, 32, 370, 371, 372, 373, 374, 375, 376, 7 377, 378, 379, 380, 33, 34, 382, 383, 384, 385, 8 386, 387, 388, 389, 35, 33, 391, 392, 393, 394, 9 36, 36, 396, 397, 398, 399, 400, 401, 402, 403/ data (jb1(i),i= 401, 500)/ + 404, 405, 406, 407, 408, 409, 410, 411, 412, 413, 1 414, 415, 416, 417, 418, 419, 420, 39, 35, 422, 2 423, 424, 425, 426, 427, 428, 429, 37, 38, 431, 3 432, 433, 39, 37, 435, 436, 437, 438, 38, 440, 4 440, 440, 3, 441, 4, 442, 444, 443, 5, 443, 5 446, 6, 448, 447, 448, 449, 450, 451, 453, 441, 6 453, 454, 443, 456, 457, 458, 459, 460, 461, 462, 7 463, 464, 465, 455, 452, 9, 468, 469, 470, 471, 8 472, 473, 474, 475, 476, 477, 478, 447, 480, 481, 9 467, 452, 483, 484, 485, 486, 467, 456, 482, 488/ data (jb1(i),i= 501, 600)/ + 479, 455, 490, 488, 492, 491, 10, 494, 495, 496, 1 497, 486, 467, 499, 489, 501, 502, 503, 504, 505, 2 506, 507, 508, 509, 510, 511, 479, 501, 493, 490, 3 12, 515, 516, 499, 501, 518, 514, 520, 519, 514, 4 522, 524, 525, 526, 527, 528, 513, 523, 530, 513, 5 531, 532, 533, 534, 524, 517, 536, 500, 537, 518, 6 530, 519, 523, 540, 14, 542, 537, 544, 545, 541, 7 531, 547, 548, 549, 544, 538, 551, 550, 544, 553, 8 554, 555, 552, 539, 540, 558, 560, 530, 560, 558, 9 561, 557, 563, 564, 543, 565, 557, 567, 568, 569/ data (jb1(i),i= 601, 700)/ + 570, 571, 572, 573, 574, 556, 576, 577, 575, 579, 1 580, 581, 582, 583, 584, 585, 586, 587, 588, 589, 2 556, 559, 591, 579, 593, 542, 593, 579, 595, 596, 3 597, 598, 599, 600, 601, 602, 603, 604, 605, 606, 4 607, 608, 565, 593, 610, 612, 613, 598, 560, 575, 5 612, 562, 615, 611, 618, 619, 621, 616, 621, 610, 6 623, 615, 625, 609, 617, 627, 628, 629, 630, 631, 7 609, 625, 612, 634, 635, 636, 637, 638, 639, 640, 8 641, 642, 643, 644, 645, 646, 647, 648, 649, 650, 9 651, 652, 653, 654, 655, 656, 657, 658, 659, 660/ data (jb1(i),i= 701, 800)/ + 661, 662, 663, 664, 665, 666, 667, 668, 669, 670, 1 671, 672, 673, 674, 675, 676, 677, 678, 679, 680, 2 681, 682, 683, 684, 685, 627, 621, 623, 688, 689, 3 690, 687, 627, 692, 693, 694, 695, 696, 633, 698, 4 699, 700, 701, 702, 703, 704, 705, 706, 707, 708, 5 709, 710, 711, 712, 713, 697, 634, 715, 716, 718, 6 719, 720, 697, 654, 723, 724, 725, 726, 717, 717, 7 728, 729, 730, 722, 687, 723, 718, 722, 633, 735, 8 718, 734, 624, 620, 18, 738, 739, 740, 620, 742, 9 735, 723, 734, 745, 691, 746, 737, 747, 620, 749/ data (jb1(i),i= 801, 900)/ + 750, 752, 753, 754, 744, 746, 756, 757, 758, 752, 1 747, 751, 761, 760, 763, 759, 765, 763, 765, 742, 2 768, 769, 770, 771, 742, 773, 774, 775, 776, 777, 3 778, 779, 772, 780, 733, 782, 783, 784, 785, 781, 4 786, 788, 789, 790, 791, 792, 793, 794, 795, 796, 5 797, 798, 799, 800, 801, 802, 803, 804, 805, 744, 6 787, 767, 808, 809, 810, 807, 812, 813, 814, 815, 7 816, 817, 808, 751, 20, 820, 819, 760, 772, 822, 8 823, 819, 824, 812, 825, 827, 788, 752, 827, 781, 9 827, 831, 826, 832, 834, 825, 836, 833, 835, 830/ data (jb1(i),i= 901, 1000)/ + 838, 839, 840, 841, 842, 843, 844, 845, 846, 847, 1 848, 849, 850, 851, 823, 853, 854, 855, 856, 857, 2 852, 22, 859, 860, 861, 834, 831, 863, 830, 787, 3 865, 866, 864, 868, 867, 23, 870, 871, 872, 873, 4 874, 875, 852, 865, 877, 878, 832, 836, 878, 881, 5 880, 834, 883, 884, 881, 878, 864, 867, 887, 888, 6 886, 886, 885, 890, 892, 889, 892, 885, 881, 895, 7 896, 897, 898, 899, 900, 901, 902, 903, 904, 894, 8 905, 906, 907, 884, 908, 909, 890, 910, 894, 911, 9 892, 910, 914, 915, 916, 917, 918, 919, 920, 921/ data (jb1(i),i= 1001, 1100)/ + 922, 923, 924, 925, 926, 927, 928, 929, 930, 931, 1 932, 933, 934, 935, 936, 913, 912, 908, 939, 940, 2 941, 942, 943, 944, 945, 946, 947, 948, 949, 950, 3 951, 952, 953, 954, 955, 938, 907, 957, 956, 956, 4 958, 29, 960, 961, 962, 963, 964, 965, 966, 967, 5 968, 969, 970, 971, 972, 913, 973, 974, 911, 975, 6 976, 977, 979, 979, 978, 938, 973, 982, 983, 975, 7 978, 985, 986, 987, 988, 989, 990, 991, 992, 984, 8 981, 957, 994, 31, 996, 997, 998, 995, 993, 1000, 9 984, 1002, 1003, 994, 1001, 1001, 995, 1004, 1005, 1008/ data (jb1(i),i= 1101, 1150)/ + 1009, 1010, 1011, 1005, 1007, 1007, 1006, 1006, 1014, 1015, 1 1016, 1012, 1013, 1018, 1007, 1019, 1020, 1021, 1017, 1017, 2 1023, 1024, 1025, 1022, 1019, 1027, 1018, 1028, 1029, 1030, 3 1031, 1032, 1033, 1034, 1035, 1036, 1037, 1038, 1039, 1040, 4 1022, 1041, 1042, 1043, 1044, 1045, 1046, 0, 0, 0/ data (jb2(i),i= 1, 100)/ + 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 1 50, 50, 3, 4, 5, 6, 51, 52, 53, 54, 2 55, 56, 57, 58, 59, 60, 60, 61, 62, 63, 3 64, 65, 66, 67, 68, 68, 69, 70, 71, 71, 4 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 5 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 6 92, 93, 93, 94, 95, 96, 97, 98, 99, 100, 7 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 8 111, 112, 113, 114, 115, 116, 116, 12, 117, 118, 9 119, 120, 121, 122, 123, 124, 125, 126, 126, 14/ data (jb2(i),i= 101, 200)/ + 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 1 137, 138, 138, 16, 139, 140, 141, 142, 143, 144, 2 145, 146, 147, 148, 149, 150, 151, 152, 153, 153, 3 18, 154, 155, 156, 157, 158, 159, 160, 161, 162, 4 163, 163, 20, 164, 165, 166, 167, 168, 169, 170, 5 171, 172, 173, 174, 175, 176, 176, 177, 178, 179, 6 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 7 190, 191, 192, 192, 193, 194, 194, 195, 196, 197, 8 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 9 208, 209, 210, 210, 211, 212, 213, 214, 215, 216/ data (jb2(i),i= 201, 300)/ + 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 1 227, 228, 229, 230, 231, 232, 233, 234, 234, 235, 2 236, 237, 238, 239, 240, 241, 242, 242, 243, 244, 3 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 4 255, 256, 257, 258, 259, 259, 260, 261, 262, 262, 5 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 6 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 7 283, 284, 285, 286, 287, 288, 289, 290, 291, 292, 8 293, 294, 295, 295, 296, 297, 298, 299, 300, 301, 9 302, 303, 304, 304, 305, 306, 307, 308, 309, 310/ data (jb2(i),i= 301, 400)/ + 311, 312, 313, 314, 315, 316, 317, 318, 319, 320, 1 321, 322, 323, 324, 325, 326, 327, 328, 329, 330, 2 331, 332, 333, 334, 335, 336, 337, 337, 338, 339, 3 340, 341, 342, 343, 344, 345, 346, 347, 348, 349, 4 350, 351, 352, 353, 353, 354, 355, 356, 357, 358, 5 359, 360, 361, 362, 363, 364, 365, 366, 367, 368, 6 369, 369, 370, 371, 372, 373, 374, 375, 376, 377, 7 378, 379, 380, 381, 381, 382, 383, 384, 385, 386, 8 387, 388, 389, 390, 390, 391, 392, 393, 394, 395, 9 395, 396, 397, 398, 399, 400, 401, 402, 403, 404/ data (jb2(i),i= 401, 500)/ + 405, 406, 407, 408, 409, 410, 411, 412, 413, 414, 1 415, 416, 417, 418, 419, 420, 421, 421, 422, 423, 2 424, 425, 426, 427, 428, 429, 430, 430, 431, 432, 3 433, 434, 434, 435, 436, 437, 438, 439, 439, 1, 4 2, 441, 442, 442, 443, 444, 445, 445, 446, 446, 5 447, 448, 449, 449, 7, 450, 451, 452, 8, 453, 6 454, 455, 456, 457, 458, 459, 460, 461, 462, 463, 7 464, 465, 466, 466, 467, 468, 469, 470, 471, 472, 8 473, 474, 475, 476, 477, 478, 479, 480, 481, 482, 9 482, 483, 484, 485, 486, 487, 487, 488, 489, 489/ data (jb2(i),i= 501, 600)/ + 490, 491, 491, 492, 493, 493, 494, 495, 496, 497, 1 498, 498, 499, 500, 500, 502, 503, 504, 505, 506, 2 507, 508, 509, 510, 511, 512, 512, 11, 513, 514, 3 515, 516, 517, 517, 518, 519, 520, 521, 521, 522, 4 523, 525, 526, 527, 528, 529, 529, 524, 13, 531, 5 532, 533, 534, 535, 535, 536, 537, 538, 538, 539, 6 539, 540, 541, 541, 542, 543, 543, 545, 546, 546, 7 547, 548, 549, 550, 550, 551, 552, 552, 553, 554, 8 555, 556, 557, 558, 559, 559, 15, 561, 561, 562, 9 562, 563, 564, 565, 566, 566, 567, 568, 569, 570/ data (jb2(i),i= 601, 700)/ + 571, 572, 573, 574, 575, 576, 577, 578, 578, 580, 1 581, 582, 583, 584, 585, 586, 587, 588, 589, 590, 2 590, 591, 592, 592, 594, 594, 16, 595, 596, 597, 3 598, 599, 600, 601, 602, 603, 604, 605, 606, 607, 4 608, 609, 610, 611, 611, 613, 614, 614, 615, 616, 5 616, 617, 617, 618, 619, 620, 622, 622, 623, 624, 6 624, 625, 17, 626, 626, 628, 629, 630, 631, 632, 7 632, 633, 634, 635, 636, 637, 638, 639, 640, 641, 8 642, 643, 644, 645, 646, 647, 648, 649, 650, 651, 9 652, 653, 654, 655, 656, 657, 658, 659, 660, 661/ data (jb2(i),i= 701, 800)/ + 662, 663, 664, 665, 666, 667, 668, 669, 670, 671, 1 672, 673, 674, 675, 676, 677, 678, 679, 680, 681, 2 682, 683, 684, 685, 686, 686, 687, 688, 689, 690, 3 691, 691, 692, 693, 694, 695, 696, 697, 698, 699, 4 700, 701, 702, 703, 704, 705, 706, 707, 708, 709, 5 710, 711, 712, 713, 714, 714, 715, 716, 717, 719, 6 720, 721, 721, 722, 724, 725, 726, 727, 727, 728, 7 729, 730, 731, 731, 732, 732, 733, 733, 734, 736, 8 736, 735, 737, 737, 738, 739, 740, 741, 741, 743, 9 743, 744, 745, 19, 746, 747, 748, 748, 749, 750/ data (jb2(i),i= 801, 900)/ + 751, 753, 754, 755, 755, 756, 757, 758, 759, 759, 1 760, 761, 762, 762, 764, 764, 766, 766, 767, 768, 2 769, 770, 771, 772, 773, 774, 775, 776, 777, 778, 3 779, 780, 780, 781, 782, 783, 784, 785, 786, 786, 4 787, 789, 790, 791, 792, 793, 794, 795, 796, 797, 5 798, 799, 800, 801, 802, 803, 804, 805, 806, 806, 6 788, 807, 809, 810, 811, 811, 813, 814, 815, 816, 7 817, 818, 818, 819, 820, 821, 821, 812, 822, 823, 8 21, 824, 825, 826, 826, 828, 828, 829, 829, 830, 9 831, 832, 833, 833, 835, 835, 837, 837, 836, 838/ data (jb2(i),i= 901, 1000)/ + 839, 840, 841, 842, 843, 844, 845, 846, 847, 848, 1 849, 850, 851, 852, 853, 854, 855, 856, 857, 858, 2 858, 859, 860, 861, 862, 862, 863, 864, 865, 866, 3 866, 867, 868, 869, 869, 870, 871, 872, 873, 874, 4 875, 876, 876, 877, 24, 879, 879, 880, 880, 882, 5 882, 883, 884, 25, 883, 885, 886, 887, 888, 889, 6 889, 890, 891, 891, 26, 893, 893, 894, 895, 896, 7 897, 898, 899, 900, 901, 902, 903, 904, 905, 905, 8 906, 907, 908, 909, 909, 27, 910, 911, 912, 912, 9 913, 914, 915, 916, 917, 918, 919, 920, 921, 922/ data (jb2(i),i= 1001, 1100)/ + 923, 924, 925, 926, 927, 928, 929, 930, 931, 932, 1 933, 934, 935, 936, 937, 937, 938, 939, 940, 941, 2 942, 943, 944, 945, 946, 947, 948, 949, 950, 951, 3 952, 953, 954, 955, 956, 957, 958, 958, 28, 959, 4 959, 960, 961, 962, 963, 964, 965, 966, 967, 968, 5 969, 970, 971, 972, 973, 974, 974, 975, 976, 976, 6 977, 978, 980, 981, 980, 981, 982, 983, 30, 984, 7 985, 986, 987, 988, 989, 990, 991, 992, 993, 993, 8 994, 995, 995, 996, 997, 998, 999, 999, 1000, 1001, 9 1002, 1003, 32, 1004, 1004, 1005, 1006, 1007, 1008, 1009/ data (jb2(i),i= 1101, 1150)/ + 1010, 1011, 33, 1012, 1012, 1013, 1013, 1014, 1015, 1016, 1 34, 1017, 35, 36, 1019, 1020, 1021, 1022, 1018, 1023, 2 1024, 1025, 1026, 1026, 1027, 37, 1028, 1029, 1030, 1031, 3 1032, 1033, 1034, 1035, 1036, 1037, 1038, 1039, 1040, 1041, 4 38, 1042, 1043, 1044, 1045, 1046, 39, 0, 0, 0/ c state=istate irot=jrot npart=ipart do i=1,5 jv(i)=kv(i) jb(i)=kb(i) ib(i)=iib(i) enddo do i=1,jv(npart+1)-1 ix(i)=jx(i) iy(i)=jy(i) enddo do i=1,jb(npart+1)-1 ib1(i)=jb1(i) ib2(i)=jb2(i) enddo return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine in(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(*) :: jv,jb,ib,ix,iy,ib1,ib2 integer(kind=iknd), save, dimension(5) :: kv,kb,iib integer(kind=iknd), save, dimension(1130) :: jx,jy integer(kind=iknd), save, dimension(1220) :: jb1,jb2 integer(kind=iknd), save :: jrot,ipart character(len=80) :: state character(len=80), save :: istate cy data istate/'indiana '/ data jrot,ipart/0,1/ data kv/ 1,1122, 0, 0, 0/ data kb/ 1,1213, 0, 0, 0/ data iib/ 389, 0, 0, 0, 0/ data (jx(i),i= 1, 100)/ + 19080,19248,19320,20184,23328,17400,16056,12840,12912,13248, 1 13560,13680,13776,13944,14016,13776,13968,14112,14496,14952, 2 15072,41280,37128,32304,28128,41400,41544,12816,41640,12792, 3 41712,12696,41736,41808,12672,41880,41904,11880,41400,41592, 4 12744,37944,35520,10248,31584,24264,30456,25704, 7608,20352, 5 13416,10656,15408,41184,12648,12552,12408,12072,11832,11688, 6 11712,11856,11904,11808,41208,41208,41976,41784,41880,41856, 7 41400,41448,11976,12096,12192,12144,12144,12024,11904,11832, 8 11712,11664,11448,11616,11400,11280,11544,11328,11304,11400, 9 11736,11664,11688,11952,12168,12120,12216,12120,12240,12096/ data (jx(i),i= 101, 200)/ + 12576,12792,12720,12768,12648,38256,38544,39336,40200,40728, 1 41400,42024,42120,42144,41952,42120,42336,42408,42360,42096, 2 37704,37416,37272,36744,36216,35736,35496,35352,35184,35208, 3 35400,35400,31800,31944,32136,32832,33216,33288,33288,33552, 4 33864,34392,34752,34920,35064,35568,35640,35664,12552,12456, 5 12552,12456,12456,12360,12624,12696,12648,12936,12960,12768, 6 12960,12912,12960,12744,12624,12456,11952,11808,11736,11616, 7 11640,11544,11664,11664,11520,11448,11400,11376,11280,11232, 8 11064,11304,11304,11184,11040,10872,10632,10320,10176,10128, 9 10344,10392,10272, 7560, 7632, 7776, 7848, 7920, 8040, 7968/ data (jx(i),i= 201, 300)/ + 8064, 8136, 8256, 8424, 8328, 8376, 8448, 8832, 8928, 8928, 1 9000, 9144, 9240, 9264, 9360, 9528, 9888,31224,31152,31008, 2 30624,30360,30432,30216,30024,29040,28968,28968,28848,28752, 3 28464,28344,27960,27408,27096,26424,26304,26256,26352,26304, 4 26088,24384,24528,24960,25200,25632,25752,25824,25776,25320, 5 25224,25248,25392,24312,24576,24624,24384,23784,23640,23592, 6 23784,23784,23568,22968,22848,22776,22776,22680,22392,22128, 7 22056,22200,22176,21912,21504,21336,21024,20616,15072,14592, 8 14040,13680,10824,11016,11016,10848,10896,11040,11328,11520, 9 11712,11904,11832,11568,11448,11520,11688,11808,11880,11976/ data (jx(i),i= 301, 400)/ + 12192,12744,12864,15984,16536,16704,16896,17136,17304,17448, 1 17640,17880,17880,18072,18528,19320,19896, 7608, 7728, 8040, 2 8112, 8280, 8328, 7992, 7848, 7704, 7656, 7344, 7224, 7248, 3 7296, 7824, 7896, 7800, 7296, 7056, 6912, 7008, 7200, 7272, 4 7104, 7248, 7200, 7032, 7056, 7008, 6888, 6720, 6600, 6672, 5 7152, 7224, 7152, 6984, 6792, 6456, 6384, 6360, 6672, 7032, 6 7080, 7056, 6888, 6552, 6456, 6432, 6504, 6672, 6960, 7032, 7 7056, 7200, 7296, 7752, 7872, 8088, 8280, 8376, 8328, 8040, 8 8016, 8088, 8496, 8736, 9120, 9264, 9720,10056,10440,19104, 9 16080,37224,32424,28200,32424,28224,23952,23952,23352,23304/ data (jx(i),i= 401, 500)/ + 23712,23736,23616,23568,23328,32496,37320,36096,33696,33696, 1 22128,21816,21480,21432,21144,21096,20856,20640,20328,19728, 2 19200,19008,18648,17760,16992,16368,15984,15480,28296,28056, 3 23976,19104,14976,14376,14232,14016,13656,13560,32520,32160, 4 32208,29472,28704,28704,28080,36096,35808,35904,32640,32232, 5 29472,38664,35928,19104,27144,27120,22800,23976,32784,15456, 6 15456,15552,15552,18504,18504,17328,17328,22800,29592,30384, 7 27144,27216,36000,34800,38832,37440,34848,30408,17352,20976, 8 20928,21024,20928,21000,20904,21048,20952,20784,20784,25008, 9 23400,23400,24984,17376,25008,21600,21600,30456,37416,37272/ data (jx(i),i= 501, 600)/ + 34896,33480,30456,26424,26424,26016,26016,25704,25704,17400, 1 37320,30504,26424,17400,21600,26448,21600,17328,17232,16968, 2 16536,15912,15768,15720,15360,15216,15024,14976,14664,13896, 3 13704,13776,14040,14040,13128,13152,37416,33576,37584,37440, 4 13872,13776,13656,13800,13704,13824,13752,13920,33576,17400, 5 30528,30528,29736,26520,25584,21648,18264,17400,21648,37632, 6 37416,37440,36576,33408,33624,33384,14256,14112,14280,14232, 7 14304,14232,14352,14280,14280,14400,14568,14304,14424,14328, 8 13992,13944,14040,14016,13872,13728,13728,13848,39456,39456, 9 37848,37848,33024,33024,29616,29568,29736,29616,26448,25608/ data (jx(i),i= 601, 700)/ + 16224,18240,24120,24120,22080,21744,21744,22224,22224,39504, 1 36672,21744,19008,18240,22152,21912,21744,36696,33120,33144, 2 32568,29664,28248,26472,22320,22344,25032,22344,39264,37608, 3 36768,16224,15840,15792,28320,35232,15792,18984,17784,17784, 4 22128,22080,21768,21816,33888,32568,25752,25200,25152,25056, 5 31368,31392,35256,31176,30912,30696,30720,28344,25776,21792, 6 31464,26256,26184,38592,41136,40992,40848,40728,40680,40632, 7 40656,40560,40080,39984,39840,39792,39624,39432,39432,39240, 8 39168,39024,38952,38856,38760,38760,38832,38568,37872,37872, 9 34224,34248,33840,33864,33456,33480,33264,33264,33168,33168/ data (jx(i),i= 701, 800)/ + 32664,32664,38520,15744,21792,19392,17304,15744,21816,19416, 1 19200,19200,32472,32424,32328,32280,32160,32040,31920,31824, 2 31752,31728,31656,31608,26376,26448,26472,26616,26784,26904, 3 26928,27024,27192,27240,27360,27456,27768,27984,28128,28176, 4 28248,28464,28560,28800,29088,29088,29256,29328,29400,29400, 5 29448,29496,29664,29784,29784,29928,29952,30048,30024,30336, 6 30384,30336,30456,31344,31368,31200,31080,31080,30960,30960, 7 30720,30624,26112,26088,25872,25896,21840,32688,32904,32904, 8 33096,33096,33504,33528,33936,33960,34752,34752,34944,34968, 9 31512,31536,31416,31416,31320,31320,31224,31224,30936,30528/ data (jx(i),i= 801, 900)/ + 30912,17328,17232,16992,17064,17016,16896,16920,16992,16992, 1 16776,16848,16800,16392,16368,16464,16512,16344,16320,16248, 2 16224,16296,16272,16152,16176,16080,16056,15984,16032,15960, 3 15936,15888,15912,15768,15840,15768,15696,15744,15768,15576, 4 15576,15600,15768,15696,15624,15768,15672,15600,15672,15528, 5 15576,15432,15456,15336,15528,15384,15504,15528,15648,15696, 6 15552,15600,15768,15768,15624,15624,15792,15744,15648,15624, 7 15744,15768,15648,15600,15768,15648,15696,15648,15696,15792, 8 15768,15672,15792,15672,15768,15720,20136,20160,20064,19776, 9 19680,19560,19464,19296,17592,17424,17472,17352,17184,17064/ data (jx(i),i= 901, 1000)/ + 17064,17016,16896,16848,16872,16704,16656,16680,16608,16512, 1 16488,16368,16152,15960,13296,13512,13608,13656,13728,13776, 2 13896,13944,14136,14232,14232,14328,14424,14328,14448,15000, 3 15072,15216,15600,15648,19080,19008,18912,18840,18840,18600, 4 18432,18336,18240,18096,17976,17856,17688,21840,26520,25920, 5 30936,30720,30744,30552,30552,29760,29760,29352,29352,28944, 6 13224,13008,12960,12768,12576,12576,12504,12408,12360,12456, 7 12120,12000,11952,12024,11832,11688,11592,11424,11376,11208, 8 11112,11016,11136,11016,10920,10632,25944,21864,29352,31392, 9 31920,31824,31704,31680,31536,31560,31680,31560,31632,31536/ data (jx(i),i= 1001, 1100)/ + 31608,24264,23064,23064,14904,14904,14592,13920,13920,13512, 1 13512,13296,17568,15096,15096,21864,20640,20640,18192,17568, 2 28944,29160,29160,29352,29376,29616,29616,29808,29880,30456, 3 26400,26544,26544,26616,26448,26472,26592,26592,26496,26352, 4 26280,26352,26280,26304,26208,26136,26280,26472,26424,26424, 5 26544,26544,26496,26400,26376,26304,26280,26208,26112,26064, 6 26160,26088,26160,25944,25920,25848,25944,25896,25752, 9600, 7 9600,10824,10824,14904,13248,13248,20640,20520,20616,20496, 8 20568,20688,20760,20856,20904,20904,20784,20952,20784,20760, 9 20880,20736,20568,20472,13176,13416,10800,10728,15432,15720/ data (jx(i),i= 1101, 1130)/ + 15816,15840,15912,16224,16512,16512,16680,16680,16536,16584, 1 16680,16680,16752,16920,16992,17400,17304,17376,17544,17568, 2 18192, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (jy(i),i= 1, 100)/ + 61056,61104,61248,61728,61728,60240,59832,53472,61080,60720, 1 60504,60528,60408,60624,60552,60288,60120,60120,59952,59856, 2 59784,58824,61920,61848,61800,55200,50352,47520,45504,43944, 3 41856,39360,37632,33744,31848,30888,27888,27024,24096,22272, 4 22056,19248,17760,15264,13536,11064,12024,12000,12744, 9456, 5 8640, 8064, 7752,62016,28272,28296,28152,28104,27720,27672, 6 27624,27624,27576,27384,24336,24480,25128,23544,23280,23088, 7 22560,22392,26832,26952,26904,26760,26376,26160,26088,25992, 8 25992,25800,25680,25560,25536,25296,25056,25032,24936,24864, 9 24864,24672,24576,24504,24192,23952,23688,23400,23304,23256/ data (jy(i),i= 101, 200)/ + 23040,22752,22584,22392,22200,19224,19344,19992,20520,20496, 1 20760,20640,20688,20880,21264,21528,21696,22008,22104,22224, 2 19416,19824,19896,19920,19776,19848,19800,19680,19296,19128, 3 18744,18096,13536,13368,13296,13704,14304,14592,14952,15624, 4 15864,15936,16080,16296,16656,16992,17136,17424,21936,21936, 5 21744,21672,21552,21480,21312,21000,20856,20448,20328,20184, 6 20136,19896,19800,19440,19056,18936,18792,18672,18480,18408, 7 18240,17904,17784,17688,17688,17736,17712,17496,17400,17232, 8 17088,16680,16560,16488,16560,16296,16176,16152,16032,15864, 9 15792,15720,15576,13128,13128,12912,12888,13080,13152,13368/ data (jy(i),i= 201, 300)/ + 13464,13608,13704,13632,13392,13248,13272,13872,13728,13440, 1 13344,13392,13584,13992,14328,14544,14712,13416,13320,12696, 2 12288,11640,10920, 9888, 9648, 9408, 9264, 9048, 8952, 9024, 3 9504, 9624, 9720, 9648, 9792,10272,10464,10728,11352,11496, 4 11760,11232,11232,10944,11256,11280,11352,11520,11640,11808, 5 11976,12168,12240,10872,10704,10536,10176,10104, 9960, 9120, 6 8688, 8496, 8328, 8376, 8328, 8136, 7632, 7488, 7296, 7272, 7 7392, 8064, 8208, 8280, 7992, 7992, 8304, 9288, 8016, 8256, 8 8640, 8712, 8160, 8016, 7848, 7512, 7176, 7080, 7056, 7128, 9 7272, 7632, 7968, 8184, 8424, 8592, 8784, 9120, 9120, 9024/ data (jy(i),i= 301, 400)/ + 8568, 8184, 8232, 7344, 7224, 7032, 6528, 6456, 6480, 6576, 1 6792, 7632, 8016, 8232, 8472, 8640, 9264,12480,12168,12000, 2 11784,11880,11736,11328,11376,11304,11064,11016,10896,10752, 3 10704,10944,10704,10512,10248,10272,10128,10008,10008, 9960, 4 9672, 9192, 9072, 8976, 8592, 8544, 8520, 8616, 8496, 8400, 5 8328, 8136, 8040, 8088, 8064, 8256, 8256, 8136, 7584, 7368, 6 7296, 7176, 7104, 7248, 7224, 7104, 6912, 6840, 6912, 6864, 7 6744, 6792, 6768, 6384, 6384, 6696, 6816, 6936, 7368, 7728, 8 7848, 8064, 8520, 8448, 7896, 7800, 7800, 8016, 7992,54456, 9 54528,58680,58560,57864,57360,57288,57792,57192,57192,60192/ data (jy(i),i= 401, 500)/ + 60192,59184,59040,58416,58392,55368,55032,55008,54984,55392, 1 57192,56904,56736,56448,55872,55632,55440,55128,54960,54840, 2 54552,54336,54216,54888,55128,54840,54432,54192,53616,53616, 3 53544,53544,53760,53568,53424,53424,53592,53544,53760,53736, 4 51912,51816,51792,52416,52392,53808,53808,51408,51288,51288, 5 51216,50232,50160,49944,51144,49944,49944,49920,46464,50328, 6 49944,49944,47520,49944,48936,48936,47520,47496,46392,46416, 7 47232,45120,46536,46488,45384,45336,45288,45216,45096,47520, 8 47328,47256,47016,46848,46752,46704,46512,46512,45072,45072, 9 47472,46896,46896,43872,43272,43272,45096,42984,42720,42720/ data (jy(i),i= 501, 600)/ + 42672,42648,42600,42888,42480,42480,42672,42672,43272,42360, 1 41712,40392,40272,40272,40248,39792,39744,42360,42192,41976, 2 41904,41592,41568,41424,41136,40824,40728,40608,40272,39936, 3 39552,39408,39264,39072,39096,39360,38520,38448,37512,37512, 4 36624,36624,36720,36984,37608,37824,37920,38136,36624,36624, 5 36552,36336,36312,36264,36216,36192,35424,35424,35376,35712, 6 35712,34512,34488,34392,35616,35616,31848,32424,33000,33120, 7 33192,33360,34200,34632,34992,35016,35352,35544,35664,35904, 8 36072,36144,36216,36264,36240,36312,36360,36480,33720,33528, 9 33504,34536,34392,33192,33120,35520,35520,32280,32208,32160/ data (jy(i),i= 601, 700)/ + 31824,31752,32136,31728,31704,35376,32112,32136,31992,30912, 1 30840,29904,29928,29952,31080,30792,30672,29832,29760,28368, 2 28344,28248,28200,28152,29904,28200,28104,28104,27864,27840, 3 27264,30600,30600,27000,24120,26232,25776,28128,28128,25728, 4 28320,27960,28056,25680,25320,25272,24072,24048,26880,26904, 5 25248,24408,22320,24408,24312,24120,24000,23904,23304,23280, 6 20784,20112,23304,22848,23808,23880,23832,23688,23736,23712, 7 23616,23544,23544,23280,23352,23232,23256,22992,22872,22872, 8 22920,22680,22752,22680,22704,22800,22968,22584,22584,22392, 9 22296,21864,21840,21456,21432,21048,21048,20928,20928,21048/ data (jy(i),i= 701, 800)/ + 21024,20904,22224,22128,22080,22080,22056,22056,19008,20856, 1 20856,16488,20904,21024,21072,21000,21024,20928,20952,20856, 2 20880,20808,20856,20760,20136,20232,20160,20136,20328,20232, 3 20328,20376,20304,20376,20256,20280,20112,20160,20136,20352, 4 20400,20280,20328,20088,20160,20040,20088,20184,20160,20064, 5 20088,19992,20160,20112,20016,20136,20016,20040,19992,20016, 6 19968,19848,19752,20520,20376,20328,20136,19992,19896,19824, 7 19680,19656,19968,19728,19680,19056,16776,19824,19848,19728, 8 19728,19416,19416,19008,19008,18024,18048,17832,17832,17760, 9 17952,17760,17760,17664,17640,17544,17544,17376,17376,17544/ data (jy(i),i= 801, 900)/ + 17544,21984,21984,21768,21576,21552,21624,21480,21456,21408, 1 21528,21288,21120,21240,21192,21168,21000,21072,20928,21024, 2 20976,20904,20784,20952,20784,20688,20904,20904,20760,20736, 3 20640,20664,20760,20736,20808,20856,20688,20616,20328,20280, 4 20160,20088,20136,19992,19968,19776,19800,19704,19560,19680, 5 19464,19296,19200,19104,19032,18936,18840,18720,18912,18888, 6 18648,18552,18624,18480,18528,18456,18312,18264,18312,18240, 7 18048,17952,18024,18000,17880,17784,17736,17640,17568,17544, 8 17472,17376,17280,17256,17160,17040,16776,16728,16608,16488, 9 16344,16344,16440,16368,16608,16584,16704,16728,16944,16896/ data (jy(i),i= 901, 1000)/ + 16776,16752,16872,16776,16680,16632,16704,16800,16872,16848, 1 16992,17088,17136,16968,16872,16872,16824,16968,16992,16848, 2 16800,16992,16968,16872,16632,16584,16752,16944,17040,16680, 3 16560,16584,16800,16992,16488,16320,16272,16296,16464,16440, 4 16608,16536,16584,16512,16584,16560,16416,15000,15360,15360, 5 17160,17136,16752,16752,16536,16512,16320,16320,15336,15336, 6 16656,16512,16368,16488,16416,16632,16680,16656,16584,16320, 7 16320,16416,16344,16200,15744,15696,15744,15648,15816,15864, 8 15720,15696,15504,15456,15504,15312,15024,13128,15120,15168, 9 14424,14328,14328,14160,14184,14064,14016,13944,13848,13824/ data (jy(i),i= 1001, 1100)/ + 13728,12384,12384,13152,12888,14712,14808,14760,15528,15552, 1 15960,15960,12696,12696,12888,12936,12936,12336,12336,12336, 2 14112,14112,13728,13728,13344,13368,13152,13152,12120,12120, 3 15216,15144,14976,14880,14808,14592,14568,14496,14424,14520, 4 14352,14232,14232,13944,14016,13896,13800,13752,13728,13584, 5 13608,13560,13440,13488,13368,13368,12648,12576,12624,12552, 6 12480,12408,12312,12288,12120,12120,12024,11976,12024,12672, 7 12288,12312,11832,12312,12312,11784,12096,12000,11664,11448, 8 11400,10944,10872,10944,10872,10680,10560,10272,10224,10152, 9 9480, 9480, 9600, 9480,10008,10008,11232,11256, 8448, 8808/ data (jy(i),i= 1101, 1130)/ + 8808, 9000, 9096, 9312, 9648, 9720, 9744, 9816, 9864, 9912, 1 9912,10224,10296,10248,10080,10152,10320,10632,10824,11160, 2 11160, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (jb1(i),i= 1, 100)/ + 1, 2, 3, 4, 1, 6, 8, 9, 10, 11, 1 12, 13, 14, 15, 16, 17, 18, 19, 20, 7, 2 23, 24, 5, 23, 22, 22, 26, 8, 27, 28, 3 29, 30, 31, 33, 32, 34, 36, 35, 55, 56, 4 57, 58, 59, 60, 61, 62, 63, 38, 39, 65, 5 66, 37, 39, 68, 69, 70, 71, 40, 38, 73, 6 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 7 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 8 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 9 104, 41, 42, 106, 107, 108, 109, 110, 111, 112/ data (jb1(i),i= 101, 200)/ + 113, 114, 115, 116, 117, 118, 119, 40, 42, 121, 1 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 2 43, 45, 133, 134, 135, 136, 137, 138, 139, 140, 3 141, 142, 143, 144, 145, 146, 147, 43, 41, 149, 4 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 5 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 6 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 7 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 8 190, 191, 192, 44, 49, 194, 195, 196, 197, 198, 9 199, 200, 201, 202, 203, 204, 205, 206, 207, 208/ data (jb1(i),i= 201, 300)/ + 209, 210, 211, 212, 213, 214, 215, 216, 44, 45, 1 218, 219, 220, 47, 47, 222, 223, 224, 225, 226, 2 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 3 237, 238, 239, 240, 48, 46, 242, 243, 244, 245, 4 246, 247, 248, 249, 250, 251, 252, 48, 46, 254, 5 255, 256, 257, 258, 259, 260, 261, 262, 263, 264, 6 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 7 275, 276, 277, 50, 53, 279, 280, 281, 51, 52, 8 283, 284, 285, 286, 287, 288, 289, 290, 291, 292, 9 293, 294, 295, 296, 297, 298, 299, 300, 301, 302/ data (jb1(i),i= 301, 400)/ + 51, 53, 304, 305, 306, 307, 308, 309, 310, 311, 1 312, 313, 314, 315, 316, 50, 49, 318, 319, 320, 2 321, 322, 323, 324, 325, 326, 327, 328, 329, 330, 3 331, 332, 333, 334, 335, 336, 337, 338, 339, 340, 4 341, 342, 343, 344, 345, 346, 347, 348, 349, 350, 5 351, 352, 353, 354, 355, 356, 357, 358, 359, 360, 6 361, 362, 363, 364, 365, 366, 367, 368, 369, 370, 7 371, 372, 373, 374, 375, 376, 377, 378, 379, 380, 8 381, 382, 383, 384, 385, 386, 387, 388, 52, 1, 9 7, 22, 392, 392, 393, 25, 393, 395, 394, 394/ data (jb1(i),i= 401, 500)/ + 397, 398, 5, 400, 401, 402, 403, 404, 399, 395, 1 26, 392, 407, 408, 409, 406, 399, 411, 412, 413, 2 414, 415, 416, 417, 418, 419, 420, 390, 390, 422, 3 423, 424, 425, 391, 391, 427, 396, 429, 430, 398, 4 431, 390, 428, 433, 434, 435, 436, 437, 8, 406, 5 439, 440, 441, 442, 443, 444, 430, 408, 446, 447, 6 448, 449, 441, 442, 27, 452, 448, 432, 451, 455, 7 454, 456, 431, 457, 449, 428, 460, 461, 462, 463, 8 454, 464, 465, 466, 463, 457, 451, 469, 456, 471, 9 453, 473, 459, 459, 29, 452, 475, 476, 474, 470/ data (jb1(i),i= 501, 600)/ + 472, 467, 468, 480, 481, 482, 483, 484, 485, 486, 1 487, 488, 472, 468, 491, 492, 490, 479, 479, 494, 2 490, 495, 489, 496, 478, 476, 499, 500, 477, 501, 3 502, 498, 498, 504, 505, 506, 507, 508, 495, 494, 4 31, 500, 503, 512, 505, 510, 496, 514, 513, 516, 5 515, 510, 518, 519, 520, 521, 522, 523, 524, 525, 6 526, 527, 528, 529, 530, 531, 532, 533, 534, 535, 7 536, 511, 537, 502, 33, 537, 539, 541, 542, 543, 8 544, 545, 546, 547, 534, 538, 514, 541, 549, 512, 9 551, 552, 553, 516, 554, 555, 517, 557, 550, 556/ data (jb1(i),i= 601, 700)/ + 557, 539, 560, 561, 562, 563, 549, 565, 564, 567, 1 568, 569, 570, 571, 572, 573, 574, 575, 576, 577, 2 578, 579, 580, 581, 582, 583, 584, 585, 586, 587, 3 541, 34, 589, 590, 591, 562, 564, 593, 594, 595, 4 596, 553, 595, 598, 599, 555, 567, 567, 557, 601, 5 600, 603, 604, 559, 606, 607, 608, 605, 590, 610, 6 610, 563, 612, 613, 602, 605, 615, 616, 612, 611, 7 618, 594, 619, 620, 621, 598, 622, 623, 612, 625, 8 599, 624, 626, 627, 37, 629, 630, 618, 601, 632, 9 633, 634, 623, 631, 634, 613, 638, 639, 637, 626/ data (jb1(i),i= 701, 800)/ + 641, 642, 643, 640, 636, 645, 621, 647, 648, 649, 1 627, 646, 651, 636, 635, 652, 654, 655, 656, 657, 2 635, 647, 659, 644, 652, 662, 659, 629, 39, 665, 3 666, 667, 668, 669, 670, 671, 672, 673, 674, 675, 4 676, 677, 678, 679, 680, 681, 682, 683, 684, 685, 5 686, 664, 664, 688, 689, 653, 653, 691, 692, 693, 6 694, 695, 696, 697, 698, 699, 700, 701, 40, 688, 7 637, 660, 705, 704, 706, 704, 708, 705, 706, 710, 8 711, 702, 713, 714, 715, 716, 717, 718, 719, 720, 9 721, 722, 723, 661, 662, 725, 726, 727, 728, 729/ data (jb1(i),i= 801, 900)/ + 730, 731, 732, 733, 734, 735, 736, 737, 738, 739, 1 740, 741, 742, 743, 744, 745, 746, 747, 748, 749, 2 750, 751, 752, 753, 754, 755, 756, 757, 758, 759, 3 760, 761, 762, 661, 764, 765, 766, 767, 768, 769, 4 770, 771, 763, 690, 662, 773, 774, 775, 709, 709, 5 702, 778, 779, 780, 781, 782, 783, 784, 785, 786, 6 787, 788, 789, 790, 786, 791, 792, 793, 794, 795, 7 796, 797, 798, 763, 800, 799, 707, 802, 803, 804, 8 805, 806, 807, 808, 809, 810, 811, 812, 813, 814, 9 815, 816, 817, 818, 819, 820, 821, 822, 823, 824/ data (jb1(i),i= 901, 1000)/ + 825, 826, 827, 828, 829, 830, 831, 832, 833, 834, 1 835, 836, 837, 838, 839, 840, 841, 842, 843, 844, 2 845, 846, 847, 848, 849, 850, 851, 852, 853, 854, 3 855, 856, 857, 858, 859, 860, 861, 862, 863, 864, 4 865, 866, 867, 868, 869, 870, 871, 872, 873, 874, 5 875, 876, 877, 878, 879, 880, 881, 882, 883, 884, 6 885, 777, 887, 888, 889, 890, 891, 892, 893, 712, 7 895, 896, 897, 898, 899, 900, 901, 902, 903, 904, 8 905, 906, 907, 908, 909, 910, 911, 912, 913, 886, 9 915, 916, 917, 918, 919, 920, 921, 922, 923, 924/ data (jb1(i),i= 1001, 1100)/ + 925, 926, 927, 928, 929, 930, 931, 932, 933, 886, 1 712, 935, 936, 937, 938, 939, 940, 941, 942, 943, 2 944, 945, 946, 895, 777, 949, 776, 799, 951, 952, 3 953, 954, 955, 956, 957, 958, 959, 949, 915, 961, 4 962, 963, 964, 965, 966, 967, 968, 969, 970, 971, 5 972, 973, 974, 975, 976, 977, 978, 979, 980, 981, 6 982, 983, 984, 985, 986, 948, 950, 948, 959, 989, 7 990, 991, 992, 993, 994, 995, 996, 997, 998, 999, 8 1000, 1001, 46, 1002, 1003, 988, 1005, 1006, 1007, 1008, 9 1009, 1010, 1011, 915, 895, 1013, 1014, 1005, 988, 1016/ data (jb1(i),i= 1101, 1200)/ + 1017, 1018, 1019, 1013, 960, 1021, 1022, 1023, 1024, 1025, 1 1026, 1027, 1028, 1029, 1030, 949, 1031, 1032, 1033, 1034, 2 1035, 1036, 1037, 1038, 1039, 1040, 1041, 1042, 1043, 1044, 3 1045, 1046, 1047, 1048, 1049, 1050, 1051, 1052, 1053, 1054, 4 1055, 1056, 1057, 1058, 1059, 1060, 1061, 1062, 1063, 1064, 5 1065, 1066, 1067, 1068, 1069, 49, 1070, 1071, 1072, 1005, 6 1074, 1075, 1073, 1018, 1077, 1078, 1079, 1080, 1081, 1082, 7 1083, 1084, 1085, 1086, 1087, 1088, 1089, 1090, 1091, 1092, 8 1093, 1094, 1076, 1095, 1096, 1073, 1097, 1098, 53, 1099, 9 1100, 1101, 1102, 1103, 1104, 1105, 1106, 1107, 1108, 1109/ data (jb1(i),i= 1201, 1220)/ + 1110, 1111, 1112, 1113, 1114, 1115, 1116, 1117, 1118, 1119, 1 1120, 1019, 0, 0, 0, 0, 0, 0, 0, 0/ data (jb2(i),i= 1, 100)/ + 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 1 13, 14, 15, 16, 17, 18, 19, 20, 21, 21, 2 24, 25, 25, 54, 54, 26, 27, 28, 29, 30, 3 31, 32, 33, 34, 35, 36, 37, 55, 56, 57, 4 58, 59, 60, 61, 62, 63, 64, 64, 65, 66, 5 67, 67, 68, 69, 70, 71, 72, 72, 73, 74, 6 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 7 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 8 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 9 105, 105, 106, 107, 108, 109, 110, 111, 112, 113/ data (jb2(i),i= 101, 200)/ + 114, 115, 116, 117, 118, 119, 120, 120, 121, 122, 1 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 2 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 3 142, 143, 144, 145, 146, 147, 148, 148, 149, 150, 4 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 5 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 6 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 7 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 8 191, 192, 193, 193, 194, 195, 196, 197, 198, 199, 9 200, 201, 202, 203, 204, 205, 206, 207, 208, 209/ data (jb2(i),i= 201, 300)/ + 210, 211, 212, 213, 214, 215, 216, 217, 217, 218, 1 219, 220, 221, 221, 222, 223, 224, 225, 226, 227, 2 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 3 238, 239, 240, 241, 241, 242, 243, 244, 245, 246, 4 247, 248, 249, 250, 251, 252, 253, 253, 254, 255, 5 256, 257, 258, 259, 260, 261, 262, 263, 264, 265, 6 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 7 276, 277, 278, 278, 279, 280, 281, 282, 282, 283, 8 284, 285, 286, 287, 288, 289, 290, 291, 292, 293, 9 294, 295, 296, 297, 298, 299, 300, 301, 302, 303/ data (jb2(i),i= 301, 400)/ + 303, 304, 305, 306, 307, 308, 309, 310, 311, 312, 1 313, 314, 315, 316, 317, 317, 318, 319, 320, 321, 2 322, 323, 324, 325, 326, 327, 328, 329, 330, 331, 3 332, 333, 334, 335, 336, 337, 338, 339, 340, 341, 4 342, 343, 344, 345, 346, 347, 348, 349, 350, 351, 5 352, 353, 354, 355, 356, 357, 358, 359, 360, 361, 6 362, 363, 364, 365, 366, 367, 368, 369, 370, 371, 7 372, 373, 374, 375, 376, 377, 378, 379, 380, 381, 8 382, 383, 384, 385, 386, 387, 388, 389, 389, 390, 9 391, 392, 23, 393, 24, 394, 395, 396, 396, 397/ data (jb2(i),i= 401, 500)/ + 398, 399, 400, 401, 402, 403, 404, 405, 405, 406, 1 407, 407, 408, 409, 410, 410, 411, 412, 413, 414, 2 415, 416, 417, 418, 419, 420, 421, 421, 422, 423, 3 424, 425, 426, 426, 427, 428, 429, 430, 431, 431, 4 432, 432, 433, 434, 435, 436, 437, 438, 438, 439, 5 440, 441, 442, 443, 444, 445, 445, 446, 447, 448, 6 449, 450, 450, 451, 452, 453, 453, 454, 455, 456, 7 457, 458, 458, 458, 459, 460, 461, 462, 463, 28, 8 464, 465, 466, 467, 467, 468, 469, 470, 471, 472, 9 473, 474, 474, 470, 475, 475, 476, 477, 477, 478/ data (jb2(i),i= 501, 600)/ + 478, 479, 480, 481, 482, 483, 484, 485, 486, 487, 1 488, 489, 490, 491, 492, 493, 493, 489, 494, 30, 2 495, 496, 497, 497, 498, 499, 500, 501, 501, 502, 3 503, 503, 504, 505, 506, 507, 508, 509, 509, 510, 4 511, 511, 512, 513, 513, 514, 515, 515, 516, 517, 5 517, 518, 519, 520, 521, 522, 523, 524, 525, 526, 6 527, 528, 529, 530, 531, 532, 533, 534, 535, 536, 7 32, 537, 538, 538, 539, 540, 540, 542, 543, 544, 8 545, 546, 547, 548, 548, 549, 550, 550, 551, 551, 9 552, 553, 554, 554, 555, 556, 556, 558, 558, 559/ data (jb2(i),i= 601, 700)/ + 559, 560, 561, 562, 563, 564, 565, 566, 566, 568, 1 569, 570, 571, 572, 573, 574, 575, 576, 577, 578, 2 579, 580, 581, 582, 583, 584, 585, 586, 587, 588, 3 588, 589, 590, 591, 592, 592, 593, 594, 595, 596, 4 597, 597, 598, 599, 600, 600, 35, 601, 602, 602, 5 603, 604, 605, 606, 607, 608, 609, 609, 610, 36, 6 611, 611, 613, 614, 614, 615, 616, 617, 617, 618, 7 619, 619, 620, 621, 622, 622, 623, 624, 625, 626, 8 624, 627, 628, 628, 629, 630, 631, 631, 632, 633, 9 634, 38, 635, 636, 637, 638, 639, 640, 640, 641/ data (jb2(i),i= 701, 800)/ + 642, 643, 644, 644, 645, 646, 646, 648, 649, 650, 1 650, 651, 652, 653, 647, 654, 655, 656, 657, 658, 2 658, 659, 660, 660, 661, 663, 663, 664, 665, 666, 3 667, 668, 669, 670, 671, 672, 673, 674, 675, 676, 4 677, 678, 679, 680, 681, 682, 683, 684, 685, 686, 5 687, 687, 688, 689, 690, 690, 691, 692, 693, 694, 6 695, 696, 697, 698, 699, 700, 701, 702, 703, 703, 7 704, 705, 706, 707, 707, 708, 41, 709, 710, 711, 8 712, 713, 714, 715, 716, 717, 718, 719, 720, 721, 9 722, 723, 724, 724, 725, 726, 727, 728, 729, 730/ data (jb2(i),i= 801, 900)/ + 731, 732, 733, 734, 735, 736, 737, 738, 739, 740, 1 741, 742, 743, 744, 745, 746, 747, 748, 749, 750, 2 751, 752, 753, 754, 755, 756, 757, 758, 759, 760, 3 761, 762, 763, 764, 765, 766, 767, 768, 769, 770, 4 771, 772, 772, 42, 773, 774, 775, 776, 776, 777, 5 778, 779, 780, 781, 782, 783, 784, 785, 786, 787, 6 788, 789, 790, 43, 791, 792, 793, 794, 795, 796, 7 797, 798, 799, 800, 801, 801, 802, 803, 804, 805, 8 806, 807, 808, 809, 810, 811, 812, 813, 814, 815, 9 816, 817, 818, 819, 820, 821, 822, 823, 824, 825/ data (jb2(i),i= 901, 1000)/ + 826, 827, 828, 829, 830, 831, 832, 833, 834, 835, 1 836, 837, 838, 839, 840, 841, 842, 843, 844, 845, 2 846, 847, 848, 849, 850, 851, 852, 853, 854, 855, 3 856, 857, 858, 859, 860, 861, 862, 863, 864, 865, 4 866, 867, 868, 869, 870, 871, 872, 873, 874, 875, 5 876, 877, 878, 879, 880, 881, 882, 883, 884, 885, 6 886, 887, 888, 889, 890, 891, 892, 893, 894, 894, 7 896, 897, 898, 899, 900, 901, 902, 903, 904, 905, 8 906, 907, 908, 909, 910, 911, 912, 913, 914, 914, 9 916, 917, 918, 919, 920, 921, 922, 923, 924, 925/ data (jb2(i),i= 1001, 1100)/ + 926, 927, 928, 929, 930, 931, 932, 933, 934, 934, 1 935, 936, 937, 938, 939, 940, 941, 942, 943, 944, 2 945, 946, 947, 947, 948, 950, 950, 951, 952, 953, 3 954, 955, 956, 957, 958, 959, 960, 960, 961, 962, 4 963, 964, 965, 966, 967, 968, 969, 970, 971, 972, 5 973, 974, 975, 976, 977, 978, 979, 980, 981, 982, 6 983, 984, 985, 986, 44, 987, 987, 988, 989, 990, 7 991, 992, 993, 994, 995, 996, 997, 998, 999, 1000, 8 1001, 45, 1002, 1003, 1004, 1004, 1006, 1007, 1008, 1009, 9 1010, 1011, 1012, 1012, 1013, 1014, 1015, 1015, 1016, 1017/ data (jb2(i),i= 1101, 1200)/ + 1018, 1019, 1020, 1020, 1021, 1022, 1023, 1024, 1025, 1026, 1 1027, 1028, 1029, 1030, 47, 1031, 1032, 1033, 1034, 1035, 2 1036, 1037, 1038, 1039, 1040, 1041, 1042, 1043, 1044, 1045, 3 1046, 1047, 1048, 1049, 1050, 1051, 1052, 1053, 1054, 1055, 4 1056, 1057, 1058, 1059, 1060, 1061, 1062, 1063, 1064, 1065, 5 1066, 1067, 1068, 1069, 48, 1070, 1071, 1072, 1073, 1074, 6 1075, 1076, 1076, 1077, 1078, 1079, 1080, 1081, 1082, 1083, 7 1084, 1085, 1086, 1087, 1088, 1089, 1090, 1091, 1092, 1093, 8 1094, 50, 1095, 1096, 51, 1097, 1098, 52, 1099, 1100, 9 1101, 1102, 1103, 1104, 1105, 1106, 1107, 1108, 1109, 1110/ data (jb2(i),i= 1201, 1220)/ + 1111, 1112, 1113, 1114, 1115, 1116, 1117, 1118, 1119, 1120, 1 1121, 1121, 0, 0, 0, 0, 0, 0, 0, 0/ c state=istate irot=jrot npart=ipart do i=1,5 jv(i)=kv(i) jb(i)=kb(i) ib(i)=iib(i) enddo do i=1,jv(npart+1)-1 ix(i)=jx(i) iy(i)=jy(i) enddo do i=1,jb(npart+1)-1 ib1(i)=jb1(i) ib2(i)=jb2(i) enddo return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine ia(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(*) :: jv,jb,ib,ix,iy,ib1,ib2 integer(kind=iknd), save, dimension(5) :: kv,kb,iib integer(kind=iknd), save, dimension(580) :: jx,jy integer(kind=iknd), save, dimension(680) :: jb1,jb2 integer(kind=iknd), save :: jrot,ipart character(len=80) :: state character(len=80), save :: istate cy data istate/'iowa '/ data jrot,ipart/0,1/ data kv/ 1, 574, 0, 0, 0/ data kb/ 1, 672, 0, 0, 0/ data iib/ 343, 0, 0, 0, 0/ data (jx(i),i= 1, 100)/ + 12144, 6864,15648,19176,22680,26184,29688,33192,40200,36696, 1 46992,43704, 6864,49200, 7008,52464, 7920,55008, 9456,53856, 2 10440,50352,48192,11184,49200,11640,32616,48024,43344,14928, 3 39744,36168,18480,29040,21936,25464,47016,47184,47400,47832, 4 47520,47184,46752,46680,46776,46704,46512,46584, 6672, 6720, 5 6648, 7056, 7200, 6960, 6864, 6840, 6648, 6768, 6744, 6672, 6 47016,47184,47160,47256,47280,47592,47712,47808,47832,47928, 7 48024,48168,48216,48624, 6960, 7008, 7032, 7104, 7176, 7056, 8 7056, 7224, 7200, 7080, 7128, 7032, 7392, 7488, 7560, 7536, 9 7680, 7704, 7656, 7512, 7536, 7464, 7392, 7152, 7032, 6840/ data (jx(i),i= 101, 200)/ + 6792, 6912,50424,50640,51000,51168,51216,51096,51120,51384, 1 51768,51888, 6840, 6912, 6816, 6840, 6768, 6816, 6696, 6648, 2 6528, 6504, 6384, 6408, 6072, 6072, 6192, 6096, 6048, 6120, 3 6072, 6168, 6312, 6480, 6456, 6552, 6600, 6720, 6744, 6888, 4 6768, 6936, 7056, 7032, 7104, 7008,52944,52872,52992,53208, 5 53424,54504,54648,54912,54912, 8136, 8064, 8136, 7896, 7728, 6 7464, 7488, 7608, 7608, 7824, 7824, 7704, 7344, 7152, 7152, 7 7032, 7032, 7152, 7128,55128,54960,55080,54840,54864,54816, 8 54552,54024, 9312, 9480, 9456, 9528, 9456, 9168, 9096, 8976, 9 8856, 8784, 8856, 8520, 8568, 8472, 8520, 8400, 8232, 8184/ data (jx(i),i= 201, 300)/ + 7992,53880,53760,53688,53712,53616,53208,52752,52584,52128, 1 51816,51696,51312,50712,10464,10344,10200,10128, 9984, 9768, 2 9648, 9696, 9840, 9792, 9552, 9528, 9720, 9528, 9600, 9888, 3 9888, 9696, 9672, 9960, 9984, 9912, 9696, 9648,10272,10272, 4 10656,10872,11016,10896,10896,10824,10896,10680,10872,11184, 5 11280,11232,11016,11040,10920,10848,10968,10824,10848,10944, 6 11352,11496,11448,11256,49872,49248,48840,48432,48360,48336, 7 48216,48192,47904,47904,48144,48312,48384,48528,48744,48840, 8 49176,11184,11280,11304,11136,11328,11232,11256,11496,11448, 9 49248,49152,49104,48816,48408,48168,48192,48024,43560,43608/ data (jx(i),i= 301, 400)/ + 44088,44136,44328,44496,44880,44880,44808,44904,44880,45120, 1 45192,45336,45384,45528,45696,45984,46128,46008,46104,45984, 2 45720,45768,46296,46896,47472,47904,11616,11376,11328,11400, 3 11352,11424,11328,11064,10992,11256,11328,11712,11808,12024, 4 12024,11928,43248,12024,15576,19104,22608,26136,29664,33192, 5 40224,36696,33192,43824,40248,11952,15480,19008,22536,26088, 6 40248,29640,33192,36720,47424,49200,22488,43872,26064,40272, 7 36720,11832,12720,15360,18936,22488,26040,29616,33168,36720, 8 51000,51024,49296,47544,45768,43992,43968,43896,42216,40440, 9 40440,40296,38688,36888,36744,36888,13128,13224,12696,15768/ data (jx(i),i= 401, 500)/ + 15840,15360,17520,18912,19344,19272,21024,22776,22824,22488, 1 24528,26040,26328,26304,35112,35136,28056,33360,33168,33360, 2 29856,29880,29592,31608,49368,49368,45816,12984,13872,17400, 3 20064,20952,45816,23616,24504,42288,27144,38712,28032,30720, 4 31584,35160,27288,27312,27144,49416,53712,53544,53328,53184, 5 53136,53040,52968,52824,52728,52632,52512,52080,51864,51768, 6 51576,51456,51312,51192,51096,51024,50928,50784,50712,50448, 7 50280,49440,45888,14232,13800,14256,16848,17712,17736,17352, 8 42360,20328,20352,20016,41448,38736,37872,23856,23880,23568, 9 35232,35232,35160,34344,30696,30840,30840,26472,30840,29064/ data (jx(i),i= 501, 580)/ + 30000,30048,30144,30192,30144,30288,30288,30408,30576,30648, 1 30768,50328,45888,45024,44664,44736,44808,44856,44784,44760, 2 44904,44856,45912,15000,16752,18504,45024,20256,43272,41496, 3 22032,39672,27264,23784,37920,29064,36120,30840,34368,32616, 4 25560,26424,45936,45936,14928,18432,21984,43296,39720,25512, 5 29064,36168,32616,45696,45960,43296,47712,47640,47520,47472, 6 47304,46992,46704,46608,46440,46392,46128,46056,45840,14880, 7 14976,18504,18408, 0, 0, 0, 0, 0, 0, 0/ data (jy(i),i= 1, 100)/ + 50160,47904,50064,49968,49896,49872,49824,49800,49824,49800, 1 45624,49896,44328,41568,40752,38640,37176,35184,33528,32040, 2 29832,29112,27840,26256,25200,23616,20040,21336,20280,20256, 3 20232,20112,20112,19992,19992,19968,46224,46344,46896,47448, 4 48024,48264,48408,48480,48912,49176,49464,49944,48024,48240, 5 48264,48312,49224,49368,49512,49656,49752,50112,50280,50376, 6 45240,44760,44616,44424,43920,43632,43272,43176,42792,42312, 7 42192,42144,42048,41760,44544,44520,44640,44664,44808,45000, 8 45072,45264,45408,45504,45624,45648,45864,45864,46032,46200, 9 46392,46488,46608,46752,46992,47448,47520,47472,47544,47544/ data (jy(i),i= 101, 200)/ + 47688,47760,41304,41184,40416,40248,40080,39744,39552,39384, 1 39216,39000,44208,44136,44064,43968,43920,43728,43680,43488, 2 43584,43440,43272,43200,42888,42840,42768,42720,42552,42384, 3 42288,42168,42144,41976,41904,41904,41760,41760,41640,41448, 4 41280,41280,41016,40944,40896,40848,38088,37608,37320,37056, 5 36888,36432,36144,36048,35496,37344,37512,37776,37992,38376, 6 38568,38688,38856,39216,39456,39792,39960,39984,40080,40224, 7 40248,40344,40416,40704,34872,34416,33936,33216,32904,32832, 8 32712,32352,33984,34104,34344,34608,34680,34752,35040,35040, 9 34896,34920,35280,35448,35712,36000,36168,36288,36360,36552/ data (jy(i),i= 201, 300)/ + 36672,31728,31536,31224,30648,30552,30360,29856,29832,29904, 1 29760,29520,29208,29088,29976,30240,30216,30024,29952,30048, 2 30264,30408,30552,30648,30840,30936,31296,31680,31848,31872, 3 31992,32136,32208,32712,32808,32928,33048,33384,29712,29568, 4 29376,29400,29232,29040,28824,28680,28416,28176,27960,27888, 5 27744,27552,27432,27720,27720,27648,27072,26760,26640,26544, 6 26544,26424,26328,26352,29112,28776,28872,28752,28656,28392, 7 28152,27600,27024,26880,26424,26328,26160,26112,26136,26064, 8 25512,26136,25896,25512,25272,25008,24744,24600,24432,23880, 9 24672,23760,23664,23472,22872,22632,22200,21720,20112,19824/ data (jy(i),i= 301, 400)/ + 19680,19368,19200,18912,18840,18744,18672,18576,18384,18264, 1 18120,18096,18000,18120,18048,18120,18264,18624,19296,19584, 2 19776,19968,20424,20688,20736,21024,23424,23304,23208,23016, 3 22728,22416,22272,22104,21864,21576,21360,21168,21048,20712, 4 20496,20400,20400,47688,47544,47448,47376,47352,47304,47280, 5 46896,46848,46848,45600,45552,44112,43992,43896,43824,43752, 6 43752,43752,43728,43728,41208,41256,41136,41136,41088,41040, 7 41016,40560,40536,40440,40344,40248,40200,40176,40152,40152, 8 38616,37728,37656,37632,37608,37584,39336,39336,37584,37536, 9 39288,39288,37536,37512,39264,39264,36936,39624,39648,36864/ data (jy(i),i= 401, 500)/ + 39552,39576,36816,39480,39456,36768,36720,36696,39384,39384, 1 36672,39336,39312,36648,37488,36624,36624,36600,39264,39264, 2 36600,39264,39288,36600,34992,34128,34056,33384,33360,33264, 3 33192,33192,33168,33144,33144,33120,33096,33096,33096,33072, 4 33072,33072,29520,30408,30408,32352,32136,32016,32112,32016, 5 32136,32112,32304,32376,32304,32448,32376,32376,32280,32400, 6 32280,32328,32232,32328,32232,32232,32040,32040,31944,32304, 7 32352,30552,30504,29712,30696,30672,29616,29592,30576,30600, 8 29544,29544,30528,30528,29544,29496,29472,29472,30456,30456, 9 29472,30408,30408,29448,30408,30408,29448,29424,29280,29496/ data (jy(i),i= 501, 580)/ + 29448,29400,29472,29400,29304,29376,29232,29304,29232,29352, 1 29184,30576,28704,28680,29592,29448,29496,29256,29232,29160, 2 29064,28968,27816,26160,26112,26040,26040,26016,25992,25992, 3 25968,25944,25944,25944,25944,25920,25920,25896,25896,25896, 4 25896,25872,25152,26040,23520,23424,23352,23328,23280,23256, 5 23256,23232,23232,22464,22488,22440,21432,21600,21576,21504, 6 21552,21840,21888,22080,22080,22152,22272,22248,22440,21768, 7 21744,21672,21672, 0, 0, 0, 0, 0, 0, 0/ data (jb1(i),i= 1, 100)/ + 1, 3, 4, 11, 37, 38, 39, 40, 41, 42, 1 43, 44, 45, 46, 47, 12, 5, 9, 6, 9, 2 7, 8, 2, 49, 50, 51, 52, 53, 54, 55, 3 56, 57, 58, 59, 1, 11, 61, 62, 63, 64, 4 65, 66, 67, 68, 69, 70, 71, 72, 73, 14, 5 13, 75, 76, 77, 78, 79, 80, 81, 82, 83, 6 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 7 94, 95, 96, 97, 98, 99, 100, 101, 2, 14, 8 103, 104, 105, 106, 107, 108, 109, 110, 111, 16, 9 13, 113, 114, 115, 116, 117, 118, 119, 120, 121/ data (jb1(i),i= 101, 200)/ + 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 1 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 2 142, 143, 144, 145, 15, 16, 147, 148, 149, 150, 3 151, 152, 153, 154, 18, 17, 156, 157, 158, 159, 4 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 5 170, 171, 172, 173, 15, 18, 175, 176, 177, 178, 6 179, 180, 181, 20, 19, 183, 184, 185, 186, 187, 7 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 8 198, 199, 200, 17, 20, 202, 203, 204, 205, 206, 9 207, 208, 209, 210, 211, 212, 213, 22, 21, 215/ data (jb1(i),i= 201, 300)/ + 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 1 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 2 236, 237, 19, 21, 239, 240, 241, 242, 243, 244, 3 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 4 255, 256, 257, 258, 259, 260, 261, 262, 263, 24, 5 22, 265, 266, 267, 268, 269, 270, 23, 23, 272, 6 273, 274, 275, 276, 277, 278, 279, 280, 25, 24, 7 282, 283, 284, 285, 286, 287, 288, 289, 26, 25, 8 291, 292, 293, 294, 295, 296, 297, 28, 29, 299, 9 300, 301, 302, 303, 304, 305, 306, 307, 308, 309/ data (jb1(i),i= 301, 400)/ + 310, 311, 312, 313, 314, 315, 316, 317, 318, 319, 1 320, 321, 322, 323, 324, 325, 28, 26, 327, 328, 2 329, 330, 331, 332, 333, 334, 335, 336, 337, 338, 3 339, 340, 341, 30, 29, 31, 31, 30, 27, 27, 4 33, 34, 35, 344, 344, 345, 344, 346, 345, 347, 5 346, 348, 349, 348, 350, 349, 351, 351, 352, 352, 6 350, 11, 354, 354, 351, 344, 356, 345, 356, 346, 7 357, 347, 358, 348, 359, 355, 349, 360, 353, 362, 8 361, 352, 363, 365, 366, 359, 365, 354, 360, 367, 9 368, 361, 370, 364, 356, 372, 372, 357, 373, 358/ data (jb1(i),i= 401, 500)/ + 374, 367, 375, 369, 362, 377, 363, 378, 371, 379, 1 16, 381, 382, 383, 365, 384, 385, 386, 387, 368, 2 386, 389, 390, 391, 370, 390, 393, 380, 395, 394, 3 397, 397, 398, 373, 400, 401, 374, 397, 400, 375, 4 404, 405, 403, 406, 408, 409, 376, 407, 408, 377, 5 412, 413, 411, 394, 415, 414, 416, 379, 419, 418, 6 421, 422, 378, 417, 418, 421, 18, 383, 425, 426, 7 385, 397, 428, 428, 403, 429, 430, 407, 431, 427, 8 432, 411, 434, 433, 389, 435, 436, 393, 417, 437, 9 439, 424, 440, 438, 416, 441, 443, 444, 437, 426/ data (jb1(i),i= 501, 600)/ + 20, 447, 448, 449, 450, 451, 452, 453, 454, 455, 1 456, 457, 458, 459, 460, 461, 462, 463, 464, 465, 2 466, 467, 468, 469, 470, 446, 446, 472, 433, 474, 3 429, 475, 474, 474, 478, 479, 430, 477, 436, 482, 4 483, 431, 478, 481, 485, 438, 486, 488, 489, 434, 5 482, 491, 492, 442, 487, 491, 440, 495, 496, 494, 6 443, 488, 497, 443, 500, 501, 502, 503, 504, 505, 7 506, 507, 508, 509, 510, 499, 472, 512, 473, 513, 8 481, 515, 516, 517, 518, 519, 520, 521, 514, 513, 9 523, 524, 477, 524, 525, 514, 482, 526, 527, 485/ data (jb1(i),i= 601, 680)/ + 529, 528, 530, 443, 488, 531, 532, 487, 533, 535, 1 499, 536, 537, 494, 538, 534, 539, 533, 541, 543, 2 527, 543, 524, 545, 526, 545, 531, 546, 529, 548, 3 532, 541, 547, 536, 550, 549, 537, 552, 551, 540, 4 553, 554, 543, 554, 548, 28, 557, 558, 559, 560, 5 561, 562, 563, 564, 565, 566, 567, 568, 554, 556, 6 545, 570, 571, 549, 552, 33, 572, 546, 551, 547, 7 550, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (jb2(i),i= 1, 100)/ + 3, 4, 5, 37, 38, 39, 40, 41, 42, 43, 1 44, 45, 46, 47, 48, 48, 6, 12, 7, 10, 2 8, 10, 49, 50, 51, 52, 53, 54, 55, 56, 3 57, 58, 59, 60, 60, 61, 62, 63, 64, 65, 4 66, 67, 68, 69, 70, 71, 72, 73, 74, 74, 5 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 6 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 7 95, 96, 97, 98, 99, 100, 101, 102, 102, 103, 8 104, 105, 106, 107, 108, 109, 110, 111, 112, 112, 9 113, 114, 115, 116, 117, 118, 119, 120, 121, 122/ data (jb2(i),i= 101, 200)/ + 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 1 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 2 143, 144, 145, 146, 146, 147, 148, 149, 150, 151, 3 152, 153, 154, 155, 155, 156, 157, 158, 159, 160, 4 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 5 171, 172, 173, 174, 174, 175, 176, 177, 178, 179, 6 180, 181, 182, 182, 183, 184, 185, 186, 187, 188, 7 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 8 199, 200, 201, 201, 202, 203, 204, 205, 206, 207, 9 208, 209, 210, 211, 212, 213, 214, 214, 215, 216/ data (jb2(i),i= 201, 300)/ + 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 1 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 2 237, 238, 238, 239, 240, 241, 242, 243, 244, 245, 3 246, 247, 248, 249, 250, 251, 252, 253, 254, 255, 4 256, 257, 258, 259, 260, 261, 262, 263, 264, 264, 5 265, 266, 267, 268, 269, 270, 271, 271, 272, 273, 6 274, 275, 276, 277, 278, 279, 280, 281, 281, 282, 7 283, 284, 285, 286, 287, 288, 289, 290, 290, 291, 8 292, 293, 294, 295, 296, 297, 298, 298, 299, 300, 9 301, 302, 303, 304, 305, 306, 307, 308, 309, 310/ data (jb2(i),i= 301, 400)/ + 311, 312, 313, 314, 315, 316, 317, 318, 319, 320, 1 321, 322, 323, 324, 325, 326, 326, 327, 328, 329, 2 330, 331, 332, 333, 334, 335, 336, 337, 338, 339, 3 340, 341, 342, 342, 343, 343, 32, 33, 32, 34, 4 35, 36, 36, 1, 2, 3, 345, 4, 346, 5, 5 347, 6, 7, 349, 8, 350, 9, 352, 10, 353, 6 353, 354, 12, 355, 355, 356, 13, 357, 357, 358, 7 358, 359, 359, 360, 360, 361, 362, 362, 363, 363, 8 364, 364, 364, 366, 14, 367, 368, 368, 369, 369, 9 370, 370, 371, 371, 372, 15, 373, 374, 374, 375/ data (jb2(i),i= 401, 500)/ + 375, 376, 376, 377, 378, 378, 379, 379, 380, 380, 1 381, 382, 383, 384, 384, 385, 386, 387, 388, 388, 2 389, 390, 391, 392, 392, 393, 394, 395, 396, 396, 3 17, 398, 399, 399, 401, 402, 402, 400, 403, 404, 4 405, 406, 406, 407, 409, 410, 410, 408, 411, 412, 5 413, 414, 414, 415, 416, 417, 418, 419, 420, 420, 6 422, 423, 423, 421, 424, 424, 425, 425, 426, 427, 7 427, 428, 19, 429, 430, 430, 431, 432, 432, 433, 8 434, 435, 435, 436, 436, 437, 438, 438, 439, 439, 9 440, 441, 441, 442, 442, 442, 444, 445, 445, 446/ data (jb2(i),i= 501, 600)/ + 447, 448, 449, 450, 451, 452, 453, 454, 455, 456, 1 457, 458, 459, 460, 461, 462, 463, 464, 465, 466, 2 467, 468, 469, 470, 471, 471, 472, 473, 473, 21, 3 475, 476, 476, 477, 479, 480, 480, 478, 481, 483, 4 484, 484, 482, 485, 486, 486, 487, 489, 490, 490, 5 488, 492, 493, 493, 491, 494, 495, 496, 497, 497, 6 498, 498, 499, 500, 501, 502, 503, 504, 505, 506, 7 507, 508, 509, 510, 511, 511, 512, 22, 513, 514, 8 515, 516, 517, 518, 519, 520, 521, 522, 522, 523, 9 23, 24, 525, 525, 526, 527, 528, 528, 529, 530/ data (jb2(i),i= 601, 680)/ + 530, 531, 532, 533, 534, 534, 535, 535, 536, 537, 1 538, 538, 539, 539, 540, 541, 540, 542, 542, 25, 2 544, 544, 545, 26, 546, 546, 547, 547, 548, 549, 3 549, 550, 550, 551, 551, 552, 552, 553, 553, 553, 4 27, 555, 555, 556, 556, 557, 558, 559, 560, 561, 5 562, 563, 564, 565, 566, 567, 568, 569, 569, 29, 6 570, 571, 30, 31, 32, 572, 573, 573, 34, 35, 7 36, 0, 0, 0, 0, 0, 0, 0, 0, 0/ c state=istate irot=jrot npart=ipart do i=1,5 jv(i)=kv(i) jb(i)=kb(i) ib(i)=iib(i) enddo do i=1,jv(npart+1)-1 ix(i)=jx(i) iy(i)=jy(i) enddo do i=1,jb(npart+1)-1 ib1(i)=jb1(i) ib2(i)=jb2(i) enddo return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine ks(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(*) :: jv,jb,ib,ix,iy,ib1,ib2 integer(kind=iknd), save, dimension(5) :: kv,kb,iib integer(kind=iknd), save, dimension(420) :: jx,jy integer(kind=iknd), save, dimension(520) :: jb1,jb2 integer(kind=iknd), save :: jrot,ipart character(len=80) :: state character(len=80), save :: istate cy data istate/'kansas '/ data jrot,ipart/0,1/ data kv/ 1, 416, 0, 0, 0/ data kb/ 1, 520, 0, 0, 0/ data iib/ 104, 0, 0, 0, 0/ data (jx(i),i= 1, 100)/ + 49392,46560,51336,36504,32952,43680,10872, 6696,40080,15120, 1 18696,22200,29304,25728,51960, 6600,54408,53256,54528, 6480, 2 54648, 6360,54768, 6240,54888, 6144,55008, 9264,46224,52128, 3 49152,42504,12480,38424,15360,34080,18960,30480,22584,26160, 4 49560,49632,49992,50256,50280,50424,50640,50712,50976,51336, 5 51504,51936,52032,51960,52008,52344,52344,52080,52032,52200, 6 52440,52488,52464,52344,52272,51960,51888,51816,51504, 6816, 7 51384,51360,51216,51024,50976,51048,51360,51480,51792,52080, 8 52128,52200,52416,52488,52512,52368,52416,52512,52896,52920, 9 52872,53016,53208,53448,53664,53928,54000,54024,54096,54432/ data (jx(i),i= 101, 200)/ + 54480,54384, 6048,55128,49488,48072,46632,50928,51072,36576, 1 32976,45072,46656,43776,10752,10896,41616,40176,39168,15048, 2 15168,36576,18624,18744,32976,22152,22320,29304,25728,25872, 3 29448,50616,48096,42912,42456,42480,42408,42312,42216,42168, 4 42096,42120,41904,41904,42072,42000,41904,41784,41664,41640, 5 41736,41688,41640,41376,40992,40704,40752,40920,40968,41064, 6 41112,41208,41208,41256,41280,41520,39240,36600,33024,48048, 7 47976,45192,39960,39960,40632,40680,40896,40896,42216,42216, 8 33024,39240,29424,45216,42984,43128,43128,43224,43440,43680, 9 43896,44088,44184,44256,44328,44544,44640,44712,44808,44904/ data (jx(i),i= 201, 300)/ + 45048,44856,44832,45024,45096,10248,10800,14520,15120,36624, 1 18672,18792,22272,22368,29424,25848,25920,48648,48528,48120, 2 48048,48024,48072,39744,39528,39504,39264,50688,49080,49728, 3 49992,50064,50040,42936,52512,52608,52776,53160,52440,52488, 4 52464,51552,51720,51792,51984,52176,52344,52440,52416,50712, 5 50784,50856,51360,51408,51360,36624,48720,33072,29472,29472, 6 45840,45816,45624,45480,45480,45312,42264,33072,51624,48768, 7 45864,43248,43008,43008,42288, 9552,10104,12408,14424,15240, 8 18096,18696,22296,29472,22392,25896,25944,39552,39528,39768, 9 36696,33120,43296,40272,39576,33120,29520,29520,48792,48720/ data (jx(i),i= 301, 400)/ + 48768,45936,51696,51600,51648,48816,45960,22368,25944, 9480, 1 9648,12336,12480,15216,18072,18192,22368,25944,26712,29520, 2 29592,29592,43368,36768,34608,33168,31248,31248,31752,31752, 3 29616,43392,42288,40248,40176,40320,51744,51720,51768,38184, 4 38184,48864,48840,48912,22464,22464,45984,18144,23880,23880, 5 26016,26712,38232,18144,34632,22440,26064,26016,46056,51816, 6 51744,51792,48912, 9600, 9648, 9552,12480,12504,12408,15336, 7 15360,15264,15312,33960,34680,51816,29664,22512,26064,34008, 8 46104,42384,42408,38304,15312,18168,18192,18120,18888,29664, 9 26064,22512,51912,49056,49008,46152, 9336, 9552,52008,52008/ data (jx(i),i= 401, 420)/ + 12432,12552,15288,34008,30432,29664,26064,22584,22512,46176, 1 42456,15408,18984,18888,26160, 0, 0, 0, 0, 0/ data (jy(i),i= 1, 100)/ + 46800,46680,43752,46440,46368,46584,46560,43080,46488,46440, 1 46392,46344,46344,46320,42096,39504,39096,40344,36576,35880, 2 33696,32304,30792,27984,27792,25104,25032,21744,21888,22104, 3 21984,21792,21696,21672,21648,21624,21600,21600,21576,21576, 4 46800,46656,46392,46344,46056,46008,46056,45864,45744,45768, 5 46056,46056,45936,45744,45648,45504,45264,45168,45048,44952, 6 45024,44880,44760,44664,44640,44808,44784,44304,44136,46680, 7 43584,43488,43392,43392,43176,43032,42768,42456,42336,42024, 8 41880,41832,41904,41832,41736,41496,41232,41064,40776,40656, 9 40488,40416,40392,40128,40128,40224,40200,40080,40008,40056/ data (jy(i),i= 101, 200)/ + 39960,39744,21816,22248,43920,43872,43824,43992,43752,43560, 1 43512,43056,43104,43008,42960,42960,42936,42912,42888,42864, 2 42840,42840,42792,42792,42792,42744,42744,42744,42744,42744, 3 42744,42048,41952,39720,39864,39696,39648,39768,39648,39648, 4 39744,39840,39768,39840,39960,40032,40056,40248,40200,40296, 5 40296,40368,40320,40584,41256,41592,42000,42048,42216,42168, 6 42384,42408,42480,42480,42624,42744,40032,40680,40632,40272, 7 41952,40176,40032,38928,38952,38904,39000,38832,38856,38640, 8 39912,39312,39888,39384,39648,39744,39600,39600,39936,39792, 9 40056,39984,40080,40056,39960,39936,39888,40032,39936,39960/ data (jy(i),i= 201, 300)/ + 39696,39744,39648,39528,39552,39384,39384,39264,39264,39264, 1 39192,39192,39168,39168,39168,39168,39168,38976,39072,38928, 2 39024,39456,39648,37152,37152,37992,38040,38928,39096,38808, 3 38904,38808,38928,38664,38592,38928,39144,39072,39720,39720, 4 40320,38472,38424,38616,38616,38496,38640,38640,38520,38280, 5 38304,38424,38256,38280,38448,37824,37416,37776,37008,39168, 6 37320,39120,39288,39312,39432,39336,37224,37032,36456,36336, 7 36240,36168,36168,36864,36864,35832,35808,35736,35736,35712, 8 35616,35616,35568,35568,35568,35568,35568,34992,36672,36672, 9 34944,34896,34368,34296,34296,34176,34128,35568,33816,35976/ data (jy(i),i= 301, 400)/ + 35976,33744,33576,36096,36096,33456,31560,32712,32688,32208, 1 32208,32160,32136,32088,32016,32016,31992,31968,31968,31968, 2 31968,31248,31488,31344,31296,31296,31272,31152,31152,31272, 3 28392,30768,30744,30696,32856,32856,30672,32448,32472,30648, 4 31368,30552,32304,32304,30552,31968,30480,29880,30528,29832, 5 29832,29808,29208,29160,29160,29112,28392,28392,27960,28872, 6 28872,28152,28032,27864,28632,28632,27792,28560,28560,27744, 7 28488,28512,29928,27672,27696,27672,27624,27648,27624,25536, 8 26856,26784,25704,25608,25584,25536,28440,28464,25536,25464, 9 25464,25440,25272,25152,25152,25080,25008,25008,24936,25272/ data (jy(i),i= 401, 420)/ + 24912,24912,24864,24816,24768,24744,24744,24744,24744,24360, 1 24288,24864,24792,24792,24744, 0, 0, 0, 0, 0/ data (jb1(i),i= 1, 100)/ + 1, 1, 41, 42, 43, 44, 45, 46, 47, 48, 1 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 2 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 3 3, 2, 6, 7, 4, 10, 4, 5, 11, 13, 4 12, 8, 7, 3, 71, 72, 73, 74, 75, 76, 5 77, 78, 15, 15, 80, 81, 82, 83, 84, 85, 6 86, 87, 88, 89, 90, 91, 92, 18, 8, 18, 7 94, 95, 96, 97, 98, 99, 100, 101, 17, 17, 8 16, 19, 20, 21, 22, 23, 24, 25, 28, 26, 9 30, 27, 30, 29, 29, 28, 32, 33, 34, 35/ data (jb1(i),i= 101, 200)/ + 36, 37, 38, 39, 105, 105, 106, 107, 105, 108, 1 109, 110, 110, 111, 112, 107, 112, 114, 115, 115, 2 115, 114, 117, 118, 118, 120, 116, 120, 119, 110, 3 123, 121, 123, 111, 126, 124, 126, 128, 129, 129, 4 127, 125, 128, 128, 132, 132, 106, 134, 135, 136, 5 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 6 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 7 157, 158, 159, 160, 161, 162, 163, 164, 165, 117, 8 119, 122, 168, 125, 170, 133, 170, 112, 167, 173, 9 174, 175, 176, 177, 178, 179, 169, 167, 181, 131/ data (jb1(i),i= 201, 300)/ + 172, 134, 185, 186, 187, 188, 189, 190, 191, 192, 1 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 2 203, 204, 184, 16, 116, 206, 207, 121, 208, 182, 3 168, 124, 209, 211, 127, 212, 213, 183, 130, 214, 4 215, 216, 218, 219, 220, 221, 222, 170, 224, 225, 5 226, 182, 132, 218, 229, 230, 231, 232, 228, 180, 6 134, 235, 236, 237, 238, 235, 239, 240, 241, 242, 7 243, 244, 245, 246, 247, 248, 235, 228, 250, 251, 8 252, 253, 254, 242, 210, 218, 256, 181, 259, 215, 9 257, 261, 262, 263, 264, 265, 184, 180, 224, 258/ data (jb1(i),i= 301, 400)/ + 259, 269, 242, 269, 257, 261, 271, 272, 273, 274, 1 267, 20, 206, 276, 277, 208, 278, 279, 280, 212, 2 281, 214, 282, 259, 283, 286, 217, 285, 284, 288, 3 289, 224, 288, 256, 291, 268, 272, 293, 294, 288, 4 292, 296, 297, 284, 299, 300, 270, 299, 271, 303, 5 303, 304, 269, 303, 299, 302, 285, 287, 308, 276, 6 310, 310, 278, 311, 312, 280, 313, 315, 281, 314, 7 308, 316, 309, 318, 297, 319, 320, 321, 307, 293, 8 291, 324, 325, 296, 322, 327, 328, 329, 326, 322, 9 323, 332, 333, 334, 335, 294, 337, 337, 338, 303/ data (jb1(i),i= 401, 500)/ + 334, 340, 324, 337, 342, 343, 306, 345, 317, 342, 1 307, 316, 345, 349, 350, 351, 319, 340, 348, 353, 2 325, 345, 354, 331, 357, 351, 347, 337, 360, 361, 3 362, 342, 359, 364, 365, 311, 364, 367, 368, 313, 4 364, 370, 371, 372, 348, 367, 374, 355, 376, 362, 5 374, 356, 331, 357, 378, 374, 359, 381, 333, 382, 6 383, 353, 370, 386, 387, 354, 385, 380, 386, 377, 7 390, 379, 378, 389, 376, 393, 394, 363, 395, 381, 8 26, 364, 397, 399, 399, 393, 367, 398, 401, 385, 9 402, 380, 404, 405, 390, 391, 408, 392, 407, 396/ data (jb1(i),i= 501, 520)/ + 410, 383, 397, 410, 399, 394, 411, 402, 384, 35, 1 403, 404, 37, 413, 389, 405, 408, 40, 407, 0/ data (jb2(i),i= 1, 100)/ + 2, 41, 42, 43, 44, 45, 46, 47, 48, 49, 1 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 2 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 3 69, 6, 9, 10, 9, 11, 5, 13, 12, 14, 4 14, 70, 70, 71, 72, 73, 74, 75, 76, 77, 5 78, 79, 79, 80, 81, 82, 83, 84, 85, 86, 6 87, 88, 89, 90, 91, 92, 93, 93, 16, 94, 7 95, 96, 97, 98, 99, 100, 101, 102, 102, 19, 8 20, 21, 22, 23, 24, 25, 26, 27, 103, 103, 9 104, 104, 31, 31, 32, 33, 34, 35, 36, 37/ data (jb2(i),i= 101, 200)/ + 38, 39, 40, 40, 1, 106, 107, 2, 108, 109, 1 3, 4, 111, 5, 113, 113, 114, 6, 7, 8, 2 116, 117, 118, 9, 119, 10, 120, 121, 122, 122, 3 11, 123, 124, 125, 12, 126, 127, 13, 130, 14, 4 129, 131, 131, 130, 15, 133, 133, 135, 136, 137, 5 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 6 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 7 158, 159, 160, 161, 162, 163, 164, 165, 166, 166, 8 167, 168, 169, 169, 171, 171, 172, 172, 173, 174, 9 175, 176, 177, 178, 179, 180, 181, 182, 183, 183/ data (jb2(i),i= 201, 300)/ + 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 1 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 2 204, 205, 205, 206, 207, 207, 208, 209, 209, 210, 3 210, 211, 211, 212, 213, 213, 214, 215, 216, 216, 4 217, 217, 219, 220, 221, 222, 223, 223, 225, 226, 5 227, 227, 228, 229, 230, 231, 232, 233, 233, 234, 6 234, 236, 237, 238, 17, 239, 240, 241, 18, 243, 7 244, 245, 246, 247, 248, 249, 249, 250, 251, 252, 8 253, 254, 255, 255, 256, 257, 258, 258, 260, 260, 9 261, 262, 263, 264, 265, 266, 266, 267, 267, 268/ data (jb2(i),i= 301, 400)/ + 268, 19, 269, 270, 270, 271, 272, 273, 274, 275, 1 275, 276, 277, 277, 278, 279, 279, 280, 281, 282, 2 282, 283, 283, 284, 285, 287, 286, 286, 287, 289, 3 290, 290, 291, 291, 292, 292, 293, 294, 295, 295, 4 296, 297, 298, 298, 300, 301, 301, 302, 302, 21, 5 304, 305, 305, 306, 306, 307, 308, 309, 309, 310, 6 22, 311, 312, 312, 313, 314, 314, 316, 315, 315, 7 317, 317, 318, 319, 320, 320, 321, 322, 323, 323, 8 324, 325, 326, 326, 327, 328, 329, 330, 330, 331, 9 332, 333, 334, 335, 336, 336, 23, 338, 339, 339/ data (jb2(i),i= 401, 500)/ + 340, 341, 341, 342, 343, 344, 344, 346, 346, 347, 1 347, 348, 349, 350, 351, 352, 352, 353, 354, 355, 2 355, 356, 356, 357, 358, 358, 359, 360, 361, 362, 3 363, 363, 363, 365, 366, 366, 24, 368, 369, 369, 4 367, 371, 372, 373, 373, 370, 375, 375, 25, 376, 5 377, 378, 377, 379, 379, 380, 381, 382, 382, 383, 6 384, 384, 385, 387, 388, 388, 386, 384, 389, 390, 7 391, 391, 392, 392, 393, 394, 395, 395, 396, 396, 8 397, 398, 398, 27, 400, 400, 401, 401, 402, 403, 9 403, 404, 405, 406, 406, 407, 409, 409, 408, 410/ data (jb2(i),i= 501, 520)/ + 411, 411, 28, 29, 30, 31, 32, 33, 34, 412, 1 412, 36, 413, 414, 414, 38, 39, 415, 415, 0/ c state=istate irot=jrot npart=ipart do i=1,5 jv(i)=kv(i) jb(i)=kb(i) ib(i)=iib(i) enddo do i=1,jv(npart+1)-1 ix(i)=jx(i) iy(i)=jy(i) enddo do i=1,jb(npart+1)-1 ib1(i)=jb1(i) ib2(i)=jb2(i) enddo return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine ky(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(*) :: jv,jb,ib,ix,iy,ib1,ib2 integer(kind=iknd), save, dimension(5) :: kv,kb,iib integer(kind=iknd), save, dimension(2970) :: jx,jy integer(kind=iknd), save, dimension(3080) :: jb1,jb2 integer(kind=iknd), save :: jrot,ipart character(len=80) :: state character(len=80), save :: istate cy data istate/'kentucky '/ data jrot,ipart/1,2/ data kv/ 1,2952,2962, 0, 0/ data kb/ 1,3071,3081, 0, 0/ data iib/ 465, 10, 0, 0, 0/ data (jx(i),i= 1, 100)/ + 21672,23976,21912,24264,25344,25032,24480,25680,26376,25200, 1 27984,27432,30216,29544,33600,33696,33384,33240,35496,34464, 2 34824,35424,34728,38976,41472,40008,43992,43488,41856,44880, 3 48480,48384,46608,48480,47496,48360,47880,48216,48240,48288, 4 48312,48360,48408,48456,48456,48024,49656,49656,49728,21840, 5 21624,21696,21384,21384,21552,21912,22080,22152,22224,22392, 6 22632,23088,23736,21720,21600,21216,21144,21216,21480,21600, 7 22104,22272,22584,23016,23184,23544,23688,23808,23832,23928, 8 24600,24720,25008,25008,24816,24384,24600,24888,25032,25080, 9 24984,25152,25176,25728,26088,26160,26088,25752,25656,25632/ data (jx(i),i= 101, 200)/ + 25128,25536,25728,26208,26280,26472,26016,25872,25608,25656, 1 25920,25992,26064,26232,26544,26664,26328,26448,26376,26208, 2 25824,25560,25128,25176,24912,24840,25032,25512,25776,26328, 3 26544,26736,26880,26880,27024,25728,25704,25824,26040,26256, 4 26544,27192,27576,27792,28128,28488,28632,28776,28848,29088, 5 27576,27768,28320,29040,29352,29616,30024,30168,30360,30504, 6 30576,30984,31032,31344,31392,31512,31560,31656,31848,32040, 7 32448,32712,32784,32808,32928,32976,33120,33240,29832,30120, 8 30528,30768,30552,30624,30696,31224,31536,31872,32664,33384, 9 33768,33840,34032,34128,33600,33528,33576,33168,33024,32736/ data (jx(i),i= 201, 300)/ + 32160,31944,31584,31680,31872,32040,32208,32304,32328,32568, 1 32376,32352,32448,32592,32760,32952,33168,35280,34800,34704, 2 34656,34848,34872,34632,33864,33744,33888,34368,33264,33408, 3 33984,34344,34464,34584,34560,34608,34752,35208,35400,33456, 4 33480,33528,33576,33672,33720,33816,33696,33984,34128,34176, 5 34248,34320,34392,34608,34776,34704,34848,35016,35136,35160, 6 35232,35256,34416,34320,34344,34704,34416,34080,33984,34008, 7 34248,34536,34704,34896,35136,35472,35592,35496,35352,34920, 8 34752,34848,34848,35040,34992,34560,34464,34488,34632,34800, 9 35136,35784,35952,36048,36000,35616,35448,35352,34968,35352/ data (jx(i),i= 301, 400)/ + 35736,35856,36120,35808,35832,36144,36408,36768,37248,37440, 1 38136,38712,39288,39552,39696,35568,35832,35904,36000,36072, 2 36168,36168,36264,36168,36360,36312,36408,36648,36696,36648, 3 36456,36432,36624,36720,36720,36840,36864,37008,36984,37056, 4 37224,37296,37464,37344,37416,37392,37560,37656,37464,37560, 5 37536,37584,37512,37512,37440,37488,40392,40464,40560,40920, 6 43104,42840,42816,42384,40008,39792,39912,40032,40224,40656, 7 41280,41496,42168,42720,42960,43200,43560,43680,43656,41928, 8 42360,42672,42768,42888,43152,43176,43344,43368,43560,43608, 9 43776,41832,42048,42432,42984,43440,43632,43944,44160,44448/ data (jx(i),i= 401, 500)/ + 44544,44664,45288,45792,45912,45936,46056,46272,46440,46512, 1 44208,44832,45048,45240,45288,45384,45312,45360,45480,45600, 2 45840,46128,46416,46560,46632,47208,47424,48360,48048,46824, 3 46920,46848,46944,47088,47304,47592,47832,48192,48312,48264, 4 48384,48192,47448,47520,47760,47784,48024,48456,48504,49536, 5 49608,48336,48240,48168,48240,48840,48936,48912,48816,48696, 6 48216,48840,49416,49728,49848,21912,22080,22224,22464,22608, 7 22704,22992,23040,22824,22872,23184,23232,23688,24168,24264, 8 24408,24600,24624,24528,24504,24744,24672,24000,24840,24936, 9 24960,24888,24960,25104,25104,24288,24384,24384,24552,25272/ data (jx(i),i= 501, 600)/ + 25752,25704,25800,25848,25944,25848,26016,25992,26112,26136, 1 26232,26232,26328,26280,26400,26208,26928,24528,26928,26856, 2 27024,27048,27096,26520,26544,26496,26568,26688,26760,26736, 3 26832,26952,26976,27048,27168,27144,27264,27336,27168,27096, 4 26928,26832,25800,27024,26976,27024,26904,27048,27048,26904, 5 26952,26904,26832,26952,26880,26904,26832,26904,26784,26904, 6 27024,27072,27192,27216,27288,27432,27384,27336,27360,27456, 7 27336,27264,26616,27552,27600,25488,25632,25752,25848,25872, 8 26112,26208,26448,26664,26928,27120,27264,27312,27624,27384, 9 27336,27408,27408,27552,27576,27648,27720,27984,27576,27024/ data (jx(i),i= 601, 700)/ + 26976,28152,27960,27912,27960,28248,28224,28296,28032,28032, 1 28128,28128,27816,28368,28368,28248,27744,27816,27744,27696, 2 27624,27528,27480,26832,27552,27624,28008,27960,28032,28056, 3 28128,28080,28176,28224,28152,28224,28296,28392,28584,28440, 4 28800,28776,28560,28680,28512,28584,28416,28440,28896,28656, 5 28392,28248,28656,28656,28728,27984,27624,27600,27744,27792, 6 27744,27912,27960,28080,28416,28560,28704,28752,28704,28800, 7 28800,29040,29352,29664,29616,29208,29160,28944,28872,27672, 8 28008,28080,28152,28176,28296,28488,29112,29232,29424,29616, 9 29520,29544,29664,27336,27480,27360,27504,27576,27648,28104/ data (jx(i),i= 701, 800)/ + 28128,27984,27984,28272,28488,28608,28824,28920,28920,28656, 1 28560,28536,28584,28680,28776,28872,29016,29448,29544,29688, 2 29688,29496,28824,28656,28824,29256,29736,29856,29736,29760, 3 29664,29688,29736,29688,29496,29928,31008,31032,30864,30768, 4 30840,30672,30384,30024,29952,28752,29160,29400,29352,29376, 5 29472,29544,29376,29520,29496,29688,29616,29784,29880,30072, 6 29160,29280,29328,29280,29400,29664,29760,30096,30216,30288, 7 30432,30600,30840,30888,30840,31128,31128,31200,29016,29184, 8 30288,30288,30336,30336,30192,30144,30048,29952,30000,28416, 9 28512,28608,28776,29208,29352,29688,30096,30384,30000,29976/ data (jx(i),i= 801, 900)/ + 30024,30216,30216,30336,30216,30360,30408,30312,30408,30264, 1 30336,30288,30336,30456,30360,30336,30456,30336,30480,30552, 2 30000,30024,29976,29952,30864,30816,30888,30840,30936,31080, 3 30960,30624,30504,30528,30216,30192,30336,30360,30576,30792, 4 30960,31080,30984,30840,30864,30576,30480,30408,31152,31104, 5 31128,31056,30936,30936,30552,30648,31008,31080,31176,31224, 6 31200,31104,31056,31008,30936,30936,31128,30936,30960,30792, 7 30744,30552,30576,30456,30384,30408,30456,30528,30552,30432, 8 30384,30264,30240,30120,30048,30072,29544,30000,30024,30216, 9 30264,30120,30096,30168,30072,30192,30168,30072,30072,30168/ data (jx(i),i= 901, 1000)/ + 30192,30408,30336,30336,30432,30504,30600,30528,30408,30480, 1 30600,30720,30816,31080,31104,30960,30912,31104,31032,31368, 2 31392,31080,31056,31176,31176,31248,31368,31656,31680,31824, 3 32616,32424,32448,32256,32208,32424,32208,32160,31992,31872, 4 31968,31920,31776,31608,31608,31752,31872,31800,31776,31608, 5 31464,31488,31368,31368,31176,31296,31320,32928,32904,33000, 6 33024,32856,33048,32928,32904,32496,32544,32448,32280,32016, 7 31920,30768,32016,31416,31896,32088,29952,30576,31656,31800, 8 32160,32064,32208,31464,31488,31608,31536,31632,31656,31584, 9 31488,31560,31584,31560,31728,31704,31752,31752,31872,31848/ data (jx(i),i= 1001, 1100)/ + 32016,32016,32136,32184,32112,32208,32256,31992,32256,32328, 1 32160,32160,32376,32400,31128,31296,31488,31680,31968,32208, 2 32472,32472,32400,32496,32568,32664,32256,32352,32520,32424, 3 32256,33264,33312,33120,33192,33120,33096,32904,32952,32928, 4 33072,33048,32544,32712,32736,32712,32616,32640,32760,34656, 5 34344,33768,32904,32640,32424,32448,31992,31728,31512,31272, 6 32616,32856,32880,32784,32928,32976,32928,32808,32616,33168, 7 32256,32880,33120,31296,31608,31656,31560,31632,31656,31704, 8 31800,32376,32808,33192,33384,33336,33192,33432,33696,33216, 9 32712,32832,32496,32568,33504,33504,33720,33768,33984,34296/ data (jx(i),i= 1101, 1200)/ + 34224,34296,34488,34536,34728,34848,34824,34944,35184,35160, 1 35328,35400,35664,35016,35640,35856,32544,32424,32520,32616, 2 32760,32832,32904,32952,33024,33168,33408,33504,33696,33792, 3 33816,33864,33576,33552,33648,33696,33528,33552,33456,33336, 4 34056,34128,34008,33912,33384,33360,33408,33216,33312,33576, 5 33576,33672,33816,33936,34128,33072,32952,32976,33264,33768, 6 34032,34248,34056,33912,34248,34296,34296,34176,34176,34008, 7 34152,34248,34368,34800,34896,34872,34992,34992,35088,35088, 8 34512,34320,34080,34104,33912,32952,33024,33168,33384,33768, 9 33744,33792,33864,33888,33960,34056,34128,34224,34224,34320/ data (jx(i),i= 1201, 1300)/ + 34392,34488,34560,34656,34152,34080,34200,34152,34056,34080, 1 34032,34032,34224,34440,34632,34704,34656,34704,34728,34728, 2 34464,34536,34704,34752,34776,34680,34272,34512,34704,34584, 3 34776,34656,34704,34848,34776,34944,34824,34920,34968,34752, 4 35040,35112,35064,35136,35040,34968,35088,34080,34200,34464, 5 34800,34728,35064,33600,34080,34296,34416,34824,35064,34800, 6 34800,35064,34968,34872,34536,34464,34512,34680,35136,34992, 7 34872,34680,34656,34512,34488,34704,34608,34392,34368,34464, 8 34416,34296,34200,34056,33888,35112,34992,35112,34944,35232, 9 35232,34992,35064,35232,35376,35472,35616,36288,36144,36120/ data (jx(i),i= 1301, 1400)/ + 36048,35832,35976,35928,35808,35784,35880,35928,35880,35448, 1 34944,34944,34992,34920,35664,35664,35232,35160,35040,34968, 2 34896,34584,34416,34272,34200,34080,34008,36288,35016,34464, 3 34680,35160,35160,35256,35448,35640,35712,35784,35856,35928, 4 35808,35736,35568,35616,35544,35184,35040,35016,35136,34680, 5 35016,35184,35976,36024,35784,35712,35592,35616,35520,35520, 6 35688,35640,35832,35832,36144,36048,35976,34248,34392,34416, 7 34392,34272,34200,34176,34488,34872,34992,35016,35328,35304, 8 35568,35832,36048,36024,36168,36120,35976,35856,35712,35496, 9 35424,35448,35232,35280,35136,35088,34920,34848,34824,34752/ data (jx(i),i= 1401, 1500)/ + 36000,36168,36216,36144,36120,36120,36216,36264,36192,36336, 1 36192,36288,36000,35904,35928,35856,35544,35472,35928,36072, 2 36168,36360,36312,36120,36120,36216,36192,36072,36000,35856, 3 35712,35640,35712,35616,35520,35736,35808,35688,35304,35328, 4 34800,34728,34824,34776,34680,34632,34896,35040,35112,35232, 5 35136,34968,35136,34992,35064,35016,35088,35232,35256,35160, 6 35328,35400,35496,35520,35640,35808,35880,35880,35952,35928, 7 36072,36144,36216,36120,36408,36384,36504,35904,35928,36000, 8 36072,36072,36144,36144,36288,36504,36528,36552,35952,35424, 9 35472,35568,35544,35448,35376,35256,35136,34992,34944,34776/ data (jx(i),i= 1501, 1600)/ + 34704,34824,34872,37056,36792,36648,35640,35640,35688,35760, 1 35952,36024,36192,36264,36312,36288,36336,36408,36456,36408, 2 36552,36504,36576,36648,36528,36336,36552,36672,37008,34824, 3 35112,35304,35304,35496,35520,35664,35736,35880,35928,36024, 4 36072,36288,36504,36528,36600,36696,36912,37128,36528,36528, 5 36432,36360,36576,36720,36744,36840,36912,36960,37128,37248, 6 36984,37344,37392,37416,37344,37320,37176,37296,37392,37344, 7 37224,37128,37080,37128,37056,36984,36840,36912,36864,36744, 8 36792,36744,36624,35472,35952,37416,37248,37296,37512,37512, 9 37560,37344,37272,37104,36960,37584,36240,36168,36144,36288/ data (jx(i),i= 1601, 1700)/ + 36336,36336,36264,36216,36576,37248,37992,37200,36912,36792, 1 36600,36408,36360,36288,36192,36072,35904,35784,35736,35688, 2 35616,35424,35304,35424,35376,35184,35040,35064,38064,38016, 3 38112,38496,38112,38064,38112,38256,38232,38472,38352,38424, 4 38352,38352,38976,39312,39360,39504,39624,39552,39600,36312, 5 36840,36864,37080,37104,37176,37176,37392,37464,38208,38016, 6 37800,37896,36840,37008,37272,36984,37128,37224,37248,37176, 7 37392,37464,37416,37464,37848,37872,38064,38160,38208,38304, 8 38304,37728,38016,38088,38136,38328,35952,36072,36144,36216, 9 36288,36360,36552,36576,36696,36672,36840,36936,36888,36984/ data (jx(i),i= 1701, 1800)/ + 37080,37176,37152,37272,37296,37344,37368,37512,37536,37728, 1 37776,37992,38352,38376,38064,37944,37872,37824,37896,37848, 2 37752,37656,37584,37536,37536,37608,37584,37488,38400,38232, 3 38016,38064,38136,38136,38016,37992,38016,37872,37776,37800, 4 37920,37920,38016,38088,38112,38256,38208,38256,38352,38280, 5 38376,38424,38328,38304,38376,38400,38136,38112,38208,38136, 6 37800,38352,36984,38424,38448,36864,37224,37488,37560,37752, 7 37704,38232,38448,38280,38376,38328,38472,36408,36600,36696, 8 36792,36816,37200,37392,37512,37632,37848,37896,37944,37992, 9 38112,38328,38424,38496,38400,38472,38496,38544,38568,38400/ data (jx(i),i= 1801, 1900)/ + 38376,38352,38472,38376,38400,38520,38520,38592,38496,38544, 1 38472,36672,36936,36840,36936,37512,37464,37512,37680,37752, 2 37656,37800,37752,37776,37848,37896,37968,38040,38304,38448, 3 38568,38496,38544,38616,38760,38688,38664,38424,38328,38328, 4 38424,38472,38472,38352,38184,38136,38208,38448,38496,38400, 5 38520,38688,38688,38784,38664,38496,37416,37536,37560,37656, 6 37752,37728,37824,38880,38904,38976,38640,38688,38880,38952, 7 38976,39288,39432,39696,39792,39936,40128,40344,39072,38784, 8 38616,38904,39216,39312,39624,39960,40152,40152,40248,40320, 9 40344,40416,40392,40536,40584,40656,39288,38904,39168,39216/ data (jx(i),i= 1901, 2000)/ + 39312,39456,40104,40248,38472,38616,38832,39072,39360,38976, 1 38856,38904,38736,38592,38544,38976,39120,39048,39192,39336, 2 39384,39288,39432,38880,38424,38208,38160,38208,38112,38112, 3 38304,38280,38352,38304,38376,39336,39432,39504,39408,39192, 4 39336,37416,37488,37536,37632,37704,37872,38064,38232,38304, 5 38544,39336,39360,39696,39864,39696,39336,39456,39336,39312, 6 39216,39240,39312,39360,39312,39456,39672,39864,39816,39576, 7 39576,39432,39408,39336,39504,39456,39816,39864,39864,39816, 8 39384,39384,39240,39264,39456,39528,40008,38448,38520,38592, 9 38688,38616,38568,38520,38376,38376,38496,38496,38568,38640/ data (jx(i),i= 2001, 2100)/ + 40224,40392,40272,40248,39840,39888,39840,39912,40104,40080, 1 40248,40248,39792,39792,39672,39552,39048,39384,38592,38736, 2 38784,38928,39048,39240,39264,39456,39888,40152,40152,40272, 3 39432,39720,39864,40032,40104,40056,39960,39912,40128,40224, 4 40368,40368,40272,40368,40056,40032,40368,40584,40512,40344, 5 40320,40200,39816,39744,39624,39528,39528,39432,39120,38904, 6 38784,38496,38208,38160,38184,36672,36432,36288,36264,38544, 7 38664,38976,39240,39264,39264,39096,39048,39096,39096,39192, 8 39240,39360,39528,39648,39864,40248,40320,40368,40536,40656, 9 40512,40488,40584,40704,40728,40752,40896,41016,41040,41184/ data (jx(i),i= 2101, 2200)/ + 41352,41352,39216,39504,40680,40512,40512,40584,40656,40776, 1 40776,40848,40896,40800,40848,40944,41112,41088,40968,40944, 2 41232,41520,41568,41472,41544,41664,41664,41544,41736,41784, 3 41856,41928,42024,42120,42192,42312,42408,42504,40632,40728, 4 41376,41208,41040,40992,40800,40752,40800,40776,40632,40440, 5 40608,40584,40704,40656,40776,40944,40968,41256,41328,41448, 6 41376,41544,41520,41664,41688,41640,41736,41736,41856,41928, 7 42024,42048,42120,42120,42216,42264,42336,42432,42648,42600, 8 42720,42936,43008,43104,43152,43392,43536,43584,39792,39840, 9 40080,40080,40176,40248,40200,40224,40200,40296,40248,40536/ data (jx(i),i= 2201, 2300)/ + 40608,40656,40680,40776,40728,40656,40656,40728,40656,40824, 1 40848,40728,40800,40752,40728,40824,40008,40032,40152,40176, 2 40440,40992,41016,40872,40920,40776,40872,40560,41136,40968, 3 40968,40848,40848,40344,40152,40104,40200,40272,40464,40560, 4 40656,40632,40776,40776,40968,41088,41040,41160,41256,41232, 5 41304,41160,40872,40728,40728,40464,40440,40416,41208,40872, 6 40968,41184,41184,40992,40944,41136,41352,40176,40488,40584, 7 40776,41232,41256,41112,41112,41280,41448,41424,41520,41544, 8 41640,41688,40392,38592,39240,39672,40056,40368,41016,41160, 9 42120,42648,40848,40800,41040,41208,41496,41544,41664,41688/ data (jx(i),i= 2301, 2400)/ + 41880,41712,42408,42192,42096,41976,41808,41784,41304,41352, 1 41016,40944,40872,40968,41136,41208,40416,40584,40872,40992, 2 40944,40608,40488,40560,41016,41568,41712,41664,41928,41880, 3 42048,42072,41016,41400,41448,41496,41544,41520,41688,41736, 4 41712,41904,42288,39744,40464,41688,41784,41832,41952,41976, 5 41544,42192,42312,40176,40512,41160,41304,41496,41520,41592, 6 42432,41880,41952,41928,42048,42144,42192,42408,42480,41856, 7 42168,42264,42552,42840,42840,42768,42864,42912,43032,43248, 8 43440,42576,42624,42840,42792,42792,42408,42168,42024,41856, 9 41784,41736,41424,41280,41256,41112,41040,41136,40848,40488/ data (jx(i),i= 2401, 2500)/ + 40416,42840,42744,42600,42432,42144,41976,41880,41472,40776, 1 40440,40320,40128,40128,42840,42792,42768,42552,42528,42600, 2 42384,42432,42240,42216,42360,42336,42240,42144,41856,41784, 3 41568,41328,41232,41016,41040,41208,41016,40776,43776,43872, 4 43008,43032,42960,42888,42768,42840,42816,42696,42744,42672, 5 42504,43032,43176,43128,42552,43200,42864,43056,42888,43344, 6 43128,43032,42960,42792,42888,43272,43320,43248,43296,43632, 7 43680,43632,43704,42240,42408,42408,42504,42456,42504,42576, 8 42528,42840,43008,43128,43056,43200,43272,43272,43392,43512, 9 43632,43728,43584,43776,43632,43320,43416,43536,43584,43680/ data (jx(i),i= 2501, 2600)/ + 43824,41952,42072,42432,42528,42672,42792,42912,43104,43272, 1 43392,43584,43872,43560,43728,43848,43992,43944,44304,44112, 2 43968,43992,44040,43896,43896,43776,43632,44040,44088,43032, 3 43392,43488,43824,43920,44112,44400,44592,44064,43800,43680, 4 43704,43920,43776,44184,44280,44424,44232,44424,44472,44352, 5 44376,44136,43896,43704,43848,43752,43608,43608,43728,43680, 6 43584,43584,43440,42672,42840,42672,42816,42840,42816,42408, 7 42480,42576,42504,42576,42552,42456,42480,42552,42480,42528, 8 42816,44472,43872,44832,43560,43680,43656,44088,44304,44208, 9 44328,44328,44568,44496,44544,44448,44472,44424,44448,44544/ data (jx(i),i= 2601, 2700)/ + 44568,44472,44472,44568,44640,44736,44784,44688,44712,44640, 1 44688,44544,44712,44760,44640,44544,44424,44568,44544,44736, 2 44784,45192,45288,45504,45672,45648,45720,45816,45936,46032, 3 46080,46032,46200,46200,46248,46440,46536,46656,46632,46752, 4 46992,47400,41448,41712,42144,42648,42816,43104,43200,43440, 5 43440,43848,43896,43944,44592,42576,42768,42840,42864,42936, 6 43056,43128,43176,43200,43296,43416,43560,43704,43704,43920, 7 43848,43872,44088,44160,44280,44472,44592,44592,44496,44712, 8 44544,44424,44424,45504,45336,45336,45456,45624,44712,44808, 9 44832,44832,44712,44712,42552,43704,44880,47112,47184,47160/ data (jx(i),i= 2701, 2800)/ + 46992,46800,46728,46632,46152,46080,46152,46056,45864,45768, 1 45744,45528,45432,45408,45264,45192,45168,44880,44784,44688, 2 44592,44568,44904,43752,43680,43776,43776,44160,44376,44736, 3 44976,45072,45096,45024,45168,45048,45048,44736,44856,44928, 4 45000,44976,44712,45000,43656,44304,44856,45024,43968,44352, 5 45144,45144,44880,44928,45192,45048,45000,44952,45096,45048, 6 45120,44856,44808,45192,45840,44880,45336,45360,45840,44712, 7 44688,44568,44808,44928,45096,45288,45408,45552,45696,45720, 8 45888,45912,45912,46176,46248,46536,46584,46752,46752,47184, 9 47664,48120,48288,45720,45096,45504,45432,45672,45888,45936/ data (jx(i),i= 2801, 2900)/ + 45888,48240,47976,47904,47856,47688,47592,47472,47376,47328, 1 46920,46368,46104,42912,43224,43224,43680,46104,45792,45624, 2 45552,46176,46344,46296,46128,45768,45792,45984,45864,45792, 3 45504,46176,46224,46776,46728,46584,46464,45288,45144,45168, 4 45240,45384,45480,45384,45576,45600,45816,46872,46296,46536, 5 47016,46968,46872,46704,46416,46416,46344,46368,46272,46320, 6 46248,46104,45936,45840,45816,45720,47064,47136,47136,46488, 7 47136,45384,45552,46008,46248,46800,47040,47160,46176,46320, 8 47424,45264,45360,45456,45408,45216,45168,45360,45480,45552, 9 45600,45576,45888,45840,45696,45504,45480,45528,45600,45600/ data (jx(i),i= 2901, 2970)/ + 45744,45792,45984,46272,46344,46512,46512,46656,46680,46800, 1 46824,46896,47016,46968,47016,47208,44808,45768,47136,47544, 2 47016,47928,47904,48216,45816,46152,47400,46584,46968,47184, 3 48072,48168,47688,47256,47208,47256,46920,46824,46848,46776, 4 48312,48144,47904,47832,47472,48048,48672,48696,48816,48864, 5 47016,49560,49584,49128,48936,48744,48696,48792,48888,49056, 6 49320, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (jy(i),i= 1, 100)/ + 50112,52464,49104,47736,45816,55248,52488,43224,57504,62639, 1 42432,65831,66479,40728,38136,37704,67559,33528,69071,29352, 2 26592,32112,21288,20040,67343,17520,64847,15696,12552,11040, 3 53208,46632,10800,48456,59856,23160,19920,34272,31248,28656, 4 26280,43968,38088,42744,55800,10296,13248,13416,16248,49488, 5 49776,49992,50376,50520,50664,50712,50784,50928,51384,51672, 6 51816,51936,52392,48840,48552,48264,48072,47952,47760,47472, 7 46872,46896,47160,47376,47376,47040,47040,47136,47496,47760, 8 52536,52704,53808,54048,54792,47568,47448,47592,47592,47520, 9 47016,46560,46080,45216,44808,44568,44232,43968,43824,43512/ data (jy(i),i= 101, 200)/ + 55656,55848,56256,56448,56880,57336,57576,57672,58512,58680, 1 59040,59640,59880,60144,60264,60456,60864,61296,61680,61824, 2 61992,62424,62783,63095,63503,63863,63983,63935,64103,64175, 3 64247,64463,64751,65303,65567,43008,42528,42336,42216,42216, 4 42360,42408,42576,42552,42120,41952,41832,41184,41040,40872, 5 65951,66311,66479,66503,66719,66671,66743,66671,66431,66575, 6 66575,66455,66215,66263,66383,66455,66599,66695,66743,67031, 7 67175,67343,67343,67583,67631,67823,67655,67751,40728,40608, 8 40272,39840,39504,39216,39120,38976,38664,38496,38520,38352, 9 37440,37392,37392,37296,36912,36624,36168,35496,35352,35304/ data (jy(i),i= 201, 300)/ + 35328,35160,34632,34512,34512,34920,34944,34800,34488,34296, 1 33960,33840,33744,33744,33984,34008,33840,32016,32160,32136, 2 31920,31608,31464,31248,30912,30720,30384,29928,33336,33264, 3 33240,33384,33384,33192,32760,32640,32592,32568,32304,67607, 4 67511,67511,67703,67655,67751,67775,67847,68231,68255,68351, 5 68231,68279,68279,68447,68447,68567,68663,68975,68999,69119, 6 69047,69239,25920,25632,25392,24816,24408,24240,24120,24072, 7 24024,23832,23928,24120,24168,23976,23616,23400,23352,23496, 8 23400,23040,22752,22416,22056,21768,21576,21480,29040,28824, 9 28800,28632,28464,28272,28056,27888,27768,27264,21168,21408/ data (jy(i),i= 301, 400)/ + 21432,21240,21024,20616,20424,20352,20184,19632,19320,19296, 1 19488,19992,19872,18096,17856,69191,69287,69383,69359,69407, 2 69359,69407,69455,69527,69767,69935,70055,70127,70199,70391, 3 70343,70463,70511,70463,70583,70559,70655,70655,70823,70895, 4 70919,70775,70895,71111,71159,71351,71471,71639,71663,71735, 5 71879,71927,72023,72095,72263,72335,69407,69239,69215,68303, 6 15192,14568,14256,13728,17424,17112,16800,16656,16536,16464, 7 16200,16200,16704,16920,16896,16776,16560,16320,15888,66791, 8 66047,66047,66119,66047,66071,65927,65879,65759,65567,65207, 9 65111,12096,11688,11280,10968,10536,10416,10368,10464,10776/ data (jy(i),i= 401, 500)/ + 10992,11040,10872,10776,10632,10416,10344,10344,10392,10488, 1 64967,64823,64535,64079,63815,63695,63479,63167,63119,62927, 2 62927,62663,62687,62615,62112,60552,60240,21792,21816,10848, 3 10776,10368,10224,10152,10152,10344,10416,33432,33144,33096, 4 32976,32736,59520,59256,58896,58752,58248,57888,42120, 9216, 5 8184, 8568, 8640, 8856, 9024, 9456, 9672, 9840, 9960,10032, 6 10128,20160,20232,20136,20016,50208,50184,50280,50256,50376, 7 50592,50472,50568,50688,50784,50640,50496,50712,50640,50520, 8 50616,50640,50688,50760,50832,50928,51168,49392,49248,49968, 9 49416,49032,48912,48936,48888,47856,47904,48024,48096,47880/ data (jy(i),i= 501, 600)/ + 47856,47760,47736,47616,47616,47448,47352,47160,47112,46992, 1 46968,46872,46800,46680,46608,46368,54576,52440,52752,52824, 2 52872,52776,52776,46584,46464,46416,46296,46272,46128,45936, 3 45960,45840,45576,45480,45504,45456,44640,44280,44232,44256, 4 44136,44136,43272,54552,54456,54360,54336,54288,54240,54240, 5 54072,54120,54072,54024,54000,53952,53928,53856,53808,53808, 6 53640,53664,53544,53472,53496,53304,53160,53112,53016,52752, 7 52680,52824,57672,57552,50496,62592,62711,62592,62592,62496, 8 62496,62328,62280,62352,62136,62064,61944,61776,61584,51144, 9 51072,51000,50928,50904,50976,50736,50736,55152,54864,54792/ data (jy(i),i= 601, 700)/ + 54744,49848,50136,50352,50448,43728,43464,43440,42600,42888, 1 43008,43104,56904,55752,49656,49248,48984,48864,48840,48912, 2 48912,48792,48840,47976,53160,53040,52992,53184,53184,53088, 3 53088,53256,53256,53352,53448,53448,53640,53688,54744,54720, 4 54672,54576,54576,54504,54408,54312,53952,53832,64607,64679, 5 64967,64991,63791,63503,63311,62592,57624,57696,57648,57816, 6 57888,57960,58056,58032,58152,58128,58584,58584,58704,58824, 7 58968,59232,52944,60192,60048,59856,59736,59664,59568,61488, 8 61440,61344,61344,61224,61272,61032,61080,61032,61128,60744, 9 60432,60336,60288,45432,45528,45720,45984,46056,45984,45840/ data (jy(i),i= 701, 800)/ + 45936,46080,46272,46176,46488,46512,46416,46488,46632,46632, 1 46704,46752,46848,46872,46728,46728,47112,46968,47232,47232, 2 48336,48624,49296,43176,43296,43368,43728,47880,47736,47592, 3 47496,47136,47112,47040,46920,46152,61080,60912,60696,60696, 4 60624,60528,60504,60264,60312,55008,55248,55296,55392,55512, 5 55440,55464,55680,55728,55824,55824,55968,55896,56016,55896, 6 59112,59160,59112,58992,58848,58944,58824,58752,58800,58680, 7 58656,58416,58344,58248,58152,57936,57768,57768,65015,64919, 8 64871,64943,64967,65351,65495,65615,65663,66263,66431,49944, 9 50064,50112,50088,50616,50688,50688,50904,50880,52224,52104/ data (jy(i),i= 801, 900)/ + 51984,51912,51720,51696,51552,51504,51408,51096,50976,43392, 1 43152,42816,42672,42672,42600,42528,42528,42336,42264,42192, 2 41376,41256,41160,41304,63047,63047,62927,62807,62735,62711, 3 62687,62424,62208,62136,61776,61608,61536,61416,61272,61248, 4 61176,63791,64031,64127,64415,64703,64631,64655,63623,63527, 5 63359,63239,63239,63095,50928,51048,51096,51072,51240,54840, 6 54792,54912,54912,54816,54840,54744,54744,54576,54408,54096, 7 54192,54144,53952,54000,53952,53856,53808,53856,53760,53736, 8 53616,53736,53616,53520,53568,53496,53184,55968,56136,56208, 9 56304,56352,56424,56520,56640,56688,56808,56856,56952,56952/ data (jy(i),i= 901, 1000)/ + 56880,56856,56952,57096,57120,57024,57120,57216,57264,57312, 1 57216,57264,57216,57216,57288,57240,57336,57432,57528,57672, 2 48504,61032,60912,61080,61416,61464,61320,61272,61080,60936, 3 58968,59112,59256,59256,58896,58824,58776,58656,58800,58656, 4 58464,58440,58512,58416,58200,58152,58032,58056,57960,57888, 5 57936,58008,58056,58152,57960,57960,57888,63047,62999,62903, 6 62759,62639,61992,61896,61560,61224,61080,60936,60888,60984, 7 60888,42720,42576,54744,54168,54000,46488,46152,46080,46128, 8 45984,49392,49368,48456,48528,48624,48792,48816,48912,48840, 9 48912,48912,48960,49152,49080,49176,49224,49128,49176,49248/ data (jy(i),i= 1001, 1100)/ + 49152,49224,49296,49272,49224,49128,49152,47328,47328,42528, 1 60480,60336,60240,60168,51432,51600,51648,51480,51552,51456, 2 51840,51912,52008,52080,52248,52272,46464,46536,46968,47160, 3 47256,56760,56784,56952,57120,57168,57360,57600,57672,57840, 4 58008,58320,58320,59736,59808,59880,59664,59544,59520,59088, 5 59064,59472,63119,63191,63479,63575,63791,64127,63959,63935, 6 59280,59136,59184,59328,59232,59280,59376,59400,44208,45336, 7 45840,45672,45480,54912,54888,54984,55032,55104,55080,55200, 8 55680,56208,56400,56808,63335,63167,63047,49104,38232,38736, 9 40128,41448,42480,42192,41856,41808,42048,38496,38544,38520/ data (jy(i),i= 1101, 1200)/ + 38880,38976,39000,39144,39168,39312,39096,39072,39264,39408, 1 39528,39744,39960,37920,37656,36432,47376,47544,47640,47664, 2 47520,47664,47664,47520,47472,47640,47592,47784,47712,47760, 3 47952,44784,44760,44832,44832,44928,45000,45120,45168,45120, 4 55032,56712,56760,56664,56640,56640,56736,67223,66815,66839, 5 66767,66671,66743,66719,66599,63479,63647,63767,64679,65495, 6 66095,42816,42600,42264,56568,56352,55824,55728,55536,55080, 7 56832,56808,56880,57600,57528,57624,57648,57768,57816,57936, 8 63263,63431,63383,63623,63599,52296,52224,52320,51984,51960, 9 52080,52080,51984,52104,51912,51864,51840,51936,51864,51792/ data (jy(i),i= 1201, 1300)/ + 51840,51792,51888,44928,47208,47088,47064,46992,46992,46872, 1 46896,46752,46464,46416,46176,46176,46104,45984,44976,45048, 2 45144,45312,45312,45432,45648,45792,52440,52536,52512,52752, 3 52896,53184,53304,53352,53616,53808,53976,54096,48720,58896, 4 58728,58416,58320,58272,58176,58032,57984,54912,54816,54816, 5 54696,54528,54768,49680,50664,50736,50904,51072,51048,51216, 6 51264,51456,51624,51648,51480,51504,51648,51816,48240,48168, 7 48288,48216,48096,48168,48072,47976,47928,47976,47904,47784, 8 47712,47760,47952,47760,47952,54648,54624,54456,54312,54240, 9 54168,48864,48888,48624,48600,48672,57648,57192,57192,56952/ data (jy(i),i= 1301, 1400)/ + 56808,56688,56304,56256,56280,56232,56016,55944,55632,55104, 1 55056,54960,54936,54840,57624,40296,40968,41040,41016,41232, 2 41280,41256,41544,41592,41712,41760,41664,57312,35640,66119, 3 66335,66119,66191,66311,66263,66407,66383,66479,66431,50304, 4 50352,50568,50664,50808,50832,50640,50688,50736,50904,63455, 5 63479,63743,63815,63863,66071,66047,65711,65591,65471,65375, 6 65351,65183,64679,64487,64223,64151,63983,62951,62903,62807, 7 62735,62639,62520,62184,62328,61824,61776,61560,61416,61344, 8 61032,61272,61200,61128,61128,60960,60960,60912,60504,60552, 9 60504,60408,60216,60024,60024,59664,59544,59424,59184,59232/ data (jy(i),i= 1401, 1500)/ + 66599,67103,67103,67175,67535,67703,67679,67751,67943,68039, 1 68351,68495,68615,68519,68447,68399,68687,68951,50208,50208, 2 50040,49920,49800,49800,49704,49632,49536,49656,49608,49320, 3 49320,49440,49584,49584,49152,49248,49104,49008,48984,48864, 4 44928,44664,44640,44568,44616,44544,44568,44496,44568,44496, 5 44376,44400,44304,44256,44184,44064,44064,44160,43968,43872, 6 43872,43704,43704,43632,43560,43632,43536,43392,43368,43224, 7 43224,43320,43248,43056,43080,42960,42840,39912,40056,39960, 8 40056,40152,40152,40248,40416,40392,40464,30696,30744,30432, 9 30144,30096,30000,29904,29928,30000,29952,30096,29952,29952/ data (jy(i),i= 1501, 1600)/ + 29760,29544,29328,58920,58104,58008,48672,48744,48720,48792, 1 48696,48864,48792,48936,48936,48864,48768,48912,48840,48600, 2 48624,48504,48456,61272,61176,61296,48048,47928,46080,45960, 3 46248,46224,46176,46152,46200,26424,26592,26544,26640,26664, 4 26856,26712,26424,26016,25896,25824,25800,25704,61104,60264, 5 60216,60024,59736,59712,59664,59688,59592,59592,59496,59184, 6 59160,32280,49224,49152,49152,49248,49224,49032,49056,48912, 7 49032,48984,48912,48816,48840,49008,48984,48840,48816,48840, 8 48648,48480,48552,32040,31920,32400,25608,25176,24936,46032, 9 44088,43632,43272,43080,43128,22896,22224,22248,22416,22368/ data (jy(i),i= 1601, 1700)/ + 22440,22536,22488,22608,22752,22728,54096,53760,54072,53976, 1 54048,54024,53976,54024,53976,54120,54048,54096,53880,53856, 2 54000,54168,53952,53832,53736,53880,53904,54048,35376,53640, 3 53400,53160,35496,35616,35712,35760,35952,36216,36336,36480, 4 36624,36792,37200,37320,37224,37176,37272,37320,37344,56952, 5 56448,56352,56424,56496,56496,56280,56016,56064,55680,54480, 6 55176,55392,61536,62112,62280,62663,62783,62807,62855,62855, 7 62927,63095,63191,63335,63287,63431,63455,63791,63887,63863, 8 63911,24912,25056,25248,25800,25968,50424,50400,50592,50592, 9 50520,50640,50688,50760,50880,50976,50856,50952,51048,51024/ data (jy(i),i= 1701, 1800)/ + 51096,51024,51144,51264,51216,51216,51312,51240,51408,51456, 1 51672,51696,51912,47616,48144,48456,48432,48552,48600,48768, 2 48744,48960,48888,48936,49056,49080,49224,49272,32664,32880, 3 32808,33024,33024,33144,33264,33192,33096,33144,33360,33456, 4 33504,33600,33720,33672,33864,33936,34104,34224,34248,34464, 5 34464,34536,34536,34608,34632,34752,34728,34920,35088,35136, 6 32256,32592,42432,41856,45984,30336,30744,30336,30096,29856, 7 29616,29136,28848,28008,28368,28632,55872,63863,63959,64151, 8 64151,64223,64223,64319,64271,64391,64415,64487,64487,64367, 9 64391,64247,64247,64103,64031,63983,58512,47184,46296,46296/ data (jy(i),i= 1801, 1900)/ + 46080,52128,52176,52272,52320,52296,52488,52584,52752,52872, 1 53016,40704,40848,41088,41208,41160,41304,41376,41424,41400, 2 41304,41208,41112,41040,41064,41208,41208,41112,41112,40968, 3 40968,41160,41232,41208,41472,41520,41616,41592,41640,41808, 4 58248,58200,58128,58152,58056,57936,57816,57624,57432,57192, 5 57072,57096,57048,56352,56136,56040,49344,49416,49272,49296, 6 49440,49536,49560,50832,51000,51072,58488,58584,58632,58776, 7 58728,58752,58920,58800,58848,58800,58944,58824,51696,51864, 8 51792,53160,53352,53328,53568,53472,53688,53760,53832,53712, 9 53808,53784,53712,53784,53688,53784,21192,55896,56064,56208/ data (jy(i),i= 1901, 2000)/ + 56280,56280,56616,56784,42000,42096,42096,42264,42336,20160, 1 20208,20328,20448,20448,20592,20640,20760,20832,20904,20760, 2 20928,21000,62448,62328,62663,62663,62687,62831,62879,63047, 3 63191,63335,63455,63599,63671,41328,41496,41808,41808,42048, 4 42144,39936,39720,39648,39648,39432,39480,39312,39288,39120, 5 38808,38712,38664,38688,40704,40632,40896,41112,41232,42504, 6 42552,42888,42912,43056,43392,43536,43944,44016,44184,44400, 7 44568,44664,44832,44856,45120,45240,45576,45720,45960,45840, 8 28224,28176,28128,28032,28152,28296,28320,32664,32808,32640, 9 32640,32520,32544,32448,32376,32256,32208,32064,32016,32088/ data (jy(i),i= 2001, 2100)/ + 32520,58920,59040,59208,59424,59544,59664,59688,59880,59952, 1 60048,60192,60672,60840,60936,61200,61656,61824,26112,26040, 2 26160,26184,26112,26088,26136,26112,26160,26448,26520,26640, 3 21096,21144,21120,21216,21528,21672,21744,21912,21936,21792, 4 21816,21960,22152,22296,28224,27720,27384,66047,66143,66191, 5 66359,66383,66551,66431,66407,66503,66671,66791,66911,66911, 6 67007,67007,66935,66839,66695,66839,66671,66815,67079,64103, 7 64919,64991,64919,64967,65135,65279,65375,65399,65543,65591, 8 65567,65639,65615,65663,65567,65711,65663,65903,65903,50640, 9 53856,53928,54024,54048,54144,54024,54144,54336,54552,54480/ data (jy(i),i= 2101, 2200)/ + 54936,55464,24912,24096,22200,22224,22152,22056,22080,53760, 1 53640,53688,53472,53496,53424,53400,53232,53112,53232,53112, 2 53016,53112,53064,52968,52920,52944,52896,52824,52704,52728, 3 52656,52752,52584,52608,52728,52416,52512,52512,65927,65879, 4 59208,59424,59448,59376,59472,59592,59760,59832,59856,60120, 5 60216,60336,60336,60528,60528,60672,60624,60720,60672,60792, 6 60912,61008,61128,61200,61344,61416,61464,61536,61632,61872, 7 61872,61776,61776,61680,61680,61752,61656,61848,61968,62064, 8 62208,62136,62232,62232,62112,62136,62064,62112,37392,37488, 9 37392,37536,37608,37488,37440,37392,37296,37296,37176,37224/ data (jy(i),i= 2201, 2300)/ + 37152,37224,37152,37152,37056,37080,36984,36984,36864,36888, 1 36840,36720,36648,36600,36432,36408,45624,45432,45360,45240, 2 45216,44952,33744,35976,36096,36144,36264,33576,59040,59088, 3 58992,58944,58824,57696,57792,57912,57936,58056,58200,58200, 4 58272,58320,58416,58536,58704,58704,58752,58992,55488,55632, 5 55824,55824,56016,55968,56136,56496,56736,56808,59160,66167, 6 66167,66311,66407,66623,66767,67031,67151,62592,62544,62592, 7 62496,62544,62735,62855,62975,62999,63119,63311,63335,63551, 8 63599,48792,50160,47544,47520,47616,48096,48744,48888,48768, 9 37368,37296,65327,65111,64727,64655,64391,64199,64103,64007/ data (jy(i),i= 2301, 2400)/ + 63791,63743,52488,30048,30168,30168,30288,30432,30696,30816, 1 30720,30768,30912,31128,31152,31248,28368,28128,28008,28224, 2 28296,28416,28584,28920,29304,29328,29448,29544,29664,29856, 3 29880,29976,44760,44712,44664,44232,44184,44064,43848,43752, 4 43704,43728,43344,41328,42240,43008,43032,42888,42864,43176, 5 45888,45936,46032,40752,40464,40368,40512,40536,40608,40536, 6 40488,20136,20136,20040,19824,19896,19824,19872,19752,55512, 7 55272,55272,55560,55656,55848,56016,56040,56184,56208,56016, 8 56160,39984,34344,38592,39024,26304,26496,26160,26184,25992, 9 26064,25848,25896,25872,25992,25920,26040,26208,26280,26616/ data (jy(i),i= 2401, 2500)/ + 26520,18912,18960,18936,18696,18864,18816,18864,18720,18048, 1 17952,18024,17880,17568,23328,23280,23184,23088,23016,22992, 2 22872,22752,22800,22680,22608,22536,22488,22656,22272,22320, 3 22296,22368,22248,22344,22128,22128,21864,22008,36816,37152, 4 18888,18912,19152,19176,19344,19368,19440,19464,19512,19632, 5 19704,47256,46800,47136,43104,41880,40704,40968,23592,24696, 6 24936,25968,26064,26088,26304,26448,26568,26592,26736,26760, 7 26832,26928,26952,30000,30024,29976,30048,30120,30120,30048, 8 29856,29808,29928,29904,30072,30072,30216,30024,30000,30096, 9 29688,29688,62304,62639,36144,35928,35712,35592,35400,29376/ data (jy(i),i= 2501, 2600)/ + 28728,63311,63311,63119,63119,63239,63215,63311,63287,63047, 1 63239,63215,62759,64199,63983,63647,63527,63383,62424,62376, 2 62424,28152,27024,26952,27048,27072,15696,16104,16392,18744, 3 18696,18576,18696,18624,18600,18744,18480,16536,16920,17448, 4 17664,17952,47232,47616,47856,22848,23064,58608,58464,58392, 5 58200,57696,57384,57264,57000,56952,57000,56808,56568,56496, 6 56544,56280,56280,34248,34248,34008,33960,33840,33768,33528, 7 33312,33240,33192,33120,33000,32952,32808,32712,32688,32424, 8 32520,31992,30528,47280,56040,55848,55728,55632,55416,54792, 9 54720,54552,54288,54192,54120,54072,54000,54000,53904,53904/ data (jy(i),i= 2601, 2700)/ + 53832,53856,53760,53760,53664,53688,53520,53448,53352,53304, 1 53280,53160,53136,53064,52992,52824,52848,52752,52704,52512, 2 54360,54408,54504,54600,54552,54648,54768,54744,54864,54888, 3 54984,55056,55128,55272,55320,55344,55248,55272,55416,55488, 4 55512,56232,59040,59256,58872,58896,59040,58872,58968,58944, 5 59016,59280,59280,59184,59328,52488,52536,52464,52632,52488, 6 52608,52560,52584,52440,52416,52248,52320,52320,52440,52344, 7 52296,52200,52344,52320,52056,52104,51984,59208,48312,48432, 8 48840,48984,49176,49872,49992,50040,49992,50088,51912,51984, 9 13512,47208,47088,46920,20208,20784,21624,56304,56400,56496/ data (jy(i),i= 2701, 2800)/ + 56616,56640,56808,56784,56976,57264,57336,57384,57624,57624, 1 57816,57864,58008,58200,58176,58248,58392,58776,58752,58824, 2 58800,58680,13536,62088,61968,61944,61752,61464,61200,60288, 3 60312,60216,60000,60000,59808,59640,59496,59328,59520,59376, 4 59376,21792,22584,16368,41928,42096,42624,42552,45000,44664, 5 44448,36384,11112,11160,11232,11376,11304,11472,11496,11808, 6 12024,13104,46848,46800,45912,21504,20640,20592,19176,51504, 7 51744,51888,52512,52392,52464,52296,52392,52296,52392,52296, 8 52128,52152,52368,52056,52152,52128,52224,52272,52344,52368, 9 52536,52872,53112,32544,18888,18984,44088,44352,44376,44520/ data (jy(i),i= 2801, 2900)/ + 44616,46488,46536,46512,46440,46464,46320,46320,46392,46320, 1 46464,46248,45960,39720,39768,39888,39888,40080,44592,44448, 2 44472,45456,41328,41448,41496,41280,41448,41616,41832,42072, 3 42360,41160,41256,13488,11304,11352,10992,36192,36096,36048, 4 36000,36072,35976,35880,35760,35496,35544,34320,32784,34368, 5 49296,49272,49296,49584,49728,49848,49872,49944,49896,50088, 6 50040,50112,49968,50136,50040,49992,16320,19344,19488,19416, 7 19560,59472,59592,59352,59592,59472,59616,59856,39792,39480, 8 38040,36432,36288,36408,36528,36528,36648,36600,36672,36552, 9 36600,36744,36912,36984,36888,36984,37152,37248,37248,37152/ data (jy(i),i= 2901, 2970)/ + 37224,37176,37152,37344,37272,37200,37440,37392,37488,37536, 1 37416,37392,37512,37584,37824,37992,23496,23376,23352,19800, 2 44376,44088,34224,44016,32160,31848,31344,28680,28752,28680, 3 38280,38280,42216,42432,42336,42000,41808,41832,41568,41400, 4 55848,55776,55560,55608,56232,10584,11616,12360,12480,12672, 5 13440, 7104, 7584, 7752, 7704, 7560, 7200, 6960, 6888, 6864, 6 6936, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (jb1(i),i= 1, 100)/ + 32, 3, 50, 51, 1, 1, 53, 54, 55, 56, 1 57, 58, 59, 60, 61, 62, 2, 3, 64, 65, 2 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 3 76, 77, 78, 79, 4, 2, 7, 81, 82, 83, 4 84, 6, 4, 86, 87, 88, 89, 90, 91, 92, 5 5, 5, 94, 95, 96, 97, 98, 99, 8, 6, 6 101, 102, 103, 104, 105, 9, 9, 107, 108, 109, 7 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 8 120, 121, 10, 10, 123, 124, 125, 126, 127, 128, 9 129, 130, 131, 132, 133, 134, 12, 8, 136, 137/ data (jb1(i),i= 101, 200)/ + 138, 139, 140, 141, 142, 143, 11, 11, 145, 146, 1 147, 148, 149, 14, 12, 151, 152, 153, 154, 155, 2 156, 157, 13, 13, 159, 160, 161, 162, 163, 164, 3 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 4 175, 176, 177, 17, 14, 179, 180, 181, 182, 183, 5 184, 185, 186, 187, 188, 189, 15, 15, 16, 191, 6 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 7 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 8 212, 213, 214, 215, 216, 18, 22, 218, 219, 220, 9 221, 222, 223, 224, 225, 226, 227, 20, 18, 229/ data (jb1(i),i= 201, 300)/ + 230, 231, 232, 233, 234, 235, 236, 237, 238, 22, 1 17, 240, 241, 242, 243, 244, 245, 246, 247, 248, 2 249, 250, 251, 252, 253, 254, 255, 256, 257, 258, 3 259, 260, 261, 19, 21, 263, 264, 265, 266, 267, 4 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 5 278, 279, 280, 281, 282, 283, 284, 285, 286, 287, 6 23, 20, 289, 290, 291, 292, 293, 294, 295, 296, 7 297, 21, 23, 299, 300, 301, 302, 303, 304, 305, 8 306, 307, 308, 309, 310, 311, 24, 24, 313, 314, 9 26, 19, 316, 317, 318, 319, 320, 321, 322, 323/ data (jb1(i),i= 301, 400)/ + 324, 325, 326, 327, 328, 329, 330, 331, 332, 333, 1 334, 335, 336, 337, 338, 339, 340, 341, 342, 343, 2 344, 345, 346, 347, 348, 349, 350, 351, 352, 353, 3 354, 355, 356, 357, 358, 359, 25, 28, 361, 362, 4 363, 29, 26, 365, 366, 367, 368, 369, 370, 371, 5 372, 373, 374, 375, 376, 377, 378, 28, 25, 380, 6 381, 382, 383, 384, 385, 386, 387, 388, 389, 390, 7 27, 29, 392, 393, 394, 395, 396, 397, 398, 399, 8 400, 401, 30, 30, 403, 404, 405, 406, 407, 408, 9 409, 33, 27, 411, 412, 413, 414, 415, 416, 417/ data (jb1(i),i= 401, 500)/ + 418, 419, 420, 421, 422, 423, 424, 425, 426, 35, 1 36, 428, 37, 33, 430, 431, 432, 433, 434, 435, 2 436, 46, 39, 40, 36, 32, 42, 38, 438, 439, 3 440, 441, 39, 38, 35, 443, 444, 445, 446, 447, 4 45, 31, 31, 44, 43, 47, 450, 451, 452, 453, 5 454, 455, 456, 457, 458, 459, 460, 46, 47, 48, 6 37, 462, 463, 464, 49, 1, 466, 467, 468, 469, 7 470, 471, 472, 473, 474, 475, 476, 477, 478, 479, 8 480, 481, 482, 483, 484, 485, 2, 486, 3, 488, 9 486, 489, 490, 489, 492, 493, 494, 4, 496, 497/ data (jb1(i),i= 501, 600)/ + 498, 495, 495, 500, 501, 502, 503, 504, 505, 506, 1 507, 508, 509, 510, 511, 512, 513, 514, 5, 515, 2 6, 7, 518, 519, 520, 521, 522, 515, 524, 525, 3 526, 527, 528, 529, 530, 531, 532, 533, 534, 535, 4 536, 537, 538, 539, 540, 541, 542, 543, 517, 544, 5 545, 546, 547, 548, 549, 550, 551, 552, 553, 554, 6 555, 556, 557, 558, 559, 560, 561, 562, 563, 564, 7 565, 566, 567, 568, 569, 570, 571, 523, 9, 573, 8 490, 10, 576, 577, 578, 579, 580, 581, 582, 583, 9 584, 585, 586, 587, 588, 523, 590, 591, 592, 593/ data (jb1(i),i= 601, 700)/ + 594, 595, 596, 575, 598, 599, 600, 517, 602, 603, 1 604, 575, 537, 606, 607, 11, 609, 610, 611, 608, 2 574, 613, 598, 602, 615, 616, 617, 618, 619, 620, 3 621, 622, 623, 501, 567, 625, 626, 627, 628, 629, 4 630, 631, 632, 633, 634, 635, 636, 637, 639, 598, 5 639, 641, 642, 643, 644, 645, 646, 647, 638, 649, 6 650, 651, 652, 649, 653, 654, 655, 589, 574, 657, 7 658, 659, 660, 661, 662, 663, 664, 665, 666, 667, 8 668, 669, 670, 671, 638, 674, 675, 676, 677, 678, 9 672, 589, 680, 681, 682, 683, 684, 685, 686, 687/ data (jb1(i),i= 701, 800)/ + 688, 689, 690, 691, 692, 674, 536, 694, 695, 696, 1 697, 698, 699, 700, 701, 702, 703, 704, 705, 706, 2 707, 708, 709, 710, 711, 712, 713, 714, 715, 716, 3 717, 718, 719, 721, 722, 615, 608, 724, 725, 726, 4 721, 728, 729, 730, 720, 720, 732, 733, 734, 735, 5 727, 737, 738, 739, 740, 741, 742, 743, 744, 674, 6 639, 746, 747, 748, 749, 750, 751, 752, 753, 754, 7 755, 756, 757, 758, 759, 672, 761, 762, 763, 764, 8 765, 766, 767, 768, 769, 770, 771, 772, 773, 774, 9 775, 776, 777, 649, 779, 780, 781, 782, 783, 784/ data (jb1(i),i= 801, 900)/ + 785, 786, 787, 788, 789, 602, 790, 791, 792, 793, 1 794, 795, 796, 797, 673, 799, 800, 801, 802, 803, 2 804, 805, 806, 807, 808, 798, 727, 810, 811, 812, 3 813, 814, 815, 816, 817, 818, 819, 820, 821, 822, 4 823, 824, 825, 826, 827, 828, 829, 830, 831, 832, 5 833, 834, 835, 836, 837, 838, 839, 840, 737, 842, 6 843, 844, 845, 846, 847, 781, 842, 849, 850, 851, 7 852, 853, 825, 798, 855, 856, 857, 858, 760, 860, 8 861, 862, 863, 864, 865, 866, 867, 868, 869, 870, 9 871, 872, 873, 874, 875, 876, 877, 878, 879, 880/ data (jb1(i),i= 901, 1000)/ + 881, 882, 883, 884, 885, 886, 673, 760, 888, 889, 1 890, 891, 892, 893, 894, 895, 896, 897, 898, 899, 2 900, 901, 902, 903, 904, 905, 906, 907, 908, 909, 3 910, 911, 912, 913, 914, 915, 916, 917, 918, 919, 4 778, 721, 737, 922, 923, 924, 925, 926, 927, 928, 5 929, 931, 932, 933, 934, 935, 936, 937, 938, 939, 6 940, 941, 942, 943, 944, 945, 946, 947, 948, 949, 7 950, 951, 952, 953, 954, 955, 956, 778, 958, 959, 8 960, 961, 962, 963, 964, 965, 966, 967, 968, 969, 9 970, 930, 820, 972, 860, 974, 975, 736, 977, 978/ data (jb1(i),i= 1001, 1100)/ + 979, 980, 859, 982, 921, 984, 985, 986, 987, 988, 1 989, 990, 991, 992, 993, 994, 995, 996, 997, 998, 2 999, 1000, 1001, 1002, 1003, 1004, 1005, 1006, 983, 921, 3 1008, 973, 930, 1011, 1012, 1013, 859, 1015, 1016, 1017, 4 1018, 1019, 1020, 1021, 1022, 1023, 1024, 1025, 981, 1027, 5 1028, 1029, 1030, 1009, 1032, 1033, 1034, 1035, 1036, 1037, 6 1038, 1039, 1040, 1041, 1042, 931, 976, 1044, 1045, 1014, 7 1044, 1047, 1048, 1050, 1051, 1049, 958, 1053, 1054, 1055, 8 1056, 1057, 1058, 1059, 842, 931, 1061, 1062, 1063, 1064, 9 1065, 1066, 1067, 1049, 973, 1069, 981, 1071, 1072, 1070/ data (jb1(i),i= 1101, 1200)/ + 860, 1074, 1075, 1076, 1077, 1078, 1079, 1080, 1081, 1082, 1 1083, 1032, 1085, 1086, 958, 983, 1089, 1089, 1090, 1091, 2 1010, 1010, 1093, 1094, 1095, 1096, 1089, 1098, 1099, 1100, 3 1101, 1102, 1103, 1104, 1105, 1106, 1107, 1108, 1109, 1110, 4 1111, 1112, 16, 1114, 1115, 1009, 1117, 1118, 1119, 1120, 5 1121, 1122, 1123, 1124, 1125, 1126, 1127, 1128, 1129, 1130, 6 1132, 1133, 1134, 1135, 1136, 1137, 1138, 1139, 1070, 976, 7 1142, 1143, 1144, 1145, 1146, 1032, 17, 1148, 1149, 1150, 8 1151, 1152, 1153, 1154, 1085, 1156, 1157, 1158, 1159, 1160, 9 1155, 1132, 1162, 1163, 1097, 1142, 1165, 1166, 1167, 1168/ data (jb1(i),i= 1201, 1300)/ + 1169, 1141, 1142, 1171, 1172, 1173, 1174, 1175, 1176, 1177, 1 1178, 1179, 1181, 1182, 1183, 1184, 1085, 1026, 1186, 1187, 2 1188, 1189, 1190, 1191, 1192, 1193, 1194, 1195, 1196, 1197, 3 1198, 1199, 1200, 1201, 1202, 1132, 1131, 1205, 1206, 1207, 4 1208, 1209, 1210, 1211, 1212, 1213, 1214, 1215, 1216, 1217, 5 1204, 1219, 1220, 1221, 1222, 1223, 1224, 1225, 1218, 1203, 6 1227, 1228, 1229, 1230, 1231, 1232, 1233, 1234, 1235, 1236, 7 1237, 1088, 1050, 1240, 1241, 1242, 1243, 1244, 1245, 1246, 8 1180, 1141, 1248, 1249, 1250, 1251, 1252, 1088, 1254, 1255, 9 1256, 1257, 1258, 1259, 1260, 1261, 1262, 1263, 1264, 1265/ data (jb1(i),i= 1301, 1400)/ + 1266, 1267, 1203, 1239, 1269, 1270, 1271, 1272, 1273, 1274, 1 1275, 1276, 1277, 1278, 1279, 1280, 1281, 1282, 1283, 1284, 2 1131, 1253, 1286, 1287, 1288, 1289, 1290, 1238, 1239, 1292, 3 1293, 1294, 1295, 1180, 1298, 1299, 1300, 1301, 1302, 1303, 4 1304, 1305, 1306, 1307, 1308, 1309, 1310, 1311, 1312, 1313, 5 1253, 1297, 1113, 1316, 1317, 1318, 1319, 1320, 1321, 1322, 6 1323, 1324, 1325, 1326, 1097, 1315, 18, 1116, 1155, 1330, 7 1331, 1332, 1333, 1334, 1335, 1336, 1337, 1338, 1340, 1341, 8 1342, 1343, 1344, 1345, 1346, 1347, 1348, 1259, 1181, 1350, 9 1351, 1352, 1353, 1339, 1355, 1356, 1357, 1358, 1359, 1360/ data (jb1(i),i= 1401, 1500)/ + 1361, 1362, 1363, 1364, 1365, 1366, 1354, 1181, 1368, 1369, 1 1370, 1371, 1372, 1373, 1374, 1375, 1376, 1377, 1378, 1379, 2 1380, 1381, 1382, 1383, 1384, 1385, 1386, 1387, 1388, 1389, 3 1390, 1391, 1392, 1393, 1394, 1395, 1396, 1397, 1398, 1399, 4 1050, 1339, 1401, 1402, 1298, 1403, 1404, 1405, 1406, 1407, 5 1408, 1409, 1410, 1411, 1412, 1413, 1414, 1415, 1416, 1417, 6 1418, 1340, 1419, 1420, 1421, 1422, 1423, 1424, 1425, 1426, 7 1427, 1428, 1429, 1430, 1431, 1432, 1433, 1434, 1435, 1436, 8 1437, 1438, 1439, 1296, 1204, 1441, 1442, 1443, 1444, 1445, 9 1446, 1447, 1448, 1449, 1450, 1451, 1452, 1453, 1454, 1455/ data (jb1(i),i= 1501, 1600)/ + 1456, 1457, 1458, 1459, 1460, 1461, 1462, 1463, 1464, 1465, 1 1466, 1467, 1468, 1469, 1470, 1471, 1472, 1473, 1474, 1475, 2 1476, 1113, 1478, 1479, 1480, 1481, 1482, 1483, 1484, 1485, 3 1486, 1488, 1489, 1490, 1491, 1492, 1493, 1494, 1495, 1496, 4 1497, 1498, 1499, 1500, 1501, 1502, 1503, 1504, 1505, 1328, 5 1296, 1507, 1508, 1509, 1510, 1511, 1512, 1513, 1514, 1515, 6 1516, 1517, 1518, 1519, 1520, 1521, 1522, 1524, 1525, 1385, 7 1523, 1527, 1528, 1218, 1530, 1531, 1532, 1533, 1534, 1529, 8 21, 1536, 1537, 1538, 1539, 1540, 1541, 1542, 1543, 1544, 9 1545, 1546, 1547, 1524, 1549, 1550, 1551, 1552, 1553, 1554/ data (jb1(i),i= 1601, 1700)/ + 1555, 1556, 1557, 1558, 1559, 1560, 1504, 1488, 1563, 1564, 1 1565, 1566, 1567, 1568, 1569, 1570, 1571, 1572, 1573, 1574, 2 1575, 1576, 1577, 1578, 1579, 1580, 1581, 1582, 1523, 22, 3 1584, 1585, 1562, 1548, 1587, 1588, 1529, 1590, 1591, 1592, 4 1593, 1594, 1477, 1589, 23, 1597, 1598, 1599, 1600, 1601, 5 1602, 1603, 1604, 1605, 1596, 1607, 1608, 1609, 1610, 1611, 6 1612, 1613, 1614, 1615, 1616, 1617, 1618, 1619, 1620, 1621, 7 1622, 1623, 1624, 1625, 1626, 1627, 1238, 1116, 1607, 1630, 8 1631, 1629, 1633, 1634, 1635, 1636, 1637, 1638, 1639, 1640, 9 1641, 1642, 1643, 1644, 1645, 1646, 1647, 1648, 1298, 1650/ data (jb1(i),i= 1701, 1800)/ + 1651, 1652, 1653, 1654, 1655, 1656, 1657, 1658, 1607, 1660, 1 1661, 1659, 1524, 1663, 1664, 1665, 1666, 1667, 1668, 1669, 2 1670, 1671, 1672, 1673, 1674, 1675, 1676, 1677, 1678, 1679, 3 1680, 1589, 1682, 1683, 1684, 1685, 1340, 1687, 1688, 1689, 4 1690, 1691, 1692, 1693, 1694, 1695, 1696, 1697, 1698, 1699, 5 1700, 1701, 1702, 1703, 1704, 1705, 1706, 1707, 1708, 1709, 6 1710, 1711, 1712, 1714, 1715, 1716, 1717, 1718, 1719, 1720, 7 1721, 1722, 1723, 1724, 1725, 1726, 1727, 1563, 1729, 1730, 8 1731, 1732, 1733, 1734, 1735, 1736, 1737, 1738, 1739, 1740, 9 1741, 1742, 1743, 1744, 1745, 1746, 1747, 1748, 1749, 1750/ data (jb1(i),i= 1801, 1900)/ + 1751, 1752, 1753, 1754, 1755, 1756, 1757, 1758, 1759, 1629, 1 1562, 1761, 1729, 1477, 1763, 1590, 1488, 1766, 1767, 1768, 2 1769, 1770, 1771, 1772, 1548, 1774, 1775, 1773, 1659, 1354, 3 1778, 1779, 1780, 1781, 1782, 1783, 1784, 1785, 1786, 1787, 4 1788, 1789, 1790, 1791, 1792, 1793, 1794, 1795, 1681, 1504, 5 1714, 1798, 1799, 1800, 1765, 1713, 1802, 1803, 1804, 1805, 6 1806, 1807, 1808, 1809, 1810, 1632, 1487, 1812, 1813, 1814, 7 1815, 1816, 1817, 1818, 1819, 1820, 1821, 1822, 1823, 1824, 8 1825, 1826, 1827, 1828, 1829, 1830, 1831, 1832, 1833, 1834, 9 1835, 1836, 1837, 1838, 1839, 1764, 1797, 1841, 1842, 1843/ data (jb1(i),i= 1901, 2000)/ + 1844, 1845, 1846, 1847, 1848, 1849, 1850, 1851, 1852, 1853, 1 1854, 1855, 1777, 1563, 1857, 1858, 1859, 1860, 1861, 1862, 2 1863, 1864, 1865, 1797, 1867, 1868, 1869, 1870, 1871, 1872, 3 1873, 1874, 1875, 1876, 1877, 1866, 1879, 1880, 1713, 1632, 4 1882, 1883, 1884, 1885, 1886, 1887, 1888, 1889, 1890, 1891, 5 1892, 1893, 1894, 1895, 1596, 1777, 1898, 1899, 1900, 1901, 6 1902, 1903, 1764, 1905, 1906, 1907, 1908, 24, 1910, 1911, 7 1912, 1913, 1914, 1915, 1916, 1917, 1918, 1919, 1920, 1921, 8 1897, 1923, 1924, 1925, 1926, 1927, 1928, 1929, 1930, 1931, 9 1932, 1933, 1934, 1681, 1936, 1937, 1938, 1939, 1940, 1909/ data (jb1(i),i= 2001, 2100)/ + 1487, 1942, 1943, 1944, 1945, 1946, 1947, 1948, 1949, 1950, 1 1951, 1952, 1953, 1649, 1955, 1956, 1957, 1958, 1936, 1954, 2 1909, 1960, 1961, 1962, 1963, 1964, 1965, 1966, 1967, 1968, 3 1969, 1970, 1971, 1972, 1973, 1974, 1975, 1976, 1977, 1765, 4 1979, 1978, 1773, 1981, 1982, 1983, 1984, 1985, 1986, 1729, 5 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 6 1998, 1999, 2000, 1878, 2002, 2003, 2004, 2005, 2006, 2007, 7 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 8 1923, 1686, 2019, 2020, 2021, 2022, 2023, 2024, 2025, 2026, 9 2027, 2028, 2029, 1897, 2031, 2032, 2033, 2034, 2035, 2036/ data (jb1(i),i= 2101, 2200)/ + 2037, 2038, 2039, 2040, 2041, 2042, 2043, 1987, 2045, 2046, 1 2030, 2048, 2049, 2050, 2051, 2052, 2053, 2054, 2055, 2056, 2 2057, 2058, 2059, 2060, 2061, 2062, 2063, 2064, 2065, 2066, 3 2067, 2068, 1403, 1794, 2070, 2071, 2072, 2073, 2074, 2075, 4 2076, 2077, 2078, 2079, 2080, 2081, 2082, 2083, 2084, 2085, 5 2086, 2087, 2088, 2048, 1866, 1896, 2091, 2092, 2093, 2094, 6 2095, 2096, 2097, 2098, 2099, 2100, 2101, 1686, 2103, 2104, 7 2044, 2106, 2107, 2108, 2105, 1896, 2110, 2111, 2112, 2113, 8 2114, 2115, 2116, 2117, 2118, 2119, 2120, 2121, 2122, 2123, 9 2124, 2125, 2126, 2127, 2128, 2129, 2130, 2131, 2132, 2133/ data (jb1(i),i= 2201, 2300)/ + 2134, 2135, 2136, 2137, 2048, 2139, 2141, 2142, 2143, 2144, 1 2145, 2146, 2147, 2148, 2149, 2150, 2151, 2152, 2153, 2154, 2 2155, 2156, 2157, 2158, 2159, 2160, 2161, 2162, 2163, 2164, 3 2165, 2166, 2167, 2168, 2169, 2170, 2171, 2172, 2173, 2174, 4 2175, 2176, 2177, 2178, 2179, 2180, 2181, 2182, 2183, 2184, 5 2185, 2186, 2187, 1649, 2189, 2190, 2191, 2192, 2193, 2194, 6 2195, 2196, 2197, 2198, 2199, 2200, 2201, 2202, 2203, 2204, 7 2205, 2206, 2207, 2208, 2209, 2210, 2211, 2212, 2213, 2214, 8 2215, 1978, 2217, 2218, 2219, 2220, 2221, 2223, 2224, 2225, 9 2226, 2216, 2001, 2223, 2229, 2230, 2231, 2232, 1878, 1904/ data (jb1(i),i= 2301, 2400)/ + 2234, 2235, 2236, 2237, 2238, 2239, 2240, 2241, 2242, 2243, 1 2244, 2245, 2246, 2247, 2229, 2102, 2249, 2250, 2251, 2252, 2 2253, 2254, 2255, 2256, 2257, 1904, 2229, 2141, 2140, 2260, 3 2261, 2262, 2263, 2264, 2265, 2266, 2267, 1923, 2268, 2269, 4 2270, 2271, 2272, 2273, 2274, 2275, 2276, 2277, 2278, 2279, 5 2280, 2282, 2090, 1714, 2284, 2285, 2286, 2287, 2288, 2289, 6 2282, 2216, 2291, 2140, 2293, 2294, 2295, 2296, 2297, 2298, 7 2299, 2300, 2301, 2281, 2090, 2138, 2304, 2305, 2306, 2307, 8 2308, 2309, 2310, 2311, 2312, 2313, 2314, 2315, 2001, 1987, 9 2317, 2318, 2319, 2320, 2321, 2322, 2323, 2324, 2325, 2326/ data (jb1(i),i= 2401, 2500)/ + 2327, 2328, 2329, 2330, 2331, 2304, 2222, 2333, 2334, 2335, 1 2336, 2337, 2338, 2339, 2340, 2341, 2342, 1936, 2344, 2345, 2 2346, 2347, 2348, 2349, 2343, 2222, 2351, 2352, 1955, 2354, 3 2355, 2356, 2357, 2358, 2359, 2360, 2044, 2362, 2363, 2364, 4 2365, 2366, 2367, 2368, 2102, 2370, 2371, 2372, 2373, 2374, 5 2375, 2376, 2377, 2378, 2379, 2380, 2361, 2223, 2292, 2384, 6 2382, 2386, 2387, 2388, 2389, 2390, 2391, 2392, 2393, 2394, 7 2395, 2396, 2397, 2398, 2399, 2400, 2030, 2402, 2403, 2404, 8 2405, 2406, 2407, 2408, 2409, 2410, 2411, 2412, 2413, 2414, 9 2415, 2416, 2417, 2418, 2419, 2420, 2421, 2422, 2423, 2424/ data (jb1(i),i= 2501, 2600)/ + 2425, 2426, 2427, 2428, 2429, 2430, 2431, 2432, 2433, 2434, 1 2435, 2436, 2437, 2105, 2439, 2292, 2402, 2441, 2442, 2443, 2 2444, 2445, 2446, 2447, 2448, 2449, 2450, 2369, 2282, 2353, 3 2453, 2452, 2343, 2455, 2361, 2457, 2456, 2415, 2459, 2460, 4 2461, 2462, 2463, 2386, 2386, 2465, 2466, 2467, 2468, 2469, 5 2470, 2471, 2472, 2304, 2474, 2475, 2476, 2477, 2478, 2479, 6 2480, 2481, 2482, 2483, 2484, 2485, 2486, 2487, 2488, 2489, 7 2490, 2491, 2188, 2493, 2439, 2495, 2496, 2497, 2498, 2383, 8 2492, 2500, 2281, 2502, 2503, 2504, 2505, 2506, 2507, 2508, 9 2509, 2510, 2511, 2512, 2494, 27, 2514, 2515, 2516, 2517/ data (jb1(i),i= 2601, 2700)/ + 2518, 2519, 2520, 2494, 2501, 2522, 2523, 2524, 2525, 2473, 1 28, 2527, 2528, 2402, 2530, 2531, 2532, 2533, 2534, 2535, 2 2536, 2529, 2538, 2539, 2540, 2541, 2537, 2452, 2543, 2544, 3 2546, 2415, 2548, 2549, 2550, 2551, 2552, 2553, 2554, 2555, 4 2556, 2557, 2558, 2559, 2560, 2561, 2562, 2381, 2383, 2564, 5 2565, 2566, 2567, 2568, 2569, 2570, 2571, 2572, 2573, 2574, 6 2575, 2576, 2577, 2578, 2579, 2580, 2581, 2492, 2582, 2545, 7 2381, 2585, 2586, 2587, 2588, 2589, 2590, 2591, 2592, 2593, 8 2594, 2595, 2596, 2597, 2598, 2599, 2600, 2601, 2602, 2603, 9 2604, 2605, 2606, 2607, 2608, 2609, 2610, 2611, 2612, 2613/ data (jb1(i),i= 2701, 2800)/ + 2614, 2615, 2616, 2617, 2618, 2619, 2593, 2621, 2622, 2623, 1 2624, 2625, 2626, 2627, 2628, 2629, 2630, 2631, 2632, 2633, 2 2634, 2635, 2636, 2637, 2638, 2639, 2640, 2641, 2141, 2643, 3 2644, 2645, 2646, 2647, 2648, 2649, 2650, 2651, 2652, 2653, 4 2654, 2138, 2656, 2657, 2658, 2659, 2660, 2661, 2662, 2663, 5 2664, 2665, 2666, 2667, 2668, 2669, 2670, 2671, 2672, 2673, 6 2674, 2675, 2676, 2548, 2655, 2545, 2679, 2680, 2681, 2682, 7 2683, 2684, 2685, 2686, 2687, 2677, 2689, 2620, 29, 2692, 8 2693, 2584, 2369, 2695, 2696, 2642, 2698, 2699, 2700, 2701, 9 2702, 2703, 2704, 2705, 2706, 2707, 2708, 2709, 2710, 2711/ data (jb1(i),i= 2801, 2900)/ + 2712, 2713, 2714, 2715, 2716, 2717, 2718, 2719, 2720, 2721, 1 2548, 2691, 2188, 2724, 2725, 2726, 2727, 2728, 2729, 2730, 2 2731, 2732, 2733, 2734, 2735, 2736, 2655, 2738, 2739, 2740, 3 2737, 2697, 2742, 2546, 2529, 2723, 2456, 2745, 2746, 2747, 4 2353, 2749, 2750, 2748, 2439, 30, 2753, 2754, 2755, 2756, 5 2757, 2758, 2759, 2760, 2761, 2691, 2694, 2763, 2764, 2697, 6 2766, 2767, 2768, 2688, 2770, 2771, 2677, 2620, 2773, 2774, 7 2775, 2776, 2777, 2778, 2779, 2780, 2781, 2782, 2783, 2784, 8 2785, 2786, 2787, 2788, 2789, 2790, 2791, 2792, 2793, 2582, 9 2537, 2795, 2769, 2751, 2797, 2798, 2799, 2800, 32, 2802/ data (jb1(i),i= 2901, 3000)/ + 2803, 2804, 2805, 2806, 2807, 2808, 2809, 2810, 2811, 2812, 1 2765, 2382, 2814, 2815, 2816, 2817, 2801, 2819, 2820, 2821, 2 2765, 2823, 2824, 2825, 2826, 2827, 2828, 2829, 2830, 2748, 3 2818, 2832, 2823, 2723, 2834, 2835, 2836, 2837, 2752, 2838, 4 2839, 2840, 2841, 2842, 2843, 2844, 2845, 2846, 2847, 2794, 5 2849, 2848, 34, 2851, 2852, 2853, 2854, 2855, 2856, 2857, 6 2858, 2859, 2860, 2861, 2862, 2863, 2864, 2865, 2688, 2744, 7 2867, 2868, 2769, 2870, 2869, 2737, 2872, 2873, 2874, 2875, 8 2876, 2877, 2878, 2818, 2879, 2880, 2752, 2882, 2883, 2884, 9 2885, 2886, 2887, 2888, 2889, 2890, 2891, 2892, 2893, 2894/ data (jb1(i),i= 3001, 3080)/ + 2895, 2896, 2897, 2898, 2899, 2900, 2901, 2902, 2903, 2904, 1 2905, 2906, 2907, 2908, 2909, 2910, 2911, 2912, 2913, 2914, 2 2915, 2881, 2546, 2917, 2918, 2919, 2871, 2920, 2801, 2921, 3 2848, 2923, 2922, 2794, 2925, 2926, 2927, 2501, 2928, 2929, 4 2930, 2473, 2924, 2881, 2931, 2932, 44, 2933, 2934, 2935, 5 2936, 2937, 2938, 2939, 2823, 45, 2941, 2942, 2943, 2944, 6 2642, 46, 2946, 2947, 2948, 2949, 2950, 2834, 2951, 2867, 7 1, 2, 3, 4, 5, 6, 7, 8, 9, 1/ data (jb2(i),i= 1, 100)/ + 34, 50, 51, 52, 52, 53, 54, 55, 56, 57, 1 58, 59, 60, 61, 62, 63, 63, 64, 65, 66, 2 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 3 77, 78, 79, 80, 80, 7, 81, 82, 83, 84, 4 85, 85, 86, 87, 88, 89, 90, 91, 92, 93, 5 93, 94, 95, 96, 97, 98, 99, 100, 100, 101, 6 102, 103, 104, 105, 106, 106, 107, 108, 109, 110, 7 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 8 121, 122, 122, 123, 124, 125, 126, 127, 128, 129, 9 130, 131, 132, 133, 134, 135, 135, 136, 137, 138/ data (jb2(i),i= 101, 200)/ + 139, 140, 141, 142, 143, 144, 144, 145, 146, 147, 1 148, 149, 150, 150, 151, 152, 153, 154, 155, 156, 2 157, 158, 158, 159, 160, 161, 162, 163, 164, 165, 3 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 4 176, 177, 178, 178, 179, 180, 181, 182, 183, 184, 5 185, 186, 187, 188, 189, 190, 190, 16, 191, 192, 6 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 7 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 8 213, 214, 215, 216, 217, 217, 218, 219, 220, 221, 9 222, 223, 224, 225, 226, 227, 228, 228, 229, 230/ data (jb2(i),i= 201, 300)/ + 231, 232, 233, 234, 235, 236, 237, 238, 239, 239, 1 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 2 250, 251, 252, 253, 254, 255, 256, 257, 258, 259, 3 260, 261, 262, 262, 263, 264, 265, 266, 267, 268, 4 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 5 279, 280, 281, 282, 283, 284, 285, 286, 287, 288, 6 288, 289, 290, 291, 292, 293, 294, 295, 296, 297, 7 298, 298, 299, 300, 301, 302, 303, 304, 305, 306, 8 307, 308, 309, 310, 311, 312, 312, 313, 314, 315, 9 315, 316, 317, 318, 319, 320, 321, 322, 323, 324/ data (jb2(i),i= 301, 400)/ + 325, 326, 327, 328, 329, 330, 331, 332, 333, 334, 1 335, 336, 337, 338, 339, 340, 341, 342, 343, 344, 2 345, 346, 347, 348, 349, 350, 351, 352, 353, 354, 3 355, 356, 357, 358, 359, 360, 360, 361, 362, 363, 4 364, 364, 365, 366, 367, 368, 369, 370, 371, 372, 5 373, 374, 375, 376, 377, 378, 379, 379, 380, 381, 6 382, 383, 384, 385, 386, 387, 388, 389, 390, 391, 7 391, 392, 393, 394, 395, 396, 397, 398, 399, 400, 8 401, 402, 402, 403, 404, 405, 406, 407, 408, 409, 9 410, 410, 411, 412, 413, 414, 415, 416, 417, 418/ data (jb2(i),i= 401, 500)/ + 419, 420, 421, 422, 423, 424, 425, 426, 427, 427, 1 428, 429, 429, 430, 431, 432, 433, 434, 435, 436, 2 437, 437, 40, 41, 41, 42, 44, 438, 439, 440, 3 441, 442, 442, 43, 443, 444, 445, 446, 447, 448, 4 448, 45, 34, 449, 449, 450, 451, 452, 453, 454, 5 455, 456, 457, 458, 459, 460, 461, 461, 48, 49, 6 462, 463, 464, 465, 465, 466, 467, 468, 469, 470, 7 471, 472, 473, 474, 475, 476, 477, 478, 479, 480, 8 481, 482, 483, 484, 485, 486, 487, 487, 488, 489, 9 490, 491, 491, 492, 493, 494, 495, 496, 497, 498/ data (jb2(i),i= 501, 600)/ + 499, 499, 500, 501, 502, 503, 504, 505, 506, 507, 1 508, 509, 510, 511, 512, 513, 514, 515, 516, 516, 2 517, 518, 519, 520, 521, 522, 523, 524, 525, 526, 3 527, 528, 529, 530, 531, 532, 533, 534, 535, 536, 4 537, 538, 539, 540, 541, 542, 543, 8, 544, 545, 5 546, 547, 548, 549, 550, 551, 552, 553, 554, 555, 6 556, 557, 558, 559, 560, 561, 562, 563, 564, 565, 7 566, 567, 568, 569, 570, 571, 572, 572, 573, 574, 8 575, 576, 577, 578, 579, 580, 581, 582, 583, 584, 9 585, 586, 587, 588, 589, 590, 591, 592, 593, 594/ data (jb2(i),i= 601, 700)/ + 595, 596, 597, 597, 599, 600, 601, 601, 603, 604, 1 605, 605, 606, 607, 608, 609, 610, 611, 612, 612, 2 613, 614, 614, 615, 616, 617, 618, 619, 620, 621, 3 622, 623, 624, 624, 625, 626, 627, 628, 629, 630, 4 631, 632, 633, 634, 635, 636, 637, 638, 640, 640, 5 641, 642, 643, 644, 645, 646, 647, 648, 648, 650, 6 651, 652, 12, 653, 654, 655, 656, 656, 657, 658, 7 659, 660, 661, 662, 663, 664, 665, 666, 667, 668, 8 669, 670, 671, 672, 673, 675, 676, 677, 678, 679, 9 679, 680, 681, 682, 683, 684, 685, 686, 687, 688/ data (jb2(i),i= 701, 800)/ + 689, 690, 691, 692, 693, 693, 694, 695, 696, 697, 1 698, 699, 700, 701, 702, 703, 704, 705, 706, 707, 2 708, 709, 710, 711, 712, 713, 714, 715, 716, 717, 3 718, 719, 720, 722, 723, 723, 724, 725, 726, 727, 4 728, 729, 730, 731, 731, 732, 733, 734, 735, 736, 5 736, 738, 739, 740, 741, 742, 743, 744, 745, 745, 6 746, 747, 748, 749, 750, 751, 752, 753, 754, 755, 7 756, 757, 758, 759, 760, 761, 762, 763, 764, 765, 8 766, 767, 768, 769, 770, 771, 772, 773, 774, 775, 9 776, 777, 778, 779, 780, 781, 782, 783, 784, 785/ data (jb2(i),i= 801, 900)/ + 786, 787, 788, 789, 13, 790, 791, 792, 793, 794, 1 795, 796, 797, 798, 799, 800, 801, 802, 803, 804, 2 805, 806, 807, 808, 809, 809, 810, 811, 812, 813, 3 814, 815, 816, 817, 818, 819, 820, 821, 822, 823, 4 824, 14, 826, 827, 828, 829, 830, 831, 832, 833, 5 834, 835, 836, 837, 838, 839, 840, 841, 841, 843, 6 844, 845, 846, 847, 848, 848, 849, 850, 851, 852, 7 853, 854, 854, 855, 856, 857, 858, 859, 860, 861, 8 862, 863, 864, 865, 866, 867, 868, 869, 870, 871, 9 872, 873, 874, 875, 876, 877, 878, 879, 880, 881/ data (jb2(i),i= 901, 1000)/ + 882, 883, 884, 885, 886, 887, 887, 888, 889, 890, 1 891, 892, 893, 894, 895, 896, 897, 898, 899, 900, 2 901, 902, 903, 904, 905, 906, 907, 908, 909, 910, 3 911, 912, 913, 914, 915, 916, 917, 918, 919, 920, 4 920, 921, 922, 923, 924, 925, 926, 927, 928, 929, 5 930, 932, 933, 934, 935, 936, 937, 938, 939, 940, 6 941, 942, 943, 944, 945, 946, 947, 948, 949, 950, 7 951, 952, 953, 954, 955, 956, 957, 957, 959, 960, 8 961, 962, 963, 964, 965, 966, 967, 968, 969, 970, 9 971, 971, 972, 973, 974, 975, 976, 977, 978, 979/ data (jb2(i),i= 1001, 1100)/ + 980, 981, 982, 983, 984, 985, 986, 987, 988, 989, 1 990, 991, 992, 993, 994, 995, 996, 997, 998, 999, 2 1000, 1001, 1002, 1003, 1004, 1005, 1006, 1007, 1007, 1008, 3 1009, 1010, 1011, 1012, 1013, 1014, 1015, 1016, 1017, 1018, 4 1019, 1020, 1021, 1022, 1023, 1024, 1025, 1026, 1027, 1028, 5 1029, 1030, 1031, 1031, 1033, 1034, 1035, 1036, 1037, 1038, 6 1039, 1040, 1041, 1042, 1043, 1043, 1026, 1045, 1046, 1046, 7 1047, 1048, 1049, 1051, 1052, 1052, 1053, 1054, 1055, 1056, 8 1057, 1058, 1059, 1060, 1060, 1061, 1062, 1063, 1064, 1065, 9 1066, 1067, 1068, 1068, 1069, 1070, 1071, 1072, 1073, 1073/ data (jb2(i),i= 1101, 1200)/ + 1074, 1075, 1076, 1077, 1078, 1079, 1080, 1081, 1082, 1083, 1 1084, 1084, 1086, 1087, 1087, 1088, 15, 1090, 1091, 1092, 2 1092, 1093, 1094, 1095, 1096, 1097, 1098, 1099, 1100, 1101, 3 1102, 1103, 1104, 1105, 1106, 1107, 1108, 1109, 1110, 1111, 4 1112, 1113, 1114, 1115, 1116, 1117, 1118, 1119, 1120, 1121, 5 1122, 1123, 1124, 1125, 1126, 1127, 1128, 1129, 1130, 1131, 6 1133, 1134, 1135, 1136, 1137, 1138, 1139, 1140, 1140, 1141, 7 1143, 1144, 1145, 1146, 1147, 1147, 1148, 1149, 1150, 1151, 8 1152, 1153, 1154, 1155, 1156, 1157, 1158, 1159, 1160, 1161, 9 1161, 1162, 1163, 1164, 1164, 1165, 1166, 1167, 1168, 1169/ data (jb2(i),i= 1201, 1300)/ + 1170, 1170, 1171, 1172, 1173, 1174, 1175, 1176, 1177, 1178, 1 1179, 1180, 1182, 1183, 1184, 1185, 1185, 1186, 1187, 1188, 2 1189, 1190, 1191, 1192, 1193, 1194, 1195, 1196, 1197, 1198, 3 1199, 1200, 1201, 1202, 1203, 1204, 1205, 1206, 1207, 1208, 4 1209, 1210, 1211, 1212, 1213, 1214, 1215, 1216, 1217, 1218, 5 1219, 1220, 1221, 1222, 1223, 1224, 1225, 1226, 1226, 1227, 6 1228, 1229, 1230, 1231, 1232, 1233, 1234, 1235, 1236, 1237, 7 1238, 1239, 1240, 1241, 1242, 1243, 1244, 1245, 1246, 1247, 8 1247, 1248, 1249, 1250, 1251, 1252, 1253, 1254, 1255, 1256, 9 1257, 1258, 1259, 1260, 1261, 1262, 1263, 1264, 1265, 1266/ data (jb2(i),i= 1301, 1400)/ + 1267, 1268, 1268, 1269, 1270, 1271, 1272, 1273, 1274, 1275, 1 1276, 1277, 1278, 1279, 1280, 1281, 1282, 1283, 1284, 1285, 2 1285, 1286, 1287, 1288, 1289, 1290, 1291, 1291, 1292, 1293, 3 1294, 1295, 1296, 1297, 1299, 1300, 1301, 1302, 1303, 1304, 4 1305, 1306, 1307, 1308, 1309, 1310, 1311, 1312, 1313, 1314, 5 1314, 1315, 1316, 1317, 1318, 1319, 1320, 1321, 1322, 1323, 6 1324, 1325, 1326, 1327, 1327, 1328, 1329, 1329, 1330, 1331, 7 1332, 1333, 1334, 1335, 1336, 1337, 1338, 1339, 1341, 1342, 8 1343, 1344, 1345, 1346, 1347, 1348, 1349, 1349, 1350, 1351, 9 1352, 1353, 1354, 1355, 1356, 1357, 1358, 1359, 1360, 1361/ data (jb2(i),i= 1401, 1500)/ + 1362, 1363, 1364, 1365, 1366, 1367, 1367, 1368, 1369, 1370, 1 1371, 1372, 1373, 1374, 1375, 1376, 1377, 1378, 1379, 1380, 2 1381, 1382, 1383, 1384, 1385, 1386, 1387, 1388, 1389, 1390, 3 1391, 1392, 1393, 1394, 1395, 1396, 1397, 1398, 1399, 1400, 4 1400, 1401, 1402, 1403, 1328, 1404, 1405, 1406, 1407, 1408, 5 1409, 1410, 1411, 1412, 1413, 1414, 1415, 1416, 1417, 1418, 6 19, 1419, 1420, 1421, 1422, 1423, 1424, 1425, 1426, 1427, 7 1428, 1429, 1430, 1431, 1432, 1433, 1434, 1435, 1436, 1437, 8 1438, 1439, 1440, 1440, 1441, 1442, 1443, 1444, 1445, 1446, 9 1447, 1448, 1449, 1450, 1451, 1452, 1453, 1454, 1455, 1456/ data (jb2(i),i= 1501, 1600)/ + 1457, 1458, 1459, 1460, 1461, 1462, 1463, 1464, 1465, 1466, 1 1467, 1468, 1469, 1470, 1471, 1472, 1473, 1474, 1475, 1476, 2 1477, 1478, 1479, 1480, 1481, 1482, 1483, 1484, 1485, 1486, 3 1487, 1489, 1490, 1491, 1492, 1493, 1494, 1495, 1496, 1497, 4 1498, 1499, 1500, 1501, 1502, 1503, 20, 1505, 1506, 1506, 5 1507, 1508, 1509, 1510, 1511, 1512, 1513, 1514, 1515, 1516, 6 1517, 1518, 1519, 1520, 1521, 1522, 1523, 1525, 1526, 1526, 7 1527, 1528, 1529, 1530, 1531, 1532, 1533, 1534, 1535, 1535, 8 1536, 1537, 1538, 1539, 1540, 1541, 1542, 1543, 1544, 1545, 9 1546, 1547, 1548, 1549, 1550, 1551, 1552, 1553, 1554, 1555/ data (jb2(i),i= 1601, 1700)/ + 1556, 1557, 1558, 1559, 1560, 1561, 1561, 1562, 1564, 1565, 1 1566, 1567, 1568, 1569, 1570, 1571, 1572, 1573, 1574, 1575, 2 1576, 1577, 1578, 1579, 1580, 1581, 1582, 1583, 1583, 1584, 3 1585, 1586, 1586, 1587, 1588, 1589, 1590, 1591, 1592, 1593, 4 1594, 1595, 1595, 1596, 1597, 1598, 1599, 1600, 1601, 1602, 5 1603, 1604, 1605, 1606, 1606, 1608, 1609, 1610, 1611, 1612, 6 1613, 1614, 1615, 1616, 1617, 1618, 1619, 1620, 1621, 1622, 7 1623, 1624, 1625, 1626, 1627, 1628, 1628, 1629, 1630, 1631, 8 1632, 1633, 1634, 1635, 1636, 1637, 1638, 1639, 1640, 1641, 9 1642, 1643, 1644, 1645, 1646, 1647, 1648, 1649, 1650, 1651/ data (jb2(i),i= 1701, 1800)/ + 1652, 1653, 1654, 1655, 1656, 1657, 1658, 1659, 1660, 1661, 1 1662, 1662, 1663, 1664, 1665, 1666, 1667, 1668, 1669, 1670, 2 1671, 1672, 1673, 1674, 1675, 1676, 1677, 1678, 1679, 1680, 3 1681, 1682, 1683, 1684, 1685, 1686, 1687, 1688, 1689, 1690, 4 1691, 1692, 1693, 1694, 1695, 1696, 1697, 1698, 1699, 1700, 5 1701, 1702, 1703, 1704, 1705, 1706, 1707, 1708, 1709, 1710, 6 1711, 1712, 1713, 1715, 1716, 1717, 1718, 1719, 1720, 1721, 7 1722, 1723, 1724, 1725, 1726, 1727, 1728, 1728, 1730, 1731, 8 1732, 1733, 1734, 1735, 1736, 1737, 1738, 1739, 1740, 1741, 9 1742, 1743, 1744, 1745, 1746, 1747, 1748, 1749, 1750, 1751/ data (jb2(i),i= 1801, 1900)/ + 1752, 1753, 1754, 1755, 1756, 1757, 1758, 1759, 1760, 1760, 1 1761, 1762, 1762, 1763, 1764, 1765, 1766, 1767, 1768, 1769, 2 1770, 1771, 1772, 1773, 1774, 1775, 1776, 1776, 1777, 1778, 3 1779, 1780, 1781, 1782, 1783, 1784, 1785, 1786, 1787, 1788, 4 1789, 1790, 1791, 1792, 1793, 1794, 1795, 1796, 1796, 1797, 5 1798, 1799, 1800, 1801, 1801, 1802, 1803, 1804, 1805, 1806, 6 1807, 1808, 1809, 1810, 1811, 1811, 1812, 1813, 1814, 1815, 7 1816, 1817, 1818, 1819, 1820, 1821, 1822, 1823, 1824, 1825, 8 1826, 1827, 1828, 1829, 1830, 1831, 1832, 1833, 1834, 1835, 9 1836, 1837, 1838, 1839, 1840, 1840, 1841, 1842, 1843, 1844/ data (jb2(i),i= 1901, 2000)/ + 1845, 1846, 1847, 1848, 1849, 1850, 1851, 1852, 1853, 1854, 1 1855, 1856, 1856, 1857, 1858, 1859, 1860, 1861, 1862, 1863, 2 1864, 1865, 1866, 1867, 1868, 1869, 1870, 1871, 1872, 1873, 3 1874, 1875, 1876, 1877, 1878, 1879, 1880, 1881, 1881, 1882, 4 1883, 1884, 1885, 1886, 1887, 1888, 1889, 1890, 1891, 1892, 5 1893, 1894, 1895, 1896, 1897, 1898, 1899, 1900, 1901, 1902, 6 1903, 1904, 1905, 1906, 1907, 1908, 1909, 1910, 1911, 1912, 7 1913, 1914, 1915, 1916, 1917, 1918, 1919, 1920, 1921, 1922, 8 1922, 1924, 1925, 1926, 1927, 1928, 1929, 1930, 1931, 1932, 9 1933, 1934, 1935, 1935, 1937, 1938, 1939, 1940, 1941, 1941/ data (jb2(i),i= 2001, 2100)/ + 1942, 1943, 1944, 1945, 1946, 1947, 1948, 1949, 1950, 1951, 1 1952, 1953, 1954, 1954, 1956, 1957, 1958, 1959, 1959, 1955, 2 1960, 1961, 1962, 1963, 1964, 1965, 1966, 1967, 1968, 1969, 3 1970, 1971, 1972, 1973, 1974, 1975, 1976, 1977, 1978, 1979, 4 1980, 1980, 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 5 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 6 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 7 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 8 2018, 2019, 2020, 2021, 2022, 2023, 2024, 2025, 2026, 2027, 9 2028, 2029, 2030, 2031, 2032, 2033, 2034, 2035, 2036, 2037/ data (jb2(i),i= 2101, 2200)/ + 2038, 2039, 2040, 2041, 2042, 2043, 2044, 2045, 2046, 2047, 1 2047, 2049, 2050, 2051, 2052, 2053, 2054, 2055, 2056, 2057, 2 2058, 2059, 2060, 2061, 2062, 2063, 2064, 2065, 2066, 2067, 3 2068, 2069, 2069, 2070, 2071, 2072, 2073, 2074, 2075, 2076, 4 2077, 2078, 2079, 2080, 2081, 2082, 2083, 2084, 2085, 2086, 5 2087, 2088, 2089, 2089, 2090, 2091, 2092, 2093, 2094, 2095, 6 2096, 2097, 2098, 2099, 2100, 2101, 2102, 2103, 2104, 2105, 7 2106, 2107, 2108, 2109, 2109, 2110, 2111, 2112, 2113, 2114, 8 2115, 2116, 2117, 2118, 2119, 2120, 2121, 2122, 2123, 2124, 9 2125, 2126, 2127, 2128, 2129, 2130, 2131, 2132, 2133, 2134/ data (jb2(i),i= 2201, 2300)/ + 2135, 2136, 2137, 2138, 2139, 2140, 2142, 2143, 2144, 2145, 1 2146, 2147, 2148, 2149, 2150, 2151, 2152, 2153, 2154, 2155, 2 2156, 2157, 2158, 2159, 2160, 2161, 2162, 2163, 2164, 2165, 3 2166, 2167, 2168, 2169, 2170, 2171, 2172, 2173, 2174, 2175, 4 2176, 2177, 2178, 2179, 2180, 2181, 2182, 2183, 2184, 2185, 5 2186, 2187, 2188, 2189, 2190, 2191, 2192, 2193, 2194, 2195, 6 2196, 2197, 2198, 2199, 2200, 2201, 2202, 2203, 2204, 2205, 7 2206, 2207, 2208, 2209, 2210, 2211, 2212, 2213, 2214, 2215, 8 2216, 2217, 2218, 2219, 2220, 2221, 2222, 2224, 2225, 2226, 9 2227, 2227, 2228, 2228, 2230, 2231, 2232, 2233, 2233, 2234/ data (jb2(i),i= 2301, 2400)/ + 2235, 2236, 2237, 2238, 2239, 2240, 2241, 2242, 2243, 2244, 1 2245, 2246, 2247, 2248, 2248, 2249, 2250, 2251, 2252, 2253, 2 2254, 2255, 2256, 2257, 2258, 2258, 2259, 2259, 2260, 2261, 3 2262, 2263, 2264, 2265, 2266, 2267, 25, 2268, 2269, 2270, 4 2271, 2272, 2273, 2274, 2275, 2276, 2277, 2278, 2279, 2280, 5 2281, 2283, 2283, 2284, 2285, 2286, 2287, 2288, 2289, 2290, 6 2290, 2291, 2292, 2293, 2294, 2295, 2296, 2297, 2298, 2299, 7 2300, 2301, 2302, 2302, 2303, 2303, 2305, 2306, 2307, 2308, 8 2309, 2310, 2311, 2312, 2313, 2314, 2315, 2316, 2316, 2317, 9 2318, 2319, 2320, 2321, 2322, 2323, 2324, 2325, 2326, 2327/ data (jb2(i),i= 2401, 2500)/ + 2328, 2329, 2330, 2331, 2332, 2332, 2333, 2334, 2335, 2336, 1 2337, 2338, 2339, 2340, 2341, 2342, 2343, 2344, 2345, 2346, 2 2347, 2348, 2349, 2350, 2350, 2351, 2352, 2353, 2354, 2355, 3 2356, 2357, 2358, 2359, 2360, 2361, 2362, 2363, 2364, 2365, 4 2366, 2367, 2368, 2369, 2370, 2371, 2372, 2373, 2374, 2375, 5 2376, 2377, 2378, 2379, 2380, 2381, 2382, 2383, 2384, 2385, 6 2385, 2387, 2388, 2389, 2390, 2391, 2392, 2393, 2394, 2395, 7 2396, 2397, 2398, 2399, 2400, 2401, 2401, 2403, 2404, 2405, 8 2406, 2407, 2408, 2409, 2410, 2411, 2412, 2413, 2414, 26, 9 2416, 2417, 2418, 2419, 2420, 2421, 2422, 2423, 2424, 2425/ data (jb2(i),i= 2501, 2600)/ + 2426, 2427, 2428, 2429, 2430, 2431, 2432, 2433, 2434, 2435, 1 2436, 2437, 2438, 2438, 2440, 2440, 2441, 2442, 2443, 2444, 2 2445, 2446, 2447, 2448, 2449, 2450, 2451, 2451, 2452, 2453, 3 2454, 2454, 2455, 2456, 2457, 2458, 2458, 2459, 2460, 2461, 4 2462, 2463, 2464, 2464, 2465, 2466, 2467, 2468, 2469, 2470, 5 2471, 2472, 2473, 2474, 2475, 2476, 2477, 2478, 2479, 2480, 6 2481, 2482, 2483, 2484, 2485, 2486, 2487, 2488, 2489, 2490, 7 2491, 2492, 2493, 2494, 2495, 2496, 2497, 2498, 2499, 2499, 8 2500, 2501, 2502, 2503, 2504, 2505, 2506, 2507, 2508, 2509, 9 2510, 2511, 2512, 2513, 2513, 2514, 2515, 2516, 2517, 2518/ data (jb2(i),i= 2601, 2700)/ + 2519, 2520, 2521, 2521, 2522, 2523, 2524, 2525, 2526, 2526, 1 2527, 2528, 2529, 2530, 2531, 2532, 2533, 2534, 2535, 2536, 2 2537, 2538, 2539, 2540, 2541, 2542, 2542, 2543, 2544, 2545, 3 2547, 2547, 2549, 2550, 2551, 2552, 2553, 2554, 2555, 2556, 4 2557, 2558, 2559, 2560, 2561, 2562, 2563, 2563, 2564, 2565, 5 2566, 2567, 2568, 2569, 2570, 2571, 2572, 2573, 2574, 2575, 6 2576, 2577, 2578, 2579, 2580, 2581, 2582, 2583, 2583, 2584, 7 2585, 2586, 2587, 2588, 2589, 2590, 2591, 2592, 2593, 2594, 8 2595, 2596, 2597, 2598, 2599, 2600, 2601, 2602, 2603, 2604, 9 2605, 2606, 2607, 2608, 2609, 2610, 2611, 2612, 2613, 2614/ data (jb2(i),i= 2701, 2800)/ + 2615, 2616, 2617, 2618, 2619, 2620, 2621, 2622, 2623, 2624, 1 2625, 2626, 2627, 2628, 2629, 2630, 2631, 2632, 2633, 2634, 2 2635, 2636, 2637, 2638, 2639, 2640, 2641, 2642, 2643, 2644, 3 2645, 2646, 2647, 2648, 2649, 2650, 2651, 2652, 2653, 2654, 4 2655, 2656, 2657, 2658, 2659, 2660, 2661, 2662, 2663, 2664, 5 2665, 2666, 2667, 2668, 2669, 2670, 2671, 2672, 2673, 2674, 6 2675, 2676, 2677, 2678, 2678, 2679, 2680, 2681, 2682, 2683, 7 2684, 2685, 2686, 2687, 2688, 2689, 2690, 2690, 2691, 2693, 8 2694, 2692, 2695, 2696, 2697, 2698, 2699, 2700, 2701, 2702, 9 2703, 2704, 2705, 2706, 2707, 2708, 2709, 2710, 2711, 2712/ data (jb2(i),i= 2801, 2900)/ + 2713, 2714, 2715, 2716, 2717, 2718, 2719, 2720, 2721, 2722, 1 2722, 2723, 2724, 2725, 2726, 2727, 2728, 2729, 2730, 2731, 2 2732, 2733, 2734, 2735, 2736, 2737, 2738, 2739, 2740, 2741, 3 2741, 2742, 2743, 2743, 2744, 2744, 2745, 2746, 2747, 2748, 4 2749, 2750, 2751, 2751, 2752, 2753, 2754, 2755, 2756, 2757, 5 2758, 2759, 2760, 2761, 2762, 2762, 2763, 2764, 2765, 2766, 6 2767, 2768, 2769, 2770, 2771, 2772, 2772, 2773, 2774, 2775, 7 2776, 2777, 2778, 2779, 2780, 2781, 2782, 2783, 2784, 2785, 8 2786, 2787, 2788, 2789, 2790, 2791, 2792, 2793, 31, 2794, 9 2795, 2796, 2796, 2797, 2798, 2799, 2800, 2801, 2802, 2803/ data (jb2(i),i= 2901, 3000)/ + 2804, 2805, 2806, 2807, 2808, 2809, 2810, 2811, 2812, 2813, 1 2813, 2814, 2815, 2816, 2817, 2818, 2819, 2820, 2821, 2822, 2 2822, 2824, 2825, 2826, 2827, 2828, 2829, 2830, 2831, 2831, 3 2832, 2833, 2833, 2834, 2835, 2836, 2837, 33, 2838, 2839, 4 2840, 2841, 2842, 2843, 2844, 2845, 2846, 2847, 2848, 2849, 5 2850, 2850, 2851, 2852, 2853, 2854, 2855, 2856, 2857, 2858, 6 2859, 2860, 2861, 2862, 2863, 2864, 2865, 2866, 2866, 2867, 7 2868, 2869, 2870, 2871, 2871, 2872, 2873, 2874, 2875, 2876, 8 2877, 2878, 35, 2879, 2880, 2881, 2882, 2883, 2884, 2885, 9 2886, 2887, 2888, 2889, 2890, 2891, 2892, 2893, 2894, 2895/ data (jb2(i),i= 3001, 3080)/ + 2896, 2897, 2898, 2899, 2900, 2901, 2902, 2903, 2904, 2905, 1 2906, 2907, 2908, 2909, 2910, 2911, 2912, 2913, 2914, 2915, 2 2916, 2916, 2917, 2918, 2919, 36, 2920, 37, 2921, 2922, 3 2923, 38, 2924, 2925, 2926, 2927, 39, 2928, 2929, 2930, 4 40, 41, 42, 2931, 2932, 43, 2933, 2934, 2935, 2936, 5 2937, 2938, 2939, 2940, 2940, 2941, 2942, 2943, 2944, 2945, 6 2945, 2946, 2947, 2948, 2949, 2950, 47, 2951, 48, 49, 7 2, 3, 4, 5, 6, 7, 8, 9, 10, 10/ c state=istate irot=jrot npart=ipart do i=1,5 jv(i)=kv(i) jb(i)=kb(i) ib(i)=iib(i) enddo do i=1,jv(npart+1)-1 ix(i)=jx(i) iy(i)=jy(i) enddo do i=1,jb(npart+1)-1 ib1(i)=jb1(i) ib2(i)=jb2(i) enddo return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine la(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(*) :: jv,jb,ib,ix,iy,ib1,ib2 integer(kind=iknd), save, dimension(5) :: kv,kb,iib integer(kind=iknd), save, dimension(4430) :: jx,jy integer(kind=iknd), save, dimension(4500) :: jb1,jb2 integer(kind=iknd), save :: jrot,ipart character(len=80) :: state character(len=80), save :: istate cy data istate/'louisiana '/ data jrot,ipart/1,2/ data kv/ 1,3067,4428, 0, 0/ data kb/ 1,3134,4495, 0, 0/ data iib/1505,1361, 0, 0, 0/ data (jx(i),i= 1, 100)/ + 16176,16152,16128,16152,16128,16104,20352,16080,23712,23952, 1 24432,24528,27336,28200,33648,35376,36696,35184,35280,38328, 2 35232,35328,41136,43104,44496,44640,46632,47544,48168,48696, 3 49080,49536,49632,49728,49824,51864,52272,52752,16128,16488, 4 16848,16992,17112,17112,16992,16824,16584,16560,16440,16344, 5 16296,16464,16896,17352,17496,17640,17856,18144,18312,18456, 6 18624,18696,18864,18984,19584,19752,20064,20064,19920,19560, 7 19584,19680,19920,20184,20424,20616,20856,21024,21096,21000, 8 20568,20496,20760,21072,21312,21504,21552,21408,21504,21696, 9 21888,22128,22272,22464,22416,22104,22128,22200,22800,22992/ data (jx(i),i= 101, 200)/ + 22896,22944,23280,23688,23784,23784,23544,23448,23472,23640, 1 23568,23736,16056,24384,24384,24504,24528,24384,24240,23856, 2 23688,24216,24000,24168,24144,24432,25896,25920,26568,26592, 3 26712,26712,26880,26928,26856,27048,27096,27192,24768,24936, 4 25272,25224,24960,24960,25032,25128,25248,25416,25680,25824, 5 25944,26016,26256,26544,26616,26784,27120,27216,27336,27432, 6 27504,27576,27528,27192,27144,27192,27288,28080,28080,27960, 7 28032,28176,28224,28152,27624,27792,27936,28008,28248,28488, 8 28656,28704,29016,28992,29064,29232,29256,29544,29544,29616, 9 29832,29952,30096,30360,30408,30360,30504,30504,30720,30792/ data (jx(i),i= 201, 300)/ + 30840,30936,31080,31080,31200,31248,31464,31632,31920,31872, 1 32016,32064,32256,32352,32376,32496,32568,32712,32736,32856, 2 32856,32928,33192,33240,33456,33792,33840,28488,29232,29448, 3 29496,29352,29184,29376,29544,29736,29760,29640,29784,29952, 4 30120,30264,30288,30360,30552,31104,31488,31728,31848,31824, 5 31416,31248,31296,31440,31752,31704,31848,32016,32328,32592, 6 32760,32832,32808,32832,32928,33072,33360,33552,33792,34008, 7 34224,34728,34848,35064,33672,33744,33792,33888,33984,34296, 8 34464,34536,34608,34560,34680,34704,34824,34872,34944,35160, 9 35352,35400,35328,35448,35544,35712,35856,36048,36168,36168/ data (jx(i),i= 301, 400)/ + 36264,36408,36528,36600,38256,37968,37920,37824,37752,37584, 1 37200,37032,37008,36888,36792,36816,36504,36480,36360,36240, 2 36216,36072,36048,35904,35832,35784,35616,35400,35400,35304, 3 35160,35016,35112,35040,38376,38568,38712,38832,38880,39024, 4 39168,39192,39288,39408,39456,39696,39696,39792,39912,39936, 5 40224,40608,40728,41184,41352,41616,41664,41856,41880,42096, 6 42168,42264,42480,42600,42792,42888,42960,36840,36936,37008, 7 37104,37296,37368,37704,37752,37848,37944,38016,38040,38184, 8 38496,38688,38976,39024,39144,39312,39408,39312,39384,39384, 9 39504,39672,39840,39960,40008,40104,40200,40224,40272,40368/ data (jx(i),i= 401, 500)/ + 40416,40608,40656,40776,40896,40872,40944,40896,41040,44352, 1 44232,44280,44448,44424,44088,43944,43608,43248,41280,41568, 2 41616,41832,41856,42120,42264,42768,42768,43008,43368,43584, 3 43536,43656,43704,43848,43920,43968,44184,44160,44424,44472, 4 44376,45120,45240,45312,45288,45048,45168,45312,45552,45888, 5 45936,45912,45720,45432,44904,44640,44616,44280,44376,44328, 6 44376,44256,44208,44304,44232,44112,43968,44040,44232,44232, 7 44352,44304,44472,44640,44592,44664,44712,44712,44904,44952, 8 45000,44856,44976,44808,44808,45000,45048,44856,44856,45024, 9 44880,44856,44952,44976,45096,45096,45144,45240,45168,45240/ data (jx(i),i= 501, 600)/ + 45240,45336,45360,45456,45720,45672,45552,45552,45720,45864, 1 45936,45936,45984,46152,46176,46272,46344,46440,46584,46536, 2 46656,46608,46680,46560,46920,46584,46560,46680,46584,46488, 3 46368,46200,46200,46032,46200,46224,46344,46368,46296,46464, 4 46440,46320,46368,46248,46296,46392,46392,46488,46464,46512, 5 46704,46656,46608,46584,46728,46752,46800,46896,49488,49416, 6 49176,49008,48984,48912,48888,48816,48672,48672,48528,48648, 7 48648,48720,48720,48192,47976,47904,47904,47640,47376,47352, 8 47496,47496,47304,47280,47376,47232,47256,47400,47592,47616, 9 47712,47712,47472,47160,46968,46872,46728,46560,46656,46608/ data (jx(i),i= 601, 700)/ + 46680,46776,46776,46584,46656,46872,47112,47136,47064,46896, 1 47256,47280,47424,47448,44592,44808,45120,46128,46656,46800, 2 46992,47208,47400,47544,48024,47712,47520,47424,47256,47352, 3 47184,47160,47352,47736,48624,48984,46872,46944,47064,47088, 4 46968,47112,46920,46920,46800,46776,46584,46632,46824,46920, 5 46944,47016,47040,47136,47352,47352,47448,47376,47448,47448, 6 47592,47616,47664,47784,47688,47736,47832,47856,48648,48432, 7 48312,48168,48072,47904,47904,48168,48336,48432,48504,48696, 8 48744,48840,48912,49008,49152,49344,49296,49248,49080,49032, 9 49080,49224,49224,49128,49104,49200,49248,49344,49536,49512/ data (jx(i),i= 701, 800)/ + 49632,49632,49512,49272,49296,49464,49584,49632,49656,49704, 1 49752,47760,47832,47424,47400,47496,47424,47448,47400,47256, 2 47304,47232,47376,47424,47328,47376,47976,48096,48384,48456, 3 48528,48408,48456,48936,49104,49272,49560,49320,49320,49224, 4 49368,49464,49560,49608,49584,49704,49776,49800,49824,49728, 5 49632,49584,50976,50952,50904,50856,50784,50808,50688,50712, 6 50616,50640,50544,50472,50568,50520,50616,50568,50520,50496, 7 50400,50472,50352,50568,50400,50352,50568,50496,50400,50400, 8 50304,50496,50400,50352,50256,50136,50160,50280,50328,50280, 9 50184,49992,50016,49920,49872,49944,49776,49776,49872,49872/ data (jx(i),i= 801, 900)/ + 49800,49704,49776,49608,49728,49704,49560,49440,49512,49488, 1 49392,49416,49248,49224,49152,49128,49056,48744,48672,48576, 2 48600,48432,48264,48240,48336,48384,48432,48528,48480,48384, 3 48336,48264,48192,48168,48072,48192,48312,48456,48456,48384, 4 48384,48240,48168,48168,48216,48336,48336,48216,48096,48144, 5 48072,48000,47952,47832,47784,47856,47928,47856,47688,47616, 6 47520,47472,47496,47616,47568,47688,47856,47856,47760,47832, 7 47904,47904,48048,48192,52272,52344,52296,52104,52176,51936, 8 51912,52080,52032,51936,51936,51864,51912,51840,51792,51816, 9 51720,51768,51528,51624,51600,51528,51456,51360,51240,51384/ data (jx(i),i= 901, 1000)/ + 51384,51216,51168,51216,51144,51048,51000,50712,50856,50976, 1 50928,51024,51000,51072,51168,51120,51192,51336,51432,51432, 2 51288,51312,51120,50808,50688,50808,50784,50856,50760,52320, 3 52248,52104,52128,52008,51912,51696,51624,51576,51312,51240, 4 51360,51288,51216,51048,51000,51096,51192,51168,51264,51312, 5 51408,51408,51312,51360,51480,51456,51360,51000,50904,51024, 6 50640,50640,50808,50808,50616,50592,50520,50424,50400,50280, 7 50112,50112,50040,50160,50304,50232,50160,50112,49872,49992, 8 49968,49872,49992,49896,49896,49656,49752,49752,49464,49464, 9 49392,49344,49320,49224,49248,49200,48888,48840,48720,49920/ data (jx(i),i= 1001, 1100)/ + 50232,50328,50328,50496,50688,50712,50928,51048,51168,51216, 1 51480,51648,51672,51528,51456,51384,51192,51048,51192,51336, 2 51288,51312,51576,51408,51288,51360,51216,51264,51384,51408, 3 51480,51600,51720,51624,51624,51696,51768,51768,51936,51888, 4 51960,52032,51936,52008,51936,52080,52032,52080,51984,52104, 5 51840,51912,52152,52176,52128,52272,52272,52536,52488,52320, 6 52320,52416,52536,52560,52488,52224,49848,49776,49800,49704, 7 49680,49368,49416,49584,49512,49704,49584,49632,49680,49728, 8 49608,49728,49896,49944,49872,49896,50040,50064,50160,50208, 9 50088,50160,50232,50304,50352,50424,50448,50304,50256,50568/ data (jx(i),i= 1101, 1200)/ + 50616,50400,50688,50736,50904,50784,50856,51000,51048,51168, 1 51216,51288,51312,51264,51240,51192,51216,51288,51312,51408, 2 51072,51048,51120,51072,50832,50784,50880,50712,50664,50664, 3 50568,50520,50688,50424,50280,50352,50448,50496,50208,49920, 4 49824,49896,49800,49848,49704,49728,49680,49728,49968,50088, 5 50112,50256,50256,50544,50832,50856,51120,51384,51456,51432, 6 51552,51528,51624,51408,51432,51480,51792,51864,51792,52056, 7 52056,51936,51936,51864,51768,51816,51888,51768,51768,51888, 8 51912,51816,51960,52728,52776,52824,52776,52896,53088,53448, 9 53256,53328,53304,53160,53088,52920,53040,53160,53352,53352/ data (jx(i),i= 1201, 1300)/ + 53208,53232,53136,53208,52992,52896,52776,52944,52920,52752, 1 52584,52512,52536,52752,52848,53088,53112,52968,52512,52512, 2 52872,52800,52608,52416,52392,52560,52512,52248,52104,52008, 3 51768,51768,51960,51984,52152,52416,52368,52296,52056,52152, 4 52392,52416,52296,52392,52320,52080,52056,51984,51936,52104, 5 51984,51840,51744,51672,51408,51624,51504,51408,51360,51432, 6 51480,51576,51696,51576,51720,51696,51528,51480,51360,51192, 7 51168,51000,50952,50976,51072,51096,51384,51456,51624,51672, 8 51408,51336,51240,51120,51048,50976,51000,51312,51288,51408, 9 51528,51648,52464,52368,52488,52440,52872,53064,53064,53160/ data (jx(i),i= 1301, 1400)/ + 53160,53280,53328,53256,53088,53112,53040,52920,52824,52656, 1 52848,52944,52896,52944,52992,53088,53016,53040,53280,53208, 2 53376,52056,51912,51864,51648,51552,51384,51480,51528,51528, 3 51576,51672,51600,51720,51792,51744,51912,51720,52200,52128, 4 51888,51768,51888,52152,52032,52056,52152,52200,52320,52320, 5 52416,52392,52608,52608,52464,52464,52632,52728,52800,52872, 6 52920,52944,52992,53016,53088,53064,53280,53304,53376,53448, 7 53472,53520,53400,53328,53208,53160,53232,53328,53304,52992, 8 52920,53328,53352,53184,53064,53136,53208,53232,53424,53160, 9 53040,52992,52728,52608,52584,52392,52512,52680,53016,52992/ data (jx(i),i= 1401, 1500)/ + 52632,52680,52608,52728,52824,52944,52848,53016,53016,53208, 1 53520,53568,53496,53616,53616,53808,54912,54912,54576,54144, 2 54072,54120,54072,53736,53568,53544,53448,53304,53208,53016, 3 53088,53040,53184,53280,53376,53688,53928,53976,54000,54144, 4 54216,54288,54144,53664,53736,53616,53664,53592,53472,53496, 5 53424,53400,53184,53016,53088,52944,52920,52728,52896,53232, 6 53400,53424,53376,53040,52896,53040,53256,53256,53376,53400, 7 53040,53064,52944,52968,52896,52848,52704,52656,52824,52800, 8 52680,52704,52608,52776,52752,52560,52488,52584,52560,52488, 9 52344,52200,52056,51936,52032,51960,52032,52008,52056,52080/ data (jx(i),i= 1501, 1600)/ + 52176,52176,52032,52128,52224,18912,18720,18648,18240,17976, 1 17952,17856,17832,17448,16992,16608,16560,16440,16392,18048, 2 18048,18192,18168,18600,19008,19008,19416,19416,19512,19536, 3 20256,19392,19176,19080,18984,18696,18672,18480,18288,17928, 4 17664,17400,17400,17232,17088,16944,16728,16392,16272,16320, 5 16440,16416,16632,16680,16800,16920,17016,17448,17472,17424, 6 17736,17880,17904,18600,18936,19176,19128,19176,19464,19488, 7 19608,19680,19872,19920,20040,20208,19272,19392,19392,19512, 8 20016,20208,20208,20280,20256,20280,20232,19392,19440,19440, 9 18936,18960,18696,18600,18600,19056,19080,19440,19776,20064/ data (jx(i),i= 1601, 1700)/ + 20136,20280,21936,21936,21096,21096,18552,18576,18504,18360, 1 18000,17784,17712,17568,17544,17304,17112,16992,17040,16896, 2 16656,16608,16464,16272,20352,20424,20592,20640,20400,20496, 3 20592,20976,20880,20640,20616,20784,20880,20808,20664,20376, 4 20448,20448,20496,20448,20280,20016,19920,19968,19920,19920, 5 19848,18936,19032,19080,19248,19200,19080,19008,19128,19056, 6 19104,19008,19224,19464,19512,19440,19512,19632,19680,20136, 7 20256,20640,20712,21120,21528,21528,21120,21528,21888,21840, 8 21720,21456,21144,20784,20688,20592,20976,21192,21264,21288, 9 21504,21504,21960,23616,23880,24048,24288,24456,21168,21624/ data (jx(i),i= 1701, 1800)/ + 21888,22200,22656,23184,23208,22800,21960,23184,23328,23328, 1 23208,23592,23544,23136,23136,23040,23040,22968,22872,22824, 2 22992,22944,22824,22728,22680,22728,22560,22512,22368,22320, 3 22080,22008,21984,22104,22104,22032,21912,21816,21720,21768, 4 21672,21576,21432,21264,21168,21000,20904,20736,20664,20688, 5 20568,20616,20544,20472,20400,20256,20112,20064,19872,19680, 6 19608,19464,19392,19440,18936,18864,18840,19032,18984,18840, 7 18456,18312,18240,18336,18264,18120,17832,17616,17640,17736, 8 17712,17520,17400,17208,17064,16968,16800,16728,16608,16656, 9 16608,16536,16560,16464,16392,16176,23592,23616,23496,23160/ data (jx(i),i= 1801, 1900)/ + 23160,22920,22368,22248,22104,22032,22104,23856,23808,23640, 1 23664,23544,23688,23760,23520,23400,23352,23472,23832,23688, 2 23664,23520,23544,23424,23328,23400,23400,22992,22896,22992, 3 22776,22752,22512,22560,22512,22272,22416,22440,22320,21984, 4 23256,22872,22800,22824,22752,22824,22704,22728,22608,22536, 5 22632,22872,23064,23424,23976,21936,22104,22104,22248,22224, 6 22512,22536,22608,22584,22632,22776,23088,23496,23760,23952, 7 24120,24168,24360,24240,24240,24168,24240,23880,24024,24000, 8 23904,23784,23736,23616,23496,23400,23304,23184,24432,24456, 9 24456,24144,24024,23616,24456,24552,24648,24648,24720,24768/ data (jx(i),i= 1901, 2000)/ + 24912,24984,24936,25032,25080,25008,25152,25248,25224,25392, 1 25416,25512,25632,25704,25872,26088,28656,28608,28416,28200, 2 28032,27960,27792,27648,27552,27576,27432,27264,27312,27264, 3 27120,26904,26832,26664,26472,26400,26304,26064,26040,25968, 4 25872,25632,25272,25128,25008,24672,23736,23904,24000,24024, 5 24096,24264,24480,24624,24672,24864,25056,25248,25320,25584, 6 25632,25824,25968,25968,26040,25992,26208,26424,26520,26112, 7 26520,26544,26544,24288,24360,24408,24768,24792,24864,24888, 8 25056,25152,25584,25704,25872,25944,26016,26184,26232,26472, 9 26616,26640,26928,24864,25056,25296,25392,25608,25800,26136/ data (jx(i),i= 2001, 2100)/ + 26136,26760,26736,26856,26928,26856,26952,26832,26256,26424, 1 26424,26592,26616,26544,26592,26664,26760,26760,26808,26880, 2 26880,27048,26928,26952,26832,26808,26592,26520,26088,26088, 3 26928,26520,26616,26664,26616,26496,26592,26688,27360,26856, 4 26976,27192,27264,27336,27624,27720,27816,27816,28656,27048, 5 27120,27120,27456,27744,28152,28152,28200,32304,28608,28608, 6 30288,30288,31968,28704,28944,28992,28944,29064,29064,29472, 7 29520,29640,29736,29904,30120,30192,30504,30864,30816,30720, 8 30768,30744,30864,30840,30648,30576,30672,30696,30624,30576, 9 30504,30480,30336,30312,30240,30192,30024,29904,29808,29736/ data (jx(i),i= 2101, 2200)/ + 29496,29544,29448,29472,29400,29328,29400,29280,29232,28992, 1 29016,28920,28896,28824,28680,28656,28536,28512,28416,28368, 2 28320,28224,28176,28152,28104,27960,31728,31560,31656,31608, 3 31464,31368,31176,31200,31152,30960,30912,30864,30744,30744, 4 30696,30672,30792,30888,30960,31080,31104,31224,31224,31296, 5 31296,31416,31440,31584,31584,31704,31704,31920,31944,32136, 6 32136,31968,32016,32016,33504,33384,33264,33120,33120,32784, 7 32784,31944,30936,30864,30936,30912,30960,31056,31128,31272, 8 31536,31680,31680,31776,31776,31848,31824,31920,31920,32040, 9 32088,32136,32208,32328,32136,32256,32856,32760,32616,32568/ data (jx(i),i= 2201, 2300)/ + 32472,31992,31800,31800,31704,31608,31608,31440,30960,30768, 1 30648,30576,30624,31200,31176,31272,31272,31128,30936,30912, 2 30816,30696,30576,30360,30000,29760,29472,29352,29184,29208, 3 29424,29496,29496,29304,29160,28896,28656,28440,28272,28416, 4 28416,28080,28104,28320,28464,28320,32376,32472,32568,32616, 5 32544,32520,32640,32712,32808,32952,33000,33072,33144,33264, 6 33240,33072,33096,33288,33192,33144,33120,32808,32592,32568, 7 32640,32880,33000,33144,33240,33264,33432,33480,33384,33600, 8 33816,33840,34056,34224,34368,34560,34680,34920,32208,32208, 9 32256,32256,32352,32352,32400,32424,32688,32688,32832,32832/ data (jx(i),i= 2301, 2400)/ + 33024,33024,36480,35760,35784,35688,35664,35520,34200,34056, 1 33984,32352,32256,32256,32544,32544,32472,35208,35448,35184, 2 35040,34968,35328,35208,35280,35520,35664,36456,36456,36384, 3 36408,36456,36360,36192,35856,35832,35640,35496,35400,35520, 4 35592,35616,35712,35712,35784,36480,36432,36624,36624,36624, 5 36552,36552,36768,36576,36624,35352,35520,35640,36624,36696, 6 36768,36864,36888,36888,36456,36048,36096,36120,36240,36240, 7 36480,36672,36840,37032,37416,37920,37968,37920,37848,37728, 8 37464,37272,37032,36840,36720,36696,36552,36408,36288,35808, 9 35640,35352,38328,38592,36072,36384,36720,36840,36912,36840/ data (jx(i),i= 2401, 2500)/ + 36936,36912,36504,36408,36336,36216,36192,36168,36288,36576, 1 37200,37488,37584,37776,37944,37848,37896,37680,37656,38016, 2 38496,38616,38640,38160,38256,38352,38400,35592,35592,35712, 3 35928,36120,36120,36360,36360,36480,36576,36624,36744,36888, 4 37008,37104,37200,37296,37512,37632,37656,37752,37896,37968, 5 38064,38136,38232,38232,38472,38664,38136,38256,38400,38424, 6 38712,40200,40104,40056,39576,39048,38904,38664,38568,38256, 7 37872,37680,37440,37176,36888,38664,38712,38832,39312,39480, 8 39480,39768,39768,40032,40056,40176,40200,40200,40344,40320, 9 40272,40200,39432,39576,39936,40032,40176,40344,40392,37392/ data (jx(i),i= 2501, 2600)/ + 37488,37656,38544,38616,38712,39024,39144,39552,39576,39864, 1 39840,39888,39984,40272,40416,40944,40944,40824,40824,40344, 2 39288,39288,41448,41328,41112,41040,41184,40968,41088,41184, 3 41184,41112,40656,40632,40368,40416,40728,41184,41448,41520, 4 41808,41976,42312,42504,42648,42648,42744,43008,43152,43584, 5 43680,43896,43968,43944,44016,44376,41160,41136,40320,40320, 6 41160,38808,39024,39168,39312,39408,39480,39696,39792,40056, 7 40104,40152,40392,40416,40728,40848,40872,41016,41016,41112, 8 41112,41232,41376,41400,41544,39360,39432,39456,39528,39648, 9 39744,39960,40032,40080,39912,40056,40896,41448,41616,41640/ data (jx(i),i= 2601, 2700)/ + 41592,41640,41664,41808,41808,41640,41544,41232,41136,41016, 1 40800,40392,40440,41592,41568,41616,41832,41832,41904,40152, 2 40176,40344,40680,40848,41064,41112,41328,41280,41400,41376, 3 41568,41880,42048,42144,41784,41568,41352,41544,41424,41496, 4 40416,40824,40800,41640,41640,41928,41928,42072,41928,41952, 5 42552,38232,38448,38640,42600,42888,42696,42768,42744,42912, 6 42960,42768,42336,41592,41808,42024,42192,42144,42168,42216, 7 42288,42384,42432,42576,42600,42720,42816,42864,43032,43056, 8 43152,43104,42936,42840,42768,42792,42672,42600,43224,43032, 9 43080,43272,42768,42864,42912,43104,43200,43200,42936,43104/ data (jx(i),i= 2701, 2800)/ + 42936,43104,42288,42264,42408,42408,42696,42696,42888,42960, 1 43176,43392,43584,43608,44448,44640,44784,44784,45600,45816, 2 44160,43992,43968,43704,43512,43368,43272,43152,43104,43032, 3 43008,42792,42144,42072,41976,41760,41688,41616,41424,41352, 4 41328,41016,40992,40632,43776,44040,44232,44280,43896,43512, 5 43176,43248,43200,43296,43248,42984,42960,42840,42816,42720, 6 42720,42600,42504,42504,42312,42024,41784,41616,41544,44256, 7 44112,44208,44112,44160,44304,44304,41880,42840,42864,43344, 8 43392,43848,43872,44088,43920,44016,44088,44352,44520,44352, 9 44040,43800,43776,44376,44544,44568,44640,44640,44520,44304/ data (jx(i),i= 2801, 2900)/ + 44280,43920,43896,43968,43800,43848,43800,43944,44040,44112, 1 44256,44544,44328,44424,44280,44640,44304,43920,43776,43848, 2 43824,43896,43632,43680,43632,43680,43632,43680,44640,44640, 3 44520,44232,44232,43992,43896,43776,43656,43608,43512,43512, 4 42528,42528,41400,41376,44136,44328,44256,44352,44424,44520, 5 44568,44640,44664,44400,44352,44328,44640,44520,44520,44904, 6 44928,45192,45360,45696,45240,45384,45480,45600,45504,45216, 7 44976,45768,45480,45480,45072,45072,44520,44544,43896,43920, 8 44328,44496,44904,44928,45000,45000,45144,45168,45288,45288, 9 45672,45888,45744,45600,45600,45720,45720,45816,45744,45864/ data (jx(i),i= 2901, 3000)/ + 45816,45864,45936,45840,44688,44736,44784,44736,44808,44712, 1 44664,44880,44880,44760,44832,44808,45240,45408,45456,45792, 2 45936,45960,45720,45624,45600,45768,45672,45720,47688,46488, 3 46392,46392,46080,45888,45720,45504,45024,45072,45144,45480, 4 46584,47592,46488,46032,46032,45456,45552,45696,45888,46248, 5 46368,46464,46464,46560,46728,47064,47232,47376,47448,47592, 6 45840,46392,46992,47088,47160,47136,47232,47184,47280,47232, 7 47520,46104,46080,46152,46272,46584,46752,46920,46944,47088, 8 47232,47280,47568,47688,46272,46440,46512,46656,46560,46584, 9 46824,46944,46992,47136,47352,47400,47688,47928,48432,48312/ data (jx(i),i= 3001, 3100)/ + 47832,47688,47784,47760,47808,48336,48480,48480,44640,46104, 1 46344,46560,46728,46896,47088,47208,47832,48312,48360,48648, 2 49008,49128,49152,48504,48576,48648,48696,48816,48744,48648, 3 48744,48960,49032,49296,49296,47568,47304,47280,47160,47112, 4 47016,47016,47256,47304,47424,47880,47976,48024,48624,48696, 5 48912,49056,49272,49224,49272,49584,49968,50016,50376,50856, 6 50976,51240,51456,51672,52320,52512,53544,53520,53496,53496, 7 53688,53736,53736,53712,52488,52392,52320,52344,51528,51480, 8 51456,47448,47424,47376,47424,47832,47832,47856,53784,53904, 9 53784,53712,53664,53616,53880,54000,53976,53880,53952,53928/ data (jx(i),i= 3101, 3200)/ + 54024,54048,53880,53856,54024,54048,53976,53952,54000,53688, 1 53736,53856,53856,53808,53856,53952,53928,54048,54024,53928, 2 53976,53976,53784,54000,53976,54048,54072,54360,54480,54528, 3 54672,53952,53952,54264,54840,54816,54888,53712,53760,53760, 4 53832,53808,53664,53616,53808,53760,53784,53832,53736,53736, 5 53592,53568,53808,53784,53736,53520,53424,53496,53568,53520, 6 53544,53448,53520,53568,53376,53400,53424,53544,53520,53592, 7 53592,53544,53544,53592,53616,53520,53376,53328,53448,53640, 8 53544,53592,53328,53352,53472,53472,53400,53256,53328,53496, 9 53472,53400,53496,53424,53448,53256,53280,53184,53208,53256/ data (jx(i),i= 3201, 3300)/ + 53304,53376,53232,53112,53112,53208,53352,53304,53400,53088, 1 53088,53040,53040,53136,53016,53088,53160,53088,53064,53160, 2 53184,53184,53112,52680,52656,52392,52152,52008,51864,51840, 3 51720,51744,51600,51648,51624,51696,51456,51528,51648,51768, 4 51888,52056,52104,51960,52104,52128,52248,52056,52008,52080, 5 52008,51984,51912,51840,51984,52128,52440,52296,52320,52488, 6 52608,52680,52728,52800,52680,52536,52560,52488,52392,52512, 7 52368,52392,52296,52320,52584,52584,52272,52128,51936,51864, 8 51912,52200,52272,52272,52416,52464,52584,52680,52728,52584, 9 52536,52584,52752,52680,52632,52440,52344,52272,52368,52344/ data (jx(i),i= 3301, 3400)/ + 52440,52536,52584,52632,52776,52776,52752,52656,52800,52776, 1 52728,52512,52560,52536,52536,52560,52488,52416,52608,52632, 2 52632,52560,52632,52656,52536,52416,52608,52704,52704,52608, 3 52560,52536,52656,52728,52656,52488,52440,52344,52488,52464, 4 52512,52488,52536,52392,52296,52416,52464,52416,52272,52248, 5 52512,52536,52488,52296,52416,52392,52464,52368,52416,52416, 6 52152,52152,52248,52392,52440,52416,52272,52248,52440,52440, 7 52272,52320,52272,52152,52008,51456,51336,51312,51408,51528, 8 51576,51528,51312,51048,50880,51072,51432,51576,51456,51360, 9 51432,51864,51840,51744,51672,51600,51696,51816,51888,51960/ data (jx(i),i= 3401, 3500)/ + 52008,51936,51912,52008,52080,52200,52248,52056,52368,52368, 1 52176,52128,52248,52320,52344,52224,52344,52296,52224,51984, 2 52080,52392,51936,51744,51696,51960,52272,52296,52248,52104, 3 52200,52248,52320,52296,52272,52320,52248,52176,52200,52248, 4 52200,52032,52200,52248,52176,51960,51360,51360,51528,51576, 5 51456,51408,51288,51648,51600,51648,51528,51456,51408,51504, 6 51528,51576,51672,51648,51792,51744,51720,51864,51720,51792, 7 51864,51912,51888,51840,51816,51888,51912,51768,51744,51936, 8 51984,51984,51864,51864,52128,52056,52032,51816,52176,51960, 9 51864,51864,51768,52176,52152,52080,51480,51576,51504,51408/ data (jx(i),i= 3501, 3600)/ + 51384,51552,51528,51432,51528,51144,51192,51360,51384,51240, 1 51336,51408,51240,51336,51408,51432,51360,51312,51192,51288, 2 51312,51240,51192,51072,51168,51144,51024,51264,51240,51288, 3 50928,50976,50976,50880,51000,51072,51024,50976,50952,50880, 4 50880,50712,50976,50952,50688,50760,50832,50976,50856,50976, 5 51096,51144,51192,51120,51096,51168,51192,51264,50760,50688, 6 50664,50736,50664,50712,50832,50736,50736,50832,50832,50808, 7 50832,50832,50760,50760,50856,50616,50664,49536,49752,49896, 8 49944,49944,50040,49968,49752,49752,49608,49440,49440,49152, 9 49056,49056,48792,48720,48744,48696,48624,48480,48480,48408/ data (jx(i),i= 3601, 3700)/ + 48552,48504,48552,48504,48672,48792,48912,48840,48888,49128, 1 49032,49032,48936,48984,49152,49056,49296,50064,50088,50040, 2 49944,49944,50088,50040,50016,50088,49752,49728,49776,49848, 3 49872,49992,50136,49896,50064,50160,49968,49944,50184,50184, 4 50136,50064,50256,50088,50064,49944,49872,49776,49752,49848, 5 49872,50016,50160,50304,50136,49992,50064,50256,50160,50280, 6 50376,50304,50304,50376,50376,50232,50328,50304,50304,50400, 7 50376,50352,50400,50352,50304,50400,50448,50496,50448,50448, 8 50448,50520,50544,50400,50616,50544,50544,50592,50616,50688, 9 50664,50712,50712,50616,50616,50712,50664,50712,50760,50688/ data (jx(i),i= 3701, 3800)/ + 50760,50736,49776,49872,49872,49128,49104,49176,49416,49512, 1 49656,49800,49896,49896,49824,49680,49296,49704,49656,49896, 2 49944,49896,49776,49920,49968,49944,49848,49968,49968,49896, 3 49896,49632,49632,49824,49704,49632,49584,49584,49680,49656, 4 49464,49464,49392,49440,49368,49464,49632,49560,49560,49704, 5 49704,49632,49032,48984,48984,48840,48912,48864,49032,49080, 6 49056,49128,49104,49224,49344,49176,49104,49392,49320,49320, 7 49392,49440,49536,49584,49416,49080,49080,49176,49104,49056, 8 49152,49176,49152,49200,49224,49152,49248,49224,49128,49176, 9 49272,49224,49272,48696,48648,48600,48672,48552,48552,48696/ data (jx(i),i= 3801, 3900)/ + 48720,48672,48600,48624,48600,48528,48720,48648,48792,48936, 1 48840,48912,48888,48960,48888,48960,48912,48912,48984,49032, 2 48864,48576,48768,49032,49080,48984,48312,48312,48360,48384, 3 48312,48432,48360,48360,48408,48336,48336,48408,48504,48576, 4 48528,48504,48576,48576,48432,48456,48504,48552,48624,48600, 5 48624,48648,48624,48048,48024,48096,48120,48048,48024,48024, 6 47952,47928,47976,48048,48000,48072,48072,47928,47880,47832, 7 47880,47952,47904,47928,47928,48000,47928,47808,47808,47856, 8 47736,47712,47640,47544,47592,47616,47664,47784,47712,47544, 9 47664,47640,47592,47424,47400,47424,47184,47280,47256,47232/ data (jx(i),i= 3901, 4000)/ + 47280,47520,47496,47520,47544,47400,47568,47520,47472,47520, 1 47544,47520,47400,47280,47256,47376,47400,47448,47232,47256, 2 47184,47064,46992,47208,47280,47256,47088,47232,47280,47280, 3 47208,47304,47232,47160,47112,47304,47304,47232,47232,47184, 4 47304,47304,47328,47352,47256,47256,46896,46776,46824,46896, 5 47040,47112,47088,46632,46536,46584,46656,46776,46800,47112, 6 46968,46920,46944,47136,47136,46944,47112,47112,47088,47160, 7 43776,43776,43920,44184,44544,45048,45504,46488,46824,46920, 8 46872,46776,46344,45912,45168,44688,44400,44016,43824,46920, 9 46968,46920,46872,46968,46920,47064,47088,47088,47016,46944/ data (jx(i),i= 4001, 4100)/ + 46968,45696,45768,45696,45768,45792,45840,45912,45912,46008, 1 46008,46128,46200,46176,46248,46152,46080,46008,45912,45792, 2 45864,45816,45696,45648,46224,46176,46152,46248,46248,46272, 3 46224,46224,46320,46320,46272,46080,45984,45888,46008,46032, 4 46200,46320,46392,46320,46272,46200,46296,46176,46248,46392, 5 46464,46464,46560,46512,46488,46464,46752,46752,46824,46824, 6 46512,46488,46392,46464,46632,46560,46584,46488,46464,46704, 7 46704,46872,46848,46776,45576,45528,45480,45576,45600,45528, 8 45552,45600,45648,45504,45360,45504,45432,45576,45672,45552, 9 45648,45552,45552,45456,45408,45648,45600,45720,45648,45672/ data (jx(i),i= 4101, 4200)/ + 45720,45768,45720,45648,45720,45744,45696,45624,45696,45768, 1 45816,45792,45744,45744,45720,45600,45576,45648,45696,45840, 2 45840,45864,45816,45720,45912,45912,45984,46008,45840,45792, 3 45864,45792,45840,45960,45864,45936,45960,46008,45960,46104, 4 46056,46104,46104,46128,46008,45312,45312,45360,45360,45288, 5 45312,45216,45240,45288,45336,45384,45360,45288,45336,45384, 6 45408,45360,45480,45504,45528,45432,45456,45600,45528,45384, 7 45480,45528,45192,45144,45216,44880,44832,44688,44592,44616, 8 44736,44808,45288,45000,45288,45240,45240,45120,45000,45024, 9 45144,45120,45168,45288,45336,45312,45336,45264,45168,45192/ data (jx(i),i= 4201, 4300)/ + 44976,44904,44976,44880,45024,44856,44760,45024,45072,45048, 1 45000,44880,44736,44760,44928,45000,45120,44952,45120,45096, 2 45048,44880,44952,44856,44832,44952,44856,44880,44664,44688, 3 44736,44544,44760,44664,44712,44736,44832,44808,44592,44808, 4 44880,44856,44760,44472,44424,44496,44448,44544,44520,44448, 5 44400,44472,44472,44568,44544,44448,44352,44520,44568,44544, 6 44616,44568,44352,44424,44544,44496,44568,44640,44616,43848, 7 43992,44064,44040,43776,43896,43728,43656,43584,43608,43872, 8 43800,43920,43992,44088,44280,44304,44208,44112,44112,44208, 9 44184,43968,43848,44208,44136,44256,44280,44184,44232,44208/ data (jx(i),i= 4301, 4400)/ + 44064,43968,44016,44256,44184,44088,44016,43968,43848,43992, 1 44256,44256,44088,44040,44136,44160,44232,44256,44136,44088, 2 44208,44280,44088,44232,44280,44280,43944,43968,43920,43896, 3 43968,43992,43776,43680,43704,43560,43536,43368,43416,43488, 4 43512,43560,43584,43704,43752,43896,43824,43680,43896,43944, 5 44160,44112,43992,44136,44184,44160,43008,43008,42936,43176, 6 43104,43128,43008,43224,43224,43344,43272,43200,43272,43344, 7 43344,43272,43104,43176,43152,43344,43368,43272,43272,43344, 8 43392,43368,43680,43704,43608,43632,43776,43680,43752,43800, 9 43800,43896,42816,42816,42888,42864,42936,43080,43176,43104/ data (jx(i),i= 4401, 4430)/ + 43032,42984,42888,42840,42720,42720,42936,42888,42912,43152, 1 43128,43080,46104,46128,46224,46224,46464,46464,46536,46536, 2 46344,46248,46248,45960,45960,45888,45840, 0, 0, 0/ data (jy(i),i= 1, 100)/ + 33936,28608,24456,38976,40416,22176,42000,19800,41664,17880, 1 42264,42432,19176,39696,21816,37608,21744,48264,44304,52464, 2 46440,41424,20232,54408,20376,52560,34920,35928,55800,50184, 3 29592,51672,40920,51720,51720,48192,51024,50856,41208,40920, 4 40824,40872,41064,41280,41448,41472,41424,41496,41400,41496, 5 41688,41832,41928,41880,41784,41472,41304,41232,41280,41232, 6 41376,42000,42120,42072,41352,41352,41520,41784,42144,42336, 7 42456,42552,42528,42288,41976,42120,42648,42696,42528,42288, 8 41976,41856,41688,41688,41832,42120,42360,42672,42864,42888, 9 42696,42576,42600,43320,43392,43560,43632,43632,43320,43056/ data (jy(i),i= 101, 200)/ + 42960,42816,42864,42816,42720,42648,42552,42360,42240,42192, 1 42024,41784,17952,41976,41904,41808,41640,41280,41256,41328, 2 41592,42288,42192,42456,42672,42648,17880,18024,18432,18528, 3 18624,18840,18768,18816,19032,19008,19152,19128,42384,42024, 4 42072,41832,41592,41496,41400,41376,41424,42000,42024,41904, 5 41376,41280,41184,41208,41064,40968,40512,40536,40704,40728, 6 40656,40536,40440,40344,40248,40056,39960,39720,40080,40464, 7 40608,40560,40488,40008,19248,19512,19536,19632,19536,19704, 8 19704,19872,19704,19632,19608,19728,19656,19656,19584,19512, 9 19560,19656,19680,19920,20112,20208,20304,20520,20424,20208/ data (jy(i),i= 201, 300)/ + 20256,20232,20400,20616,20544,20688,20592,20856,20856,21120, 1 21024,20880,20808,20832,20760,20712,20880,20952,21072,21096, 2 21264,21312,21312,21456,21384,21480,21576,39504,39528,39384, 3 39168,38856,38688,38520,38544,38712,38880,39312,39432,39360, 4 39144,38880,38568,38496,38568,38592,38928,38904,38736,38568, 5 38352,38328,38184,38040,38112,38328,38280,38280,38592,38592, 6 38448,38280,37680,37512,37440,37488,37824,37944,37872,37704, 7 37704,38184,38232,38112,21984,22008,21912,21960,21864,21936, 8 21840,21720,21792,21840,21840,21984,22080,22080,22008,22176, 9 21936,21792,21672,21624,21696,21648,21960,22032,22008,21864/ data (jy(i),i= 301, 400)/ + 21768,21816,21648,21648,52512,52560,52488,52488,52584,52656, 1 52584,52800,52680,52824,52824,52944,52896,53040,53088,52992, 2 53064,53040,53136,53112,53256,53184,53160,53304,53376,53328, 3 53376,53328,53160,53112,52608,52728,52632,52752,52704,52800, 4 52848,52992,52896,52968,53088,53160,53232,53256,53400,53544, 5 53832,53952,53904,54144,54360,54384,54312,54264,54336,54432, 6 54384,54528,54528,54696,54816,54528,54552,21744,21672,21768, 7 21792,21696,21552,21456,21288,21312,21264,21312,21264,21288, 8 21168,20856,20640,20712,20688,20736,20664,20640,20568,20472, 9 20352,20376,20256,20328,20472,20520,20448,20496,20448,20496/ data (jy(i),i= 401, 500)/ + 20448,20568,20520,20592,20544,20472,20424,20352,20328,52776, 1 52992,53376,53592,53736,53616,53952,54048,54456,20088,20136, 2 20064,20040,20112,20208,20496,20520,20448,20400,20544,20496, 3 20568,20640,20544,20496,20520,20448,20352,20256,20544,20472, 4 20400,52728,52824,52968,53184,53688,53784,53544,53592,53976, 5 54264,54408,54816,54816,54960,54888,55008,55512,55584,55632, 6 55848,55920,55848,55824,55800,55920,55920,56136,56040,56232, 7 56232,55944,55944,55800,56064,56064,56112,55728,55872,55728, 8 55896,55944,56016,56088,56184,56136,56184,56256,56376,56376, 9 56424,56544,56544,56472,56592,56232,56136,56112,56016,55920/ data (jy(i),i= 501, 600)/ + 56064,56088,56160,56136,56496,56280,56136,56064,56088,56256, 1 56256,56136,56112,56232,56328,56208,56232,56688,56760,56856, 2 56928,56832,56736,56544,56328,56328,56256,56184,56136,56184, 3 56088,55896,55512,55440,55464,55392,55392,55344,55248,55248, 4 55608,55656,55488,55608,55776,55824,55968,55872,55728,55584, 5 55584,55440,55488,55344,55368,55296,55416,55512,32376,32640, 6 33000,33456,34392,34368,34152,34176,34440,34680,34440,34200, 7 33888,33936,33864,33600,33888,33888,33336,33048,33000,33072, 8 33264,33360,33288,33360,33432,33528,33624,33696,33600,33504, 9 33480,33552,33816,34320,34872,34920,34848,35160,35208,35040/ data (jy(i),i= 601, 700)/ + 35016,35280,35400,35592,36096,36192,36168,36096,36024,35952, 1 35784,35712,35712,35904,20256,20184,19800,19392,18744,18624, 2 18624,18912,18912,19104,19368,19704,20136,20424,22392,23448, 3 23904,24456,25416,26520,28344,29208,55248,55368,55392,55128, 4 54960,54720,54552,54672,54696,54552,54504,54456,54504,54384, 5 54432,54432,54216,54384,54456,54624,54672,54816,54792,54912, 6 54600,54624,54888,55176,55248,55344,55272,55488,50376,50424, 7 50376,50424,50376,50424,50472,50544,50472,50520,50448,50424, 8 50256,50208,50088,50160,50136,50256,50472,50328,50328,50544, 9 50520,50640,50784,50688,50808,51000,50856,50904,51240,51360/ data (jy(i),i= 701, 800)/ + 51408,51648,51480,51432,51528,51576,51816,51840,51792,51792, 1 51888,35736,35928,36672,36936,37104,37512,37776,37872,37896, 2 37992,38136,38280,38184,38064,37944,37872,37896,37800,37656, 3 37896,38328,38448,38616,38616,38712,38496,39192,39456,39600, 4 39672,39552,39552,39696,40152,40248,40176,40248,40488,40512, 5 40656,40848,57024,56952,56952,56832,56808,56712,56544,56736, 6 56616,56736,56712,56784,56832,56952,57000,57072,57048,57168, 7 57144,57024,56736,56568,56592,56544,56376,56328,56400,56112, 8 56016,55608,55224,55248,55128,55128,55320,55344,55512,55512, 9 55416,55344,55224,55176,55248,55392,55560,55440,55392,55320/ data (jy(i),i= 801, 900)/ + 55272,55320,55176,55080,55080,55056,54912,54936,54648,54624, 1 54672,54576,54432,54168,54072,54168,54192,53952,54024,53808, 2 53664,53304,53256,53304,53568,53400,53568,53688,53880,53688, 3 53904,53544,53544,53376,53760,53832,54096,54024,54120,54144, 4 54240,54096,54144,54312,54432,54528,54648,54576,54600,54432, 5 54312,54288,54480,54408,54336,54384,54288,54216,54264,53928, 6 53856,53928,54024,54120,54216,54480,54648,54696,54696,54912, 7 54984,55248,55584,55728,58920,58728,58704,58896,58944,59064, 8 58872,58776,58656,58728,58536,58608,58728,58896,58872,58656, 9 58704,58992,58968,58824,58752,58872,58824,58896,58800,58608/ data (jy(i),i= 901, 1000)/ + 58560,58656,58584,58536,58512,58536,58344,58272,58224,58248, 1 58176,58176,58056,58080,58008,57936,57840,57744,57768,57696, 2 57696,57600,57792,57696,57408,57360,57312,57216,57144,50856, 3 50760,50688,50904,50736,50736,50640,50760,50568,50472,50520, 4 50688,50664,50712,50568,50664,50784,50808,50904,51024,50880, 5 50880,51000,51000,51168,51192,51264,51288,50976,51000,51192, 6 51240,51072,51072,51000,51000,51072,51072,50976,51048,51048, 7 50952,50808,51048,51072,51168,51264,51264,51168,51072,50856, 8 50784,50904,50472,50424,50328,50184,50136,50016,49896,49680, 9 49632,49680,50016,49968,49752,49632,49824,50088,50112,40896/ data (jy(i),i= 1001, 1100)/ + 40968,41160,41304,41376,41280,41424,41472,41808,41880,42024, 1 42144,42120,42240,42456,42384,42456,42384,42528,42984,42912, 2 42768,42696,42744,43200,43224,43272,43488,43704,43728,43800, 3 43824,43704,43728,43776,44136,44016,44016,43728,43728,43896, 4 43896,43824,44016,44088,44160,44136,44256,44304,44352,44448, 5 44616,44664,44520,44712,44760,44760,44880,44640,44568,44688, 6 44520,44520,44328,51072,51024,51168,52224,52224,52104,52152, 7 52056,52152,52224,52200,52272,52248,52464,52488,52392,52416, 8 52656,52968,53088,53064,52944,52896,52872,52968,52848,52896, 9 53040,53088,53016,53064,52944,52944,53064,53232,53400,53304/ data (jy(i),i= 1101, 1200)/ + 53352,53472,53496,53568,53520,53472,53400,53448,53280,53208, 1 53040,53016,53688,53712,53664,53784,53832,53784,53832,54192, 2 54480,54552,54648,54768,54720,54648,54648,54480,54504,54336, 3 54336,54456,54624,54552,54408,54384,54456,54360,54336,54048, 4 54024,53904,53856,53784,53784,53976,53976,54096,54192,54408, 5 54312,54432,54528,54888,54792,54840,54816,54480,54576,54768, 6 54840,54720,54696,54384,54336,54360,54840,55176,55224,55752, 7 55776,55800,55656,55608,55704,55800,55824,55920,56088,56064, 8 56016,55968,55896,56376,56496,56472,56688,56592,56544,45120, 9 45216,45288,45360,45408,45528,45552,45792,45552,45576,45624/ data (jy(i),i= 1201, 1300)/ + 45672,45792,45792,45912,45840,45912,45792,45768,45696,45720, 1 45624,45624,45720,45864,46032,46104,46176,46176,45960,46032, 2 46200,46224,46176,46032,46056,46176,46224,46032,45984,45864, 3 45744,45816,45960,46152,46128,46248,46320,46248,46200,46344, 4 46440,46488,46488,46608,46608,46440,46320,46272,46368,46560, 5 46632,46632,46704,46392,46392,46512,46560,46536,46656,46776, 6 46680,46680,46968,47016,47136,47208,47112,47280,47136,47160, 7 47208,47136,47184,47280,47256,47448,47424,47376,47376,47520, 8 47664,47760,47784,47664,47664,47808,47928,47880,48024,48192, 9 48216,48120,44256,44352,44112,43992,43680,43920,44088,44016/ data (jy(i),i= 1301, 1400)/ + 44088,44112,44184,44280,44280,44448,44568,44496,44352,44472, 1 44544,44712,45000,45120,45120,44976,44880,44808,44760,45000, 2 45048,48384,48336,48264,48432,48408,48576,48768,48768,48624, 3 48600,48672,48816,48768,48816,48888,48984,48984,49152,49248, 4 49152,49200,49416,49440,49488,49584,49584,49440,49416,49272, 5 49320,49392,49416,49320,49272,49224,49224,49416,49176,49488, 6 49512,49344,49320,49536,49560,49632,49656,49536,49632,49560, 7 49584,49728,49872,50160,50088,50136,50256,56640,56808,56952, 8 57024,56856,56976,56976,57096,57120,57072,57096,57048,57192, 9 57360,57288,57264,57168,57264,57216,57432,57384,57456,57504/ data (jy(i),i= 1401, 1500)/ + 57504,57528,57624,57744,57744,57672,57600,57624,57552,57576, 1 57336,57264,57072,57096,57216,57288,56592,56640,56928,57240, 2 57288,57144,57168,57384,57696,57888,57936,57888,57768,57864, 3 57912,57960,58032,58032,58176,58320,58560,58536,58680,58824, 4 58776,58824,58896,58536,58704,58728,58824,58848,58776,58896, 5 58776,58968,59112,59064,58896,58992,58872,58704,59064,59208, 6 59208,59328,59352,59160,59136,59376,59472,59400,59448,59496, 7 59520,59616,59688,59616,59568,59712,59808,59712,59520,59448, 8 59472,59424,59376,59280,59112,59088,59160,59280,59328,59280, 9 59376,59376,59712,59760,59592,59520,59376,59304,59280,59376/ data (jy(i),i= 1501, 1600)/ + 59328,59256,59160,59040,59064,33936,34056,33960,34032,33936, 1 33984,33936,34008,33792,33864,33768,33840,33792,33888,28608, 2 28536,28536,28608,28608,24456,24864,24864,24960,24888,24960, 3 24912,37416,37536,37416,37416,37608,37704,37752,37656,37896, 4 37920,38160,38352,38544,38520,38664,38712,38976,40392,40320, 5 40344,40272,40296,40104,40032,40080,40008,39984,39936,39864, 6 39744,39720,39792,39768,39528,39528,39360,39336,39336,39384, 7 39384,39312,39312,39384,39120,38976,33744,33504,33360,33360, 8 32688,32640,32352,32256,32208,31128,37752,37752,31104,30288, 9 30264,30048,29832,29328,27768,27768,27672,27432,27504,27456/ data (jy(i),i= 1601, 1700)/ + 27336,27336,23352,22800,22800,22752,22776,22560,22584,22536, 1 22680,22608,22704,22728,22608,22464,22560,22488,22344,22224, 2 22152,22104,22080,22200,41712,41712,41520,38904,39096,39024, 3 39024,35208,35304,35352,35424,35520,35760,35784,35760,36072, 4 36216,36336,36384,36600,36600,36768,36864,37008,37032,37152, 5 37272,34008,34056,34032,34104,34200,34128,34152,34320,34416, 6 34536,34704,34728,34896,34992,35088,35232,35160,35088,35136, 7 35064,35160,35232,31128,27360,28200,29448,29448,38736,38664, 8 38664,38760,38640,38808,38784,25008,25032,25128,25104,25176, 9 25176,24456,24456,28224,28008,28008,27864,27840,35016,34872/ data (jy(i),i= 1701, 1800)/ + 34632,34464,34416,34224,31968,31968,31128,33648,33648,33288, 1 33168,22536,22392,22296,22152,22152,22080,22056,22080,22008, 2 21936,21912,21864,21960,21792,21648,21648,21312,21360,21264, 3 21264,21192,20952,21000,20832,20784,20832,20760,20856,20952, 4 20952,20736,20808,20688,20736,20544,20328,20232,20376,20472, 5 20448,20232,20160,20184,20352,20424,20376,20184,20304,20160, 6 20184,20088,20112,19992,20040,19992,19896,19776,19680,19704, 7 19992,19992,19944,19728,19704,19920,20040,20040,19968,19920, 8 19872,19920,19752,19704,19800,19776,19848,19560,19728,19848, 9 19920,19896,19680,19656,19800,19704,21384,22896,23016,23040/ data (jy(i),i= 1801, 1900)/ + 22968,22872,23112,22920,22896,22992,23208,38640,40056,40224, 1 40344,40440,40584,40752,40872,41160,41568,41664,38208,38280, 2 38424,38472,38280,38112,38184,38328,38376,38328,38376,38544, 3 38544,38808,38784,38616,38568,38688,38760,38856,38976,38712, 4 21360,21024,20856,20784,20688,20568,20472,20376,20280,20112, 5 19896,19752,19464,19344,18624,37488,37296,37128,37104,36936, 6 36912,36816,36792,36552,36432,36456,36360,36336,36000,35976, 7 35808,35520,35376,35304,35064,34992,34680,34728,34536,34440, 8 34464,34680,34704,34512,34560,34512,34584,34560,31992,26880, 9 24864,24792,24672,24648,35376,35472,35472,35592,35592,35544/ data (jy(i),i= 1901, 2000)/ + 35616,35544,35448,35448,35304,35232,35112,35208,35256,35280, 1 35328,35376,35328,35376,35352,35448,26664,26592,26664,26592, 2 26640,26760,26808,26856,26784,26880,26784,26784,27120,27192, 3 27144,27168,27240,27240,27336,27408,27288,27312,27192,27120, 4 27264,27288,27192,27096,27120,26904,21504,21552,21768,22008, 5 22056,22128,22128,22224,22128,21960,22200,22272,22464,22464, 6 22560,22632,22752,22920,22968,23040,23304,23352,23472,35328, 7 35328,34488,31992,38664,38640,38544,38544,38496,38520,38688, 8 38688,38592,38544,38640,38640,38496,38520,38400,38520,38544, 9 38400,38256,38016,25128,25056,25248,25248,25104,25080,25392/ data (jy(i),i= 2001, 2100)/ + 24432,24408,24264,24216,24048,23856,23760,23520,35784,35832, 1 35928,35976,36024,36072,36168,36144,36240,36168,36144,36240, 2 36336,36336,36576,36768,36840,36960,37104,37248,37416,37824, 3 37848,23304,23304,23112,23016,22992,22872,22776,22776,31992, 4 31920,31896,31800,31848,31776,31632,31584,29496,29496,37992, 5 37992,38064,38088,38016,38280,39480,39504,34536,22752,23592, 6 23616,24432,24432,26712,26688,26808,26880,26976,27168,27192, 7 27480,27576,27984,28128,28368,28344,28680,32976,32832,32808, 8 32760,32616,32688,32568,32640,32520,32496,32304,32256,32328, 9 32280,32328,32352,32136,32280,32112,32136,31968,32064,31752/ data (jy(i),i= 2101, 2200)/ + 31440,31536,31560,31680,31728,31656,31536,31608,31560,31560, 1 31656,31680,31656,31728,31464,31536,31536,31632,31632,31704, 2 31632,31800,31800,31728,31728,31608,29184,29088,29016,28872, 3 29040,28896,28992,28872,28800,28800,28920,28848,28872,28968, 4 28944,28776,28344,28344,28128,28056,27912,27912,27768,27768, 5 27624,27600,27408,27408,27288,27288,27072,27096,26808,26808, 6 26520,26088,26112,26448,21888,21840,21912,21792,21888,21984, 7 22728,23160,33048,33096,33168,33240,33264,33192,33312,33264, 8 33360,33480,33552,33576,33648,33696,33744,33840,33912,33984, 9 33936,34008,33888,33960,34368,34416,35976,36048,36072,35808/ data (jy(i),i= 2201, 2300)/ + 35712,35712,35880,36264,36432,36336,36096,35832,35688,35784, 1 35760,35880,35976,36168,36384,36600,36744,36888,36792,36408, 2 36192,36216,36360,36384,36048,36000,36072,36168,36408,36480, 3 36552,36648,36768,36936,36984,36912,37008,37032,37152,37320, 4 37512,37848,37944,38064,38256,38352,34584,34536,34632,34512, 5 34512,34464,34488,34416,34608,34584,34704,34560,34680,34680, 6 34848,34944,35040,35064,35256,35232,35136,35040,35208,35352, 7 35544,35808,36144,36168,36312,36600,36744,36888,37032,37272, 8 37224,37056,36936,36936,37056,36936,37008,36912,26520,26664, 9 26664,26952,26952,27240,27240,27360,27384,27504,27504,27648/ data (jy(i),i= 2301, 2400)/ + 27648,27768,27840,32304,32904,32928,32880,32832,32688,32760, 1 32712,32688,32856,33024,33264,33360,33576,36696,37440,37560, 2 37512,37392,36984,37152,37344,37464,37416,29688,29976,30120, 3 30288,30288,30528,30672,30648,30864,31200,31296,31440,31656, 4 31680,31800,31800,31944,31896,28680,28680,27816,26568,25272, 5 25272,22824,22416,21912,21792,36504,36432,36240,36264,36240, 6 36120,36168,32880,32688,32664,32304,48288,48432,48432,48528, 7 48576,48720,48744,48744,49008,49080,44184,44232,44232,44136, 8 44232,44208,44280,44160,44208,44112,44064,44136,44136,44016, 9 44160,44208,51264,46488,37560,37440,37440,37512,37728,38040/ data (jy(i),i= 2401, 2500)/ + 38232,38280,38256,38160,37824,37800,37848,38352,38496,38640, 1 38544,38352,38040,38016,38352,38784,39192,39624,39768,40008, 2 40104,40200,43680,44184,43968,43944,43824,41376,41304,41280, 3 41352,41232,41184,41184,41112,41064,41040,41088,41016,41040, 4 40968,41016,40896,40944,40752,40776,40632,40560,40560,40464, 5 40512,40344,40344,40272,40416,40416,40872,40704,40680,40536, 6 40464,36696,36720,36888,36672,36696,36792,36744,36864,36864, 7 36648,36672,36552,36216,36312,40176,40344,40320,39912,39936, 8 39648,39576,39528,39528,38952,38928,37152,38112,38136,38352, 9 38328,38592,29712,29832,29664,29496,29568,29472,29448,32880/ data (jy(i),i= 2501, 2600)/ + 32928,33240,33216,33168,33000,32976,32904,32904,32496,32496, 1 31224,31032,30864,30816,30576,25296,25824,25848,28224,28248, 2 26544,25296,34776,34824,34848,34920,35184,35760,35928,36240, 3 37344,37224,37008,36840,37224,37416,37680,37800,37608,37776, 4 37776,37824,38088,38112,38328,38712,39048,38928,39072,39096, 5 39192,39120,39168,39792,39888,39960,25272,23184,23184,22344, 6 22344,43488,43440,43176,43056,43056,43176,43176,43080,43224, 7 43152,43224,43176,43056,43176,43104,43248,43320,43224,43224, 8 43440,43440,43512,43752,43848,40320,40392,40752,40872,40944, 9 40920,40632,40608,40728,41232,41328,41328,40992,41040,41136/ data (jy(i),i= 2601, 2700)/ + 41424,41640,41736,41808,40392,40320,40176,39888,39696,39696, 1 39552,39216,39144,43776,43128,42936,42792,42264,41952,46560, 2 46632,46704,46752,46968,47040,47112,47112,47208,47232,47304, 3 47352,47616,47976,33504,33960,33984,34272,34440,34584,34632, 4 32640,32640,33216,33216,33360,33360,33504,48216,48408,48840, 5 49008,49152,49128,49200,49296,50448,46056,46224,46344,46488, 6 46656,46920,47184,44184,44400,44448,44592,44688,44784,44808, 7 44736,44760,44880,44928,45144,45240,45216,45312,45336,45480, 8 45528,45648,45720,45696,45768,45816,45840,45936,46008,50736, 9 51072,51336,52368,52512,52824,52872,52968,53040,53448,53688/ data (jy(i),i= 2701, 2800)/ + 53952,54240,33504,33360,33360,33216,33216,32952,32904,32664, 1 32592,32616,32400,32328,47616,46896,46896,46800,46944,46920, 2 29568,29568,29520,29472,29640,29568,29784,29760,29808,29760, 3 29616,29520,29472,29544,29448,29544,29472,29520,29448,29496, 4 29640,29688,29736,29520,43728,43560,43344,35112,35232,35496, 5 35352,35232,35064,35016,34872,34872,35040,35088,35160,35160, 6 35040,34944,34944,34872,35088,35064,34944,35088,35064,43128, 7 42960,42576,42408,42288,42288,42144,42816,42504,42576,42432, 8 42264,42288,42144,29832,30048,30264,30312,30648,31200,31584, 9 31920,32040,32184,38976,38904,38832,38808,38040,37944,37968/ data (jy(i),i= 2801, 2900)/ + 37776,37512,37440,37392,37200,37104,36984,36624,36624,36696, 1 36336,36216,35760,35592,35472,34992,34176,33960,33984,33744, 2 33696,33624,32952,32808,32664,32616,32472,32400,26424,25296, 3 25296,26448,27312,27216,27144,27168,27312,27240,27264,26400, 4 26400,26112,26112,25296,29496,29376,29256,29184,28944,28872, 5 28680,28584,41184,40008,40080,40800,41016,41112,41184,41088, 6 40872,40920,39048,51336,50904,50904,50808,50424,50256,50232, 7 50352,44016,43992,43800,43776,43512,43512,43344,45912,45768, 8 45864,45624,45792,45720,45744,45840,45840,45768,45768,45840, 9 45840,45936,44856,44832,44904,45168,45360,45408,45648,45720/ data (jy(i),i= 2901, 3000)/ + 46176,46296,46320,46464,52512,52560,52536,52464,52368,52344, 1 52176,51888,51768,51600,51528,51456,51288,51600,52032,52200, 2 52152,52104,51960,51744,51504,51504,51384,51384,49584,50040, 3 49968,49896,49416,49392,49200,49128,49056,34872,34776,37848, 4 37032,43008,43704,43824,44016,41040,41136,41136,41328,41400, 5 41520,41808,41952,42144,42288,42240,42336,42288,42192,42216, 6 39648,39888,39912,40008,40152,40488,40776,40968,41184,41304, 7 41592,47112,47232,47328,47424,47448,47616,47856,48072,48336, 8 48360,48432,48432,48528,52296,52440,52440,52560,52896,53016, 9 53232,53184,53904,54024,54120,54288,54576,55464,42408,42216/ data (jy(i),i= 3001, 3100)/ + 42312,49824,49896,50040,50160,50136,50160,50208,29568,51192, 1 50856,50832,50904,50808,50904,50880,51336,51456,51600,51648, 2 51576,51624,51672,42360,42120,42096,41832,41760,41664,41616, 3 41448,41232,41280,41088,40920,44088,44064,44400,44400,44520, 4 44520,44712,44712,44880,44880,45120,45288,45480,45984,46248, 5 46440,46656,46728,46824,46872,47040,47448,47592,47784,48312, 6 48360,48312,48384,48336,51048,50856,47544,47616,47592,47472, 7 48168,48192,48168,48120,48144,48312,48240,48144,51864,51912, 8 51816,55152,55200,55152,55128,60240,60144,60192,47520,48144, 9 48072,47760,47784,47184,43512,43752,43968,43848,45072,44952/ data (jy(i),i= 3101, 3200)/ + 44952,44856,44880,44736,44736,44616,44664,44544,44544,46248, 1 45960,45768,45648,45648,45408,45384,45288,45120,45408,45648, 2 45648,45696,46200,44304,44088,44040,44232,56688,56688,56616, 3 56640,57144,57072,56880,56568,56544,56520,48792,48696,48504, 4 48576,48768,49248,49272,44928,44880,44784,44832,44472,44616, 5 44736,44568,44664,44736,44736,48024,48048,47880,47976,45384, 6 45432,45432,44304,44424,44424,44184,44280,46584,46680,46608, 7 47088,47136,47064,44760,44832,44976,44952,44832,44856,44496, 8 44496,44448,46272,46224,46248,44544,44688,44664,44520,46560, 9 46512,46608,45936,45888,45960,44328,44496,44568,44352,48480/ data (jy(i),i= 3201, 3300)/ + 48264,48312,48720,48744,48648,48576,48072,48024,47952,45960, 1 46056,46056,45960,44664,44712,44616,47616,47640,47568,47544, 2 48096,48144,48096,42480,42360,42096,42072,42168,42168,42072, 3 42048,42240,42456,42648,42936,43056,43152,43368,43464,43392, 4 43656,43728,43656,43584,43488,43584,43344,43416,43392,43296, 5 43296,43464,43488,43320,43200,43176,43320,43488,43584,43536, 6 43392,43392,43440,43128,43152,43104,43176,43224,43104,42984, 7 42960,43008,42960,42888,42792,42744,42816,42768,42960,42888, 8 42816,42576,42600,42696,42600,42672,42672,42720,42648,43032, 9 43032,42984,43032,43104,43752,43848,43992,43872,43776,43728/ data (jy(i),i= 3301, 3400)/ + 43608,43680,43488,43464,43608,49128,49176,49056,46488,46560, 1 46512,47976,47976,48024,48888,48936,48960,48840,47496,47520, 2 47616,47592,46416,46464,46464,46392,48648,48624,48696,48696, 3 48816,48720,42840,42936,42912,49056,49200,49104,47616,47664, 4 47688,42864,42912,42888,59688,59712,59976,59976,59760,59520, 5 59448,59616,59664,59568,47760,47808,47832,46680,46728,46944, 6 46728,46680,46728,47928,47928,48048,48072,47976,48624,48696, 7 48648,48600,41184,40848,40680,40200,40176,40248,40248,40344, 8 40536,40680,40824,40896,41208,41184,41376,41544,41568,41712, 9 41808,41736,41592,41520,41544,41448,41472,41424,41520,41496/ data (jy(i),i= 3401, 3500)/ + 41544,41592,41712,41880,41784,41712,41760,42000,42048,41640, 1 44352,44184,44136,44232,44376,44424,47856,47904,47856,51576, 2 51408,51240,51888,51984,51936,51696,59904,60000,60000,59856, 3 59640,47472,47472,47424,47664,47688,47712,47688,46968,47088, 4 47088,46704,48168,48192,48240,48192,42576,42624,42672,42600, 5 42432,42528,42432,51888,51888,51792,52320,52368,52344,52248, 6 52152,52056,52056,52224,51360,51456,51360,47640,47712,47616, 7 48144,48144,48072,48120,51624,51552,51600,51864,51696,51432, 8 51408,51480,51456,51408,55920,55848,55896,47784,47784,47928, 9 47880,48000,47880,51168,51264,51240,51384,51336,51480,51432/ data (jy(i),i= 3501, 3600)/ + 51336,50664,50712,50616,50616,51768,51648,51744,51840,51864, 1 47256,47328,47352,52464,52440,52488,52776,52824,52704,52752, 2 52680,52632,52680,52632,52608,52512,52464,52320,52536,52608, 3 52704,52704,52656,51456,51480,51600,51744,51648,51792,51816, 4 51528,51528,53256,53304,53112,53040,53064,53040,52944,52896, 5 52968,51192,51240,51264,51216,52920,52872,52944,52656,52728, 6 52680,53424,53424,53232,53328,58440,58392,58392,58464,58512, 7 57000,57024,57000,52392,52464,52488,52344,36768,36672,36744, 8 36552,36408,36264,36024,35928,35736,35544,35160,35016,34536, 9 34464,34584,34704,34848,35040,35280,35352,35352,35448,35568/ data (jy(i),i= 3601, 3700)/ + 35784,35880,35976,36024,36120,36384,36408,36576,36648,36648, 1 36696,36864,36960,37008,36984,37248,37104,51216,51264,51312, 2 51288,51240,52272,52272,52368,52344,52680,52656,52584,52560, 3 52656,52464,52560,52728,52056,52032,52224,52056,51864,51768, 4 51792,51480,51528,51720,51552,51528,51384,51384,51000,51072, 5 51312,51384,55488,55560,55584,55464,55416,55968,55944,55872, 6 52560,52560,52656,52632,51624,51696,51696,57240,57216,57216, 7 57312,51360,51408,51480,51432,36000,35952,36000,36048,51408, 8 51336,51336,51576,51528,52992,52920,52968,52848,52752,52800, 9 52848,51432,51336,51336,51432,53016,52992,52872,52896,51648/ data (jy(i),i= 3701, 3800)/ + 51624,51672,52368,52296,52392,58632,58488,58368,58128,57888, 1 57840,57888,58032,58224,58464,58656,58752,40680,40848,40776, 2 40680,40488,40560,52368,52344,52440,52488,51576,51672,51672, 3 51600,50616,50664,50688,50928,50808,50808,50952,51024,51072, 4 51024,50904,50856,50688,50688,50496,50496,51168,51072,51168, 5 51360,51360,54960,54984,55200,55104,55008,54936,54672,54720, 6 54816,54840,55008,54888,54864,55176,55128,55416,55416,55512, 7 55488,55008,55032,55152,55152,55392,55440,55392,54432,54384, 8 54264,54408,55512,55464,55584,55632,54744,54816,54720,54672, 9 54648,54600,54528,55056,55080,55032,55008,54096,53976,54168/ data (jy(i),i= 3801, 3900)/ + 54432,54504,54432,54216,54096,54216,54768,54720,54528,54552, 1 54480,54576,54336,54432,54408,55512,55512,55440,55416,55488, 2 59280,59496,59256,59088,59112,59256,54816,54696,54696,54864, 3 54864,54936,54960,55032,54384,54432,54336,54312,54360,54360, 4 54456,54720,54744,54816,54720,54552,54552,54888,54912,54864, 5 55344,55416,55440,59664,59616,59640,59784,59784,54720,54888, 6 54864,54576,54528,54672,55896,55920,55872,56136,56256,56136, 7 56040,56016,56016,55944,60048,60072,60144,55944,55896,55944, 8 55392,55584,55560,55296,55176,55320,55392,55992,56112,56040, 9 56232,56280,56184,56184,56112,56232,56208,56136,56136,55824/ data (jy(i),i= 3901, 4000)/ + 55776,55968,60408,60336,60456,60504,56520,56544,56520,56472, 1 55392,55656,55512,55488,55440,55464,55368,55416,55632,55680, 2 55728,55656,55512,54912,54936,54984,54984,60648,60672,60624, 3 55200,55296,55296,55464,55416,54600,54648,54648,54864,54792, 4 54696,54816,55080,55128,55200,55104,55824,55896,55920,56088, 5 56160,56256,56304,56016,55680,55704,55632,55608,55680,55728, 6 55968,55944,55824,57624,57696,57600,57552,60720,60768,60744, 7 60648,60840,61032,61224,61392,61488,61512,61296,61128,60936, 8 60816,60768,60744,61032,61056,60984,60864,60576,60576,55512, 9 55488,55632,55584,60864,60840,60768,56808,56880,56904,56784/ data (jy(i),i= 4001, 4100)/ + 56688,56688,56712,56856,56928,56928,56664,56616,56784,56616, 1 56808,56544,56544,56496,56328,56400,56352,56472,56304,56256, 2 56448,56544,56520,56688,57792,57768,57672,57600,60048,60072, 3 60096,57072,57096,57192,57216,57096,57072,56880,56880,56976, 4 56976,56328,56664,56928,56904,56736,60000,59976,59928,59880, 5 59928,60000,56040,56112,56064,55944,55464,55512,55536,57432, 6 57336,57456,57480,57264,57312,57216,57072,56976,56784,57120, 7 57264,57264,57336,57144,58104,58152,57984,57888,60648,60648, 8 60576,56424,56448,56712,56568,56448,56352,56352,56952,57072, 9 57048,56856,56928,56976,56808,56760,56904,57144,57144,57312/ data (jy(i),i= 4101, 4200)/ + 57288,60408,60552,60456,60384,57528,57552,57432,57360,57384, 1 60792,60864,60840,57648,57768,57768,57576,57576,57648,57576, 2 57648,60936,61008,60912,57288,57384,57336,57456,57480,57264, 3 57144,57120,56952,57144,57216,60456,60480,60432,60384,60048, 4 59976,59976,57192,57264,57192,57600,57480,57576,56472,56496, 5 56568,56520,56328,56352,56256,56304,57096,57048,57000,57024, 6 57240,57192,57072,57240,57312,57336,60816,60840,60888,60840, 7 60696,60720,56280,56208,56160,57360,57432,57432,57504,57408, 8 57384,57288,57096,57408,57384,57528,57816,57744,57792,57648, 9 57600,57480,57360,57240,57336,56712,56808,56784,56832,56760/ data (jy(i),i= 4201, 4300)/ + 56976,56904,56928,57672,57504,57816,57768,56976,57000,57096, 1 57024,56736,56688,56616,56664,56616,56712,56784,57936,58008, 2 57936,57072,57096,57168,57120,58104,58080,57984,57552,57528, 3 57552,57672,57864,57864,57816,56832,56856,56952,56904,57576, 4 57552,57624,57672,57480,57456,57408,56544,56496,56784,56736, 5 56568,57024,56976,57000,57072,58056,57864,57816,57912,56376, 6 56424,56472,56304,56280,57312,57288,57216,57240,57312,57936, 7 57936,57840,57792,57768,57648,57696,57768,57744,57624,57600, 8 57504,57528,57672,57648,57744,57816,57792,57840,57936,57864, 9 58032,58056,58104,56328,56208,56232,56424,58128,58152,58200/ data (jy(i),i= 4301, 4400)/ + 58272,57000,56784,56952,57048,56952,57120,55848,55656,55560, 1 55584,55728,55848,56472,56280,56472,56472,56592,56568,56616, 2 57384,57408,57504,57096,57048,57120,58128,58224,58296,58200, 3 57360,57432,57408,57480,57528,57480,57600,57648,57480,57480, 4 57360,57384,57264,57384,57264,57288,57192,57168,57024,57240, 5 57288,57336,57312,57144,57168,57216,58128,58080,58080,57936, 6 58032,58104,58176,57912,57840,57864,57960,55944,55992,55944, 7 56112,56184,56112,56040,55920,57744,57768,57816,57768,58344, 8 58344,58272,57864,57912,57936,57864,55704,55728,55776,57888, 9 57816,57816,55296,55248,55248,55104,54960,54888,54720,54456/ data (jy(i),i= 4401, 4430)/ + 54744,54816,54768,55008,55176,55224,58296,58296,58176,55704, 1 55776,55728,51576,51216,51216,51096,51096,51216,51216,51408, 2 51432,51504,51792,51720,51864,51864,51672, 0, 0, 0/ data (jb1(i),i= 1, 100)/ + 34, 6, 3, 4, 2, 1, 1, 5, 39, 40, 1 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 2 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 3 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 4 71, 72, 73, 7, 7, 75, 76, 77, 78, 79, 5 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 6 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 7 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 8 110, 111, 9, 10, 8, 11, 114, 115, 116, 117, 9 118, 119, 120, 9, 11, 122, 123, 124, 125, 12/ data (jb1(i),i= 101, 200)/ + 10, 127, 128, 129, 130, 131, 132, 133, 134, 135, 1 136, 137, 13, 12, 139, 140, 141, 142, 143, 144, 2 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 3 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 4 165, 166, 167, 168, 169, 170, 171, 172, 173, 14, 5 13, 175, 176, 177, 178, 179, 180, 181, 182, 183, 6 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 7 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 8 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 9 214, 215, 216, 217, 218, 219, 220, 221, 222, 223/ data (jb1(i),i= 201, 300)/ + 224, 225, 226, 15, 18, 19, 19, 16, 14, 228, 1 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 2 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 3 249, 250, 251, 252, 253, 254, 255, 256, 257, 258, 4 259, 260, 261, 262, 263, 264, 265, 266, 267, 268, 5 269, 270, 271, 272, 273, 16, 15, 275, 276, 277, 6 278, 279, 280, 281, 282, 283, 284, 285, 286, 287, 7 288, 289, 290, 291, 292, 293, 294, 295, 296, 297, 8 298, 299, 300, 301, 302, 303, 17, 20, 305, 306, 9 307, 308, 309, 310, 311, 312, 313, 314, 315, 316/ data (jb1(i),i= 301, 400)/ + 317, 318, 319, 320, 321, 322, 323, 324, 325, 326, 1 327, 328, 329, 330, 331, 332, 333, 18, 20, 335, 2 336, 337, 338, 339, 340, 341, 342, 343, 344, 345, 3 346, 347, 348, 349, 350, 351, 352, 353, 354, 355, 4 356, 357, 358, 359, 360, 361, 362, 363, 364, 365, 5 366, 24, 17, 368, 369, 370, 371, 372, 373, 374, 6 375, 376, 377, 378, 379, 380, 381, 382, 383, 384, 7 385, 386, 387, 388, 389, 390, 391, 392, 393, 394, 8 395, 396, 397, 398, 399, 400, 401, 402, 403, 404, 9 405, 406, 407, 408, 23, 26, 410, 411, 412, 413/ data (jb1(i),i= 401, 500)/ + 414, 415, 416, 417, 24, 23, 419, 420, 421, 422, 1 423, 424, 425, 426, 427, 428, 429, 430, 431, 432, 2 433, 434, 435, 436, 437, 438, 439, 440, 25, 26, 3 442, 443, 444, 445, 446, 447, 448, 449, 450, 451, 4 452, 453, 454, 455, 456, 457, 458, 459, 460, 461, 5 462, 463, 464, 465, 466, 467, 468, 469, 470, 471, 6 472, 473, 474, 475, 476, 477, 478, 479, 480, 481, 7 482, 483, 484, 485, 486, 487, 488, 489, 490, 491, 8 492, 493, 494, 495, 496, 497, 498, 499, 500, 501, 9 502, 503, 504, 505, 506, 507, 508, 509, 510, 511/ data (jb1(i),i= 501, 600)/ + 512, 513, 514, 515, 516, 517, 518, 519, 520, 521, 1 522, 523, 524, 525, 526, 527, 528, 529, 530, 531, 2 532, 533, 534, 535, 536, 537, 538, 539, 540, 541, 3 542, 543, 544, 545, 546, 547, 548, 549, 550, 551, 4 552, 553, 554, 555, 556, 557, 31, 559, 560, 561, 5 562, 563, 564, 565, 566, 567, 568, 569, 570, 571, 6 572, 573, 574, 575, 576, 577, 578, 579, 580, 581, 7 582, 583, 584, 585, 586, 587, 588, 589, 590, 591, 8 592, 593, 594, 595, 596, 27, 27, 598, 599, 600, 9 601, 602, 603, 604, 605, 606, 607, 608, 609, 610/ data (jb1(i),i= 601, 700)/ + 611, 612, 613, 28, 25, 615, 616, 617, 618, 619, 1 620, 621, 622, 623, 624, 625, 626, 627, 628, 629, 2 630, 631, 632, 633, 634, 635, 31, 558, 637, 638, 3 639, 640, 641, 642, 643, 644, 645, 646, 647, 648, 4 649, 650, 651, 652, 653, 654, 655, 656, 657, 658, 5 659, 660, 661, 662, 663, 664, 665, 666, 667, 29, 6 30, 669, 670, 671, 672, 673, 674, 675, 676, 677, 7 678, 679, 680, 681, 682, 683, 684, 685, 686, 687, 8 688, 689, 690, 691, 692, 693, 694, 695, 696, 697, 9 698, 699, 700, 701, 702, 703, 704, 705, 32, 32/ data (jb1(i),i= 701, 800)/ + 707, 708, 709, 710, 34, 28, 712, 713, 714, 715, 1 716, 717, 718, 719, 720, 721, 722, 723, 724, 725, 2 726, 727, 728, 729, 730, 731, 732, 733, 734, 735, 3 736, 737, 738, 739, 740, 741, 742, 743, 744, 745, 4 746, 747, 748, 749, 750, 751, 33, 753, 754, 755, 5 756, 757, 758, 759, 760, 761, 762, 763, 764, 765, 6 766, 767, 768, 769, 770, 771, 772, 773, 774, 775, 7 776, 777, 778, 779, 780, 781, 782, 783, 784, 785, 8 786, 787, 788, 789, 790, 791, 792, 793, 794, 795, 9 796, 797, 798, 799, 800, 801, 802, 803, 804, 805/ data (jb1(i),i= 801, 900)/ + 806, 807, 808, 809, 810, 811, 812, 813, 814, 815, 1 816, 817, 818, 819, 820, 821, 822, 823, 824, 825, 2 826, 827, 828, 829, 830, 831, 832, 833, 834, 835, 3 836, 837, 838, 839, 840, 841, 842, 843, 844, 845, 4 846, 847, 848, 849, 850, 851, 852, 853, 854, 855, 5 856, 857, 858, 859, 860, 861, 862, 863, 864, 865, 6 866, 867, 868, 869, 870, 871, 872, 873, 29, 875, 7 876, 877, 878, 879, 880, 881, 882, 883, 884, 885, 8 886, 887, 888, 889, 890, 891, 892, 893, 894, 895, 9 896, 897, 898, 899, 900, 901, 902, 903, 904, 905/ data (jb1(i),i= 901, 1000)/ + 906, 907, 908, 909, 910, 911, 912, 913, 914, 915, 1 916, 917, 918, 919, 920, 921, 922, 923, 924, 925, 2 926, 927, 928, 753, 37, 930, 931, 932, 933, 934, 3 935, 936, 937, 938, 939, 940, 941, 942, 943, 944, 4 945, 946, 947, 948, 949, 950, 951, 952, 953, 954, 5 955, 956, 957, 958, 959, 960, 961, 962, 963, 964, 6 965, 966, 967, 968, 969, 970, 971, 972, 973, 974, 7 975, 976, 977, 978, 979, 980, 981, 982, 983, 984, 8 985, 986, 987, 988, 989, 990, 991, 992, 993, 994, 9 995, 996, 997, 998, 30, 33, 1000, 1001, 1002, 1003/ data (jb1(i),i= 1001, 1100)/ + 1004, 1005, 1006, 1007, 1008, 1009, 1010, 1011, 1012, 1013, 1 1014, 1015, 1016, 1017, 1018, 1019, 1020, 1021, 1022, 1023, 2 1024, 1025, 1026, 1027, 1028, 1029, 1030, 1031, 1032, 1033, 3 1034, 1035, 1036, 1037, 1038, 1039, 1040, 1041, 1042, 1043, 4 1044, 1045, 1046, 1047, 1048, 1049, 1050, 1051, 1052, 1053, 5 1054, 1055, 1056, 1057, 1058, 1059, 1060, 1061, 1062, 38, 6 1064, 1065, 37, 35, 1067, 1068, 1069, 1070, 1071, 1072, 7 1073, 1074, 1075, 1076, 1077, 1078, 1079, 1080, 1081, 1082, 8 1083, 1084, 1085, 1086, 1087, 1088, 1089, 1090, 1091, 1092, 9 1093, 1094, 1095, 1096, 1097, 1098, 1099, 1100, 1101, 1102/ data (jb1(i),i= 1101, 1200)/ + 1103, 1104, 1105, 1106, 1107, 1108, 1109, 1110, 1111, 1112, 1 1113, 1114, 1115, 1116, 1117, 1118, 1119, 1120, 1121, 1122, 2 1123, 1124, 1125, 1126, 1127, 1128, 1129, 1130, 1131, 1132, 3 1133, 1134, 1135, 1136, 1137, 1138, 1139, 1140, 1141, 1142, 4 1143, 1144, 1145, 1146, 1147, 1148, 1149, 1150, 1151, 1152, 5 1153, 1154, 1155, 1156, 1157, 1158, 1159, 1160, 1161, 1162, 6 1163, 1164, 1165, 1166, 1167, 1168, 1169, 1170, 1171, 1172, 7 1173, 1174, 1175, 1176, 1177, 1178, 1179, 1180, 1181, 1182, 8 1183, 1184, 1185, 1186, 1187, 1188, 1190, 1191, 1192, 1193, 9 1194, 1195, 1196, 1197, 1198, 1199, 1200, 1201, 1202, 1203/ data (jb1(i),i= 1201, 1300)/ + 1204, 1205, 1206, 1207, 1208, 1209, 1210, 1211, 1212, 1213, 1 1214, 1215, 1216, 1217, 1218, 1219, 1220, 1221, 1222, 1223, 2 1224, 1225, 1226, 1227, 1228, 1229, 1230, 1231, 1232, 1233, 3 1234, 1235, 1236, 1237, 1238, 1239, 1240, 1241, 1242, 1243, 4 1244, 1245, 1246, 1247, 1248, 1249, 1250, 1251, 1252, 1253, 5 1254, 1255, 1256, 1257, 1258, 1259, 1260, 1261, 1262, 1263, 6 1264, 1265, 1266, 1267, 1268, 1269, 1270, 1271, 1272, 1273, 7 1274, 1275, 1276, 1277, 1278, 1279, 1280, 1281, 1282, 1283, 8 1284, 1285, 1286, 1287, 1288, 1289, 1290, 1291, 36, 1063, 9 1293, 1294, 1295, 1296, 1297, 1298, 1299, 1300, 1301, 1302/ data (jb1(i),i= 1301, 1400)/ + 1303, 1304, 1305, 1306, 1307, 1308, 1309, 1310, 1311, 1312, 1 1313, 1314, 1315, 1316, 1317, 1318, 1319, 1320, 1190, 36, 2 1322, 1323, 1324, 1325, 1326, 1327, 1328, 1329, 1330, 1331, 3 1332, 1333, 1334, 1335, 1336, 1337, 1338, 1339, 1340, 1341, 4 1342, 1343, 1344, 1345, 1346, 1347, 1348, 1349, 1350, 1351, 5 1352, 1353, 1354, 1355, 1356, 1357, 1358, 1359, 1360, 1361, 6 1362, 1363, 1364, 1365, 1366, 1367, 1368, 1369, 1370, 1371, 7 1372, 1373, 1374, 1375, 1376, 38, 1189, 1378, 1379, 1380, 8 1381, 1382, 1383, 1384, 1385, 1386, 1387, 1388, 1389, 1390, 9 1391, 1392, 1393, 1394, 1395, 1396, 1397, 1398, 1399, 1400/ data (jb1(i),i= 1401, 1500)/ + 1401, 1402, 1403, 1404, 1405, 1406, 1407, 1408, 1409, 1410, 1 1411, 1412, 1413, 1414, 1415, 1416, 1417, 1418, 1419, 1420, 2 1421, 1422, 1423, 1424, 1425, 1426, 1427, 1428, 1429, 1430, 3 1431, 1432, 1433, 1434, 1435, 1436, 1437, 1438, 1439, 1440, 4 1441, 1442, 1443, 1444, 1445, 1446, 1447, 1448, 1449, 1450, 5 1451, 1452, 1453, 1454, 1455, 1456, 1457, 1458, 1459, 1460, 6 1461, 1462, 1463, 1464, 1465, 1466, 1467, 1468, 1469, 1470, 7 1471, 1472, 1473, 1474, 1475, 1476, 1477, 1478, 1479, 1480, 8 1481, 1482, 1483, 1484, 1485, 1486, 1487, 1488, 1489, 1490, 9 1491, 1492, 1493, 1494, 1495, 1496, 1497, 1498, 1499, 1500/ data (jb1(i),i= 1501, 1600)/ + 1501, 1502, 1503, 1504, 875, 1506, 1507, 1508, 1509, 1510, 1 1511, 1512, 1513, 1514, 1515, 1516, 1517, 1518, 1519, 2, 2 1520, 1521, 1522, 1523, 3, 1525, 1526, 1527, 1528, 1529, 3 1530, 1532, 1533, 1534, 1535, 1536, 1537, 1538, 1539, 1540, 4 1541, 1542, 1543, 1544, 1545, 1546, 1547, 1548, 5, 1549, 5 1550, 1551, 1552, 1553, 1554, 1555, 1556, 1557, 1558, 1559, 6 1560, 1561, 1562, 1563, 1564, 1565, 1566, 1567, 1568, 1569, 7 1570, 1571, 1572, 1573, 1574, 1575, 1506, 1577, 1578, 1579, 8 1580, 1581, 1582, 1583, 1584, 1585, 1576, 1587, 1532, 1586, 9 1589, 1590, 1591, 1592, 1593, 1524, 1524, 1595, 1596, 1597/ data (jb1(i),i= 1601, 1700)/ + 1598, 1599, 1600, 1601, 1531, 1603, 1604, 1605, 1606, 1607, 1 1608, 1609, 1610, 1611, 1612, 1613, 1614, 1615, 1616, 1617, 2 1618, 1619, 1620, 1621, 1622, 1623, 1624, 7, 1625, 1626, 3 1627, 1576, 1629, 1630, 1628, 1632, 1633, 1634, 1635, 1636, 4 1637, 1638, 1639, 1640, 1641, 1642, 1643, 1644, 1645, 1646, 5 1647, 1648, 1649, 1650, 1532, 1506, 1652, 1653, 1654, 1655, 6 1656, 1657, 1658, 1659, 1660, 1661, 1662, 1663, 1664, 1665, 7 1666, 1667, 1668, 1669, 1670, 1671, 1672, 1632, 1586, 1602, 8 1675, 1674, 1677, 1676, 1679, 1680, 1681, 1682, 1683, 1684, 9 1628, 1531, 1686, 1687, 1688, 1689, 1690, 1691, 1692, 1603/ data (jb1(i),i= 1701, 1800)/ + 1676, 1694, 1695, 1696, 1697, 1632, 1699, 1700, 1701, 1702, 1 1703, 1705, 1706, 1674, 1704, 1708, 1709, 1710, 1705, 1712, 2 1713, 1714, 1715, 1716, 1717, 1718, 1719, 1720, 1721, 1722, 3 1723, 1724, 1725, 1726, 1727, 1728, 1729, 1730, 1731, 1732, 4 1733, 1734, 1735, 1736, 1737, 1738, 1739, 1740, 1741, 1742, 5 1743, 1744, 1745, 1746, 1747, 1748, 1749, 1750, 1751, 1752, 6 1753, 1754, 1755, 1756, 1757, 1758, 1759, 1760, 1761, 1762, 7 1763, 1764, 1765, 1766, 1767, 1768, 1769, 1770, 1771, 1772, 8 1773, 1774, 1775, 1776, 1777, 1778, 1779, 1780, 1781, 1782, 9 1783, 1784, 1785, 1786, 1787, 1788, 1789, 1790, 1791, 1792/ data (jb1(i),i= 1801, 1900)/ + 1793, 1794, 1795, 1796, 1712, 1798, 1799, 1800, 1801, 1802, 1 1803, 1804, 1805, 1806, 1603, 1712, 1808, 1809, 1810, 1811, 2 1812, 1813, 1814, 1815, 1816, 1817, 1818, 1808, 1819, 1820, 3 1821, 1822, 1823, 1824, 1825, 1826, 1827, 1828, 1829, 1830, 4 1831, 1832, 1833, 1834, 1835, 1836, 1837, 1838, 1839, 1679, 5 1797, 1841, 1842, 1843, 1844, 1845, 1846, 1847, 1848, 1849, 6 1850, 1851, 1852, 1853, 1854, 1855, 1679, 1856, 1857, 1858, 7 1859, 1860, 1861, 1862, 1863, 1864, 1865, 1866, 1867, 1868, 8 1869, 1870, 1871, 1872, 1873, 1874, 1875, 1876, 1877, 1878, 9 1879, 1880, 1881, 1882, 1883, 1884, 1885, 1886, 1887, 1704/ data (jb1(i),i= 1901, 2000)/ + 1705, 1698, 1890, 1891, 1892, 1893, 1798, 1698, 11, 1873, 1 1895, 1896, 1897, 1898, 1899, 1900, 1901, 1902, 1903, 1904, 2 1905, 1906, 1907, 1908, 1909, 1910, 1911, 1912, 1913, 1914, 3 1915, 1917, 1918, 1919, 1920, 1921, 1922, 1923, 1924, 1925, 4 1926, 1927, 1928, 1929, 1930, 1931, 1932, 1933, 1934, 1935, 5 1936, 1937, 1938, 1939, 1940, 1941, 1942, 1943, 1944, 1945, 6 1890, 1797, 1947, 1948, 1949, 1950, 1951, 1952, 1953, 1954, 7 1955, 1956, 1957, 1958, 1959, 1960, 1961, 1962, 1963, 1964, 8 1965, 1966, 1967, 1968, 1916, 1970, 1971, 1972, 1889, 1808, 9 1974, 1975, 1976, 1977, 1978, 1979, 1980, 1981, 1982, 1983/ data (jb1(i),i= 2001, 2100)/ + 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1891, 1 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2 2004, 2005, 2006, 2007, 1969, 1916, 2009, 2010, 2011, 2012, 3 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021, 2022, 4 2023, 2024, 2025, 2026, 2027, 2028, 2029, 2030, 1993, 1969, 5 2032, 2033, 2034, 2035, 2036, 2037, 2038, 2039, 1973, 2040, 6 2041, 2042, 2043, 2044, 2045, 2046, 2047, 2048, 1917, 1993, 7 2050, 2051, 2052, 2053, 2054, 2055, 2056, 2057, 1972, 2039, 8 2059, 2060, 2061, 2062, 1917, 2064, 2065, 2066, 2067, 2068, 9 2069, 2070, 2071, 2072, 2073, 2074, 2075, 2076, 2078, 2079/ data (jb1(i),i= 2101, 2200)/ + 2080, 2081, 2082, 2083, 2084, 2085, 2086, 2087, 2088, 2089, 1 2090, 2091, 2092, 2093, 2094, 2095, 2096, 2097, 2098, 2099, 2 2100, 2101, 2102, 2103, 2104, 2105, 2106, 2107, 2108, 2109, 3 2110, 2111, 2112, 2113, 2114, 2115, 2116, 2117, 2118, 2119, 4 2120, 2121, 2122, 2123, 2124, 2125, 2047, 2078, 2127, 2128, 5 2129, 2130, 2131, 2132, 2133, 2134, 2135, 2136, 2137, 2138, 6 2139, 2140, 2141, 2077, 2077, 2143, 2144, 2145, 2146, 2147, 7 2148, 2149, 2150, 2151, 2152, 2153, 2154, 2155, 2156, 2157, 8 2158, 2159, 2160, 2063, 2162, 2163, 2161, 15, 2165, 2166, 9 2167, 2168, 2169, 2170, 2171, 2063, 2078, 2173, 2174, 2175/ data (jb1(i),i= 2201, 2300)/ + 2176, 2177, 2178, 2179, 2180, 2181, 2182, 2183, 2184, 2185, 1 2186, 2187, 2188, 2189, 2190, 2191, 2192, 2193, 2194, 2195, 2 2058, 2197, 2198, 2199, 2200, 2201, 2202, 2203, 2204, 2205, 3 2206, 2207, 2208, 2209, 2210, 2211, 2212, 2213, 2214, 2215, 4 2216, 2217, 2218, 2219, 2220, 2221, 2222, 2223, 2224, 2225, 5 2226, 2227, 2228, 2229, 2230, 2231, 2232, 2233, 2234, 2235, 6 2236, 2237, 2238, 2239, 2240, 2241, 2242, 2243, 2244, 2245, 7 2055, 2058, 2247, 2248, 2249, 2250, 2251, 2252, 2253, 2254, 8 2255, 2256, 2257, 2258, 2259, 2260, 2261, 2262, 2263, 2264, 9 2265, 2266, 2267, 2268, 2269, 2270, 2271, 2197, 2197, 2273/ data (jb1(i),i= 2301, 2400)/ + 2274, 2275, 2276, 2277, 2278, 2279, 2280, 2281, 2282, 2283, 1 2284, 2285, 2286, 2287, 2161, 2289, 2290, 2291, 2292, 2293, 2 2294, 2295, 2296, 2297, 2298, 2299, 2300, 2301, 2302, 2304, 3 2305, 2306, 2307, 2308, 2309, 2310, 2311, 2312, 2313, 2314, 4 2315, 2316, 2193, 2288, 2319, 2320, 2321, 2288, 2318, 2323, 5 2324, 2319, 16, 2326, 2319, 2328, 2329, 2330, 2331, 2332, 6 2333, 2334, 2335, 2336, 2337, 2338, 2339, 2340, 2341, 2342, 7 2343, 2344, 2304, 2303, 2346, 2328, 2303, 2348, 2349, 2350, 8 2351, 2352, 2353, 2354, 2355, 2318, 2356, 2357, 2358, 2359, 9 2360, 2361, 2362, 2363, 2364, 2365, 2304, 18, 2367, 2368/ data (jb1(i),i= 2401, 2500)/ + 2369, 2370, 2371, 2372, 2373, 2374, 2375, 2377, 2378, 2379, 1 2380, 2381, 2382, 2383, 2384, 2385, 2386, 2387, 2388, 2389, 2 2390, 2391, 2392, 2376, 2393, 21, 2327, 2395, 2396, 2397, 3 2398, 2399, 2400, 2401, 2402, 2403, 2404, 2405, 2406, 2407, 4 2408, 2409, 2410, 2411, 2412, 2413, 2414, 2415, 2416, 2417, 5 2418, 2419, 2420, 2421, 2394, 2377, 2424, 2425, 2426, 2423, 6 22, 2428, 2429, 2430, 2431, 2432, 2433, 2434, 2435, 2436, 7 2437, 2438, 2439, 2440, 2441, 2442, 2443, 2444, 2445, 2446, 8 2447, 2448, 2449, 2450, 2451, 2452, 2453, 2454, 2455, 2422, 9 2377, 2457, 2458, 2459, 2460, 2456, 2462, 2463, 2464, 2465/ data (jb1(i),i= 2501, 2600)/ + 2466, 2467, 2468, 2469, 2470, 2471, 2472, 2473, 2474, 2362, 1 2422, 2476, 2477, 2478, 2479, 2480, 2481, 2482, 2483, 2484, 2 2485, 2487, 2488, 2489, 2490, 2491, 2486, 2462, 2328, 2493, 3 2494, 2495, 2496, 2497, 2498, 2363, 2500, 2501, 2502, 2503, 4 2504, 2505, 2506, 2507, 2508, 2509, 2510, 2511, 2512, 2513, 5 2514, 2499, 2516, 2517, 2518, 2519, 2498, 2349, 2521, 2516, 6 2523, 2524, 2525, 2526, 2527, 2528, 2529, 2530, 2531, 2532, 7 2533, 2462, 2487, 2535, 2536, 2537, 2538, 2539, 2540, 2541, 8 2542, 2543, 2544, 2545, 2546, 2547, 2548, 2549, 2550, 2551, 9 2552, 2553, 2554, 2555, 2516, 2557, 2558, 2559, 2560, 2561/ data (jb1(i),i= 2601, 2700)/ + 2423, 2562, 2563, 2564, 2565, 2566, 2567, 2568, 2569, 2570, 1 2571, 2572, 2573, 2574, 2575, 2576, 2577, 2578, 2579, 2580, 2 2581, 2582, 2583, 2584, 2461, 2586, 2587, 2588, 2589, 2590, 3 2591, 2592, 2593, 2594, 2595, 2596, 2597, 2598, 2599, 2600, 4 2601, 2602, 2603, 2604, 2605, 2606, 2607, 2608, 2609, 2610, 5 2611, 2612, 2486, 2585, 2614, 2615, 2616, 2617, 2618, 2604, 6 2394, 2620, 2621, 2622, 2623, 2624, 2625, 2626, 2627, 2628, 7 2629, 2630, 2631, 2632, 2634, 2635, 2636, 2637, 2638, 2639, 8 2523, 2515, 2641, 2642, 2643, 2644, 2645, 2646, 2634, 2633, 9 2648, 2649, 2650, 2376, 2652, 2653, 2654, 2651, 2655, 2657/ data (jb1(i),i= 2701, 2800)/ + 2658, 2659, 2660, 2661, 2662, 2633, 2585, 2664, 2665, 2666, 1 2667, 2668, 2669, 2670, 2671, 2672, 2673, 2674, 2675, 2676, 2 2677, 2678, 2679, 2680, 2681, 2682, 2683, 2684, 2685, 2686, 3 2687, 2657, 2657, 2656, 2690, 2691, 2692, 2693, 2694, 2695, 4 2696, 2697, 2698, 2699, 2700, 2701, 2702, 2634, 2703, 2704, 5 2705, 2706, 2707, 2708, 2709, 2710, 2711, 2712, 2713, 2651, 6 2715, 2716, 2717, 2718, 2719, 2721, 2722, 2723, 2724, 2725, 7 2726, 2727, 2728, 2729, 2730, 2731, 2732, 2733, 2734, 2735, 8 2736, 2737, 2738, 2739, 2740, 2741, 2742, 2743, 2499, 2689, 9 2745, 2746, 2748, 2749, 2750, 2751, 2752, 2753, 2754, 2755/ data (jb1(i),i= 2801, 2900)/ + 2756, 2757, 2758, 2759, 2760, 2761, 2762, 2763, 2764, 2765, 1 2766, 2767, 2768, 2523, 2747, 2770, 2771, 2772, 2773, 2774, 2 2775, 2617, 2777, 2778, 2779, 2780, 2781, 2782, 2776, 2721, 3 2784, 2785, 2786, 2787, 2788, 2789, 2790, 2791, 2792, 2714, 4 2556, 2794, 2795, 2796, 2797, 2798, 2799, 2800, 2801, 2802, 5 2803, 2804, 2805, 2806, 2807, 2808, 2809, 2810, 2811, 2812, 6 2813, 2814, 2748, 2748, 2816, 2817, 2818, 2819, 2820, 2821, 7 2822, 2823, 2824, 2825, 2826, 2827, 2714, 2829, 2830, 2831, 8 2829, 2832, 2833, 2834, 2835, 2836, 2837, 2838, 2839, 2840, 9 2841, 2842, 2843, 2557, 2721, 2845, 2846, 2847, 2848, 2849/ data (jb1(i),i= 2901, 3000)/ + 2850, 2851, 2829, 2776, 2556, 2854, 2855, 2856, 2857, 2858, 1 2853, 2853, 2860, 2861, 2862, 2864, 2865, 2866, 2867, 2868, 2 2869, 2870, 2656, 2872, 2873, 2874, 2875, 2876, 2877, 2747, 3 2689, 2879, 2880, 2881, 2882, 2883, 2884, 2885, 2886, 2887, 4 2888, 2889, 2890, 2891, 2872, 2893, 2894, 2895, 2896, 2897, 5 2898, 2899, 2892, 2892, 2901, 2902, 2903, 2720, 26, 2905, 6 2906, 2907, 2908, 2909, 2910, 2911, 2912, 2913, 2914, 2915, 7 2916, 2917, 2918, 2919, 2920, 2921, 2922, 2923, 2924, 2925, 8 2926, 2927, 2864, 2929, 2930, 2931, 2932, 2933, 2934, 2935, 9 2936, 2651, 2816, 2938, 2939, 2863, 2940, 2941, 2942, 2943/ data (jb1(i),i= 3001, 3100)/ + 2944, 2872, 2862, 2946, 2947, 2948, 2949, 2950, 2951, 2952, 1 2953, 2954, 2955, 2956, 2957, 2958, 2959, 2863, 2961, 2962, 2 2963, 2964, 2965, 2966, 2967, 2968, 2969, 2970, 2960, 2720, 3 2972, 2973, 2974, 2975, 2976, 2977, 2978, 2979, 2980, 2981, 4 2982, 2983, 2929, 2921, 2985, 2986, 2987, 2988, 2989, 2990, 5 2991, 2992, 2993, 2994, 2995, 2996, 2997, 2998, 2942, 2999, 6 3000, 2960, 2929, 3002, 3003, 3004, 3005, 3006, 3007, 3008, 7 2852, 3009, 2864, 3010, 3011, 3012, 3013, 3014, 3015, 3016, 8 3017, 3018, 3019, 3020, 3021, 3022, 3023, 2999, 3024, 3025, 9 3026, 3027, 3028, 3029, 3030, 3031, 3032, 3033, 3034, 3035/ data (jb1(i),i= 3101, 3200)/ + 2942, 3036, 3037, 3038, 3039, 3040, 3041, 3042, 3043, 3044, 1 3045, 3046, 3047, 3048, 3049, 3050, 3051, 3052, 3053, 3054, 2 3055, 3056, 3057, 3058, 3059, 3060, 3061, 3062, 3063, 3064, 3 37, 3065, 3066, 1, 2, 3, 1, 5, 6, 7, 4 5, 9, 10, 11, 9, 13, 14, 13, 16, 17, 5 18, 16, 20, 21, 20, 23, 24, 25, 26, 27, 6 23, 29, 30, 31, 29, 33, 34, 33, 36, 37, 7 38, 36, 40, 41, 42, 40, 44, 45, 46, 47, 8 48, 49, 50, 51, 52, 53, 54, 55, 56, 44, 9 58, 59, 60, 58, 62, 63, 64, 65, 66, 67/ data (jb1(i),i= 3201, 3300)/ + 62, 69, 70, 69, 72, 73, 74, 75, 76, 77, 1 72, 79, 80, 81, 79, 83, 84, 85, 83, 87, 2 88, 87, 90, 91, 92, 90, 94, 95, 94, 97, 3 98, 99, 100, 97, 102, 103, 102, 105, 106, 105, 4 108, 109, 110, 111, 112, 108, 114, 115, 114, 117, 5 118, 117, 120, 121, 122, 120, 124, 125, 124, 127, 6 128, 127, 130, 131, 132, 130, 134, 135, 136, 137, 7 138, 139, 134, 141, 142, 141, 144, 145, 146, 144, 8 148, 149, 148, 151, 152, 153, 151, 155, 156, 155, 9 158, 159, 160, 161, 162, 163, 164, 165, 166, 167/ data (jb1(i),i= 3301, 3400)/ + 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 1 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 2 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 3 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 4 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 5 218, 219, 220, 221, 222, 158, 224, 225, 226, 227, 6 224, 229, 230, 231, 232, 233, 234, 235, 236, 237, 7 238, 229, 240, 241, 240, 243, 244, 243, 246, 247, 8 246, 249, 250, 251, 249, 253, 254, 255, 253, 257, 9 258, 259, 257, 261, 262, 263, 264, 265, 261, 267/ data (jb1(i),i= 3401, 3500)/ + 268, 267, 270, 271, 270, 273, 274, 273, 276, 277, 1 276, 279, 280, 281, 282, 283, 284, 285, 286, 287, 2 279, 289, 290, 289, 292, 293, 294, 295, 296, 292, 3 298, 299, 300, 301, 298, 303, 304, 305, 303, 307, 4 308, 309, 310, 311, 312, 313, 314, 315, 316, 317, 5 318, 319, 320, 321, 322, 323, 324, 325, 326, 327, 6 328, 329, 330, 331, 332, 333, 334, 335, 336, 337, 7 338, 339, 340, 341, 342, 343, 307, 345, 346, 347, 8 348, 349, 345, 351, 352, 351, 354, 355, 356, 357, 9 358, 359, 354, 361, 362, 363, 364, 361, 366, 367/ data (jb1(i),i= 3501, 3600)/ + 366, 369, 370, 371, 369, 373, 374, 375, 373, 377, 1 378, 379, 377, 381, 382, 383, 384, 385, 386, 381, 2 388, 389, 388, 391, 392, 393, 394, 395, 396, 397, 3 391, 399, 400, 399, 402, 403, 402, 405, 406, 407, 4 405, 409, 410, 411, 412, 409, 414, 415, 416, 417, 5 414, 419, 420, 419, 422, 423, 424, 425, 426, 422, 6 428, 429, 428, 431, 432, 433, 434, 431, 436, 437, 7 438, 436, 440, 441, 442, 443, 440, 445, 446, 445, 8 448, 449, 450, 451, 452, 453, 454, 455, 456, 457, 9 458, 459, 460, 461, 462, 463, 448, 465, 466, 465/ data (jb1(i),i= 3601, 3700)/ + 468, 469, 470, 471, 472, 473, 474, 475, 468, 477, 1 478, 479, 480, 481, 482, 483, 484, 477, 486, 487, 2 488, 486, 490, 491, 490, 493, 494, 493, 496, 497, 3 498, 496, 500, 501, 502, 503, 500, 505, 506, 505, 4 508, 509, 510, 508, 512, 513, 514, 515, 516, 517, 5 518, 519, 520, 521, 522, 523, 524, 525, 526, 527, 6 528, 529, 530, 531, 532, 533, 534, 535, 536, 537, 7 538, 539, 540, 541, 542, 543, 544, 545, 546, 547, 8 548, 549, 550, 512, 552, 553, 554, 555, 552, 557, 9 558, 559, 557, 561, 562, 563, 564, 565, 566, 567/ data (jb1(i),i= 3701, 3800)/ + 561, 569, 570, 571, 569, 573, 574, 573, 576, 577, 1 578, 579, 580, 581, 582, 583, 584, 585, 576, 587, 2 588, 589, 590, 587, 592, 593, 592, 595, 596, 597, 3 595, 599, 600, 599, 602, 603, 604, 602, 606, 607, 4 608, 606, 610, 611, 612, 610, 614, 615, 616, 617, 5 614, 619, 620, 619, 622, 623, 624, 622, 626, 627, 6 628, 626, 630, 631, 632, 630, 634, 635, 634, 637, 7 638, 637, 640, 641, 642, 643, 644, 645, 646, 647, 8 648, 649, 650, 640, 652, 653, 654, 655, 656, 652, 9 658, 659, 660, 658, 662, 663, 664, 662, 666, 667/ data (jb1(i),i= 3801, 3900)/ + 668, 669, 670, 671, 672, 673, 674, 675, 676, 677, 1 678, 679, 680, 666, 682, 683, 684, 685, 682, 687, 2 688, 689, 690, 691, 692, 693, 694, 695, 696, 697, 3 698, 699, 700, 687, 702, 703, 704, 702, 706, 707, 4 708, 706, 710, 711, 710, 713, 714, 715, 713, 717, 5 718, 719, 717, 721, 722, 723, 721, 725, 726, 725, 6 728, 729, 730, 728, 732, 733, 734, 735, 736, 737, 7 738, 739, 732, 741, 742, 741, 744, 745, 744, 747, 8 748, 747, 750, 751, 752, 753, 750, 755, 756, 757, 9 758, 759, 755, 761, 762, 763, 764, 761, 766, 767/ data (jb1(i),i= 3901, 4000)/ + 766, 769, 770, 771, 769, 773, 774, 773, 776, 777, 1 778, 779, 780, 776, 782, 783, 782, 785, 786, 785, 2 788, 789, 790, 791, 788, 793, 794, 795, 796, 797, 3 793, 799, 800, 799, 802, 803, 804, 802, 806, 807, 4 806, 809, 810, 809, 812, 813, 812, 815, 816, 817, 5 818, 819, 820, 815, 822, 823, 824, 825, 826, 827, 6 828, 829, 830, 831, 832, 833, 834, 835, 822, 837, 7 838, 839, 837, 841, 842, 843, 841, 845, 846, 847, 8 848, 849, 850, 851, 845, 853, 854, 855, 856, 853, 9 858, 859, 860, 858, 862, 863, 862, 865, 866, 867/ data (jb1(i),i= 4001, 4100)/ + 868, 865, 870, 871, 870, 873, 874, 875, 873, 877, 1 878, 879, 877, 881, 882, 883, 884, 885, 886, 887, 2 888, 889, 890, 891, 892, 893, 894, 895, 896, 881, 3 898, 899, 900, 898, 902, 903, 902, 905, 906, 907, 4 908, 909, 910, 911, 912, 913, 914, 915, 916, 917, 5 918, 919, 920, 921, 922, 905, 924, 925, 926, 924, 6 928, 929, 928, 931, 932, 933, 934, 931, 936, 937, 7 938, 939, 940, 941, 942, 943, 944, 945, 946, 947, 8 948, 949, 950, 951, 952, 953, 954, 955, 956, 957, 9 936, 959, 960, 961, 959, 963, 964, 963, 966, 967/ data (jb1(i),i= 4101, 4200)/ + 968, 969, 970, 971, 972, 973, 974, 966, 976, 977, 1 978, 979, 976, 981, 982, 983, 984, 985, 981, 987, 2 988, 989, 987, 991, 992, 991, 994, 995, 996, 997, 3 998, 999, 1000, 1001, 1002, 1003, 1004, 994, 1006, 1007, 4 1006, 1009, 1010, 1011, 1009, 1013, 1014, 1013, 1016, 1017, 5 1018, 1019, 1020, 1021, 1016, 1023, 1024, 1023, 1026, 1027, 6 1028, 1029, 1030, 1026, 1032, 1033, 1034, 1032, 1036, 1037, 7 1038, 1036, 1040, 1041, 1042, 1043, 1040, 1045, 1046, 1045, 8 1048, 1049, 1050, 1051, 1052, 1053, 1054, 1048, 1056, 1057, 9 1056, 1059, 1060, 1061, 1062, 1063, 1064, 1065, 1066, 1067/ data (jb1(i),i= 4201, 4300)/ + 1068, 1059, 1070, 1071, 1072, 1070, 1074, 1075, 1074, 1077, 1 1078, 1077, 1080, 1081, 1080, 1083, 1084, 1085, 1086, 1087, 2 1088, 1089, 1083, 1091, 1092, 1093, 1091, 1095, 1096, 1095, 3 1098, 1099, 1098, 1101, 1102, 1103, 1104, 1105, 1101, 1107, 4 1108, 1107, 1110, 1111, 1112, 1113, 1114, 1115, 1116, 1117, 5 1110, 1119, 1120, 1121, 1122, 1123, 1124, 1125, 1126, 1127, 6 1128, 1119, 1130, 1131, 1132, 1133, 1130, 1135, 1136, 1135, 7 1138, 1139, 1140, 1138, 1142, 1143, 1144, 1142, 1146, 1147, 8 1148, 1149, 1150, 1151, 1146, 1153, 1154, 1153, 1156, 1157, 9 1158, 1156, 1160, 1161, 1160, 1163, 1164, 1165, 1163, 1167/ data (jb1(i),i= 4301, 4400)/ + 1168, 1167, 1170, 1171, 1172, 1170, 1174, 1175, 1176, 1174, 1 1178, 1179, 1178, 1181, 1182, 1183, 1184, 1181, 1186, 1187, 2 1188, 1186, 1190, 1191, 1192, 1190, 1194, 1195, 1196, 1197, 3 1194, 1199, 1200, 1201, 1202, 1199, 1204, 1205, 1206, 1207, 4 1208, 1209, 1210, 1211, 1212, 1213, 1214, 1215, 1216, 1217, 5 1218, 1219, 1220, 1221, 1222, 1223, 1224, 1225, 1226, 1204, 6 1228, 1229, 1230, 1228, 1232, 1233, 1234, 1232, 1236, 1237, 7 1238, 1239, 1240, 1236, 1242, 1243, 1244, 1245, 1246, 1242, 8 1248, 1249, 1250, 1251, 1252, 1253, 1248, 1255, 1256, 1255, 9 1258, 1259, 1258, 1261, 1262, 1263, 1261, 1265, 1266, 1267/ data (jb1(i),i= 4401, 4500)/ + 1268, 1269, 1270, 1271, 1272, 1273, 1274, 1275, 1276, 1277, 1 1278, 1279, 1280, 1281, 1282, 1283, 1284, 1285, 1286, 1265, 2 1288, 1289, 1288, 1291, 1292, 1293, 1294, 1295, 1296, 1291, 3 1298, 1299, 1300, 1298, 1302, 1303, 1304, 1305, 1306, 1307, 4 1308, 1302, 1310, 1311, 1312, 1310, 1314, 1315, 1314, 1317, 5 1318, 1319, 1317, 1321, 1322, 1321, 1324, 1325, 1324, 1327, 6 1328, 1329, 1330, 1331, 1332, 1333, 1334, 1335, 1336, 1337, 7 1338, 1339, 1327, 1341, 1342, 1341, 1344, 1345, 1344, 1347, 8 1348, 1349, 1350, 1351, 1352, 1353, 1354, 1355, 1356, 1357, 9 1358, 1359, 1360, 1347, 0, 0, 0, 0, 0, 0/ data (jb2(i),i= 1, 100)/ + 35, 8, 6, 5, 3, 4, 2, 39, 40, 41, 1 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 2 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 3 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 4 72, 73, 74, 74, 75, 76, 77, 78, 79, 80, 5 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 6 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 7 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 8 111, 112, 112, 113, 113, 114, 115, 116, 117, 118, 9 119, 120, 121, 121, 122, 123, 124, 125, 126, 126/ data (jb2(i),i= 101, 200)/ + 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 1 137, 138, 138, 139, 140, 141, 142, 143, 144, 145, 2 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 3 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 4 166, 167, 168, 169, 170, 171, 172, 173, 174, 174, 5 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 6 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 7 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 8 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 9 215, 216, 217, 218, 219, 220, 221, 222, 223, 224/ data (jb2(i),i= 201, 300)/ + 225, 226, 227, 227, 21, 21, 22, 22, 228, 229, 1 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 2 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 3 250, 251, 252, 253, 254, 255, 256, 257, 258, 259, 4 260, 261, 262, 263, 264, 265, 266, 267, 268, 269, 5 270, 271, 272, 273, 274, 274, 275, 276, 277, 278, 6 279, 280, 281, 282, 283, 284, 285, 286, 287, 288, 7 289, 290, 291, 292, 293, 294, 295, 296, 297, 298, 8 299, 300, 301, 302, 303, 304, 304, 305, 306, 307, 9 308, 309, 310, 311, 312, 313, 314, 315, 316, 317/ data (jb2(i),i= 301, 400)/ + 318, 319, 320, 321, 322, 323, 324, 325, 326, 327, 1 328, 329, 330, 331, 332, 333, 334, 334, 335, 336, 2 337, 338, 339, 340, 341, 342, 343, 344, 345, 346, 3 347, 348, 349, 350, 351, 352, 353, 354, 355, 356, 4 357, 358, 359, 360, 361, 362, 363, 364, 365, 366, 5 367, 367, 368, 369, 370, 371, 372, 373, 374, 375, 6 376, 377, 378, 379, 380, 381, 382, 383, 384, 385, 7 386, 387, 388, 389, 390, 391, 392, 393, 394, 395, 8 396, 397, 398, 399, 400, 401, 402, 403, 404, 405, 9 406, 407, 408, 409, 409, 410, 411, 412, 413, 414/ data (jb2(i),i= 401, 500)/ + 415, 416, 417, 418, 418, 419, 420, 421, 422, 423, 1 424, 425, 426, 427, 428, 429, 430, 431, 432, 433, 2 434, 435, 436, 437, 438, 439, 440, 441, 441, 442, 3 443, 444, 445, 446, 447, 448, 449, 450, 451, 452, 4 453, 454, 455, 456, 457, 458, 459, 460, 461, 462, 5 463, 464, 465, 466, 467, 468, 469, 470, 471, 472, 6 473, 474, 475, 476, 477, 478, 479, 480, 481, 482, 7 483, 484, 485, 486, 487, 488, 489, 490, 491, 492, 8 493, 494, 495, 496, 497, 498, 499, 500, 501, 502, 9 503, 504, 505, 506, 507, 508, 509, 510, 511, 512/ data (jb2(i),i= 501, 600)/ + 513, 514, 515, 516, 517, 518, 519, 520, 521, 522, 1 523, 524, 525, 526, 527, 528, 529, 530, 531, 532, 2 533, 534, 535, 536, 537, 538, 539, 540, 541, 542, 3 543, 544, 545, 546, 547, 548, 549, 550, 551, 552, 4 553, 554, 555, 556, 557, 558, 559, 560, 561, 562, 5 563, 564, 565, 566, 567, 568, 569, 570, 571, 572, 6 573, 574, 575, 576, 577, 578, 579, 580, 581, 582, 7 583, 584, 585, 586, 587, 588, 589, 590, 591, 592, 8 593, 594, 595, 596, 597, 597, 598, 599, 600, 601, 9 602, 603, 604, 605, 606, 607, 608, 609, 610, 611/ data (jb2(i),i= 601, 700)/ + 612, 613, 614, 614, 615, 616, 617, 618, 619, 620, 1 621, 622, 623, 624, 625, 626, 627, 628, 629, 630, 2 631, 632, 633, 634, 635, 636, 636, 637, 638, 639, 3 640, 641, 642, 643, 644, 645, 646, 647, 648, 649, 4 650, 651, 652, 653, 654, 655, 656, 657, 658, 659, 5 660, 661, 662, 663, 664, 665, 666, 667, 668, 668, 6 669, 670, 671, 672, 673, 674, 675, 676, 677, 678, 7 679, 680, 681, 682, 683, 684, 685, 686, 687, 688, 8 689, 690, 691, 692, 693, 694, 695, 696, 697, 698, 9 699, 700, 701, 702, 703, 704, 705, 706, 706, 707/ data (jb2(i),i= 701, 800)/ + 708, 709, 710, 711, 711, 712, 713, 714, 715, 716, 1 717, 718, 719, 720, 721, 722, 723, 724, 725, 726, 2 727, 728, 729, 730, 731, 732, 733, 734, 735, 736, 3 737, 738, 739, 740, 741, 742, 743, 744, 745, 746, 4 747, 748, 749, 750, 751, 752, 752, 754, 755, 756, 5 757, 758, 759, 760, 761, 762, 763, 764, 765, 766, 6 767, 768, 769, 770, 771, 772, 773, 774, 775, 776, 7 777, 778, 779, 780, 781, 782, 783, 784, 785, 786, 8 787, 788, 789, 790, 791, 792, 793, 794, 795, 796, 9 797, 798, 799, 800, 801, 802, 803, 804, 805, 806/ data (jb2(i),i= 801, 900)/ + 807, 808, 809, 810, 811, 812, 813, 814, 815, 816, 1 817, 818, 819, 820, 821, 822, 823, 824, 825, 826, 2 827, 828, 829, 830, 831, 832, 833, 834, 835, 836, 3 837, 838, 839, 840, 841, 842, 843, 844, 845, 846, 4 847, 848, 849, 850, 851, 852, 853, 854, 855, 856, 5 857, 858, 859, 860, 861, 862, 863, 864, 865, 866, 6 867, 868, 869, 870, 871, 872, 873, 874, 874, 876, 7 877, 878, 879, 880, 881, 882, 883, 884, 885, 886, 8 887, 888, 889, 890, 891, 892, 893, 894, 895, 896, 9 897, 898, 899, 900, 901, 902, 903, 904, 905, 906/ data (jb2(i),i= 901, 1000)/ + 907, 908, 909, 910, 911, 912, 913, 914, 915, 916, 1 917, 918, 919, 920, 921, 922, 923, 924, 925, 926, 2 927, 928, 929, 929, 930, 931, 932, 933, 934, 935, 3 936, 937, 938, 939, 940, 941, 942, 943, 944, 945, 4 946, 947, 948, 949, 950, 951, 952, 953, 954, 955, 5 956, 957, 958, 959, 960, 961, 962, 963, 964, 965, 6 966, 967, 968, 969, 970, 971, 972, 973, 974, 975, 7 976, 977, 978, 979, 980, 981, 982, 983, 984, 985, 8 986, 987, 988, 989, 990, 991, 992, 993, 994, 995, 9 996, 997, 998, 999, 999, 1000, 1001, 1002, 1003, 1004/ data (jb2(i),i= 1001, 1100)/ + 1005, 1006, 1007, 1008, 1009, 1010, 1011, 1012, 1013, 1014, 1 1015, 1016, 1017, 1018, 1019, 1020, 1021, 1022, 1023, 1024, 2 1025, 1026, 1027, 1028, 1029, 1030, 1031, 1032, 1033, 1034, 3 1035, 1036, 1037, 1038, 1039, 1040, 1041, 1042, 1043, 1044, 4 1045, 1046, 1047, 1048, 1049, 1050, 1051, 1052, 1053, 1054, 5 1055, 1056, 1057, 1058, 1059, 1060, 1061, 1062, 1063, 1064, 6 1065, 1066, 1066, 1067, 1068, 1069, 1070, 1071, 1072, 1073, 7 1074, 1075, 1076, 1077, 1078, 1079, 1080, 1081, 1082, 1083, 8 1084, 1085, 1086, 1087, 1088, 1089, 1090, 1091, 1092, 1093, 9 1094, 1095, 1096, 1097, 1098, 1099, 1100, 1101, 1102, 1103/ data (jb2(i),i= 1101, 1200)/ + 1104, 1105, 1106, 1107, 1108, 1109, 1110, 1111, 1112, 1113, 1 1114, 1115, 1116, 1117, 1118, 1119, 1120, 1121, 1122, 1123, 2 1124, 1125, 1126, 1127, 1128, 1129, 1130, 1131, 1132, 1133, 3 1134, 1135, 1136, 1137, 1138, 1139, 1140, 1141, 1142, 1143, 4 1144, 1145, 1146, 1147, 1148, 1149, 1150, 1151, 1152, 1153, 5 1154, 1155, 1156, 1157, 1158, 1159, 1160, 1161, 1162, 1163, 6 1164, 1165, 1166, 1167, 1168, 1169, 1170, 1171, 1172, 1173, 7 1174, 1175, 1176, 1177, 1178, 1179, 1180, 1181, 1182, 1183, 8 1184, 1185, 1186, 1187, 1188, 1189, 1191, 1192, 1193, 1194, 9 1195, 1196, 1197, 1198, 1199, 1200, 1201, 1202, 1203, 1204/ data (jb2(i),i= 1201, 1300)/ + 1205, 1206, 1207, 1208, 1209, 1210, 1211, 1212, 1213, 1214, 1 1215, 1216, 1217, 1218, 1219, 1220, 1221, 1222, 1223, 1224, 2 1225, 1226, 1227, 1228, 1229, 1230, 1231, 1232, 1233, 1234, 3 1235, 1236, 1237, 1238, 1239, 1240, 1241, 1242, 1243, 1244, 4 1245, 1246, 1247, 1248, 1249, 1250, 1251, 1252, 1253, 1254, 5 1255, 1256, 1257, 1258, 1259, 1260, 1261, 1262, 1263, 1264, 6 1265, 1266, 1267, 1268, 1269, 1270, 1271, 1272, 1273, 1274, 7 1275, 1276, 1277, 1278, 1279, 1280, 1281, 1282, 1283, 1284, 8 1285, 1286, 1287, 1288, 1289, 1290, 1291, 1292, 1292, 1293, 9 1294, 1295, 1296, 1297, 1298, 1299, 1300, 1301, 1302, 1303/ data (jb2(i),i= 1301, 1400)/ + 1304, 1305, 1306, 1307, 1308, 1309, 1310, 1311, 1312, 1313, 1 1314, 1315, 1316, 1317, 1318, 1319, 1320, 1321, 1321, 1322, 2 1323, 1324, 1325, 1326, 1327, 1328, 1329, 1330, 1331, 1332, 3 1333, 1334, 1335, 1336, 1337, 1338, 1339, 1340, 1341, 1342, 4 1343, 1344, 1345, 1346, 1347, 1348, 1349, 1350, 1351, 1352, 5 1353, 1354, 1355, 1356, 1357, 1358, 1359, 1360, 1361, 1362, 6 1363, 1364, 1365, 1366, 1367, 1368, 1369, 1370, 1371, 1372, 7 1373, 1374, 1375, 1376, 1377, 1377, 1378, 1379, 1380, 1381, 8 1382, 1383, 1384, 1385, 1386, 1387, 1388, 1389, 1390, 1391, 9 1392, 1393, 1394, 1395, 1396, 1397, 1398, 1399, 1400, 1401/ data (jb2(i),i= 1401, 1500)/ + 1402, 1403, 1404, 1405, 1406, 1407, 1408, 1409, 1410, 1411, 1 1412, 1413, 1414, 1415, 1416, 1417, 1418, 1419, 1420, 1421, 2 1422, 1423, 1424, 1425, 1426, 1427, 1428, 1429, 1430, 1431, 3 1432, 1433, 1434, 1435, 1436, 1437, 1438, 1439, 1440, 1441, 4 1442, 1443, 1444, 1445, 1446, 1447, 1448, 1449, 1450, 1451, 5 1452, 1453, 1454, 1455, 1456, 1457, 1458, 1459, 1460, 1461, 6 1462, 1463, 1464, 1465, 1466, 1467, 1468, 1469, 1470, 1471, 7 1472, 1473, 1474, 1475, 1476, 1477, 1478, 1479, 1480, 1481, 8 1482, 1483, 1484, 1485, 1486, 1487, 1488, 1489, 1490, 1491, 9 1492, 1493, 1494, 1495, 1496, 1497, 1498, 1499, 1500, 1501/ data (jb2(i),i= 1501, 1600)/ + 1502, 1503, 1504, 1505, 1505, 1507, 1508, 1509, 1510, 1511, 1 1512, 1513, 1514, 1515, 1516, 1517, 1518, 1519, 1, 1520, 2 1521, 1522, 1523, 1524, 1525, 1526, 1527, 1528, 1529, 1530, 3 1531, 1533, 1534, 1535, 1536, 1537, 1538, 1539, 1540, 1541, 4 1542, 1543, 1544, 1545, 1546, 1547, 1548, 4, 1549, 1550, 5 1551, 1552, 1553, 1554, 1555, 1556, 1557, 1558, 1559, 1560, 6 1561, 1562, 1563, 1564, 1565, 1566, 1567, 1568, 1569, 1570, 7 1571, 1572, 1573, 1574, 1575, 1576, 1577, 1578, 1579, 1580, 8 1581, 1582, 1583, 1584, 1585, 1586, 1587, 1588, 1588, 1589, 9 1590, 1591, 1592, 1593, 1594, 1594, 1595, 1596, 1597, 1598/ data (jb2(i),i= 1601, 1700)/ + 1599, 1600, 1601, 1602, 1602, 1604, 1605, 1606, 1607, 1608, 1 1609, 1610, 1611, 1612, 1613, 1614, 1615, 1616, 1617, 1618, 2 1619, 1620, 1621, 1622, 1623, 1624, 6, 1625, 1626, 1627, 3 1628, 1629, 1630, 1631, 1631, 1633, 1634, 1635, 1636, 1637, 4 1638, 1639, 1640, 1641, 1642, 1643, 1644, 1645, 1646, 1647, 5 1648, 1649, 1650, 1651, 1651, 1652, 1653, 1654, 1655, 1656, 6 1657, 1658, 1659, 1660, 1661, 1662, 1663, 1664, 1665, 1666, 7 1667, 1668, 1669, 1670, 1671, 1672, 1673, 1673, 1674, 1675, 8 1676, 1677, 1678, 1678, 1680, 1681, 1682, 1683, 1684, 1685, 9 1685, 1686, 1687, 1688, 1689, 1690, 1691, 1692, 1693, 1693/ data (jb2(i),i= 1701, 1800)/ + 1694, 1695, 1696, 1697, 1698, 1699, 1700, 1701, 1702, 1703, 1 1704, 1706, 1707, 1707, 1708, 1709, 1710, 1711, 1711, 1713, 2 1714, 1715, 1716, 1717, 1718, 1719, 1720, 1721, 1722, 1723, 3 1724, 1725, 1726, 1727, 1728, 1729, 1730, 1731, 1732, 1733, 4 1734, 1735, 1736, 1737, 1738, 1739, 1740, 1741, 1742, 1743, 5 1744, 1745, 1746, 1747, 1748, 1749, 1750, 1751, 1752, 1753, 6 1754, 1755, 1756, 1757, 1758, 1759, 1760, 1761, 1762, 1763, 7 1764, 1765, 1766, 1767, 1768, 1769, 1770, 1771, 1772, 1773, 8 1774, 1775, 1776, 1777, 1778, 1779, 1780, 1781, 1782, 1783, 9 1784, 1785, 1786, 1787, 1788, 1789, 1790, 1791, 1792, 1793/ data (jb2(i),i= 1801, 1900)/ + 1794, 1795, 1796, 8, 1797, 1799, 1800, 1801, 1802, 1803, 1 1804, 1805, 1806, 1807, 1807, 1798, 1809, 1810, 1811, 1812, 2 1813, 1814, 1815, 1816, 1817, 1818, 9, 1819, 1820, 1821, 3 1822, 1823, 1824, 1825, 1826, 1827, 1828, 1829, 1830, 1831, 4 1832, 1833, 1834, 1835, 1836, 1837, 1838, 1839, 1840, 1840, 5 1841, 1842, 1843, 1844, 1845, 1846, 1847, 1848, 1849, 1850, 6 1851, 1852, 1853, 1854, 1855, 10, 1856, 1857, 1858, 1859, 7 1860, 1861, 1862, 1863, 1864, 1865, 1866, 1867, 1868, 1869, 8 1870, 1871, 1872, 1873, 1874, 1875, 1876, 1877, 1878, 1879, 9 1880, 1881, 1882, 1883, 1884, 1885, 1886, 1887, 1888, 1888/ data (jb2(i),i= 1901, 2000)/ + 1889, 1889, 1891, 1892, 1893, 1894, 1894, 1890, 12, 1895, 1 1896, 1897, 1898, 1899, 1900, 1901, 1902, 1903, 1904, 1905, 2 1906, 1907, 1908, 1909, 1910, 1911, 1912, 1913, 1914, 1915, 3 1916, 1918, 1919, 1920, 1921, 1922, 1923, 1924, 1925, 1926, 4 1927, 1928, 1929, 1930, 1931, 1932, 1933, 1934, 1935, 1936, 5 1937, 1938, 1939, 1940, 1941, 1942, 1943, 1944, 1945, 1946, 6 1946, 1947, 1948, 1949, 1950, 1951, 1952, 1953, 1954, 1955, 7 1956, 1957, 1958, 1959, 1960, 1961, 1962, 1963, 1964, 1965, 8 1966, 1967, 1968, 1969, 1970, 1971, 1972, 1973, 1973, 1974, 9 1975, 1976, 1977, 1978, 1979, 1980, 1981, 1982, 1983, 1984/ data (jb2(i),i= 2001, 2100)/ + 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2 2005, 2006, 2007, 2008, 2008, 2009, 2010, 2011, 2012, 2013, 3 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021, 2022, 2023, 4 2024, 2025, 2026, 2027, 2028, 2029, 2030, 2031, 2031, 2032, 5 2033, 2034, 2035, 2036, 2037, 2038, 2039, 13, 2040, 2041, 6 2042, 2043, 2044, 2045, 2046, 2047, 2048, 2049, 2049, 2050, 7 2051, 2052, 2053, 2054, 2055, 2056, 2057, 14, 2058, 2059, 8 2060, 2061, 2062, 2063, 2064, 2065, 2066, 2067, 2068, 2069, 9 2070, 2071, 2072, 2073, 2074, 2075, 2076, 2077, 2079, 2080/ data (jb2(i),i= 2101, 2200)/ + 2081, 2082, 2083, 2084, 2085, 2086, 2087, 2088, 2089, 2090, 1 2091, 2092, 2093, 2094, 2095, 2096, 2097, 2098, 2099, 2100, 2 2101, 2102, 2103, 2104, 2105, 2106, 2107, 2108, 2109, 2110, 3 2111, 2112, 2113, 2114, 2115, 2116, 2117, 2118, 2119, 2120, 4 2121, 2122, 2123, 2124, 2125, 2126, 2126, 2127, 2128, 2129, 5 2130, 2131, 2132, 2133, 2134, 2135, 2136, 2137, 2138, 2139, 6 2140, 2141, 2142, 2142, 2143, 2144, 2145, 2146, 2147, 2148, 7 2149, 2150, 2151, 2152, 2153, 2154, 2155, 2156, 2157, 2158, 8 2159, 2160, 2161, 2162, 2163, 2164, 2164, 2165, 2166, 2167, 9 2168, 2169, 2170, 2171, 2172, 2172, 2173, 2174, 2175, 2176/ data (jb2(i),i= 2201, 2300)/ + 2177, 2178, 2179, 2180, 2181, 2182, 2183, 2184, 2185, 2186, 1 2187, 2188, 2189, 2190, 2191, 2192, 2193, 2194, 2195, 2196, 2 2196, 2198, 2199, 2200, 2201, 2202, 2203, 2204, 2205, 2206, 3 2207, 2208, 2209, 2210, 2211, 2212, 2213, 2214, 2215, 2216, 4 2217, 2218, 2219, 2220, 2221, 2222, 2223, 2224, 2225, 2226, 5 2227, 2228, 2229, 2230, 2231, 2232, 2233, 2234, 2235, 2236, 6 2237, 2238, 2239, 2240, 2241, 2242, 2243, 2244, 2245, 2246, 7 2246, 2247, 2248, 2249, 2250, 2251, 2252, 2253, 2254, 2255, 8 2256, 2257, 2258, 2259, 2260, 2261, 2262, 2263, 2264, 2265, 9 2266, 2267, 2268, 2269, 2270, 2271, 2272, 2272, 2273, 2274/ data (jb2(i),i= 2301, 2400)/ + 2275, 2276, 2277, 2278, 2279, 2280, 2281, 2282, 2283, 2284, 1 2285, 2286, 2287, 2288, 2289, 2290, 2291, 2292, 2293, 2294, 2 2295, 2296, 2297, 2298, 2299, 2300, 2301, 2302, 2303, 2305, 3 2306, 2307, 2308, 2309, 2310, 2311, 2312, 2313, 2314, 2315, 4 2316, 2317, 2317, 2318, 2320, 2321, 2322, 2322, 2323, 2324, 5 2325, 2325, 2326, 2327, 2327, 2329, 2330, 2331, 2332, 2333, 6 2334, 2335, 2336, 2337, 2338, 2339, 2340, 2341, 2342, 2343, 7 2344, 2345, 2345, 2346, 2347, 2347, 2348, 2349, 2350, 2351, 8 2352, 2353, 2354, 2355, 17, 2356, 2357, 2358, 2359, 2360, 9 2361, 2362, 2363, 2364, 2365, 2366, 2366, 2367, 2368, 2369/ data (jb2(i),i= 2401, 2500)/ + 2370, 2371, 2372, 2373, 2374, 2375, 2376, 2378, 2379, 2380, 1 2381, 2382, 2383, 2384, 2385, 2386, 2387, 2388, 2389, 2390, 2 2391, 2392, 19, 2393, 20, 2394, 2395, 2396, 2397, 2398, 3 2399, 2400, 2401, 2402, 2403, 2404, 2405, 2406, 2407, 2408, 4 2409, 2410, 2411, 2412, 2413, 2414, 2415, 2416, 2417, 2418, 5 2419, 2420, 2421, 2422, 2423, 2424, 2425, 2426, 2427, 2427, 6 2428, 2429, 2430, 2431, 2432, 2433, 2434, 2435, 2436, 2437, 7 2438, 2439, 2440, 2441, 2442, 2443, 2444, 2445, 2446, 2447, 8 2448, 2449, 2450, 2451, 2452, 2453, 2454, 2455, 2456, 2456, 9 2457, 2458, 2459, 2460, 2461, 2461, 2463, 2464, 2465, 2466/ data (jb2(i),i= 2501, 2600)/ + 2467, 2468, 2469, 2470, 2471, 2472, 2473, 2474, 2475, 2475, 1 2476, 2477, 2478, 2479, 2480, 2481, 2482, 2483, 2484, 2485, 2 2486, 2488, 2489, 2490, 2491, 2492, 2492, 2487, 2493, 2494, 3 2495, 2496, 2497, 2498, 2499, 2500, 2501, 2502, 2503, 2504, 4 2505, 2506, 2507, 2508, 2509, 2510, 2511, 2512, 2513, 2514, 5 2515, 2515, 2517, 2518, 2519, 2520, 2520, 2521, 2522, 2522, 6 2524, 2525, 2526, 2527, 2528, 2529, 2530, 2531, 2532, 2533, 7 2534, 2534, 2535, 2536, 2537, 2538, 2539, 2540, 2541, 2542, 8 2543, 2544, 2545, 2546, 2547, 2548, 2549, 2550, 2551, 2552, 9 2553, 2554, 2555, 2556, 2557, 2558, 2559, 2560, 2561, 23/ data (jb2(i),i= 2601, 2700)/ + 2562, 2563, 2564, 2565, 2566, 2567, 2568, 2569, 2570, 2571, 1 2572, 2573, 2574, 2575, 2576, 2577, 2578, 2579, 2580, 2581, 2 2582, 2583, 2584, 2585, 2586, 2587, 2588, 2589, 2590, 2591, 3 2592, 2593, 2594, 2595, 2596, 2597, 2598, 2599, 2600, 2601, 4 2602, 2603, 2604, 2605, 2606, 2607, 2608, 2609, 2610, 2611, 5 2612, 2613, 2613, 2614, 2615, 2616, 2617, 2618, 2619, 2619, 6 2620, 2621, 2622, 2623, 2624, 2625, 2626, 2627, 2628, 2629, 7 2630, 2631, 2632, 2633, 2635, 2636, 2637, 2638, 2639, 2640, 8 2640, 2641, 2642, 2643, 2644, 2645, 2646, 2647, 2647, 2648, 9 2649, 2650, 2651, 2652, 2653, 2654, 2655, 2655, 2656, 2658/ data (jb2(i),i= 2701, 2800)/ + 2659, 2660, 2661, 2662, 2663, 2663, 2664, 2665, 2666, 2667, 1 2668, 2669, 2670, 2671, 2672, 2673, 2674, 2675, 2676, 2677, 2 2678, 2679, 2680, 2681, 2682, 2683, 2684, 2685, 2686, 2687, 3 2688, 2688, 2689, 2690, 2691, 2692, 2693, 2694, 2695, 2696, 4 2697, 2698, 2699, 2700, 2701, 2702, 24, 2703, 2704, 2705, 5 2706, 2707, 2708, 2709, 2710, 2711, 2712, 2713, 2714, 2715, 6 2716, 2717, 2718, 2719, 2720, 2722, 2723, 2724, 2725, 2726, 7 2727, 2728, 2729, 2730, 2731, 2732, 2733, 2734, 2735, 2736, 8 2737, 2738, 2739, 2740, 2741, 2742, 2743, 2744, 2744, 2745, 9 2746, 2747, 2749, 2750, 2751, 2752, 2753, 2754, 2755, 2756/ data (jb2(i),i= 2801, 2900)/ + 2757, 2758, 2759, 2760, 2761, 2762, 2763, 2764, 2765, 2766, 1 2767, 2768, 2769, 2769, 2770, 2771, 2772, 2773, 2774, 2775, 2 2776, 2777, 2778, 2779, 2780, 2781, 2782, 2783, 2783, 2784, 3 2785, 2786, 2787, 2788, 2789, 2790, 2791, 2792, 2793, 2793, 4 2794, 2795, 2796, 2797, 2798, 2799, 2800, 2801, 2802, 2803, 5 2804, 2805, 2806, 2807, 2808, 2809, 2810, 2811, 2812, 2813, 6 2814, 2815, 2815, 2816, 2817, 2818, 2819, 2820, 2821, 2822, 7 2823, 2824, 2825, 2826, 2827, 2828, 2828, 2830, 2831, 25, 8 2832, 2833, 2834, 2835, 2836, 2837, 2838, 2839, 2840, 2841, 9 2842, 2843, 2844, 2844, 2845, 2846, 2847, 2848, 2849, 2850/ data (jb2(i),i= 2901, 3000)/ + 2851, 2852, 2852, 2853, 2854, 2855, 2856, 2857, 2858, 2859, 1 2859, 2860, 2861, 2862, 2863, 2865, 2866, 2867, 2868, 2869, 2 2870, 2871, 2871, 2873, 2874, 2875, 2876, 2877, 2878, 2878, 3 2879, 2880, 2881, 2882, 2883, 2884, 2885, 2886, 2887, 2888, 4 2889, 2890, 2891, 2892, 2893, 2894, 2895, 2896, 2897, 2898, 5 2899, 2900, 2900, 2901, 2902, 2903, 2904, 2904, 2905, 2906, 6 2907, 2908, 2909, 2910, 2911, 2912, 2913, 2914, 2915, 2916, 7 2917, 2918, 2919, 2920, 2921, 2922, 2923, 2924, 2925, 2926, 8 2927, 2928, 2928, 2930, 2931, 2932, 2933, 2934, 2935, 2936, 9 2937, 2937, 2938, 2939, 27, 2940, 2941, 28, 2943, 2944/ data (jb2(i),i= 3001, 3100)/ + 2945, 2945, 2946, 2947, 2948, 2949, 2950, 2951, 2952, 2953, 1 2954, 2955, 2956, 2957, 2958, 2959, 2960, 2961, 2962, 2963, 2 2964, 2965, 2966, 2967, 2968, 2969, 2970, 2971, 2971, 2972, 3 2973, 2974, 2975, 2976, 2977, 2978, 2979, 2980, 2981, 2982, 4 2983, 2984, 2984, 2985, 2986, 2987, 2988, 2989, 2990, 2991, 5 2992, 2993, 2994, 2995, 2996, 2997, 2998, 29, 2999, 3000, 6 3001, 3001, 3002, 3003, 3004, 3005, 3006, 3007, 3008, 30, 7 3009, 31, 3010, 3011, 3012, 3013, 3014, 3015, 3016, 3017, 8 3018, 3019, 3020, 3021, 3022, 3023, 32, 3024, 3025, 3026, 9 3027, 3028, 3029, 3030, 3031, 3032, 3033, 3034, 3035, 33/ data (jb2(i),i= 3101, 3200)/ + 3036, 3037, 3038, 3039, 3040, 3041, 3042, 3043, 3044, 3045, 1 3046, 3047, 3048, 3049, 3050, 3051, 3052, 3053, 3054, 3055, 2 3056, 3057, 3058, 3059, 3060, 3061, 3062, 3063, 3064, 36, 3 3065, 3066, 38, 2, 3, 4, 4, 6, 7, 8, 4 8, 10, 11, 12, 12, 14, 15, 15, 17, 18, 5 19, 19, 21, 22, 22, 24, 25, 26, 27, 28, 6 28, 30, 31, 32, 32, 34, 35, 35, 37, 38, 7 39, 39, 41, 42, 43, 43, 45, 46, 47, 48, 8 49, 50, 51, 52, 53, 54, 55, 56, 57, 57, 9 59, 60, 61, 61, 63, 64, 65, 66, 67, 68/ data (jb2(i),i= 3201, 3300)/ + 68, 70, 71, 71, 73, 74, 75, 76, 77, 78, 1 78, 80, 81, 82, 82, 84, 85, 86, 86, 88, 2 89, 89, 91, 92, 93, 93, 95, 96, 96, 98, 3 99, 100, 101, 101, 103, 104, 104, 106, 107, 107, 4 109, 110, 111, 112, 113, 113, 115, 116, 116, 118, 5 119, 119, 121, 122, 123, 123, 125, 126, 126, 128, 6 129, 129, 131, 132, 133, 133, 135, 136, 137, 138, 7 139, 140, 140, 142, 143, 143, 145, 146, 147, 147, 8 149, 150, 150, 152, 153, 154, 154, 156, 157, 157, 9 159, 160, 161, 162, 163, 164, 165, 166, 167, 168/ data (jb2(i),i= 3301, 3400)/ + 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 1 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 2 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 3 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 4 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 5 219, 220, 221, 222, 223, 223, 225, 226, 227, 228, 6 228, 230, 231, 232, 233, 234, 235, 236, 237, 238, 7 239, 239, 241, 242, 242, 244, 245, 245, 247, 248, 8 248, 250, 251, 252, 252, 254, 255, 256, 256, 258, 9 259, 260, 260, 262, 263, 264, 265, 266, 266, 268/ data (jb2(i),i= 3401, 3500)/ + 269, 269, 271, 272, 272, 274, 275, 275, 277, 278, 1 278, 280, 281, 282, 283, 284, 285, 286, 287, 288, 2 288, 290, 291, 291, 293, 294, 295, 296, 297, 297, 3 299, 300, 301, 302, 302, 304, 305, 306, 306, 308, 4 309, 310, 311, 312, 313, 314, 315, 316, 317, 318, 5 319, 320, 321, 322, 323, 324, 325, 326, 327, 328, 6 329, 330, 331, 332, 333, 334, 335, 336, 337, 338, 7 339, 340, 341, 342, 343, 344, 344, 346, 347, 348, 8 349, 350, 350, 352, 353, 353, 355, 356, 357, 358, 9 359, 360, 360, 362, 363, 364, 365, 365, 367, 368/ data (jb2(i),i= 3501, 3600)/ + 368, 370, 371, 372, 372, 374, 375, 376, 376, 378, 1 379, 380, 380, 382, 383, 384, 385, 386, 387, 387, 2 389, 390, 390, 392, 393, 394, 395, 396, 397, 398, 3 398, 400, 401, 401, 403, 404, 404, 406, 407, 408, 4 408, 410, 411, 412, 413, 413, 415, 416, 417, 418, 5 418, 420, 421, 421, 423, 424, 425, 426, 427, 427, 6 429, 430, 430, 432, 433, 434, 435, 435, 437, 438, 7 439, 439, 441, 442, 443, 444, 444, 446, 447, 447, 8 449, 450, 451, 452, 453, 454, 455, 456, 457, 458, 9 459, 460, 461, 462, 463, 464, 464, 466, 467, 467/ data (jb2(i),i= 3601, 3700)/ + 469, 470, 471, 472, 473, 474, 475, 476, 476, 478, 1 479, 480, 481, 482, 483, 484, 485, 485, 487, 488, 2 489, 489, 491, 492, 492, 494, 495, 495, 497, 498, 3 499, 499, 501, 502, 503, 504, 504, 506, 507, 507, 4 509, 510, 511, 511, 513, 514, 515, 516, 517, 518, 5 519, 520, 521, 522, 523, 524, 525, 526, 527, 528, 6 529, 530, 531, 532, 533, 534, 535, 536, 537, 538, 7 539, 540, 541, 542, 543, 544, 545, 546, 547, 548, 8 549, 550, 551, 551, 553, 554, 555, 556, 556, 558, 9 559, 560, 560, 562, 563, 564, 565, 566, 567, 568/ data (jb2(i),i= 3701, 3800)/ + 568, 570, 571, 572, 572, 574, 575, 575, 577, 578, 1 579, 580, 581, 582, 583, 584, 585, 586, 586, 588, 2 589, 590, 591, 591, 593, 594, 594, 596, 597, 598, 3 598, 600, 601, 601, 603, 604, 605, 605, 607, 608, 4 609, 609, 611, 612, 613, 613, 615, 616, 617, 618, 5 618, 620, 621, 621, 623, 624, 625, 625, 627, 628, 6 629, 629, 631, 632, 633, 633, 635, 636, 636, 638, 7 639, 639, 641, 642, 643, 644, 645, 646, 647, 648, 8 649, 650, 651, 651, 653, 654, 655, 656, 657, 657, 9 659, 660, 661, 661, 663, 664, 665, 665, 667, 668/ data (jb2(i),i= 3801, 3900)/ + 669, 670, 671, 672, 673, 674, 675, 676, 677, 678, 1 679, 680, 681, 681, 683, 684, 685, 686, 686, 688, 2 689, 690, 691, 692, 693, 694, 695, 696, 697, 698, 3 699, 700, 701, 701, 703, 704, 705, 705, 707, 708, 4 709, 709, 711, 712, 712, 714, 715, 716, 716, 718, 5 719, 720, 720, 722, 723, 724, 724, 726, 727, 727, 6 729, 730, 731, 731, 733, 734, 735, 736, 737, 738, 7 739, 740, 740, 742, 743, 743, 745, 746, 746, 748, 8 749, 749, 751, 752, 753, 754, 754, 756, 757, 758, 9 759, 760, 760, 762, 763, 764, 765, 765, 767, 768/ data (jb2(i),i= 3901, 4000)/ + 768, 770, 771, 772, 772, 774, 775, 775, 777, 778, 1 779, 780, 781, 781, 783, 784, 784, 786, 787, 787, 2 789, 790, 791, 792, 792, 794, 795, 796, 797, 798, 3 798, 800, 801, 801, 803, 804, 805, 805, 807, 808, 4 808, 810, 811, 811, 813, 814, 814, 816, 817, 818, 5 819, 820, 821, 821, 823, 824, 825, 826, 827, 828, 6 829, 830, 831, 832, 833, 834, 835, 836, 836, 838, 7 839, 840, 840, 842, 843, 844, 844, 846, 847, 848, 8 849, 850, 851, 852, 852, 854, 855, 856, 857, 857, 9 859, 860, 861, 861, 863, 864, 864, 866, 867, 868/ data (jb2(i),i= 4001, 4100)/ + 869, 869, 871, 872, 872, 874, 875, 876, 876, 878, 1 879, 880, 880, 882, 883, 884, 885, 886, 887, 888, 2 889, 890, 891, 892, 893, 894, 895, 896, 897, 897, 3 899, 900, 901, 901, 903, 904, 904, 906, 907, 908, 4 909, 910, 911, 912, 913, 914, 915, 916, 917, 918, 5 919, 920, 921, 922, 923, 923, 925, 926, 927, 927, 6 929, 930, 930, 932, 933, 934, 935, 935, 937, 938, 7 939, 940, 941, 942, 943, 944, 945, 946, 947, 948, 8 949, 950, 951, 952, 953, 954, 955, 956, 957, 958, 9 958, 960, 961, 962, 962, 964, 965, 965, 967, 968/ data (jb2(i),i= 4101, 4200)/ + 969, 970, 971, 972, 973, 974, 975, 975, 977, 978, 1 979, 980, 980, 982, 983, 984, 985, 986, 986, 988, 2 989, 990, 990, 992, 993, 993, 995, 996, 997, 998, 3 999, 1000, 1001, 1002, 1003, 1004, 1005, 1005, 1007, 1008, 4 1008, 1010, 1011, 1012, 1012, 1014, 1015, 1015, 1017, 1018, 5 1019, 1020, 1021, 1022, 1022, 1024, 1025, 1025, 1027, 1028, 6 1029, 1030, 1031, 1031, 1033, 1034, 1035, 1035, 1037, 1038, 7 1039, 1039, 1041, 1042, 1043, 1044, 1044, 1046, 1047, 1047, 8 1049, 1050, 1051, 1052, 1053, 1054, 1055, 1055, 1057, 1058, 9 1058, 1060, 1061, 1062, 1063, 1064, 1065, 1066, 1067, 1068/ data (jb2(i),i= 4201, 4300)/ + 1069, 1069, 1071, 1072, 1073, 1073, 1075, 1076, 1076, 1078, 1 1079, 1079, 1081, 1082, 1082, 1084, 1085, 1086, 1087, 1088, 2 1089, 1090, 1090, 1092, 1093, 1094, 1094, 1096, 1097, 1097, 3 1099, 1100, 1100, 1102, 1103, 1104, 1105, 1106, 1106, 1108, 4 1109, 1109, 1111, 1112, 1113, 1114, 1115, 1116, 1117, 1118, 5 1118, 1120, 1121, 1122, 1123, 1124, 1125, 1126, 1127, 1128, 6 1129, 1129, 1131, 1132, 1133, 1134, 1134, 1136, 1137, 1137, 7 1139, 1140, 1141, 1141, 1143, 1144, 1145, 1145, 1147, 1148, 8 1149, 1150, 1151, 1152, 1152, 1154, 1155, 1155, 1157, 1158, 9 1159, 1159, 1161, 1162, 1162, 1164, 1165, 1166, 1166, 1168/ data (jb2(i),i= 4301, 4400)/ + 1169, 1169, 1171, 1172, 1173, 1173, 1175, 1176, 1177, 1177, 1 1179, 1180, 1180, 1182, 1183, 1184, 1185, 1185, 1187, 1188, 2 1189, 1189, 1191, 1192, 1193, 1193, 1195, 1196, 1197, 1198, 3 1198, 1200, 1201, 1202, 1203, 1203, 1205, 1206, 1207, 1208, 4 1209, 1210, 1211, 1212, 1213, 1214, 1215, 1216, 1217, 1218, 5 1219, 1220, 1221, 1222, 1223, 1224, 1225, 1226, 1227, 1227, 6 1229, 1230, 1231, 1231, 1233, 1234, 1235, 1235, 1237, 1238, 7 1239, 1240, 1241, 1241, 1243, 1244, 1245, 1246, 1247, 1247, 8 1249, 1250, 1251, 1252, 1253, 1254, 1254, 1256, 1257, 1257, 9 1259, 1260, 1260, 1262, 1263, 1264, 1264, 1266, 1267, 1268/ data (jb2(i),i= 4401, 4500)/ + 1269, 1270, 1271, 1272, 1273, 1274, 1275, 1276, 1277, 1278, 1 1279, 1280, 1281, 1282, 1283, 1284, 1285, 1286, 1287, 1287, 2 1289, 1290, 1290, 1292, 1293, 1294, 1295, 1296, 1297, 1297, 3 1299, 1300, 1301, 1301, 1303, 1304, 1305, 1306, 1307, 1308, 4 1309, 1309, 1311, 1312, 1313, 1313, 1315, 1316, 1316, 1318, 5 1319, 1320, 1320, 1322, 1323, 1323, 1325, 1326, 1326, 1328, 6 1329, 1330, 1331, 1332, 1333, 1334, 1335, 1336, 1337, 1338, 7 1339, 1340, 1340, 1342, 1343, 1343, 1345, 1346, 1346, 1348, 8 1349, 1350, 1351, 1352, 1353, 1354, 1355, 1356, 1357, 1358, 9 1359, 1360, 1361, 1361, 0, 0, 0, 0, 0, 0/ c state=istate irot=jrot npart=ipart do i=1,5 jv(i)=kv(i) jb(i)=kb(i) ib(i)=iib(i) enddo do i=1,jv(npart+1)-1 ix(i)=jx(i) iy(i)=jy(i) enddo do i=1,jb(npart+1)-1 ib1(i)=jb1(i) ib2(i)=jb2(i) enddo return end c----------------------------------------------------------------------- c c piecewise lagrange triangle multi grid package c c edition 11.0 - - - june, 2012 c c----------------------------------------------------------------------- subroutine me(state,irot,npart,jv,jb,ib,ix,iy,ib1,ib2) cx use mthdef implicit real(kind=rknd) (a-h,o-z) implicit integer(kind=iknd) (i-n) integer(kind=iknd), dimension(*) :: jv,jb,ib,ix,iy,ib1,ib2 integer(kind=iknd), save, dimension(5) :: kv,kb,iib integer(kind=iknd), save, dimension(2740) :: jx,jy integer(kind=iknd), save, dimension(2760) :: jb1,jb2 integer(kind=iknd), save :: jrot,ipart character(len=80) :: state character(len=80), save :: istate cy data istate/'maine '/ data jrot,ipart/0,2/ data kv/ 1,1778,2736, 0, 0/ data kb/ 1,1795,2753, 0, 0/ data iib/1385, 958, 0, 0, 0/ data (jx(i),i= 1, 100)/ + 21648,41232,45888,45720,45768,45864,45960,46128,46416,46248, 1 46224,46320,46488,46464,46584,46920,46968,46752,47280,47352, 2 47592,47616,47688,47760,47592,47592,47976,47976,47928,48072, 3 48048,48192,48240,48456,48552,48672,48768,49032,49080,49032, 4 48792,48696,48768,48672,48528,48552,48144,48072,48096,48360, 5 48240,48216,48048,48120,48000,47952,47832,47712,47688,47712, 6 47832,47808,47664,47640,47712,47808,47832,47736,47616,47520, 7 47376,47424,47232,47280,47280,47160,46848,46920,46728,46728, 8 46992,47088,47232,47448,47496,47544,47592,47616,47424,47232, 9 47136,47232,47232,47592,47592,47376,47352,47400,47568,47688/ data (jx(i),i= 101, 200)/ + 47784,47736,47928,47904,48096,48096,48216,48144,48144,47928, 1 47760,47640,47688,47496,47616,47520,47328,47064,46464,46104, 2 46032,45912,45816,45720,45480,45240,45144,44880,44832,44616, 3 44664,32280,16800,39744,14160,30360,27288,22488,12336,18120, 4 41232,41232,41352,41496,41640,41616,41400,41400,41328,41088, 5 40824,40296,40200,40032,39864,39648,39360,39072,38592,38016, 6 37944,37872,37368,37248,36960,36720,36600,36360,36096,35952, 7 35952,35400,35136,34752,34488,34224,34128,34080,33960,33528, 8 33360,33024,32640,32232,31488,31296,31104,30936,30216,30168, 9 30120,30120,30240,30216,30312,30216,30168,30072,29928,29664/ data (jx(i),i= 201, 300)/ + 29616,29280,29184,29088,28848,28680,21888,41112,41232,41184, 1 41424,41352,41208,41232,41424,41544,41592,17040,17592,17856, 2 18144,18264,18216,18096,18000,18168,18288,18672,19080,19416, 3 19464,19440,19584,19608,19440,19392,19320,19272,19176,18960, 4 19008,19152,18984,19152,19128,19296,19272,19032,19104,19272, 5 19392,19560,19536,19680,19224,19464,19584,19584,19752,19992, 6 20016,19968,20088,20304,20544,20664,20736,20856,20976,21336, 7 16152,15936,15576,15600,15264,15336,15288,15456,15600,15840, 8 15912,16032,15984,16056,15960,15960,15792,15552,15288,15048, 9 14928,14544,14304,14472,14352,14424,14352,14184,41568,41688/ data (jx(i),i= 301, 400)/ + 41760,41952,41976,41832,41904,41976,42096,42360,42648,42720, 1 42984,43152,43392,43584,43824,43992,44040,44016,44352,44616, 2 44664,44544,44712,44592,44424,44448,44304,44280,44160,43968, 3 44136,44208,44376,44736,44616,44688,44640,44424,44448,44400, 4 44304,44160,44136,44232,44376,44472,39984,39960,39888,39960, 5 40056,40056,40224,40320,40296,40368,40272,40272,40344,40440, 6 40536,40488,40584,40464,40488,40440,40608,40608,40680,40656, 7 40776,40632,40656,40800,40872,40896,40824,40776,40800,40872, 8 40992,41016,40992,40872,40776,40776,40872,40992,41064,41016, 9 41064,41184,41328,41328,41112,41016,41160,41256,41376,41424/ data (jx(i),i= 401, 500)/ + 41496,41544,41568,41664,41592,41592,41424,41448,41640,41664, 1 41592,41616,41760,41784,41952,41904,42024,42072,41952,42024, 2 41904,41952,42048,42024,42096,42000,42000,42096,42120,42216, 3 42216,42360,42384,42336,42432,42528,42600,42672,42720,42888, 4 42936,43104,42936,42936,43008,42960,43464,43608,43608,43512, 5 43680,43608,43368,43440,43752,43752,43680,43728,43656,43680, 6 43824,43872,43824,43872,44136,44256,44232,44280,44448,44568, 7 44784,44808,44640,44712,44640,44832,44784,44832,44904,44832, 8 44904,44832,44928,45000,45120,45168,45240,45288,45336,45408, 9 45408,45264,45288,45360,45336,45264,45192,45288,45048,45096/ data (jx(i),i= 501, 600)/ + 45120,45048,45240,45192,45360,45456,45384,45432,45600,45960, 1 12216,11952,12096,12480,12600,12648,12600,12648,12888,13128, 2 13440,13464,13392,13584,13800,14112,14040,14016,39864,39744, 3 39624,39576,39456,39456,39504,39552,39600,39648,39696,39792, 4 39864,39840,39936,40056,39936,39864,39768,39696,39600,39504, 5 39624,39576,39504,39504,39408,39312,39360,39192,39144,39168, 6 39048,39024,39048,38976,38928,38880,38928,38904,38856,38712, 7 38736,38688,38640,38688,38808,38544,38496,38448,38400,38496, 8 38472,38232,38208,38256,38184,37992,37968,38040,37920,37896, 9 37992,37800,37440,37368,37416,37584,37800,37872,37680,37296/ data (jx(i),i= 601, 700)/ + 37200,37056,37176,37440,37752,37728,37632,37656,37560,37344, 1 37272,37368,37320,37224,37056,36912,36768,36816,36768,36864, 2 36912,36816,37104,37200,37296,37296,37080,37056,37104,37272, 3 37056,36744,36744,36648,36552,36504,36432,36504,36312,36144, 4 36144,35952,35808,35784,35808,35880,35856,35760,35712,35448, 5 35184,35424,35520,35520,35448,35544,35496,35544,35472,35376, 6 35328,35400,35352,35424,35328,35256,35184,35160,34944,34968, 7 34896,34512,34416,34416,34512,34560,34608,34392,34392,34464, 8 34632,34704,34752,34584,34560,34704,34824,34824,34896,34920, 9 34992,34848,34704,34656,34704,34896,34968,34896,32112,31944/ data (jx(i),i= 701, 800)/ + 31872,31872,32088,32400,32352,32280,32112,32208,32352,31896, 1 31920,32040,32016,31872,31752,31584,31560,31368,31152,31056, 2 30696,30816,30744,31032,31080,31080,30984,30792,30768,30600, 3 30552,31992,32040,32208,32376,32688,32808,32856,32928,32976, 4 32808,32664,32544,32592,32472,32400,32304,32280,32256,32352, 5 32328,32232,32256,32352,32472,32520,32448,32664,32712,32880, 6 33048,33096,33024,33120,33336,33168,33144,33336,33408,33504, 7 33672,33696,33600,33480,33312,33240,33216,33216,33240,32952, 8 32952,32880,32664,32808,32760,32808,32736,32520,32424,32520, 9 32256,32208,32304,32184,32184,32304,32496,32520,32688,32688/ data (jx(i),i= 801, 900)/ + 32736,32760,32880,32880,32928,33000,33024,33096,33384,33432, 1 33480,33504,33624,33984,34032,34152,34032,34056,34536,34536, 2 34704,34704,30216,30216,30168,30072,30144,30072,30144,30072, 3 29928,29856,29760,29784,29928,29904,29832,29712,29640,29688, 4 29640,29664,29760,30144,30192,30120,29976,29976,29880,29952, 5 29928,29784,29712,29616,29688,29520,29472,29352,29472,29400, 6 29544,29568,29400,29064,28968,28872,28848,28776,28848,28824, 7 28752,28632,28656,28776,28824,28680,28608,28488,28464,28200, 8 28248,28176,28104,28152,28056,28056,28224,28248,28200,28248, 9 28392,28488,28608,28632,28728,28608,28896,28992,29040,29088/ data (jx(i),i= 901, 1000)/ + 29040,28920,28824,28704,28728,28608,28464,28416,28368,28368, 1 28272,28224,28104,28032,27960,27984,27840,27768,27648,27792, 2 27792,27720,27816,27744,27912,27888,27792,27648,27624,27456, 3 27432,27384,27240,27192,18264,18216,18288,18312,18432,18384, 4 18408,18528,18504,18648,18840,18888,18912,18984,19128,19296, 5 19392,19560,19464,19512,19368,19488,19320,19344,19224,19104, 6 19152,19104,19056,19032,18960,18792,18792,18936,19224,19080, 7 19152,19056,19080,19152,19200,19272,19392,19440,19368,19416, 8 19656,19632,19800,19800,20016,20016,20136,20112,20256,20400, 9 20424,20376,20544,20544,20712,20496,20688,20712,20784,20856/ data (jx(i),i= 1001, 1100)/ + 20832,20928,20952,21048,21072,21264,21360,21480,21552,21192, 1 21216,21552,21576,21720,21864,21912,21648,21624,21480,21360, 2 21096,21072,21264,21216,21432,21360,21600,21600,21648,21720, 3 21864,21864,22056,22008,22056,22128,22056,21984,21888,21960, 4 21936,21864,21816,21744,21720,21672,21480,21408,21456,21624, 5 21888,21960,21960,22008,22224,22344,22224,22416,22464,22416, 6 22992,23040,22968,22968,23064,23136,23160,23112,23016,23016, 7 23112,23136,23232,23280,23232,23136,23184,23088,23136,23160, 8 23184,23256,23352,23280,23208,23376,23328,23280,23232,23256, 9 23352,23424,23304,23136,23088,23112,22920,22920,22728,22776/ data (jx(i),i= 1101, 1200)/ + 22704,22848,22848,22656,22632,22704,22656,22608,22584,22608, 1 22560,22632,22800,22824,22776,22656,22728,22848,22608,22608, 2 22656,22656,22704,22680,22776,22728,22656,22608,22584,22488, 3 12384,12552,12576,12480,12552,12360,12480,12456,12240,12240, 4 12336,12480,12696,12864,13008,12936,13128,13344,13512,13536, 5 13728,13800,13704,13608,13656,13584,13776,14136,14304,14496, 6 14592,14544,14568,14472,14496,14568,14664,14640,14712,14664, 7 14664,14832,14832,14880,15096,15216,15168,15240,15360,15312, 8 15408,15408,15264,15288,15504,15504,15576,15672,15816,15816, 9 15672,15720,15768,15864,15888,15816,15984,15816,15936,16056/ data (jx(i),i= 1201, 1300)/ + 16176,16344,16512,16896,17088,17328,17280,17376,17352,17424, 1 17448,17424,17520,17736,17712,17832,17784,17976,18288,18192, 2 17976,17904,17952,18072,17928,17832,17832,27408,27384,27336, 3 27216,27192,27408,27480,27456,27216,27168,27096,27072,27192, 4 27216,27168,27096,27144,27048,26976,26904,26856,27024,26976, 5 26736,26688,26736,26640,26472,26376,26376,26448,26376,26256, 6 26208,26160,26088,26160,25968,25872,25872,25776,25800,25848, 7 25920,25872,25824,25848,25704,25632,25728,25608,25608,25560, 8 25464,25464,25560,25488,25584,25536,25536,25488,25392,25440, 9 25392,25392,25440,25296,25272,25440,25632,25704,25728,25584/ data (jx(i),i= 1301, 1400)/ + 25560,25464,25344,25104,25272,25320,25200,25176,25344,25320, 1 25176,25056,25056,25152,25176,25056,24936,24816,24888,24672, 2 24504,24504,24360,24408,24504,24576,24720,24840,24960,24720, 3 24432,24576,24744,24720,24864,24960,24936,24768,24696,24576, 4 24528,24408,24432,24480,24240,24168,24192,23976,23160,23184, 5 23256,23280,23352,23376,23256,23376,23424,23520,23424,23568, 6 23568,23688,23688,24000,24000,24144,23976,23736,23712,23880, 7 23856,23784,23736,23640,23568,23592,23496,23520,23640,23688, 8 23808,23736,23808,23880,23904,24288,32184,32160,39096,40272, 9 40248,40392,40368,40632,33288,33288,35568,35568,35616,35688/ data (jx(i),i= 1401, 1500)/ + 35664,35832,37224,37248,39960,39864,40104,39072,32160,30960, 1 31056,31032,30936,31872,32616,31680,31896,27408,24288,24168, 2 24144,24552,24888,24672,24576,24456,24384,24408,24144,24048, 3 24336,24360,24288,24240,24312,24192,24048,24144,24168,24048, 4 23928,23736,23664,23544,23592,23472,23280,23568,23448,23568, 5 23640,23760,24024,24000,24048,24192,24456,24432,24264,24240, 6 24336,24336,24192,24264,24144,24120,23808,23688,23712,23640, 7 24336,24264,24288,24720,24792,25008,25944,25920,26160,26112, 8 28056,28008,28176,27648,27504,27120,27000,27048,26856,26832, 9 26328,36864,37176,36024,36240,35088,35616,34080,33792,33408/ data (jx(i),i= 1501, 1600)/ + 33072,32928,32664,32712,32544,32544,32424,32064,32088,31824, 1 28944,28752,17160,17064,17064,17856,18360,18336,18816,18984, 2 20184,20616,20232,20280,20208,20232,20304,20400,21288,21336, 3 21288,21288,21384,21432,21528,21552,21552,21432,21576,21912, 4 21864,21936,21840,22032,22176,22872,23136,23184,23400,23568, 5 23856,23928,25104,25248,25224,25368,24912,24864,26232,26352, 6 39408,39768,38664,39360,39528,39744,39528,20352,21120,21096, 7 21192,21264,20880,21120,21168,21960,22200,19704,19344,14592, 8 14184,14328,14400,14592,14592,16008,16920,16560,18984,18744, 9 18888,18984,19056,19080,19248,26280,26304,26592,26544,26472/ data (jx(i),i= 1601, 1700)/ + 26448,27048,26808,27216,27000,26568,25992,26880,26928,27024, 1 27456,28152,29496,30216,20592,20400,20400,20304,20568,20592, 2 20808,20784,20976,20928,21528,21480,21384,21336,21288,21216, 3 21216,21408,25848,25656,24672,24528,24600,23664,23616,22800, 4 22560,22392,23568,23424,23400,19008,19080,18984,19080,18504, 5 18432,17016,17064,17040,27936,27840,27528,27192,26904,26928, 6 26664,26520,26592,26496,26616,26808,21120,20976,21048,21144, 7 21120,21216,22584,22320,22152,22056,21840,21624,21192,17088, 8 17760,17832,18120,18576,19584,19584,20376,20592,20688,22368, 9 22440,22632,22752,14208,14232,14112,14136,14064,14136,14112/ data (jx(i),i= 1701, 1800)/ + 14256,14256,14400,14400,14616,14496,14472,14544,14736,14568, 1 14880,14232,13680,13536,13608,13608,13944,15072,15096,15768, 2 16056,16080,15912,15912,15840,16128,16200,16272,16464,16800, 3 16848,14064,13920,13824,13704,13584,13344,13032,12888,12744, 4 12600,12552,12480,14232,14472,14664,15024,15072,15408,15384, 5 15432,15360,15504,15384,15336,15408,15600,15744,15744,15912, 6 16080,16344,17184,16848,22512,22536,22584,22728,22776,22968, 7 23112,23304,22800,22896,23280,24192,24000,19800,19704,19560, 8 19560,19704,19464,19512,19656,19512,19176,19128,19176,19296, 9 19296,19344,19224,19296,20376,20352,20568,20520,20616,20592/ data (jx(i),i= 1801, 1900)/ + 20472,20016,19944,19824,19848,20040,20112,20160,20568,20496, 1 20496,20616,19512,19536,19656,19632,20064,19992,20112,22008, 2 22032,21960,21936,19656,19608,19608,19704,21144,21072,21144, 3 21216,19992,19944,20112,20568,20424,20328,20352,20256,20256, 4 20112,20304,20424,20520,20352,20280,20376,20016,19968,20088, 5 20088,20280,20232,20352,20352,20208,20136,20160,20904,20856, 6 20976,21048,20976,20904,20904,21048,21168,21120,21168,21216, 7 24816,24768,24840,24864,20760,20688,20808,20832,21072,20976, 8 21048,21096,24432,24360,24264,24336,24360,24480,24600,24600, 9 24672,24624,24672,24480,20544,20448,20544,20616,27696,27600/ data (jx(i),i= 1901, 2000)/ + 27648,27768,27816,28560,28512,28608,28632,26664,26712,26712, 1 28104,28008,28128,26568,26616,26712,26616,26520,30288,30240, 2 30240,30312,30552,30480,30456,30552,27648,27624,27696,27744, 3 32928,32856,32904,33096,33072,24336,24360,24456,24504,24360, 4 25272,25272,25344,25368,25344,29376,29424,29520,29448,29496, 5 29376,27984,27864,27864,28008,23856,23976,24096,24240,24360, 6 24552,24072,23928,27672,27624,27768,27744,31584,31656,31608, 7 31680,31632,31488,31512,31440,31560,31584,31512,31680,31728, 8 21360,21312,21312,21408,21432,27504,27408,27216,27384,27456, 9 27504,27840,27912,27912,27336,27216,27288,27384,27432,27360/ data (jx(i),i= 2001, 2100)/ + 27456,27744,27672,27696,27792,31656,31656,31584,31560,31632, 1 31848,31776,31824,31992,27168,27240,27240,27168,29496,29448, 2 29472,29592,29232,29160,29208,29352,29256,27000,27120,27120, 3 27072,27000,26640,26688,26784,26688,26952,27048,27024,31752, 4 31848,31872,31872,31752,31920,31896,31992,32208,32208,32400, 5 32352,32448,32472,32544,32688,32592,32640,32568,32544,32544, 6 32472,32184,31944,31848,31872,31824,31800,31656,31464,31416, 7 31536,31488,31560,31584,31752,31680,36432,36624,36648,36768, 8 36672,36672,36600,36600,36552,36312,33816,33744,33792,33960, 9 35160,35136,35040,35016,35136,35280,35184,32352,32376,32256/ data (jx(i),i= 2101, 2200)/ + 32112,32064,31968,32016,32064,32232,34104,34128,34224,32424, 1 32232,32376,30288,30192,30264,33648,33672,33744,33936,33816, 2 31512,31464,31560,31584,31800,31680,31776,30144,30144,30216, 3 30192,31248,31128,31152,31344,31704,31776,31752,31608,31752, 4 31896,31848,31920,31968,32064,32040,32184,32184,32424,32376, 5 32352,32328,32352,32304,32208,32280,32232,32064,32040,31656, 6 31752,31656,31584,31464,31320,31344,31224,35808,35784,35904, 7 36168,36168,36240,36120,35952,35928,35976,35664,35712,35544, 8 35472,35376,35208,35352,35568,35616,35784,33552,33552,33696, 9 33696,33648,33624,33912,33936,34032,35784,35640,35736,35808/ data (jx(i),i= 2201, 2300)/ + 34104,34128,34200,34056,33936,34032,37536,37488,37416,37512, 1 37584,33816,33792,33864,34248,34224,34272,32592,32496,32568, 2 32640,32256,32232,32400,32376,33888,33816,33936,33912,33576, 3 33312,33384,33240,33216,33216,33312,33336,33288,33240,33048, 4 33264,33312,33480,33504,33384,33384,33552,33576,33792,34080, 5 34176,34224,34008,34032,33672,33648,34248,34248,34032,34080, 6 33840,33720,33816,33744,34080,34032,37584,37512,37464,37560, 7 36552,36504,36528,36648,36696,36672,35496,35448,35496,35616, 8 32640,32592,32544,32688,32736,36816,36912,36792,36672,36696, 9 34608,34368,34320,34392,34392,34296,34488,36312,36288,36432/ data (jx(i),i= 2301, 2400)/ + 36552,36432,34128,34176,34128,33864,33912,32160,32136,32184, 1 32280,32256,34416,34368,34368,34488,32616,32472,32448,32544, 2 34248,34200,34104,35376,35328,35472,35448,31200,31176,31128, 3 31056,31128,35328,35256,35280,35376,35424,31320,31368,31320, 4 31368,31248,31296,31440,31512,31656,31512,31536,31608,31560, 5 31608,31704,31752,31800,31728,31872,31728,31680,31512,31416, 6 31416,31488,31368,31392,31488,31488,31416,31272,31152,31080, 7 31176,31056,31008,30936,30936,32808,32760,32784,32928,37896, 8 37872,37968,37968,37248,37464,37392,37344,37224,35592,35592, 9 35640,35664,35664,32976,32976,33048,33480,33456,33336,33096/ data (jx(i),i= 2401, 2500)/ + 33096,37344,37272,37488,37464,35424,35472,35448,35280,35232, 1 32856,32808,32856,33096,33048,32880,37800,37776,37536,37560, 2 37632,38088,38064,37896,37776,37464,37512,37464,37272,37056, 3 36912,36792,36648,36552,36528,36384,36528,36312,36312,36120, 4 36144,36048,36000,35928,36024,35976,35808,35784,35832,36024, 5 35952,36048,36168,36144,36192,36264,36288,36408,36384,36456, 6 36552,36648,36720,36936,37128,37008,36768,36792,36888,36792, 7 36888,36912,36888,36744,36912,36936,37008,37152,37200,37296, 8 37512,37536,37584,37680,37752,37872,37944,37968,38016,38064, 9 38136,38856,38808,38808,35712,35808,35832,35760,35904,35880/ data (jx(i),i= 2501, 2600)/ + 35760,35592,35688,35304,35256,35184,35040,35016,34920,34872, 1 34992,34968,35064,35160,35304,35256,35376,38424,38520,38592, 2 38496,38376,38352,40992,40824,40800,40848,40896,40920,41016, 3 41040,38640,38568,38496,38616,36192,36144,36144,36216,41184, 4 41088,41136,43224,43176,43200,43248,43344,43272,43296,43368, 5 31680,31776,31824,31776,31656,31608,38424,38496,38544,38592, 6 38496,38448,43152,43080,43104,43176,42672,42600,42624,42696, 7 42360,42288,42312,42384,43416,43584,43560,43656,43512,43416, 8 43416,43248,43848,43776,43800,43920,43968,43944,41280,41256, 9 41136,41232,42648,42600,42600,42672,43872,43800,43824,43896/ data (jx(i),i= 2601, 2700)/ + 41640,41520,41616,43008,43032,42960,42984,43056,42672,42600, 1 42696,43200,43128,43152,43224,41472,41424,41472,41568,41328, 2 41328,42432,42384,42408,42456,43248,43176,43080,43152,43728, 3 43656,43680,43752,32616,32784,32640,32520,32448,32472,44136, 4 44016,43968,43896,43776,43800,43632,43632,43896,44040,44208, 5 44304,44160,43968,44040,42840,42816,42768,42720,42744,42816, 6 43896,43848,43872,43920,41232,41232,41136,41160,42864,42840, 7 42912,42936,45168,45096,45120,44568,44520,44592,44616,44208, 8 44040,44016,43920,43800,43776,43896,43968,44040,44016,44064, 9 44328,44328,46200,46200,46320,46128,45984,45888,45912,45792/ data (jx(i),i= 2701, 2740)/ + 45888,45240,45168,45216,45360,45312,45360,33864,33744,33792, 1 33936,34008,34008,34128,34128,34200,34296,34272,34080,33816, 2 33744,33792,33864,33960,48696,48768,48696,48504,48480,48288, 3 48240,48192,48312,48432,48432, 0, 0, 0, 0, 0/ data (jy(i),i= 1, 100)/ + 50784,39480,26712,26712,26592,26640,26592,26160,26280,26376, 1 26688,26736,26736,26520,26352,26424,26472,26592,26736,26976, 2 27192,27336,27312,27576,27648,27696,27720,27840,27888,27984, 3 28080,28128,27960,28104,28272,28320,28512,28584,28680,28752, 4 28656,28968,29184,29232,29112,29376,29760,29736,29664,29088, 5 29016,28872,28752,29208,29160,29448,29472,29616,29592,29448, 6 29232,29208,29328,29256,29136,29160,29088,29088,28992,29352, 7 29352,28584,28608,28800,29184,29400,29520,29688,29784,29904, 8 29880,29784,29760,29520,29736,29736,29664,29736,29952,30024, 9 30144,30120,30216,30000,30144,30240,30336,30360,30264,30384/ data (jy(i),i= 101, 200)/ + 30120,30024,29928,30048,30120,30408,30456,30552,30696,31224, 1 31416,31368,31512,31656,31848,32184,32376,32928,33024,33240, 2 33240,32760,32712,32568,32472,32616,32784,32880,33096,33312, 3 33624,26736,39360,24504,34488,21216,18024,16272,15672,12264, 4 41928,42048,42192,42240,42528,42600,42744,42912,48312,57072, 5 57288,57552,57816,58080,58224,58704,58872,59208,59520,60000, 6 60096,60312,60504,60672,60648,60744,60696,60744,60672,60456, 7 59808,59760,59928,59928,59736,59784,59736,59424,59280,59160, 8 59232,59208,58992,58872,58392,58632,58776,58776,59304,59448, 9 60360,60936,61056,61272,61344,61584,61536,61680,61560,61584/ data (jy(i),i= 201, 300)/ + 61728,61896,61872,61968,61920,62016,52320,39648,39648,40104, 1 40128,40344,40488,40968,41208,41256,41328,39408,39840,39840, 2 40032,40176,40416,40560,40944,41016,41256,41664,41832,42144, 3 42384,42600,42696,42840,42936,43056,43056,43152,43104,43104, 4 43296,43440,43824,43944,44064,44208,44352,44352,44592,44808, 5 44832,44784,45024,45384,45960,46368,46680,46872,47184,47352, 6 47520,47688,47904,48072,48120,48216,48384,48432,48696,48768, 7 38688,38568,38136,37944,37440,37296,37104,36960,36672,36552, 8 36312,36288,36144,36000,35904,35784,35712,35928,35904,36096, 9 36360,36384,36048,35664,35304,35064,34824,34704,39456,39312/ data (jy(i),i= 301, 400)/ + 39360,39264,39336,39552,39600,39504,39504,38904,38664,38808, 1 38592,38592,38448,38448,38352,38352,38424,38544,38568,38232, 2 37896,37680,37296,37272,37392,37248,37320,37200,37200,37056, 3 36744,36312,36240,35688,35568,35448,35256,35040,34920,34752, 4 34632,34584,34488,34392,34008,33960,24528,24264,24144,24120, 5 23880,23736,23352,23376,23808,24000,24096,24216,24168,24360, 6 24384,24216,23928,23952,23688,23640,23160,23280,23352,23424, 7 23952,24288,24336,24312,24456,24432,24240,24264,24144,24120, 8 24264,24432,24576,24864,24912,24984,24984,24864,25008,25224, 9 25296,25272,25056,25272,25368,25560,25440,25680,25320,25320/ data (jy(i),i= 401, 500)/ + 25728,25728,25920,25512,25488,25176,25056,24816,24816,25056, 1 25056,25128,25128,25440,25680,25800,25872,25776,25416,25344, 2 25080,24984,24960,24840,24816,24768,24504,24480,24696,24768, 3 24480,24600,24744,24792,25032,25080,25032,25320,25416,25440, 4 25296,25224,25080,25008,25008,24864,24912,25008,25176,25296, 5 25824,25968,26064,26136,26112,26232,26376,26424,26520,26568, 6 26472,26328,26160,26112,26400,26208,25968,25944,25944,25800, 7 25920,26016,26208,26424,26664,26688,26496,26448,26448,26352, 8 26304,26160,25872,25752,25920,26184,26208,26112,26112,26256, 9 26304,26352,26448,26448,26592,26688,26688,26832,26880,26952/ data (jy(i),i= 501, 600)/ + 27144,27312,27288,27024,26952,26976,27024,27168,27096,27216, 1 26640,34920,34992,35016,35088,35136,35328,35400,35232,35304, 2 34896,34752,34536,34104,33912,33984,34080,34248,24288,24000, 3 24048,24216,24288,24216,24000,23952,23664,23664,23880,23760, 4 23808,23712,23376,23208,23208,23016,23112,23352,23232,23280, 5 23088,22992,22992,22680,22776,22728,22464,22344,22368,22512, 6 22536,22632,23016,23112,23040,23040,22920,22848,22848,23256, 7 23448,23520,23928,24048,24096,24264,24168,24192,24264,24288, 8 24360,24504,24264,24168,24096,24096,24144,24168,24408,24600, 9 24672,24744,24984,25152,25344,25416,25320,25344,25512,25416/ data (jy(i),i= 601, 700)/ + 25248,25248,24984,24864,24648,24408,24384,24024,24048,24360, 1 24528,24576,24696,24720,24648,24888,24888,24792,24720,24672, 2 24576,24504,24504,24384,24168,24096,24144,24096,24000,23928, 3 23832,23976,23832,23832,23952,24384,24096,23784,23544,23616, 4 23400,23184,23160,23208,23880,24144,24432,24504,24240,24360, 5 24360,24240,23904,23736,23664,23352,23040,22992,22920,22920, 6 23064,23256,23568,23760,23880,23616,23592,23352,23352,23256, 7 23160,23328,23304,23256,23232,23136,22968,22368,22320,22368, 8 22800,22824,22608,22248,22080,21792,21792,21912,21864,21600, 9 21408,21432,21600,21552,21360,21288,21000,21000,26400,26208/ data (jy(i),i= 701, 800)/ + 25824,25752,25680,25272,24408,24408,24240,24048,24024,23760, 1 24024,24120,24192,24144,23976,23976,23808,23808,23520,23568, 2 23520,23160,23064,22848,22728,22296,22008,21840,21864,21816, 3 21528,25944,25824,25752,25416,25272,25032,25032,25176,25080, 4 24552,24384,23952,23784,23784,23568,23544,23472,23208,23232, 5 23136,23112,22968,22944,22992,23136,23184,23232,23496,23616, 6 23640,23832,23976,24024,23832,23736,23448,23352,23184,23160, 7 22992,22824,22752,23064,23136,23256,23280,23232,23160,23280, 8 23352,23400,23016,22896,22848,22704,22656,22896,22872,22752, 9 22560,22344,22248,22200,22104,22008,22008,22176,22152,22344/ data (jy(i),i= 801, 900)/ + 22392,22248,22464,22320,22296,22440,22416,22200,22008,21864, 1 21840,21912,21816,21720,21888,21960,21720,21624,21408,21264, 2 21216,21096,20928,20712,20784,20712,20544,20376,20280,20208, 3 20424,19824,19776,19728,19752,19560,19512,19560,19440,19368, 4 19344,19056,19128,19248,19224,19008,18888,18816,18816,18648, 5 18576,18552,18480,18504,18672,18600,18816,18840,18672,18480, 6 18480,18360,18096,18096,17952,17976,18096,17856,17856,17784, 7 17640,17568,17544,17592,17520,17208,17208,17328,17208,17016, 8 17088,17232,17256,17400,17400,17496,17496,17544,17592,17784, 9 17808,18024,18000,18096,18168,18168,18528,18840,18816,18936/ data (jy(i),i= 901, 1000)/ + 18984,18912,18672,18696,18504,18264,18216,18288,18288,18144, 1 18072,17856,17784,17952,17760,17544,17520,17352,17352,17496, 2 17616,17592,17832,17832,18024,18072,17952,17976,17832,17688, 3 17856,17856,17616,17640,12336,12432,12576,12456,12480,12432, 4 12168,12168,12288,12456,12576,12744,12528,12480,12480,12624, 5 12528,12624,12768,12888,13056,13344,13632,13704,13776,13680, 6 13608,13584,13656,13536,13536,13560,13680,13680,13920,14088, 7 14232,14256,14544,14592,14304,14424,14400,14496,14640,14616, 8 14952,15240,15336,15120,15288,15360,15504,15576,15576,15672, 9 15744,15816,15960,16104,16176,15744,15888,15960,15912,15960/ data (jy(i),i= 1001, 1100)/ + 15744,15840,16008,16032,16128,16368,16344,16464,16440,15936, 1 15888,16272,16224,16224,16368,16344,15912,15792,15672,15384, 2 15000,14832,14976,14712,14928,15120,15384,15576,15648,15624, 3 15840,16008,16368,16128,16104,16176,15816,15984,15744,15696, 4 15624,15456,15456,15384,15264,15264,14928,14664,14640,15024, 5 15312,15360,15216,15264,15984,15792,15480,15456,16056,16056, 6 17904,17856,17640,17496,17376,17424,16872,16608,16464,16416, 7 16440,16536,16560,16440,16056,15912,15768,15696,15696,15552, 8 15672,15648,15408,15408,15504,15120,15048,15072,14880,14832, 9 14952,14880,14688,14688,14760,14664,14496,14328,14352,14520/ data (jy(i),i= 1101, 1200)/ + 14640,14976,15000,14856,14904,15048,15192,15120,15168,15312, 1 15480,15600,15552,15624,15672,15648,15720,16056,15912,16128, 2 16200,16296,16296,16392,16536,16560,16584,16440,16560,16464, 3 12864,12648,12504,12432,12144,11664,11568,11184,10848,10392, 4 10056, 9864, 9840, 9648, 9384, 9288, 9168, 8832, 8760, 8664, 5 8568, 8376, 8016, 7920, 7800, 7296, 7080, 6864, 6624, 6528, 6 6600, 6696, 6744, 6888, 7008, 6816, 6816, 6744, 6696, 6696, 7 6528, 6600, 6384, 6360, 6480, 6792, 6840, 6816, 6984, 7056, 8 7056, 7152, 7128, 7248, 7224, 7440, 7608, 7656, 7608, 7680, 9 7752, 7944, 7920, 7992, 8064, 8112, 8304, 8640, 9000, 9144/ data (jy(i),i= 1201, 1300)/ + 9552, 9768, 9840, 9888, 9816,10032,10104,10152,10272,10248, 1 10272,10440,10536,10536,10632,10680,10752,10992,11160,11208, 2 11040,11088,11208,11184,11256,11400,11832,18384,18408,18312, 3 18288,18336,18528,18744,18936,18960,19128,19104,18936,18840, 4 18576,18456,18456,18696,18696,18552,18528,18384,18240,18168, 5 17832,17832,18048,17976,17400,17352,17280,17328,16872,16632, 6 16680,16512,16488,16440,15984,15936,16080,16464,16536,16512, 7 16680,16824,16800,16632,16512,16536,16992,16896,17064,16800, 8 16752,16632,16704,16416,16296,16176,16008,15984,16104,16272, 9 16320,16704,17232,17208,17280,17784,17952,18120,18528,18408/ data (jy(i),i= 1301, 1400)/ + 18072,17880,17808,16920,17088,16968,16752,16488,16248,16080, 1 15720,15696,15840,15888,16320,16272,15888,16032,16176,16128, 2 16200,16392,16440,16512,16536,17088,17136,16896,17136,17328, 3 17184,17712,18096,18168,18360,18360,18624,18360,18288,18264, 4 18096,18048,17976,17976,17448,17448,17328,17304,18024,17592, 5 17400,16728,16368,16176,15792,15648,15888,15864,15456,14952, 6 15120,15144,14976,15360,15648,16176,16176,15696,15744,16248, 7 16464,16536,16392,16344,16464,16608,16752,16800,16728,17112, 8 17112,16848,16824,16992,17280,50760,48480,50736,38928,39216, 9 39288,39360,39456,39336,48480,48312,48312,44016,43920,42600/ data (jy(i),i= 1401, 1500)/ + 38136,38040,38376,38496,35304,35280,34224,34056,39456,39168, 1 38832,38136,37272,37440,33816,33624,32568,31704,48480,48480, 2 43176,43248,41736,41712,41592,41712,41928,42024,41952,42000, 3 41616,41520,41352,41352,41088,40728,40728,40632,40488,40368, 4 40464,40488,40608,40440,40296,40296,40224,40056,39912,39816, 5 39576,39480,39408,39072,39048,39144,38976,38904,39048,39024, 6 38736,38640,38568,38232,38160,38016,37824,37824,37728,37680, 7 34488,34488,34416,32040,32064,30912,31080,31200,31248,31464, 8 28392,28320,27240,27144,27600,27648,27552,27384,27192,26976, 9 26880,33600,32064,31848,30768,30528,27792,27480,27000,27240/ data (jy(i),i= 1501, 1600)/ + 26904,26448,26496,26640,26688,26784,26808,26880,26976,26880, 1 26256,27336,37392,37392,37224,32712,32784,32856,32928,32256, 2 32472,30168,30096,29712,29688,29520,29544,28944,29088,28656, 3 28656,28392,28392,28104,28128,27984,27744,27720,26712,26760, 4 26688,26544,26496,26328,25872,25992,25776,25488,25440,25824, 5 25752,25680,25416,25488,25752,26016,26616,26976,27216,27192, 6 32424,30264,30048,26664,26712,25656,25608,24312,24288,24408, 7 24576,24576,24840,25344,25608,25416,25776,24216,23976,31176, 8 31128,30000,30000,28896,27528,28320,26160,25944,25392,24984, 9 25008,24576,24576,24528,24552,26856,26664,26616,26472,26496/ data (jy(i),i= 1601, 1700)/ + 26280,26208,25080,24984,23880,23976,22440,22248,22440,22416, 1 21984,22704,21312,21360,23016,22968,22872,22848,22392,22200, 2 21936,20760,20664,20568,20424,20232,20256,20136,20136,19824, 3 19776,19704,21648,21408,21648,20976,19656,19872,20040,20232, 4 20016,19488,19488,19224,19032,23760,23448,23424,22776,20808, 5 20832,18960,18912,18600,18984,19776,20736,20688,20760,20856, 6 20952,21336,21696,22056,22200,22152,17832,18024,18144,18144, 7 18456,18552,17544,17184,17112,16992,17136,17040,17592,18480, 8 18048,18216,18000,18648,17568,17496,16944,17280,17184,16416, 9 16632,16944,17400,15888,16008,16152,16320,16416,16440,16536/ data (jy(i),i= 1701, 1800)/ + 16632,16584,16680,16608,16800,16824,17040,17184,17328,17544, 1 17760,18744,18888,19272,19392,19464,19224,19992,19944,20376, 2 19896,19776,19488,19296,19008,18432,18408,18528,18288,18720, 3 18744,15840,15864,15792,15840,15792,15864,15744,15624,15648, 4 15552,15600,15552,15744,15552,15576,15768,15624,15528,15432, 5 15288,15240,15072,14808,14448,14400,14472,14376,14232,14376, 6 14232,14592,13656,13200,17496,17928,18000,17928,18216,18240, 7 18672,18648,17760,17736,18408,18192,17736,13824,13728,13776, 8 13848,14016,13584,13680,13656,13512,12312,12336,12384,12384, 9 12288,14208,14208,14256,14160,14232,14448,14328,14328,14256/ data (jy(i),i= 1801, 1900)/ + 14280,14208,14064,14112,14184,14328,14448,14352,14040,14016, 1 14064,14184,14016,14160,14208,14040,13752,13752,13872,14664, 2 14592,14592,14664,14544,14520,14568,14640,14520,14496,14640, 3 14616,14448,14496,14544,15096,14640,14616,14568,14448,14592, 4 14616,14952,14952,15096,14376,14376,14472,14928,14976,15144, 5 15240,15336,15168,15192,15144,15048,15096,15024,14880,14904, 6 15120,15120,15696,15672,15720,15816,15648,15648,15744,15696, 7 15576,15648,15720,15600,15576,15576,15648,15600,15480,15408, 8 15576,15552,16080,16080,15864,15816,15672,15456,15360,15840, 9 15792,15960,16056,16176,15360,15336,15432,15432,14976,14976/ data (jy(i),i= 1901, 2000)/ + 15120,15216,15192,16992,17064,17112,17016,16992,17112,16992, 1 16968,17040,17184,16920,17136,17184,17472,16920,16920,16944, 2 17016,16992,16800,16800,16896,16872,16776,16800,16824,16680, 3 16560,16608,16656,16728,16632,16608,16560,16608,17136,16848, 4 16608,16656,16704,16656,16368,16560,16704,16776,16488,16392, 5 16392,16320,16320,16440,16440,16752,16320,16224,17064,17184, 6 17952,16896,16872,16224,16296,16512,16296,16176,16224,16320, 7 16392,16488,16392,16296,16176,16128,15768,15816,16032,15960, 8 15744,15744,15864,15960,15816,17496,17328,17352,17472,17616, 9 17640,17208,17304,17232,17232,17112,17280,17304,17112,17088/ data (jy(i),i= 2001, 2100)/ + 17232,17040,16992,16944,16968,18504,18456,18432,18528,18576, 1 18432,18624,18648,18456,18120,18216,18144,18000,18024,18024, 2 18072,18048,17928,17904,18024,18024,17880,18072,18144,17928, 3 17736,17712,17616,17760,17784,17544,17568,17640,17520,19008, 4 19056,19032,18888,18792,18744,18672,18576,18792,18480,18552, 5 18672,18720,18816,18768,18888,19008,19080,19272,19248,19152, 6 19128,19128,19392,19344,19488,19512,19608,19632,19512,19296, 7 19296,19200,19176,19224,19200,19104,19392,19464,19416,19440, 8 19536,19632,19680,19728,19752,19560,19392,19440,19512,19368, 9 19344,19320,19416,19560,19728,19488,19464,19416,19560,19632/ data (jy(i),i= 2101, 2200)/ + 19560,19728,19680,19656,19368,19296,19248,19320,19272,19248, 1 19176,19320,19008,19008,19128,18984,19104,19056,19104,18960, 2 19032,19152,19080,18936,18864,18912,18960,18840,18912,18912, 3 18816,19680,19488,19464,19680,19944,19944,19800,19752,19704, 4 19752,19848,19968,19848,19896,19944,19992,19920,19992,20064, 5 20016,20064,20112,20112,20328,20400,20448,20400,20448,20136, 6 20064,19992,20064,20016,19872,19824,19752,20040,19944,19776, 7 19824,20016,20064,20328,20544,20424,20328,20232,20376,20424, 8 20256,20256,20088,19920,20112,19872,20064,19800,19896,19944, 9 19752,19728,19824,19656,19704,19728,19632,19728,19776,19680/ data (jy(i),i= 2201, 2300)/ + 19584,19752,19656,19944,19944,20040,19896,19896,20064,20160, 1 20112,19848,19944,19920,19800,19920,19872,19848,19824,19920, 2 19920,19776,19848,19896,19824,20328,20280,20160,20112,19992, 3 20088,20208,20184,20256,20424,20472,20544,20688,20784,20880, 4 20952,21048,20904,21000,21096,21216,21480,21624,21432,21336, 5 21216,21000,21096,20880,20856,20784,20808,20760,20736,20616, 6 20712,20664,20592,20472,20304,20232,20304,20280,20376,20376, 7 20256,20328,20424,20472,20328,20280,20616,20616,20712,20640, 8 20616,20616,20736,20880,20808,20736,20616,20592,20664,20760, 9 20520,20856,20688,20664,20616,20520,20448,20424,20448,20616/ data (jy(i),i= 2301, 2400)/ + 20616,20424,20520,20424,20376,20496,20568,20976,21024,21144, 1 21168,20976,20952,20976,21024,21000,20952,20904,21096,21096, 2 20952,20880,20952,20880,21000,21000,20928,21096,21144,21048, 3 20808,20880,20640,20664,20760,20808,20712,21672,21576,21384, 4 21336,21072,21024,21264,21624,21888,21984,22080,22104,22224, 5 22440,22344,22392,22440,22512,22728,23040,22872,22872,22728, 6 22560,22464,22320,22224,22248,22152,22008,21912,21672,21144, 7 21336,21528,21360,21360,21240,21120,21120,21264,21168,21120, 8 21192,21216,21120,21048,21168,21216,21336,21288,21864,22104, 9 22080,21960,21888,21840,21936,22008,21720,21624,21528,21672/ data (jy(i),i= 2401, 2500)/ + 21768,21528,21600,21600,21528,21552,21528,21432,21480,21696, 1 21456,21504,21528,21408,21360,21384,21408,21336,21288,21480, 2 21480,22584,22776,23064,23088,23352,23448,23616,23688,23592, 3 23712,23736,23472,23448,23544,23472,23160,23088,22992,22872, 4 22824,22632,22632,22464,22440,22224,22080,21840,21744,21720, 5 21600,21312,21432,21288,21216,21336,21264,21216,21024,20976, 6 21264,20904,20928,21024,21288,21504,21576,21672,21624,21792, 7 21864,22104,22344,22728,22704,22632,21912,21744,21792,21744, 8 21792,21840,21792,21816,21912,21936,22080,22008,22032,22272, 9 22272,22608,22656,22752,22176,22272,22368,22392,22608,22872/ data (jy(i),i= 2501, 2600)/ + 22824,22512,22392,22104,22080,22200,22248,22200,22224,22296, 1 22680,22824,22992,22944,22512,22320,22176,22944,22944,23040, 2 23256,23112,23016,23496,23616,23808,23928,23928,23664,23664, 3 23544,23304,23280,23424,23424,23208,23280,23328,23256,24000, 4 24048,23856,23832,23856,23904,23856,23760,23784,23856,23808, 5 23856,23856,23712,23520,23568,23712,23664,23832,23808,23760, 6 23544,23520,24000,24048,24096,24048,24000,24024,24096,24048, 7 23976,24000,24048,24000,23904,23976,24144,24192,24408,24456, 8 24792,24528,24288,24384,24456,24456,24384,24312,24312,24408, 9 24264,24264,24216,24240,24312,24264,24192,24216,24264,24240/ data (jy(i),i= 2601, 2700)/ + 24240,24216,24144,24432,24360,24360,24528,24480,24360,24432, 1 24408,24336,24360,24408,24384,24432,24336,24288,24384,24648, 2 24504,24288,24312,24384,24336,24696,24816,24624,24576,24504, 3 24528,24600,24552,24480,24792,25176,25248,25056,24816,24480, 4 24456,24576,24600,24504,24576,24648,24720,24744,24648,25272, 5 25320,25368,25296,25224,25152,25296,25296,25128,25008,25032, 6 24912,24912,24984,24936,24744,24984,24840,24744,24600,24696, 7 24720,24648,25632,25632,25728,25416,25488,25536,25464,25680, 8 25800,25632,25608,25704,25560,25392,25392,25464,25536,25584, 9 25536,25608,25896,25992,26040,26040,26160,26064,25992,25992/ data (jy(i),i= 2701, 2740)/ + 25848,25848,25800,25920,25752,25776,25896,18624,18360,18168, 1 18312,18288,18360,18360,18216,18240,18672,19176,19176,18864, 2 18720,18696,18768,18744,29688,29784,29928,30000,30168,30336, 3 30312,30048,29880,29856,29736, 0, 0, 0, 0, 0/ data (jb1(i),i= 1, 100)/ + 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 2 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 3 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 4 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 5 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 6 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 7 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 8 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 9 93, 94, 95, 96, 97, 98, 99, 100, 101, 102/ data (jb1(i),i= 101, 200)/ + 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 1 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 2 123, 124, 125, 126, 127, 128, 129, 130, 141, 142, 3 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 4 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 5 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 6 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 7 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 8 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 9 203, 204, 205, 206, 1, 2, 208, 209, 210, 211/ data (jb1(i),i= 201, 300)/ + 212, 213, 214, 215, 216, 141, 133, 218, 219, 220, 1 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 2 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 3 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 4 251, 252, 253, 254, 255, 256, 257, 258, 259, 260, 5 261, 262, 263, 264, 265, 266, 267, 268, 269, 1, 6 133, 271, 272, 273, 274, 275, 276, 277, 278, 279, 7 280, 281, 282, 283, 284, 285, 286, 287, 288, 289, 8 290, 291, 292, 293, 294, 295, 296, 297, 135, 2, 9 299, 300, 301, 302, 303, 304, 305, 306, 307, 308/ data (jb1(i),i= 301, 400)/ + 309, 310, 311, 312, 313, 314, 315, 316, 317, 318, 1 319, 320, 321, 322, 323, 324, 325, 326, 327, 328, 2 329, 330, 331, 332, 333, 334, 335, 336, 337, 338, 3 339, 340, 341, 342, 343, 344, 345, 131, 134, 347, 4 348, 349, 350, 351, 352, 353, 354, 355, 356, 357, 5 358, 359, 360, 361, 362, 363, 364, 365, 366, 367, 6 368, 369, 370, 371, 372, 373, 374, 375, 376, 377, 7 378, 379, 380, 381, 382, 383, 384, 385, 386, 387, 8 388, 389, 390, 391, 392, 393, 394, 395, 396, 397, 9 398, 399, 400, 401, 402, 403, 404, 405, 406, 407/ data (jb1(i),i= 401, 500)/ + 408, 409, 410, 411, 412, 413, 414, 415, 416, 417, 1 418, 419, 420, 421, 422, 423, 424, 425, 426, 427, 2 428, 429, 430, 431, 432, 433, 434, 435, 436, 437, 3 438, 439, 440, 441, 442, 443, 444, 445, 446, 447, 4 448, 449, 450, 451, 452, 453, 454, 455, 456, 457, 5 458, 459, 460, 461, 462, 463, 464, 465, 466, 467, 6 468, 469, 470, 471, 472, 473, 474, 475, 476, 477, 7 478, 479, 480, 481, 482, 483, 484, 485, 486, 487, 8 488, 489, 490, 491, 492, 493, 494, 495, 496, 497, 9 498, 499, 500, 501, 502, 503, 504, 505, 506, 507/ data (jb1(i),i= 501, 600)/ + 508, 509, 3, 139, 511, 512, 513, 514, 515, 516, 1 517, 518, 519, 520, 521, 522, 523, 524, 525, 526, 2 527, 135, 134, 529, 530, 531, 532, 533, 534, 535, 3 536, 537, 538, 539, 540, 541, 542, 543, 544, 545, 4 546, 547, 548, 549, 550, 551, 552, 553, 554, 555, 5 556, 557, 558, 559, 560, 561, 562, 563, 564, 565, 6 566, 567, 568, 569, 570, 571, 572, 573, 574, 575, 7 576, 577, 578, 579, 580, 581, 582, 583, 584, 585, 8 586, 587, 588, 589, 590, 591, 592, 593, 594, 595, 9 596, 597, 598, 599, 600, 601, 602, 603, 604, 605/ data (jb1(i),i= 601, 700)/ + 606, 607, 608, 609, 610, 611, 612, 613, 614, 615, 1 616, 617, 618, 619, 620, 621, 622, 623, 624, 625, 2 626, 627, 628, 629, 630, 631, 632, 633, 634, 635, 3 636, 637, 638, 639, 640, 641, 642, 643, 644, 645, 4 646, 647, 648, 649, 650, 651, 652, 653, 654, 655, 5 656, 657, 658, 659, 660, 661, 662, 663, 664, 665, 6 666, 667, 668, 669, 670, 671, 672, 673, 674, 675, 7 676, 677, 678, 679, 680, 681, 682, 683, 684, 685, 8 686, 687, 688, 689, 690, 691, 692, 693, 694, 695, 9 696, 697, 132, 699, 700, 701, 702, 703, 704, 705/ data (jb1(i),i= 701, 800)/ + 706, 707, 708, 709, 710, 711, 712, 713, 714, 715, 1 716, 717, 718, 719, 720, 721, 722, 723, 724, 725, 2 726, 727, 728, 729, 730, 136, 132, 732, 733, 734, 3 735, 736, 737, 738, 739, 740, 741, 742, 743, 744, 4 745, 746, 747, 748, 749, 750, 751, 752, 753, 754, 5 755, 756, 757, 758, 759, 760, 761, 762, 763, 764, 6 765, 766, 767, 768, 769, 770, 771, 772, 773, 774, 7 775, 776, 777, 778, 779, 780, 781, 782, 783, 784, 8 785, 786, 787, 788, 789, 790, 791, 792, 793, 794, 9 795, 796, 797, 798, 799, 800, 801, 802, 803, 804/ data (jb1(i),i= 801, 900)/ + 805, 806, 807, 808, 809, 810, 811, 812, 813, 814, 1 815, 816, 817, 818, 819, 820, 821, 698, 136, 823, 2 824, 825, 826, 827, 828, 829, 830, 831, 832, 833, 3 834, 835, 836, 837, 838, 839, 840, 841, 842, 843, 4 844, 845, 846, 847, 848, 849, 850, 851, 852, 853, 5 854, 855, 856, 857, 858, 859, 860, 861, 862, 863, 6 864, 865, 866, 867, 868, 869, 870, 871, 872, 873, 7 874, 875, 876, 877, 878, 879, 880, 881, 882, 883, 8 884, 885, 886, 887, 888, 889, 890, 891, 892, 893, 9 894, 895, 896, 897, 898, 899, 900, 901, 902, 903/ data (jb1(i),i= 901, 1000)/ + 904, 905, 906, 907, 908, 909, 910, 911, 912, 913, 1 914, 915, 916, 917, 918, 919, 920, 921, 922, 923, 2 924, 925, 926, 927, 928, 929, 930, 931, 932, 933, 3 137, 140, 935, 936, 937, 938, 939, 940, 941, 942, 4 943, 944, 945, 946, 947, 948, 949, 950, 951, 952, 5 953, 954, 955, 956, 957, 958, 959, 960, 961, 962, 6 963, 964, 965, 966, 967, 968, 969, 970, 971, 972, 7 973, 974, 975, 976, 977, 978, 979, 980, 981, 982, 8 983, 984, 985, 986, 987, 988, 989, 990, 991, 992, 9 993, 994, 995, 996, 997, 998, 999, 1000, 1001, 1002/ data (jb1(i),i= 1001, 1100)/ + 1003, 1004, 1005, 1006, 1007, 1008, 1009, 1010, 1011, 1012, 1 1013, 1014, 1015, 1016, 1017, 1018, 1019, 1020, 1021, 1022, 2 1023, 1024, 1025, 1026, 1027, 1028, 1029, 1030, 1031, 1032, 3 1033, 1034, 1035, 1036, 1037, 1038, 1039, 1040, 1041, 1042, 4 1043, 1044, 1045, 1046, 1047, 1048, 1049, 1050, 1051, 1052, 5 1053, 1054, 1055, 1056, 1057, 1058, 1059, 138, 1061, 1062, 6 1063, 1064, 1065, 1066, 1067, 1068, 1069, 1070, 1071, 1072, 7 1073, 1074, 1075, 1076, 1077, 1078, 1079, 1080, 1081, 1082, 8 1083, 1084, 1085, 1086, 1087, 1088, 1089, 1090, 1091, 1092, 9 1093, 1094, 1095, 1096, 1097, 1098, 1099, 1100, 1101, 1102/ data (jb1(i),i= 1101, 1200)/ + 1103, 1104, 1105, 1106, 1107, 1108, 1109, 1110, 1111, 1112, 1 1113, 1114, 1115, 1116, 1117, 1118, 1119, 1120, 1121, 1122, 2 1123, 1124, 1125, 1126, 1127, 1128, 1129, 138, 139, 1131, 3 1132, 1133, 1134, 1135, 1136, 1137, 1138, 1139, 1140, 1141, 4 1142, 1143, 1144, 1145, 1146, 1147, 1148, 1149, 1150, 1151, 5 1152, 1153, 1154, 1155, 1156, 1157, 1158, 1159, 1160, 1161, 6 1162, 1163, 1164, 1165, 1166, 1167, 1168, 1169, 1170, 1171, 7 1172, 1173, 1174, 1175, 1176, 1177, 1178, 1179, 1180, 1181, 8 1182, 1183, 1184, 1185, 1186, 1187, 1188, 1189, 1190, 1191, 9 1192, 1193, 1194, 1195, 1196, 1197, 1198, 1199, 1200, 1201/ data (jb1(i),i= 1201, 1300)/ + 1202, 1203, 1204, 1205, 1206, 1207, 1208, 1209, 1210, 1211, 1 1212, 1213, 1214, 1215, 1216, 1217, 1218, 1219, 1220, 1221, 2 1222, 1223, 1224, 1225, 1226, 140, 137, 1228, 1229, 1230, 3 1231, 1232, 1233, 1234, 1235, 1236, 1237, 1238, 1239, 1240, 4 1241, 1242, 1243, 1244, 1245, 1246, 1247, 1248, 1249, 1250, 5 1251, 1252, 1253, 1254, 1255, 1256, 1257, 1258, 1259, 1260, 6 1261, 1262, 1263, 1264, 1265, 1266, 1267, 1268, 1269, 1270, 7 1271, 1272, 1273, 1274, 1275, 1276, 1277, 1278, 1279, 1280, 8 1281, 1282, 1283, 1284, 1285, 1286, 1287, 1288, 1289, 1290, 9 1291, 1292, 1293, 1294, 1295, 1296, 1297, 1298, 1299, 1300/ data (jb1(i),i= 1301, 1400)/ + 1301, 1302, 1303, 1304, 1305, 1306, 1307, 1308, 1309, 1310, 1 1311, 1312, 1313, 1314, 1315, 1316, 1317, 1318, 1319, 1320, 2 1321, 1322, 1323, 1324, 1325, 1326, 1327, 1328, 1329, 1330, 3 1331, 1332, 1333, 1334, 1335, 1336, 1337, 1338, 1339, 1340, 4 1341, 1342, 1343, 1344, 1345, 1346, 1347, 1349, 1350, 1351, 5 1352, 1353, 1354, 1355, 1356, 1357, 1358, 1359, 1360, 1361, 6 1362, 1363, 1364, 1365, 1366, 1367, 1368, 1369, 1370, 1371, 7 1372, 1373, 1374, 1375, 1376, 1377, 1378, 1379, 1380, 1381, 8 1382, 1383, 1384, 1348, 1061, 1, 1387, 1386, 1389, 1390, 9 1391, 1392, 1393, 1394, 1387, 1395, 1396, 1397, 1398, 1399/ data (jb1(i),i= 1401, 1500)/ + 1400, 1401, 1402, 1403, 1389, 1389, 1405, 1406, 1407, 1387, 1 1409, 1410, 1411, 1412, 1413, 1414, 1415, 1416, 1417, 1386, 2 1419, 1420, 1421, 1422, 1423, 1424, 1425, 1426, 1427, 1428, 3 1429, 1430, 1431, 1432, 1433, 1434, 1435, 1436, 1437, 1438, 4 1439, 1440, 1441, 1442, 1443, 1444, 1445, 1446, 1447, 1448, 5 1449, 1450, 1451, 1452, 1453, 1454, 1455, 1456, 1457, 1458, 6 1459, 1460, 1461, 1462, 1463, 1464, 1465, 1466, 1467, 1468, 7 1469, 1470, 1471, 1472, 1473, 1474, 1475, 1476, 1477, 1478, 8 1479, 1418, 1418, 1481, 1482, 1483, 1484, 1485, 1486, 1487, 9 1488, 1489, 1490, 1408, 1492, 1493, 1494, 1495, 1496, 1497/ data (jb1(i),i= 1501, 1600)/ + 1498, 1499, 1500, 1501, 1502, 1503, 1504, 1505, 1506, 1507, 1 132, 1508, 1509, 1510, 1511, 1483, 133, 1513, 1514, 1515, 2 1516, 1517, 1518, 1519, 1520, 1521, 1522, 1523, 1524, 1525, 3 1526, 1527, 1528, 1529, 1530, 1531, 1532, 1533, 1534, 1535, 4 1536, 1537, 1538, 1539, 1540, 1541, 1542, 1543, 1544, 1545, 5 1546, 1547, 1548, 1549, 1550, 1551, 1552, 1553, 1554, 1555, 6 1556, 1557, 1558, 1559, 1491, 1408, 1561, 1562, 1563, 1564, 7 1565, 1566, 1567, 1568, 1569, 1570, 1571, 1572, 1573, 1574, 8 1575, 1576, 1545, 1568, 1578, 135, 1580, 1581, 1582, 1583, 9 1584, 1585, 1586, 1587, 1588, 1589, 1590, 1591, 1592, 1593/ data (jb1(i),i= 1601, 1700)/ + 1594, 1579, 1491, 1596, 1597, 1598, 1599, 1600, 1601, 1602, 1 1603, 1604, 1605, 1606, 1607, 1608, 1609, 1610, 1611, 1612, 2 1613, 1614, 1568, 1615, 1616, 1617, 1618, 1619, 1620, 1621, 3 1622, 1623, 1624, 1625, 1626, 1627, 1628, 1629, 1630, 1631, 4 1607, 1633, 1634, 1635, 1636, 1637, 1638, 1639, 1640, 1641, 5 1632, 1638, 1643, 1644, 1579, 1646, 1647, 1648, 1649, 1650, 6 1651, 1652, 1653, 137, 1655, 1656, 1657, 1658, 1659, 1660, 7 1661, 1662, 1663, 1664, 1665, 1608, 1667, 1668, 1669, 1670, 8 1671, 1632, 1673, 1674, 1675, 1676, 1677, 1678, 1667, 1654, 9 1680, 1681, 1682, 1683, 1684, 1685, 1686, 1687, 1688, 1667/ data (jb1(i),i= 1701, 1800)/ + 138, 1690, 1691, 1692, 1673, 1694, 1695, 1696, 1697, 1698, 1 1699, 1700, 1701, 1702, 1703, 1704, 1705, 1706, 1707, 1708, 2 1709, 1710, 1711, 1712, 1713, 1714, 1715, 1716, 1717, 1718, 3 1719, 1720, 1721, 1722, 1723, 1724, 1725, 1726, 1727, 1728, 4 1729, 1730, 1654, 1694, 1732, 1733, 1734, 1735, 1736, 1737, 5 1738, 1739, 1740, 1741, 1742, 1743, 1694, 1744, 1745, 1746, 6 1747, 1748, 1749, 1750, 1751, 1752, 1753, 1754, 1755, 1756, 7 1757, 1758, 1759, 1760, 1761, 1762, 1763, 1764, 1673, 1765, 8 1766, 1767, 1768, 1769, 1770, 1771, 1645, 1673, 1773, 1774, 9 1775, 1776, 1348, 1775, 1, 2, 3, 4, 1, 6/ data (jb1(i),i= 1801, 1900)/ + 7, 8, 6, 10, 11, 12, 13, 10, 15, 16, 1 15, 18, 19, 20, 21, 22, 23, 18, 25, 26, 2 27, 28, 29, 30, 25, 32, 33, 34, 32, 36, 3 37, 38, 36, 40, 41, 40, 43, 44, 45, 43, 4 47, 48, 49, 47, 51, 52, 53, 51, 55, 56, 5 55, 58, 59, 60, 61, 62, 63, 64, 65, 66, 6 58, 68, 69, 68, 71, 72, 73, 74, 75, 76, 7 77, 78, 79, 80, 71, 82, 83, 84, 82, 86, 8 87, 88, 86, 90, 91, 92, 90, 94, 95, 96, 9 94, 98, 99, 100, 98, 102, 103, 104, 102, 106/ data (jb1(i),i= 1901, 2000)/ + 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 1 106, 118, 119, 120, 118, 122, 123, 124, 125, 122, 2 127, 128, 129, 127, 131, 132, 131, 134, 135, 134, 3 137, 138, 139, 140, 137, 142, 143, 144, 142, 146, 4 147, 148, 146, 150, 151, 152, 150, 154, 155, 156, 5 157, 154, 159, 160, 161, 162, 159, 164, 165, 166, 6 167, 164, 169, 170, 171, 172, 173, 169, 175, 176, 7 177, 175, 179, 180, 181, 182, 183, 184, 185, 179, 8 187, 188, 189, 187, 191, 192, 193, 194, 195, 196, 9 197, 198, 191, 200, 201, 202, 200, 204, 205, 206/ data (jb1(i),i= 2001, 2100)/ + 207, 204, 209, 210, 211, 212, 213, 209, 215, 216, 1 215, 218, 219, 220, 218, 222, 223, 222, 225, 226, 2 227, 225, 229, 230, 231, 232, 229, 234, 235, 236, 3 234, 238, 239, 240, 238, 242, 243, 244, 242, 246, 4 247, 248, 249, 246, 251, 252, 253, 254, 251, 256, 5 257, 258, 256, 260, 261, 260, 263, 264, 265, 266, 6 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 7 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 8 287, 288, 289, 290, 291, 292, 293, 294, 295, 296, 9 297, 298, 263, 300, 301, 302, 303, 304, 305, 306/ data (jb1(i),i= 2101, 2200)/ + 307, 308, 300, 310, 311, 312, 310, 314, 315, 316, 1 317, 318, 319, 314, 321, 322, 323, 324, 325, 326, 2 327, 328, 321, 330, 331, 330, 333, 334, 333, 336, 3 337, 336, 339, 340, 341, 342, 339, 344, 345, 346, 4 344, 348, 349, 348, 351, 352, 353, 351, 355, 356, 5 357, 358, 359, 360, 361, 362, 363, 364, 365, 366, 6 367, 368, 369, 370, 371, 372, 373, 374, 375, 376, 7 377, 378, 379, 380, 381, 382, 383, 384, 385, 386, 8 387, 388, 389, 355, 391, 392, 393, 394, 395, 396, 9 397, 398, 399, 400, 401, 402, 403, 404, 405, 406/ data (jb1(i),i= 2201, 2300)/ + 407, 408, 409, 391, 411, 412, 413, 414, 415, 411, 1 417, 418, 417, 420, 421, 422, 420, 424, 425, 424, 2 427, 428, 427, 430, 431, 432, 433, 430, 435, 436, 3 435, 438, 439, 438, 441, 442, 443, 441, 445, 446, 4 447, 445, 449, 450, 451, 452, 453, 454, 455, 456, 5 457, 458, 459, 460, 461, 462, 463, 464, 465, 466, 6 467, 468, 469, 470, 471, 472, 473, 474, 475, 476, 7 477, 478, 479, 480, 481, 482, 483, 484, 485, 486, 8 487, 488, 449, 490, 491, 492, 490, 494, 495, 496, 9 497, 498, 494, 500, 501, 502, 500, 504, 505, 506/ data (jb1(i),i= 2301, 2400)/ + 507, 504, 509, 510, 511, 512, 509, 514, 515, 516, 1 517, 518, 519, 514, 521, 522, 523, 524, 521, 526, 2 527, 528, 529, 526, 531, 532, 533, 534, 531, 536, 3 537, 538, 536, 540, 541, 542, 540, 544, 545, 544, 4 547, 548, 549, 547, 551, 552, 553, 554, 551, 556, 5 557, 558, 559, 556, 561, 562, 563, 564, 565, 566, 6 567, 568, 569, 570, 571, 572, 573, 574, 575, 576, 7 577, 578, 579, 580, 581, 582, 583, 584, 585, 586, 8 587, 588, 589, 590, 591, 561, 593, 594, 595, 596, 9 597, 593, 599, 600, 601, 599, 603, 604, 605, 603/ data (jb1(i),i= 2401, 2500)/ + 607, 608, 609, 610, 607, 612, 613, 614, 615, 612, 1 617, 618, 619, 620, 621, 622, 623, 617, 625, 626, 2 627, 625, 629, 630, 631, 632, 629, 634, 635, 636, 3 637, 638, 634, 640, 641, 642, 643, 640, 645, 646, 4 647, 648, 649, 650, 651, 652, 653, 654, 655, 656, 5 657, 658, 659, 660, 661, 662, 663, 664, 665, 666, 6 667, 668, 669, 670, 671, 672, 673, 674, 675, 676, 7 677, 678, 679, 680, 681, 682, 683, 684, 685, 686, 8 687, 688, 689, 690, 691, 692, 693, 694, 695, 696, 9 697, 698, 699, 700, 701, 702, 703, 704, 705, 706/ data (jb1(i),i= 2501, 2600)/ + 707, 708, 709, 710, 711, 712, 713, 645, 715, 716, 1 715, 718, 719, 720, 721, 722, 723, 724, 725, 718, 2 727, 728, 729, 730, 731, 732, 733, 734, 735, 736, 3 737, 738, 739, 727, 741, 742, 743, 744, 745, 741, 4 747, 748, 749, 750, 751, 752, 753, 747, 755, 756, 5 757, 755, 759, 760, 761, 759, 763, 764, 763, 766, 6 767, 768, 766, 770, 771, 772, 770, 774, 775, 776, 7 777, 778, 774, 780, 781, 782, 783, 784, 780, 786, 8 787, 788, 786, 790, 791, 792, 790, 794, 795, 796, 9 794, 798, 799, 800, 801, 802, 803, 804, 798, 806/ data (jb1(i),i= 2601, 2700)/ + 807, 808, 809, 810, 806, 812, 813, 814, 812, 816, 1 817, 818, 816, 820, 821, 822, 820, 824, 825, 824, 2 827, 828, 829, 830, 827, 832, 833, 832, 835, 836, 3 837, 835, 839, 840, 841, 842, 843, 839, 845, 846, 4 847, 845, 849, 850, 851, 849, 853, 854, 855, 853, 5 857, 858, 859, 860, 861, 857, 863, 864, 865, 866, 6 867, 868, 869, 870, 871, 863, 873, 874, 875, 876, 7 873, 878, 879, 880, 881, 882, 878, 884, 885, 886, 8 884, 888, 889, 890, 888, 892, 893, 894, 892, 896, 9 897, 896, 899, 900, 901, 899, 903, 904, 905, 906/ data (jb1(i),i= 2701, 2760)/ + 907, 908, 909, 910, 911, 912, 913, 914, 903, 916, 1 917, 918, 919, 920, 921, 922, 923, 916, 925, 926, 2 925, 928, 929, 928, 931, 932, 933, 934, 935, 936, 3 937, 938, 939, 940, 941, 942, 943, 944, 945, 946, 4 931, 948, 949, 950, 951, 952, 953, 954, 955, 956, 5 957, 948, 0, 0, 0, 0, 0, 0, 0, 0/ data (jb2(i),i= 1, 100)/ + 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 1 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 2 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 3 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 4 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 5 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 6 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 7 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 8 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 9 94, 95, 96, 97, 98, 99, 100, 101, 102, 103/ data (jb2(i),i= 101, 200)/ + 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 1 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 2 124, 125, 126, 127, 128, 129, 130, 131, 142, 143, 3 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 4 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 5 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 6 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 7 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 8 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 9 204, 205, 206, 207, 207, 208, 209, 210, 211, 212/ data (jb2(i),i= 201, 300)/ + 213, 214, 215, 216, 217, 217, 218, 219, 220, 221, 1 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 2 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 3 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 4 252, 253, 254, 255, 256, 257, 258, 259, 260, 261, 5 262, 263, 264, 265, 266, 267, 268, 269, 270, 270, 6 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 7 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, 8 291, 292, 293, 294, 295, 296, 297, 298, 298, 299, 9 300, 301, 302, 303, 304, 305, 306, 307, 308, 309/ data (jb2(i),i= 301, 400)/ + 310, 311, 312, 313, 314, 315, 316, 317, 318, 319, 1 320, 321, 322, 323, 324, 325, 326, 327, 328, 329, 2 330, 331, 332, 333, 334, 335, 336, 337, 338, 339, 3 340, 341, 342, 343, 344, 345, 346, 346, 347, 348, 4 349, 350, 351, 352, 353, 354, 355, 356, 357, 358, 5 359, 360, 361, 362, 363, 364, 365, 366, 367, 368, 6 369, 370, 371, 372, 373, 374, 375, 376, 377, 378, 7 379, 380, 381, 382, 383, 384, 385, 386, 387, 388, 8 389, 390, 391, 392, 393, 394, 395, 396, 397, 398, 9 399, 400, 401, 402, 403, 404, 405, 406, 407, 408/ data (jb2(i),i= 401, 500)/ + 409, 410, 411, 412, 413, 414, 415, 416, 417, 418, 1 419, 420, 421, 422, 423, 424, 425, 426, 427, 428, 2 429, 430, 431, 432, 433, 434, 435, 436, 437, 438, 3 439, 440, 441, 442, 443, 444, 445, 446, 447, 448, 4 449, 450, 451, 452, 453, 454, 455, 456, 457, 458, 5 459, 460, 461, 462, 463, 464, 465, 466, 467, 468, 6 469, 470, 471, 472, 473, 474, 475, 476, 477, 478, 7 479, 480, 481, 482, 483, 484, 485, 486, 487, 488, 8 489, 490, 491, 492, 493, 494, 495, 496, 497, 498, 9 499, 500, 501, 502, 503, 504, 505, 506, 507, 508/ data (jb2(i),i= 501, 600)/ + 509, 510, 510, 511, 512, 513, 514, 515, 516, 517, 1 518, 519, 520, 521, 522, 523, 524, 525, 526, 527, 2 528, 528, 529, 530, 531, 532, 533, 534, 535, 536, 3 537, 538, 539, 540, 541, 542, 543, 544, 545, 546, 4 547, 548, 549, 550, 551, 552, 553, 554, 555, 556, 5 557, 558, 559, 560, 561, 562, 563, 564, 565, 566, 6 567, 568, 569, 570, 571, 572, 573, 574, 575, 576, 7 577, 578, 579, 580, 581, 582, 583, 584, 585, 586, 8 587, 588, 589, 590, 591, 592, 593, 594, 595, 596, 9 597, 598, 599, 600, 601, 602, 603, 604, 605, 606/ data (jb2(i),i= 601, 700)/ + 607, 608, 609, 610, 611, 612, 613, 614, 615, 616, 1 617, 618, 619, 620, 621, 622, 623, 624, 625, 626, 2 627, 628, 629, 630, 631, 632, 633, 634, 635, 636, 3 637, 638, 639, 640, 641, 642, 643, 644, 645, 646, 4 647, 648, 649, 650, 651, 652, 653, 654, 655, 656, 5 657, 658, 659, 660, 661, 662, 663, 664, 665, 666, 6 667, 668, 669, 670, 671, 672, 673, 674, 675, 676, 7 677, 678, 679, 680, 681, 682, 683, 684, 685, 686, 8 687, 688, 689, 690, 691, 692, 693, 694, 695, 696, 9 697, 698, 699, 700, 701, 702, 703, 704, 705, 706/ data (jb2(i),i= 701, 800)/ + 707, 708, 709, 710, 711, 712, 713, 714, 715, 716, 1 717, 718, 719, 720, 721, 722, 723, 724, 725, 726, 2 727, 728, 729, 730, 731, 731, 732, 733, 734, 735, 3 736, 737, 738, 739, 740, 741, 742, 743, 744, 745, 4 746, 747, 748, 749, 750, 751, 752, 753, 754, 755, 5 756, 757, 758, 759, 760, 761, 762, 763, 764, 765, 6 766, 767, 768, 769, 770, 771, 772, 773, 774, 775, 7 776, 777, 778, 779, 780, 781, 782, 783, 784, 785, 8 786, 787, 788, 789, 790, 791, 792, 793, 794, 795, 9 796, 797, 798, 799, 800, 801, 802, 803, 804, 805/ data (jb2(i),i= 801, 900)/ + 806, 807, 808, 809, 810, 811, 812, 813, 814, 815, 1 816, 817, 818, 819, 820, 821, 822, 822, 823, 824, 2 825, 826, 827, 828, 829, 830, 831, 832, 833, 834, 3 835, 836, 837, 838, 839, 840, 841, 842, 843, 844, 4 845, 846, 847, 848, 849, 850, 851, 852, 853, 854, 5 855, 856, 857, 858, 859, 860, 861, 862, 863, 864, 6 865, 866, 867, 868, 869, 870, 871, 872, 873, 874, 7 875, 876, 877, 878, 879, 880, 881, 882, 883, 884, 8 885, 886, 887, 888, 889, 890, 891, 892, 893, 894, 9 895, 896, 897, 898, 899, 900, 901, 902, 903, 904/ data (jb2(i),i= 901, 1000)/ + 905, 906, 907, 908, 909, 910, 911, 912, 913, 914, 1 915, 916, 917, 918, 919, 920, 921, 922, 923, 924, 2 925, 926, 927, 928, 929, 930, 931, 932, 933, 934, 3 934, 935, 936, 937, 938, 939, 940, 941, 942, 943, 4 944, 945, 946, 947, 948, 949, 950, 951, 952, 953, 5 954, 955, 956, 957, 958, 959, 960, 961, 962, 963, 6 964, 965, 966, 967, 968, 969, 970, 971, 972, 973, 7 974, 975, 976, 977, 978, 979, 980, 981, 982, 983, 8 984, 985, 986, 987, 988, 989, 990, 991, 992, 993, 9 994, 995, 996, 997, 998, 999, 1000, 1001, 1002, 1003/ data (jb2(i),i= 1001, 1100)/ + 1004, 1005, 1006, 1007, 1008, 1009, 1010, 1011, 1012, 1013, 1 1014, 1015, 1016, 1017, 1018, 1019, 1020, 1021, 1022, 1023, 2 1024, 1025, 1026, 1027, 1028, 1029, 1030, 1031, 1032, 1033, 3 1034, 1035, 1036, 1037, 1038, 1039, 1040, 1041, 1042, 1043, 4 1044, 1045, 1046, 1047, 1048, 1049, 1050, 1051, 1052, 1053, 5 1054, 1055, 1056, 1057, 1058, 1059, 1060, 1060, 1062, 1063, 6 1064, 1065, 1066, 1067, 1068, 1069, 1070, 1071, 1072, 1073, 7 1074, 1075, 1076, 1077, 1078, 1079, 1080, 1081, 1082, 1083, 8 1084, 1085, 1086, 1087, 1088, 1089, 1090, 1091, 1092, 1093, 9 1094, 1095, 1096, 1097, 1098, 1099, 1100, 1101, 1102, 1103/ data (jb2(i),i= 1101, 1200)/ + 1104, 1105, 1106, 1107, 1108, 1109, 1110, 1111, 1112, 1113, 1 1114, 1115, 1116, 1117, 1118, 1119, 1120, 1121, 1122, 1123, 2 1124, 1125, 1126, 1127, 1128, 1129, 1130, 1130, 1131, 1132, 3 1133, 1134, 1135, 1136, 1137, 1138, 1139, 1140, 1141, 1142, 4 1143, 1144, 1145, 1146, 1147, 1148, 1149, 1150, 1151, 1152, 5 1153, 1154, 1155, 1156, 1157, 1158, 1159, 1160, 1161, 1162, 6 1163, 1164, 1165, 1166, 1167, 1168, 1169, 1170, 1171, 1172, 7 1173, 1174, 1175, 1176, 1177, 1178, 1179, 1180, 1181, 1182, 8 1183, 1184, 1185, 1186, 1187, 1188, 1189, 1190, 1191, 1192, 9 1193, 1194, 1195, 1196, 1197, 1198, 1199, 1200, 1201, 1202/ data (jb2(i),i= 1201, 1300)/ + 1203, 1204, 1205, 1206, 1207, 1208, 1209, 1210, 1211, 1212, 1 1213, 1214, 1215, 1216, 1217, 1218, 1219, 1220, 1221, 1222, 2 1223, 1224, 1225, 1226, 1227, 1227, 1228, 1229, 1230, 1231, 3 1232, 1233, 1234, 1235, 1236, 1237, 1238, 1239, 1240, 1241, 4 1242, 1243, 1244, 1245, 1246, 1247, 1248, 1249, 1250, 1251, 5 1252, 1253, 1254, 1255, 1256, 1257, 1258, 1259, 1260, 1261, 6 1262, 1263, 1264, 1265, 1266, 1267, 1268, 1269, 1270, 1271, 7 1272, 1273, 1274, 1275, 1276, 1277, 1278, 1279, 1280, 1281, 8 1282, 1283, 1284, 1285, 1286, 1287, 1288, 1289, 1290, 1291, 9 1292, 1293, 1294, 1295, 1296, 1297, 1298, 1299, 1300, 1301/ data (jb2(i),i= 1301, 1400)/ + 1302, 1303, 1304, 1305, 1306, 1307, 1308, 1309, 1310, 1311, 1 1312, 1313, 1314, 1315, 1316, 1317, 1318, 1319, 1320, 1321, 2 1322, 1323, 1324, 1325, 1326, 1327, 1328, 1329, 1330, 1331, 3 1332, 1333, 1334, 1335, 1336, 1337, 1338, 1339, 1340, 1341, 4 1342, 1343, 1344, 1345, 1346, 1347, 1348, 1350, 1351, 1352, 5 1353, 1354, 1355, 1356, 1357, 1358, 1359, 1360, 1361, 1362, 6 1363, 1364, 1365, 1366, 1367, 1368, 1369, 1370, 1371, 1372, 7 1373, 1374, 1375, 1376, 1377, 1378, 1379, 1380, 1381, 1382, 8 1383, 1384, 1385, 1385, 1349, 1386, 1388, 1388, 1390, 1391, 9 1392, 1393, 1394, 2, 1395, 1396, 1397, 1398, 1399, 1400/ data (jb2(i),i= 1401, 1500)/ + 1401, 1402, 1403, 1404, 1404, 1405, 1406, 1407, 1408, 1409, 1 1410, 1411, 1412, 1413, 1414, 1415, 1416, 1417, 1418, 1419, 2 1420, 1421, 1422, 1423, 1424, 1425, 1426, 1427, 1428, 1429, 3 1430, 1431, 1432, 1433, 1434, 1435, 1436, 1437, 1438, 1439, 4 1440, 1441, 1442, 1443, 1444, 1445, 1446, 1447, 1448, 1449, 5 1450, 1451, 1452, 1453, 1454, 1455, 1456, 1457, 1458, 1459, 6 1460, 1461, 1462, 1463, 1464, 1465, 1466, 1467, 1468, 1469, 7 1470, 1471, 1472, 1473, 1474, 1475, 1476, 1477, 1478, 1479, 8 1480, 1480, 1481, 1482, 1483, 1484, 1485, 1486, 1487, 1488, 9 1489, 1490, 1491, 1492, 1493, 1494, 1495, 1496, 1497, 1498/ data (jb2(i),i= 1501, 1600)/ + 1499, 1500, 1501, 1502, 1503, 1504, 1505, 1506, 1507, 132, 1 1508, 1509, 1510, 1511, 1512, 1512, 1513, 1514, 1515, 1516, 2 1517, 1518, 1519, 1520, 1521, 1522, 1523, 1524, 1525, 1526, 3 1527, 1528, 1529, 1530, 1531, 1532, 1533, 1534, 1535, 1536, 4 1537, 1538, 1539, 1540, 1541, 1542, 1543, 1544, 1545, 1546, 5 1547, 1548, 1549, 1550, 1551, 1552, 1553, 1554, 1555, 1556, 6 1557, 1558, 1559, 1560, 1560, 1561, 1562, 1563, 1564, 1565, 7 1566, 1567, 134, 1569, 1570, 1571, 1572, 1573, 1574, 1575, 8 1576, 1577, 1577, 1578, 1579, 1580, 1581, 1582, 1583, 1584, 9 1585, 1586, 1587, 1588, 1589, 1590, 1591, 1592, 1593, 1594/ data (jb2(i),i= 1601, 1700)/ + 1595, 1595, 1596, 1597, 1598, 1599, 1600, 1601, 1602, 1603, 1 1604, 1605, 1606, 1607, 1608, 1609, 1610, 1611, 1612, 1613, 2 1614, 136, 1615, 1616, 1617, 1618, 1619, 1620, 1621, 1622, 3 1623, 1624, 1625, 1626, 1627, 1628, 1629, 1630, 1631, 1632, 4 1633, 1634, 1635, 1636, 1637, 1638, 1639, 1640, 1641, 1642, 5 1642, 1643, 1644, 1645, 1646, 1647, 1648, 1649, 1650, 1651, 6 1652, 1653, 1654, 1655, 1656, 1657, 1658, 1659, 1660, 1661, 7 1662, 1663, 1664, 1665, 1666, 1666, 1668, 1669, 1670, 1671, 8 1672, 1672, 1674, 1675, 1676, 1677, 1678, 1679, 1679, 1680, 9 1681, 1682, 1683, 1684, 1685, 1686, 1687, 1688, 1689, 1689/ data (jb2(i),i= 1701, 1800)/ + 1690, 1691, 1692, 1693, 1693, 1695, 1696, 1697, 1698, 1699, 1 1700, 1701, 1702, 1703, 1704, 1705, 1706, 1707, 1708, 1709, 2 1710, 1711, 1712, 1713, 1714, 1715, 1716, 1717, 1718, 1719, 3 1720, 1721, 1722, 1723, 1724, 1725, 1726, 1727, 1728, 1729, 4 1730, 1731, 1731, 1732, 1733, 1734, 1735, 1736, 1737, 1738, 5 1739, 1740, 1741, 1742, 1743, 139, 1744, 1745, 1746, 1747, 6 1748, 1749, 1750, 1751, 1752, 1753, 1754, 1755, 1756, 1757, 7 1758, 1759, 1760, 1761, 1762, 1763, 1764, 140, 1765, 1766, 8 1767, 1768, 1769, 1770, 1771, 1772, 1772, 1773, 1774, 1061, 9 1776, 1777, 1777, 1349, 2, 3, 4, 5, 5, 7/ data (jb2(i),i= 1801, 1900)/ + 8, 9, 9, 11, 12, 13, 14, 14, 16, 17, 1 17, 19, 20, 21, 22, 23, 24, 24, 26, 27, 2 28, 29, 30, 31, 31, 33, 34, 35, 35, 37, 3 38, 39, 39, 41, 42, 42, 44, 45, 46, 46, 4 48, 49, 50, 50, 52, 53, 54, 54, 56, 57, 5 57, 59, 60, 61, 62, 63, 64, 65, 66, 67, 6 67, 69, 70, 70, 72, 73, 74, 75, 76, 77, 7 78, 79, 80, 81, 81, 83, 84, 85, 85, 87, 8 88, 89, 89, 91, 92, 93, 93, 95, 96, 97, 9 97, 99, 100, 101, 101, 103, 104, 105, 105, 107/ data (jb2(i),i= 1901, 2000)/ + 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 1 117, 119, 120, 121, 121, 123, 124, 125, 126, 126, 2 128, 129, 130, 130, 132, 133, 133, 135, 136, 136, 3 138, 139, 140, 141, 141, 143, 144, 145, 145, 147, 4 148, 149, 149, 151, 152, 153, 153, 155, 156, 157, 5 158, 158, 160, 161, 162, 163, 163, 165, 166, 167, 6 168, 168, 170, 171, 172, 173, 174, 174, 176, 177, 7 178, 178, 180, 181, 182, 183, 184, 185, 186, 186, 8 188, 189, 190, 190, 192, 193, 194, 195, 196, 197, 9 198, 199, 199, 201, 202, 203, 203, 205, 206, 207/ data (jb2(i),i= 2001, 2100)/ + 208, 208, 210, 211, 212, 213, 214, 214, 216, 217, 1 217, 219, 220, 221, 221, 223, 224, 224, 226, 227, 2 228, 228, 230, 231, 232, 233, 233, 235, 236, 237, 3 237, 239, 240, 241, 241, 243, 244, 245, 245, 247, 4 248, 249, 250, 250, 252, 253, 254, 255, 255, 257, 5 258, 259, 259, 261, 262, 262, 264, 265, 266, 267, 6 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 7 278, 279, 280, 281, 282, 283, 284, 285, 286, 287, 8 288, 289, 290, 291, 292, 293, 294, 295, 296, 297, 9 298, 299, 299, 301, 302, 303, 304, 305, 306, 307/ data (jb2(i),i= 2101, 2200)/ + 308, 309, 309, 311, 312, 313, 313, 315, 316, 317, 1 318, 319, 320, 320, 322, 323, 324, 325, 326, 327, 2 328, 329, 329, 331, 332, 332, 334, 335, 335, 337, 3 338, 338, 340, 341, 342, 343, 343, 345, 346, 347, 4 347, 349, 350, 350, 352, 353, 354, 354, 356, 357, 5 358, 359, 360, 361, 362, 363, 364, 365, 366, 367, 6 368, 369, 370, 371, 372, 373, 374, 375, 376, 377, 7 378, 379, 380, 381, 382, 383, 384, 385, 386, 387, 8 388, 389, 390, 390, 392, 393, 394, 395, 396, 397, 9 398, 399, 400, 401, 402, 403, 404, 405, 406, 407/ data (jb2(i),i= 2201, 2300)/ + 408, 409, 410, 410, 412, 413, 414, 415, 416, 416, 1 418, 419, 419, 421, 422, 423, 423, 425, 426, 426, 2 428, 429, 429, 431, 432, 433, 434, 434, 436, 437, 3 437, 439, 440, 440, 442, 443, 444, 444, 446, 447, 4 448, 448, 450, 451, 452, 453, 454, 455, 456, 457, 5 458, 459, 460, 461, 462, 463, 464, 465, 466, 467, 6 468, 469, 470, 471, 472, 473, 474, 475, 476, 477, 7 478, 479, 480, 481, 482, 483, 484, 485, 486, 487, 8 488, 489, 489, 491, 492, 493, 493, 495, 496, 497, 9 498, 499, 499, 501, 502, 503, 503, 505, 506, 507/ data (jb2(i),i= 2301, 2400)/ + 508, 508, 510, 511, 512, 513, 513, 515, 516, 517, 1 518, 519, 520, 520, 522, 523, 524, 525, 525, 527, 2 528, 529, 530, 530, 532, 533, 534, 535, 535, 537, 3 538, 539, 539, 541, 542, 543, 543, 545, 546, 546, 4 548, 549, 550, 550, 552, 553, 554, 555, 555, 557, 5 558, 559, 560, 560, 562, 563, 564, 565, 566, 567, 6 568, 569, 570, 571, 572, 573, 574, 575, 576, 577, 7 578, 579, 580, 581, 582, 583, 584, 585, 586, 587, 8 588, 589, 590, 591, 592, 592, 594, 595, 596, 597, 9 598, 598, 600, 601, 602, 602, 604, 605, 606, 606/ data (jb2(i),i= 2401, 2500)/ + 608, 609, 610, 611, 611, 613, 614, 615, 616, 616, 1 618, 619, 620, 621, 622, 623, 624, 624, 626, 627, 2 628, 628, 630, 631, 632, 633, 633, 635, 636, 637, 3 638, 639, 639, 641, 642, 643, 644, 644, 646, 647, 4 648, 649, 650, 651, 652, 653, 654, 655, 656, 657, 5 658, 659, 660, 661, 662, 663, 664, 665, 666, 667, 6 668, 669, 670, 671, 672, 673, 674, 675, 676, 677, 7 678, 679, 680, 681, 682, 683, 684, 685, 686, 687, 8 688, 689, 690, 691, 692, 693, 694, 695, 696, 697, 9 698, 699, 700, 701, 702, 703, 704, 705, 706, 707/ data (jb2(i),i= 2501, 2600)/ + 708, 709, 710, 711, 712, 713, 714, 714, 716, 717, 1 717, 719, 720, 721, 722, 723, 724, 725, 726, 726, 2 728, 729, 730, 731, 732, 733, 734, 735, 736, 737, 3 738, 739, 740, 740, 742, 743, 744, 745, 746, 746, 4 748, 749, 750, 751, 752, 753, 754, 754, 756, 757, 5 758, 758, 760, 761, 762, 762, 764, 765, 765, 767, 6 768, 769, 769, 771, 772, 773, 773, 775, 776, 777, 7 778, 779, 779, 781, 782, 783, 784, 785, 785, 787, 8 788, 789, 789, 791, 792, 793, 793, 795, 796, 797, 9 797, 799, 800, 801, 802, 803, 804, 805, 805, 807/ data (jb2(i),i= 2601, 2700)