c*********************************************************************
c      inline3d.f                                                    *
c         simulation outside no masume                               *
c         ( -10Re<x<10Re, 0<y<10Re )                                 *
c         with subroutine zvrsubd.f                                  *
c*********************************************************************
c
       parameter (nx= 20,ny= 20,nz= 20)
       parameter (xl=10,yl=10,zl=10)
c              ** xl..x >= 0 no long
       parameter (iviewp=100)
       parameter (r=0.0,g=0.2,b=1.0)
c
       dimension ic(3),aa(6)
c
c ***
       call initvrml
       call viewp(iviewp)
c
       ic(1)=nx
       ic(2)=ny
       ic(3)=nz
       aa(1)=xl
       aa(2)=yl
       aa(3)=zl
       aa(4)=r
       aa(5)=g
       aa(6)=b
       call lat3d2(ic,aa)
c
       stop
       end
