c----------------------------------------------
c      cylinder1.f
c    
c      subrtn file : pk1subrtn
c       
c----------------------------------------------
c      main program
       parameter (rd=3.0,h=6.0)
       parameter (r=0.8,g=0.8,b=0.3)
c
       call initvrml
c
       call cylinder1(rd,h,r,g,b)
c
       stop
       end
