SUBROUTINE BARBOX(IPF, COLR, X, Y, FACT, TIT, XTIT, YTIT, ISTAT) C C C BARBOX draws a box with titles as a prerequisit to calling BARPLT. C C Parameters: C C IPF Name of IPF file C COLR True for multi-color, false for mono color C X The lower left x-coordinate of the box (>2.0) C Y The lower left Y-coordinate of the box (>2.0) C FACT The size factor 1.0 = (10X10)cm box C TIT Histogram title (25 chars) C XTIT The title for the X axis (20 chars) C YTIT The title for the Y axis (20 chars) C ISTAT On Input: C 0 Request new plot frame C >0 Append bargraph to same plot. C C Return status: C 0 Success C -1 X or Y coord less than 2.0cm. C LOGICAL BOXFLG, FIRST, INIT, COLR, KOLOR BYTE XTIT(20), YTIT(20), TIT(25), IPF(30) DATA FIRST/.TRUE./ COMMON/BAR/BOXFLG, KOLOR C IF (.NOT.(X.LT.2.0.OR.Y.LT.2.0)) GOTO 2000 ISTAT = - 1 RETURN 2000 CONTINUE IF (.NOT.(ISTAT.EQ.0)) GOTO 2020 INIT = .TRUE. GOTO 2030 2020 CONTINUE INIT = .FALSE. 2030 CONTINUE ISTAT = 0 IF (.NOT.(FIRST.AND..NOT.INIT)) GOTO 2040 INIT = .TRUE. 2040 CONTINUE BOXFLG = .TRUE. IF (.NOT.(COLR)) GOTO 2060 KOLOR = .TRUE. 2060 CONTINUE CALL FACTOR(1.) IF (.NOT.(.NOT.FIRST)) GOTO 2080 CALL PLOT( - XLAST, - YLAST, - 3) 2080 CONTINUE FIRST = .FALSE. IF (.NOT.(INIT)) GOTO 2100 CALL PLOTS(IPF, 2, 3) 2100 CONTINUE IF (.NOT.(COLR)) GOTO 2120 CALL COLOR(1) 2120 CONTINUE 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