c-----------------------------------------------------------------------
c
c            piecewise lagrange triangle multi grid package
c
c                    edition 11.0 - - - june, 2012   
c
c-----------------------------------------------------------------------
        subroutine mpiutl(isw)
cx
            use mthdef
            implicit real(kind=rknd) (a-h,o-z)
            implicit integer(kind=iknd) (i-n)
            common /atest6/nproc,myid,mpisw,mpiint,mpiflt
cy
c       initialize
c
        if(isw==1) then
            nproc=1  
            myid=0 
            mpisw=-1
            mpiint=0
            mpiflt=0
        endif
        return
        end
c-----------------------------------------------------------------------
c
c            piecewise lagrange triangle multi grid package
c
c                    edition 11.0 - - - june, 2012   
c
c-----------------------------------------------------------------------
        subroutine star0(cmd)
cx
            use mthdef
            implicit real(kind=rknd) (a-h,o-z)
            implicit integer(kind=iknd) (i-n)
            character(len=80) :: cmd
cy
        return
        end
c-----------------------------------------------------------------------
c
c            piecewise lagrange triangle multi grid package
c
c                    edition 11.0 - - - june, 2012   
c
c-----------------------------------------------------------------------
        subroutine expth(ip,ipath)
cx
            use mthdef
            implicit real(kind=rknd) (a-h,o-z)
            implicit integer(kind=iknd) (i-n)
            integer(kind=iknd), dimension(6,*) :: ipath
            integer(kind=iknd), dimension(100) :: ip
cy
        return
        end
c-----------------------------------------------------------------------
c
c            piecewise lagrange triangle multi grid package
c
c                    edition 11.0 - - - june, 2012   
c
c-----------------------------------------------------------------------
        subroutine exbdy(ipath,ir0,map,gf,nn,num)
cx
            use mthdef
            implicit real(kind=rknd) (a-h,o-z)
            implicit integer(kind=iknd) (i-n)
            integer(kind=iknd), dimension(6,*) :: ipath
            integer(kind=iknd), dimension(*) :: ir0,map
            real(kind=rknd), dimension(nn,*) :: gf
cy
        return
        end
c-----------------------------------------------------------------------
c
c            piecewise lagrange triangle multi grid package
c
c                    edition 11.0 - - - june, 2012   
c
c-----------------------------------------------------------------------
        subroutine pl2ip(t,num)
cx
            use mthdef
            implicit real(kind=rknd) (a-h,o-z)
            implicit integer(kind=iknd) (i-n)
            real(kind=rknd), dimension(*) :: t
cy
        return
        end
c-----------------------------------------------------------------------
c
c            piecewise lagrange triangle multi grid package
c
c                    edition 11.0 - - - june, 2012   
c
c-----------------------------------------------------------------------
        subroutine bcast(vx,vy,xm,ym,ibndry,itnode,itdof,ka,
     +      ip,rp,sp,iu,ru,su,gf)
cx
            use mthdef
            implicit real(kind=rknd) (a-h,o-z)
            implicit integer(kind=iknd) (i-n)
            integer(kind=iknd), dimension(6,*) :: ibndry
            integer(kind=iknd), dimension(5,*) :: itnode
            integer(kind=iknd), dimension(100) :: ip,iu
            integer(kind=iknd), dimension(*) :: ka
            integer(kind=iknd), dimension(8,*) :: itdof
            real(kind=rknd), dimension(*) :: vx,vy,xm,ym,gf
            real(kind=rknd), dimension(100) :: rp,ru
            character(len=80), dimension(100) :: sp,su
cy
        return
        end
c-----------------------------------------------------------------------
c
c            piecewise lagrange triangle multi grid package
c
c                    edition 11.0 - - - june, 2012   
c
c-----------------------------------------------------------------------
        subroutine exstat
cx
            use mthdef
            implicit real(kind=rknd) (a-h,o-z)
            implicit integer(kind=iknd) (i-n)
cy
        return
        end
c-----------------------------------------------------------------------
c
c            piecewise lagrange triangle multi grid package
c
c                    edition 11.0 - - - june, 2012   
c
c-----------------------------------------------------------------------
        subroutine exbox(bmin,bmax,num)
