SUBROUTINE BARBOX (IPF,COLR,X,Y,FACT,TIT,XTIT,YTIT,ISTAT)
#
#
# BARBOX draws a box with titles as a prerequisit to calling BARPLT.
#
# Parameters:
#
# IPF     Name of IPF file
# COLR   True for multi-color, false for mono color
# X       The lower left x-coordinate of the box (>2.0)
# Y       The lower left Y-coordinate of the box (>2.0)
# FACT    The size factor 1.0 = (10X10)cm box
# TIT     Histogram title (25 chars)
# XTIT    The title for the X axis (20 chars)
# YTIT    The title for the Y axis (20 chars)
# ISTAT   On Input:
#           0   Request new plot frame
#          >0   Append bargraph to same plot.
#
#         Return status:
#           0   Success
#          -1   X or Y coord less than 2.0cm.
#
logical boxflg,first,init,colr,kolor
byte xtit(20),ytit(20),tit(25),ipf(30)
data first/.true./
common /bar/ boxflg,kolor
#
if (X.lt.2.0.or.Y.lt.2.0)
{
   istat=-1
   return
}
if (istat.eq.0) init=.true.
else
init=.false.
istat=0
if (first.and..not.init) init=.true.
boxflg=.true.
if (colr) kolor=.true.
call factor(1.)
if (.not.first) call plot(-xlast,-ylast,-3)
first=.false.
if (init) call plots(ipf,2,3)
if (colr) call color(1)
call plot(x,y,-3)
call factor(fact)
call plot(10.6,0.,2)
call plot(10.6,10.,2)
call plot(0.,10.,2)
call plot (0.,0.,2)
call symbol(2.,-1.5,0.35,xtit,0.,20)
call symbol(-1.2,2.,0.35,ytit,90.,20)
call symbol(0.,10.1,0.4,tit,0.,25)
xlast=x
ylast=y
return
end