c-----------------------------------------------------------------------
c
c             piecewise linear triangle multi grid package
c
c                    edition 9.0 - - - march, 2004
c
c-----------------------------------------------------------------------
        subroutine vutl(ncolor,red,green,blue,isock,fname)
c
            implicit real (a-h,o-z)
            implicit integer (i-n)
     +          red(*),green(*),blue(*)
            character*80
     +         fname
        return
        end
c-----------------------------------------------------------------------
c
c             piecewise linear triangle multi grid package
c
c                    edition 9.0 - - - march, 2004
c
c-----------------------------------------------------------------------
        subroutine vframe(iframe)
c
            implicit real (a-h,o-z)
            implicit integer (i-n)
        return
        end
c-----------------------------------------------------------------------
c
c             piecewise linear triangle multi grid package
c
c                    edition 9.0 - - - march, 2004
c
c-----------------------------------------------------------------------
        subroutine vline(x,y,z,n,icolor)
c
            implicit real (a-h,o-z)
            implicit integer (i-n)
            real
     +          x(n),y(n),z(n)
        return
        end
c-----------------------------------------------------------------------
c
c             piecewise linear triangle multi grid package
c
c                    edition 9.0 - - - march, 2004
c
c-----------------------------------------------------------------------
        subroutine vfill(x,y,z,n,icolor)
c
            implicit real (a-h,o-z)
            implicit integer (i-n)
            real
     +          x(n),y(n),z(n)
        return
        end