c-----------------------------------------------------------------------
c
c            piecewise lagrange triangle multi grid package
c
c                  edition 10.0 - - - september, 2007
c
c-----------------------------------------------------------------------
        subroutine vutl(ncolor,red,green,blue,isock,fname)
c
            implicit double precision (a-h,o-z)
            implicit integer (i-n)
            double precision
     +          red(*),green(*),blue(*)
            character*80
     +         fname
        return
        end
c-----------------------------------------------------------------------
c
c            piecewise lagrange triangle multi grid package
c
c                  edition 10.0 - - - september, 2007
c
c-----------------------------------------------------------------------
        subroutine vframe(iframe)
c
            implicit double precision (a-h,o-z)
            implicit integer (i-n)
        return
        end
c-----------------------------------------------------------------------
c
c            piecewise lagrange triangle multi grid package
c
c                  edition 10.0 - - - september, 2007
c
c-----------------------------------------------------------------------
        subroutine vline(x,y,z,n,icolor)
c
            implicit double precision (a-h,o-z)
            implicit integer (i-n)
            double precision
     +          x(n),y(n),z(n)
        return
        end
c-----------------------------------------------------------------------
c
c            piecewise lagrange triangle multi grid package
c
c                  edition 10.0 - - - september, 2007
c
c-----------------------------------------------------------------------
        subroutine vfill(x,y,z,n,icolor)
c
            implicit double precision (a-h,o-z)
            implicit integer (i-n)
            double precision
     +          x(n),y(n),z(n)
        return
        end