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
.