SUBROUTINE PIE1(IPF, COLR, XS, YS, FACT, ITLE, ISTAT) C C C Parameters: C C IPF Name of IPF file C COLR True for multi-color, false for mono color C XS The X coord of the of the bottom left. C YS The Y coord of the bottom left. C FACT The size factor 1.0 = 10cm diam circle C ITLE Title (25 characters) at bottom of circle 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 C LOGICAL PIEFLG, FIRST, INIT, COLR, KOLOR BYTE ITLE(30), IPF(30) COMMON/PIE/PIEFLG, KOLOR, XXS, YYS DATA FIRST/.TRUE./ C C XXS = XS YYS = YS INIT = .FALSE. 10 IF (.NOT.(ISTAT.EQ.0)) GOTO 2000 INIT = .TRUE. 2000 CONTINUE ISTAT = 0 IF (.NOT.(FIRST.AND..NOT.INIT)) GOTO 2020 INIT = .TRUE. 2020 CONTINUE PIEFLG = .TRUE. IF (.NOT.(COLR)) GOTO 2040 KOLOR = .TRUE. 2040 CONTINUE CALL FACTOR(1.) IF (.NOT.(.NOT.FIRST)) GOTO 2060 CALL PLOT( - XLAST, - YLAST, - 3) 2060 CONTINUE FIRST = .FALSE. IF (.NOT.(INIT)) GOTO 2080 CALL PLOTS(IPF, 2, 3) 2080 CONTINUE IF (.NOT.(COLR)) GOTO 2100 CALL COLOR(2) 2100 CONTINUE CALL PLOT(XS, YS, - 3) CALL FACTOR(FACT) CALL STCENT(ITLE, 25) CALL SYMBOL(4., 0., .4, ITLE, 0., 25) XLAST = XS YLAST = YS RETURN END