c*********************************************************************
c      denline3d.f                                                   *
c         simulation denriken no masume                              *
c         ( -2Re<x<2Re, 0<y<2Re )                                    *
c         with subroutine zvrsubd.f                                  *
c*********************************************************************
c
       parameter (re1=1.0,re2=1.3)
       parameter (r=1.0,g=0.0,b=0.0)
       parameter (iviewp=100)
       dimension aa(5)
c
       call initvrml
       call viewp(iviewp)
c
       aa(1)=re1
       aa(2)=re2
       aa(3)=r
       aa(4)=g
       aa(5)=b
       call lat3d3(ic,aa)
c
       stop
       end