cx
            use mthdef
            implicit real(kind=rknd) (a-h,o-z)
            implicit integer(kind=iknd) (i-n)
            real(kind=rknd), dimension(*) :: bmin,bmax
cy
        return
        end
c-----------------------------------------------------------------------
c
c            piecewise lagrange triangle multi grid package
c
c                    edition 11.0 - - - june, 2012   
c
c-----------------------------------------------------------------------
        subroutine exdist(kdist,num)
cx
            use mthdef
            implicit real(kind=rknd) (a-h,o-z)
            implicit integer(kind=iknd) (i-n)
            integer(kind=iknd), dimension(*) :: kdist
cy
        return
        end
c-----------------------------------------------------------------------
c
c            piecewise lagrange triangle multi grid package
c
c                    edition 11.0 - - - june, 2012   
c
c-----------------------------------------------------------------------
        subroutine exqual(num,val)
cx
            use mthdef
            implicit real(kind=rknd) (a-h,o-z)
            implicit integer(kind=iknd) (i-n)
            integer(kind=iknd), dimension(4) :: num
            real(kind=rknd), dimension(2) :: val
cy
        return
        end
c-----------------------------------------------------------------------
c
c            piecewise lagrange triangle multi grid package
c
c                    edition 11.0 - - - june, 2012   
c
c-----------------------------------------------------------------------
        subroutine exibox(ibmin,ibmax,num)
cx
            use mthdef
            implicit real(kind=rknd) (a-h,o-z)
            implicit integer(kind=iknd) (i-n)
            integer(kind=iknd), dimension(*) :: ibmin,ibmax
cy
        return
        end
c-----------------------------------------------------------------------
c
c            piecewise lagrange triangle multi grid package
c
c                    edition 11.0 - - - june, 2012   
c
c-----------------------------------------------------------------------
        subroutine exflag(iflag)
cx
            use mthdef
            implicit real(kind=rknd) (a-h,o-z)
            implicit integer(kind=iknd) (i-n)
cy
        return
        end
c-----------------------------------------------------------------------
c
c            piecewise lagrange triangle multi grid package
c
c                    edition 11.0 - - - june, 2012   
c
c-----------------------------------------------------------------------
        subroutine exstep(step)
cx
            use mthdef
            implicit real(kind=rknd) (a-h,o-z)
            implicit integer(kind=iknd) (i-n)
cy
        return
        end
c-----------------------------------------------------------------------
c
c            piecewise lagrange triangle multi grid package
c
c                    edition 11.0 - - - june, 2012   
c
c-----------------------------------------------------------------------
        subroutine extim(atime,ptime)
cx
            use mthdef
            implicit real(kind=rknd) (a-h,o-z)
            implicit integer(kind=iknd) (i-n)
            real(kind=rknd), dimension(*) :: ptime
            real(kind=rknd), dimension(3,*) :: atime
cy
        return
        end
c-----------------------------------------------------------------------
c
c            piecewise lagrange triangle multi grid package
c
c                    edition 11.0 - - - june, 2012   
c
c-----------------------------------------------------------------------
        subroutine exsze(jd,isw)
cx
            use mthdef
            implicit real(kind=rknd) (a-h,o-z)
            implicit integer(kind=iknd) (i-n)
            integer(kind=iknd), dimension(3) :: jd
cy
        return
        end
c-----------------------------------------------------------------------
c
c            piecewise lagrange triangle multi grid package
c
c                    edition 11.0 - - - june, 2012   
c
c-----------------------------------------------------------------------
        subroutine glbpix(vx,vy,ibndry,itnode,icolor,
     +      iuvptr,ut,vt,jp,isw)
cx
            use mthdef
            implicit real(kind=rknd) (a-h,o-z)
            implicit integer(kind=iknd) (i-n)
            integer(kind=iknd), dimension(6,*) :: ibndry
            integer(kind=iknd), dimension(5,*) :: itnode
            integer(kind=iknd), dimension(25) :: jp
            integer(kind=iknd), dimension(5) :: ib
            integer(kind=iknd), dimension(*) :: icolor
            integer(kind=iknd), dimension(2,*) :: iuvptr
            real(kind=rknd), dimension(*) :: vx,vy,ut,vt
cy
        return
        end