c*********************************************************************
c      outline3d.f                                                   *
c         simulation outside no masume                               *
c         ( -160Re<x<40Re, 0<y<40Re )                                *
c         with subroutine zvrsubd.f                                  *
c*********************************************************************
c
       parameter (nx= 80,ny= 20,nz= 20)
       parameter (xl=160,yl= 40,zl= 40)
c              ** xl..x >= 0 no long
       parameter (iviewp=100)
       parameter (r=0.0,g=1.0,b=0.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 lat3d1(ic,aa)
c
       stop
       end
