Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap5_198111 - decus/20-0141/daline.for
There are 2 other files named daline.for in the archive. Click here to see a list.
      SUBROUTINE DALINE(IGRID ,KNDBAR,LSTLIN,MARGIN,MSHLFT,
     1    MSHRIT,LNGLFT,LNGRIT,XLEFT ,XRIGHT,SEGMNT,MINSEG,
     2    MAXSEG,LETTER,MINLTR,MAXLTR,YVALUE,LABEL ,MINLBL,
     3    MAXLBL,LINPRT,IDISK )
C     RENBR(/HORIZONTAL BAR CHART PLOTTER FOR PRINTER)
C
C     DONALD BARTH, HARVARD BUSINESS SCHOOL
C
C     DALINE   CONSTRUCTS   PRINTABLE   PLOTS    CONTAINING
C     HORIZONTAL  BARS  FORMED  OF SEGMENTS, THE LENGTHS OF
C     WHICH REPRESENT MAGNITUDES OF  CORRESPONDING  VALUES.
C     BARS CAN BE SUPERIMPOSED UPON BACKGROUND GRID AND CAN
C     EXTEND TO EITHER SIDE OF CENTRAL COLUMN CORRESPONDING
C     TO  ZERO.  NEGATIVE SEGMENTS (DEBITS) ARE ACCUMULATED
C     TO ONE SIDE OF ZERO  COLUMN,  AND  POSITIVE  SEGMENTS
C     (CREDITS)  TO  OTHER,  ALTHOUGH  USER  HAS  OPTION OF
C     SUPPRESSING DISPLAY OF  EITHER  PORTION.   DALINE  IS
C     CALLED AS MANY TIMES AS THERE ARE LINES IN PLOT, EACH
C     SUBSEQUENT CALL GENERATING NEXT LOWER LINE OF PLOT.
C
C     ARGUMENTS OF THIS ROUTINE ARE USED ONLY FOR INPUT.
C
C     IGRID  = SELECTS BACKGROUND CHARACTERS  TO  BE  SHOWN
C              WHERE  NOT  HIDDEN  BY  CHARACTERS  USED  TO
C              REPRESENT BAR SEGMENTS,  SELECTS  CHARACTER,
C              IF  ANY,  TO  APPEAR IN CENTRAL ZERO COLUMN,
C              AND SELECTS TYPE OF CAPTION, EITHER  NUMERIC
C              OR  ALPHABETIC,  TO  BE  SHOWN  TO  LEFT  OF
C              CURRENTLY  GENERATED  PANEL  OF  BAR  CHART.
C              THESE  OPTIONS  ARE  SELECTED  BY  DIGITS IN
C              ONES,   TENS,   AND    HUNDREDS    POSITIONS
C              RESPECTIVELY  IN  DECIMAL  INTEGER  VALUE OF
C              IGRID.  MEANINGS ASSIGNED TO  EACH  POSITION
C              IN VALUE OF IGRID ARE AS FOLLOW
C
C            ONES DIGIT OF IGRID
C
C              SELECTS CHARACTERS  TO  BE  INCLUDED  ACROSS
C              WIDTH  OF  PLOT  IN  COLUMNS NOT OCCUPIED BY
C              CHARACTERS USED TO REPRESENT  BAR  SEGMENTS,
C              BUT DOES NOT DICTATE CHARACTERS APPEARING IN
C              EITHER LEFT MARGIN OR IN COLUMN REPRESENTING
C              ZERO.
C
C              0  SPACES WILL BE SHOWN WHERE NOT HIDDEN  BY
C                 CHARACTERS    USED   TO   REPRESENT   BAR
C                 SEGMENTS.
C              1  MINUS  SIGNS  WILL  BE  SHOWN  WHERE  NOT
C                 HIDDEN  BY  CHARACTERS  USED TO REPRESENT
C                 BAR SEGMENTS.
C              2  IF  NOT  HIDDEN  BY  CHARACTERS  USED  TO
C                 REPRESENT  BAR SEGMENTS, THEN EXCLAMATION
C                 POINTS WILL BE SHOWN IN  LEFTMOST  COLUMN
C                 WHICH  COULD  BEAR  LOWER SCALE NUMBER TO
C                 LEFT OF ZERO  COLUMN,  AND  IN  RIGHTMOST
C                 COLUMN   WHICH  COULD  BEAR  LOWER  SCALE
C                 NUMBER TO RIGHT OF ZERO COLUMN.
C              3  SAME AS IGRID=2, EXCEPT THAT MINUS  SIGNS
C                 ARE INCLUDED INSTEAD OF SPACES IN COLUMNS
C                 WHICH CONTAIN NEITHER EXCLAMATION  POINTS
C                 NOR   CHARACTERS   WHICH   REPRESENT  BAR
C                 SEGMENTS.
C              4  SAME  AS  IGRID=2,  EXCEPT  THAT  IF  NOT
C                 HIDDEN  BY  CHARACTERS  USED TO REPRESENT
C                 BAR SEGMENTS, THEN  PLUS  SIGNS  WILL  BE
C                 SHOWN IN LEFTMOST COLUMN WHICH COULD BEAR
C                 LOWER  SCALE  NUMBER  TO  LEFT  OF   ZERO
C                 COLUMN,  AND  IN  RIGHTMOST  COLUMN WHICH
C                 COULD BEAR LOWER SCALE NUMBER TO RIGHT OF
C                 ZERO COLUMN.
C              5  SAME AS IGRID=4, EXCEPT THAT MINUS  SIGNS
C                 ARE INCLUDED INSTEAD OF SPACES IN COLUMNS
C                 WHICH  CONTAIN  NEITHER  PLUS  SIGNS  NOR
C                 CHARACTERS WHICH REPRESENT BAR SEGMENTS.
C              6  IF  NOT  HIDDEN  BY  CHARACTERS  USED  TO
C                 REPRESENT  BAR SEGMENTS, THEN EXCLAMATION
C                 POINTS WILL BE SHOWN IN EACH COLUMN WHICH
C                 COULD BEAR LOWER SCALE NUMBER.
C              7  SAME AS IGRID=6, EXCEPT THAT MINUS  SIGNS
C                 ARE INCLUDED INSTEAD OF SPACES IN COLUMNS
C                 WHICH CONTAIN NEITHER EXCLAMATION  POINTS
C                 NOR   CHARACTERS   WHICH   REPRESENT  BAR
C                 SEGMENTS.
C              8  SAME  AS  IGRID=6,  EXCEPT  THAT  IF  NOT
C                 HIDDEN  BY  CHARACTERS  USED TO REPRESENT
C                 BAR SEGMENTS, THEN  PLUS  SIGNS  WILL  BE
C                 SHOWN  IN  EACH  COLUMN  WHICH COULD BEAR
C                 LOWER SCALE NUMBER.
C              9  SAME AS IGRID=8, EXCEPT THAT MINUS  SIGNS
C                 ARE INCLUDED INSTEAD OF SPACES IN COLUMNS
C                 WHICH  CONTAIN  NEITHER  PLUS  SIGNS  NOR
C                 CHARACTERS WHICH REPRESENT BAR SEGMENTS.
C
C              FOLLOWING   EXAMPLES   DEMONSTRATE   RESULTS
C              PRODUCED BY VARIOUS VALUES OF ONES DIGIT.
C
C       ONES DIGIT = 0
C                  = 1    --------------- ---------------
C                  = 2    !                             !
C                  = 3    !-------------- --------------!
C                  = 4    +                             +
C                  = 5    +-------------- --------------+
C                  = 6    !    !    !         !    !    !
C                  = 7    !----!----!---- ----!----!----!
C                  = 8    +    +    +         +    +    +
C                  = 9    +----+----+---- ----+----+----+
C           TICK MARKS    !    !    !    !    !    !    !
C        SCALE NUMBERS  -15.0-10.0-5.0   0   5.0  10.0 15.0
C
C            TENS DIGIT OF IGRID
C
C              SELECTS CHARACTER, IF ANY, TO  BE  SHOWN  IN
C              ZERO   COLUMN,   AND   WHETHER  LOWER  SCALE
C              NUMBERS, IF GENERATED  BY  CURRENT  CALL  TO
C              THIS ROUTINE, IDENTIFY ZERO COLUMN.
C
C              0  ZERO COLUMN IS NOT REPRESENTED.
C              1, 2, 3 OR 4, ZERO COLUMN IS REPRESENTED  BY
C                 CHARACTER INDICATED BY TENS DIGIT, BUT IS
C                 NOT  TO  BE  IDENTIFIED  IN  LOWER  SCALE
C                 NUMBERS   WHICH  MIGHT  BE  GENERATED  BY
C                 CURRENT CALL TO THIS ROUTINE.
C              1  ZERO COLUMN REPRESENTED BY SPACE.
C              2  ZERO COLUMN REPRESENTED BY MINUS SIGN.
C              3  ZERO COLUMN  REPRESENTED  BY  EXCLAMATION
C                 POINT.
C              4  ZERO COLUMN REPRESENTED BY PLUS SIGN.
C              5, 6, 7 OR 8, ZERO COLUMN IS REPRESENTED  BY
C                 SAME    CHARACTER    AS    SELECTED    BY
C                 1, 2, 3 OR 4  RESPECTIVELY.   IF  CURRENT
C                 CALL TO THIS ROUTINE ALSO GENERATES LOWER
C                 SCALE NUMBERS, THEN ZERO COLUMN  WILL  BE
C                 IDENTIFIED  BY  SCALE NUMBER HAVING VALUE
C                 ZERO.
C
C              FOLLOWING   EXAMPLES   DEMONSTRATE   RESULTS
C              PRODUCED BY VARIOUS VALUES OF TENS DIGIT.
C
C       TENS DIGIT = 0
C
C                +-+--+-+
C                ! !  ! !
C               -4-2  2 4
C
C       TENS DIGIT = 1          2          3          4
C
C                +-+- -+-+  +-+---+-+  +-+-!-+-+  +-+-+-+-+
C                ! !   ! !  ! !   ! !  ! !   ! !  ! !   ! !
C               -4-2   2 4 -4-2   2 4 -4-2   2 4 -4-2   2 4
C
C       TENS DIGIT = 5          6          7          8
C
C                +-+- -+-+  +-+---+-+  +-+-!-+-+  +-+-+-+-+
C                ! ! ! ! !  ! ! ! ! !  ! ! ! ! !  ! ! ! ! !
C               -4-2 0 2 4 -4-2 0 2 4 -4-2 0 2 4 -4-2 0 2 4
C
C            HUNDREDS DIGIT OF IGRID
C
C              SELECTS TYPE OF CAPTION, EITHER  NUMERIC  OR
C              ALPHABETIC, TO BE SHOWN TO LEFT OF CURRENTLY
C              GENERATED PANEL OF BAR CHART.
C
C              0  LEFT MARGIN IS TO CONTAIN SPACES.
C              1  REPRESENTATION OF VALUE INPUT AS ARGUMENT
C                 NAMED  YVALUE IS TO BE RIGHT JUSTIFIED IN
C                 MARGIN TO LEFT  OF  LEFT  BORDER  OF  BAR
C                 CHART.
C              2  CHARACTERS INPUT IN LABEL(MINLBL) THROUGH
C                 AND  INCLUDING  LABEL(MAXLBL)  ARE  TO BE
C                 RIGHT JUSTIFIED IN MARGIN TO LEFT OF LEFT
C                 BORDER OF BAR CHART.
C              3 OR 4, SAME AS 1 OR 2 RESPECTIVELY,  EXCEPT
C                 THAT  SPACE  CHARACTER  IS PLACED BETWEEN
C                 RIGHT JUSTIFIED NUMBER OR WORD  AND  LEFT
C                 BORDER OF PLOT.
C              5 OR 6, SAME AS 3 OR 4 RESPECTIVELY,  EXCEPT
C                 THAT  MINUS  SIGN  IS  TO  BE PLACED INTO
C                 COLUMN TO IMMEDIATE LEFT OF  LEFT  BORDER
C                 OF BAR CHART.
C
C              FOLLOWING   EXAMPLES   DEMONSTRATE   RESULTS
C              PRODUCED   BY  VARIOUS  VALUES  OF  HUNDREDS
C              DIGIT.
C
C       HUNDREDS DIGIT = 0          +----+---- ----+----+
C                      = 1     12.34+----+---- ----+----+
C                      = 2     LABEL+----+---- ----+----+
C                      = 3    12.34 +----+---- ----+----+
C                      = 4    LABEL +----+---- ----+----+
C                      = 5    12.34-+----+---- ----+----+
C                      = 6    LABEL-+----+---- ----+----+
C               TICK MARKS          !    !         !    !
C            SCALE NUMBERS        -10.0-5.0       5.0  10.0
C
C     KNDBAR = SPECIFIES  WHICH  BAR  SEGMENT  IS   TO   BE
C              REPRESENTED  IF  MORE  THAN  ONE BAR SEGMENT
C              APPEARS IN SINGLE COLUMN OF PLOT, AND  WHICH
C              COLUMNS  ARE  TO  REPRESENT  ANY BAR SEGMENT
C              WHICH  EXTENDS  ACROSS  MORE   THAN   SINGLE
C              COLUMN.
C            = -1, NO BAR SEGMENTS ARE  TO  BE  PLOTTED  IN
C              CURRENT PANEL.  RESULTING PANEL IS IDENTICAL
C              TO THAT WHICH WOULD BE PRODUCED IF MINSEG IS
C              SET GREATER THAN MAXSEG.
C            = 0, EACH BAR SEGMENT  IS  TO  BE  REPRESENTED
C              ONLY  IN  FINAL  COLUMN  (THAT FURTHEST FROM
C              ZERO  COLUMN)  IN  WHICH   IT   IS   LARGEST
C              COMPONENT.   SPACES  ARE  INSERTED  INTO ANY
C              OTHER  COLUMNS  IN  WHICH  BAR  SEGMENT   IS
C              DOMINANT.
C            = 1, EACH BAR SEGMENT  IS  TO  BE  REPRESENTED
C              ONLY  IN  FINAL  COLUMN  (THAT FURTHEST FROM
C              ZERO  COLUMN)  IN  WHICH   IT   IS   LARGEST
C              COMPONENT.  GRID CHARACTERS SELECTED BY ONES
C              DIGIT OF DECIMAL INTEGER VALUE OF IGRID  ARE
C              INSERTED INTO ANY OTHER COLUMNS IN WHICH BAR
C              SEGMENT IS DOMINANT.
C            = 2, EACH BAR SEGMENT IS TO BE REPRESENTED  IN
C              ALL   COLUMNS   IN   WHICH   IT  IS  LARGEST
C              COMPONENT.
C            = 3,  4  OR  5,  SAME  AS  KIND=0,  1   OR   2
C              RESPECTIVELY,   EXCEPT  THAT  FINAL  COLUMNS
C              (THOSE FURTHEST TO LEFT AND TO RIGHT OF ZERO
C              COLUMN)  WHICH  CONTAIN  FINAL  NEGATIVE AND
C              FINAL POSITIVE VALUES  SPECIFIED  BY  SEGMNT
C              ARRAY   INSTEAD   CONTAIN   GRID  CHARACTERS
C              SELECTED BY ONES DIGIT  OF  DECIMAL  INTEGER
C              VALUE  OF IGRID IF LARGEST COMPONENTS WITHIN
C              THESE  COLUMNS  ARE   SMALLER   THAN   SPACE
C              REMAINING IN THESE COLUMNS.
C            = 6, EACH BAR SEGMENT  IS  TO  BE  REPRESENTED
C              ONLY  IN  FINAL  COLUMN  (THAT FURTHEST FROM
C              ZERO COLUMN) IN WHICH BAR  SEGMENT  APPEARS.
C              IF  TWO  OR  MORE  BAR SEGMENTS TERMINATE IN
C              SAME COLUMN, THEN BAR SEGMENT  SPECIFIED  BY
C              SEGMNT    ARRAY   LOCATION   HAVING   HIGHER
C              SUBSCRIPT IS REPRESENTED,  AND  BAR  SEGMENT
C              SPECIFIED  BY  THE  SEGMENT  ARRAY  LOCATION
C              HAVING   LOWER    SUBSCRIPT    IS    INSTEAD
C              REPRESENTED  IN  ADJACENT COLUMN NEXT CLOSER
C              TO ZERO COLUMN IF THIS LOWER BAR SEGMENT  IS
C              ONLY  BAR  SEGMENT  WHICH  APPEARS  IN  THIS
C              ADJACENT COLUMN.  SPACES ARE  INSERTED  INTO
C              ANY  OTHER  COLUMNS ACROSS WHICH BAR SEGMENT
C              EXTENDS.
C            = 7,  SAME  AS  KNDBAR=6,  EXCEPT  THAT   GRID
C              CHARACTERS SELECTED BY ONES DIGIT OF DECIMAL
C              INTEGER VALUE OF IGRID ARE INSERTED INTO ANY
C              OTHER   COLUMNS   WHICH   DO   NOT   CONTAIN
C              TERMINATION OF BAR SEGMENT.
C            = 8, EACH BAR SEGMENT IS REPRESENTED IN  FINAL
C              COLUMN  (THAT  FURTHEST FROM ZERO COLUMN) IN
C              WHICH  BAR  SEGMENT  APPEARS,  AND  IN  EACH
C              COLUMN   IN   WHICH   BAR  SEGMENT  IS  ONLY
C              COMPONENT.
C
C              AS DEMONSTRATION OF  PLOTTING  MODIFICATIONS
C              CAUSED BY VARIOUS VALUES OF KNDBAR, NUMBERS
C
C         .3  .4  .2  3.5  .1  .3  3.5  .2  .1  3.5  .3  .2
C
C              AND
C
C        -.3 -.4 -.2 -3.5 -.1 -.3 -3.5 -.2 -.1 -3.5 -.3 -.2
C
C              ARE PLOTTED  BELOW  REPRESENTED  BY  LETTERS
C              THROUGH       X       RESPECTIVELY      WITH
C              LNGLFT=LNGRIT=15,  XLEFT=-15  AND  XRIGHT=15
C              FOR ALL POSSIBLE VALUES OF KNDBAR
C
C            KNDBAR =-1   +----+----+----+----+----+----+
C                   = 0   +-WV   S  P   N+B   D  G   JK-+
C                   = 1   +-WV-+-S--P---N+B---D--G-+-JK-+
C                   = 2   +-WVVVVSSSPPPPN+BDDDDGGGJJJJK-+
C                   = 3   +--V   S  P   N+B   D  G   J--+
C                   = 4   +--V-+-S--P---N+B---D--G-+-J--+
C                   = 5   +--VVVVSSSPPPPN+BDDDDGGGJJJJ--+
C                   = 6   +-XV  US  RP  O+C  DF  GI  JL-+
C                   = 7   +-XV-+US--RP--O+C--DF--GI+-JL-+
C                   = 8   +-XVVVUSSSRPPPO+CDDDFGGGIJJJL-+
C            TICK MARKS   !    !    !    !    !    !    !
C         SCALE NUMBERS -15.0-10.0-5.0   0   5.0  10.0 15.0
C
C              LETTERS WHICH APPEAR IN COLUMNS 1, 5, 9  AND
C              13  WHEN  KNDBAR  IS LESS THAN OR EQUAL TO 5
C              ARE DIFFERENT THAN WHOSE WHICH  APPEAR  WHEN
C              KNDBAR  IS  GREATER  THAN  OR  EQUAL  TO  6.
C              CORRESPONDENCE  OF  LETTERS  TO  COLUMNS  IS
C              SHOWN IN CHART BELOW.
C
C                        COLUMNS                   COLUMNS
C           COLUMN 1    ! 2 - 4 !     COLUMN 5    ! 6 - 8 !
C                       !       !                 !       !
C       .3A .4B .2C .1D !  3.D  ! .4D .1E .3F .2G !  3.G  !
C
C                        COLUMNS
C           COLUMN 9    !10 - 12!     COLUMN 13
C                       !       !
C       .3G .2H .1I .4J !  3.J  ! .1J .3K .2L AND .4 SPACE
C
C
C     LSTLIN = -1, LOWER SCALE NUMBERS ARE TO BE GENERATED,
C              BUT   PANEL   OF   BAR  CHART  WILL  NOT  BE
C              GENERATED.
C            = 0, CURRENT PANEL FINISHES BAR CHART.   SCALE
C              NUMBERS  RANGING IN VALUE FROM THAT OF XLEFT
C              (IF LNGLFT IS  GREATER  THAN  ZERO)  THROUGH
C              THAT  OF  XRIGHT  (IF LNGRIT IS GREATER THAN
C              ZERO) ARE TO BE WRITTEN BELOW CURRENT  PANEL
C              OF BAR CHART.
C            = GREATER THAN ZERO, CURRENT  PANEL  DOES  NOT
C              FINISH  BAR  CHART.   SCALE  NUMBERS ARE NOT
C              GENERATED.
C
C     MARGIN = WIDTH, STATED AS NUMBER  OF  CHARACTERS,  IN
C              MARGIN  TO  BE  INCLUDED  TO LEFT OF CURRENT
C              PANEL OF BAR CHART.  WIDTH OF MARGIN MUST BE
C              SAME  FOR  ALL  PANELS  FORMING  BAR  CHART.
C              MARGIN MUST INCLUDE SUFFICIENT ROOM FOR LEFT
C              SCALE  NUMBER  OR  FOR LEFT ALPHAMERIC LABEL
C              REQUESTED BY NONZERO VALUE OF HUNDREDS DIGIT
C              OF  DECIMAL  INTEGER VALUE OF IGRID, AND FOR
C              EXTRA SPACE  OR  FOR  EXTRA  MINUS  SIGN  IF
C              HUNDREDS  DIGIT  OF IGRID IS GREATER THAN OR
C              EQUAL TO 3.  IF  SCALE  NUMBERS  ARE  TO  BE
C              WRITTEN  BELOW  BAR  CHART, AND IF LNGLFT IS
C              GREATER THAN ZERO, THEN MARGIN  SHOULD  HAVE
C              VALUE  OF AT LEAST 5 (OR OF AT LEAST HALF OF
C              MSHLFT IF MSHLFT IS LESS THAN 10)  TO  ALLOW
C              NUMBER  TO  BE  CENTERED  BELOW  LEFT BORDER
C              LINE.  IF LNGLFT IS NOT GREATER  THAN  ZERO,
C              THEN  ROOM  DOES  NOT  NEED TO BE ALLOWED IN
C              LEFT MARGIN FOR LOWER SCALE NUMBERS.
C
C     MSHLFT = WIDTH OF GRID DIVISIONS INDICATED EITHER  BY
C              EXCLAMATION  POINTS OR PLUS SIGNS IN PORTION
C              OF BAR CHART TO LEFT  OF  ZERO  COLUMN.   IF
C              MSHLFT  IS EQUAL TO ZERO, THEN GRID DIVISION
C              WIDTH OF 10 IS ASSUMED.  MSHLFT IS EQUAL  TO
C              ONE   MORE   THAN   NUMBER   OF  COLUMNS  OF
C              CHARACTERS  APPEARING  BETWEEN   EXCLAMATION
C              POINTS OR PLUS SIGNS.
C
C     MSHRIT = WIDTH OF GRID DIVISIONS INDICATED EITHER  BY
C              EXCLAMATION  POINTS OR PLUS SIGNS IN PORTION
C              OF BAR CHART TO RIGHT OF  ZERO  COLUMN.   IF
C              MSHRIT  IS EQUAL TO ZERO, THEN GRID DIVISION
C              WIDTH OF 10 IS ASSUMED.  MSHRIT IS EQUAL  TO
C              ONE   MORE   THAN   NUMBER   OF  COLUMNS  OF
C              CHARACTERS  APPEARING  BETWEEN   EXCLAMATION
C              POINTS OR PLUS SIGNS.
C
C     LNGLFT = 0, BAR CHART IS NOT TO INCLUDE  ANY  COLUMNS
C              TO  LEFT  OF  ZERO  COLUMN.   THIS  DOES NOT
C              CHANGE WIDTH OF  LEFT  MARGIN  SPECIFIED  BY
C              VALUE OF MARGIN.
C            = GREATER  THAN  ZERO,  LNGLFT  IS  NUMBER  OF
C              COLUMNS  OF CHARACTERS TO BE INCLUDED IN BAR
C              CHART TO LEFT OF ZERO COLUMN.
C
C     LNGRIT = 0, BAR CHART IS NOT TO INCLUDE  ANY  COLUMNS
C              TO RIGHT OF ZERO COLUMN.
C            = GREATER  THAN  ZERO,  LNGRIT  IS  NUMBER  OF
C              COLUMNS  OF CHARACTERS TO BE INCLUDED IN BAR
C              CHART TO RIGHT OF ZERO COLUMN.
C
C     XLEFT  = ACCUMULATED TOTAL OF  SEGMNT  VALUES  HAVING
C              SAME   SIGN   AS   XLEFT   WHICH  IS  TO  BE
C              REPRESENTED BY LEFT BORDER OF PORTION OF BAR
C              CHART  TO  LEFT  OF ZERO COLUMN IF LNGLFT IS
C              GREATER THAN ZERO.  IF  XLEFT  IS  NEGATIVE,
C              THEN ONLY NEGATIVE VALUES ARE REPRESENTED TO
C              LEFT OF ZERO COLUMN.  IF XLEFT IS  POSITIVE,
C              THEN ONLY POSITIVE VALUES ARE REPRESENTED TO
C              LEFT OF ZERO COLUMN.
C
C     XRIGHT = ACCUMULATED TOTAL OF  SEGMNT  VALUES  HAVING
C              SAME   SIGN   AS   XRIGHT  WHICH  IS  TO  BE
C              REPRESENTED BY RIGHT BORDER  OF  PORTION  OF
C              BAR  CHART TO RIGHT OF ZERO COLUMN IF LNGRIT
C              IS  GREATER  THAN  ZERO.    IF   XRIGHT   IS
C              NEGATIVE,  THEN  ONLY  NEGATIVE  VALUES  ARE
C              REPRESENTED TO RIGHT  OF  ZERO  COLUMN.   IF
C              XRIGHT   IS  POSITIVE,  THEN  ONLY  POSITIVE
C              VALUES ARE  REPRESENTED  TO  RIGHT  OF  ZERO
C              COLUMN.
C
C     SEGMNT = ARRAY   CONTAINING   IN   ARRAY    LOCATIONS
C              SEGMNT(MINSEG)    THROUGH    AND   INCLUDING
C              SEGMNT(MAXSEG)  LENGTHS  OF   BAR   SEGMENTS
C              SPECIFIED IN SAME COORDINATE SYSTEMS AS USED
C              FOR DEFINITIONS OF XLEFT AND  XRIGHT.   ZERO
C              VALUES IN SEGMNT ARRAY ARE IGNORED.
C
C     MINSEG = SUBSCRIPT OF FIRST LOCATION IN SEGMNT  ARRAY
C              WHICH CAN SPECIFY LENGTH OF BAR SEGMENT.  IF
C              MINSEG IS GREATER THAN MAXSEG, THEN  NO  BAR
C              SEGMENTS WILL BE REPRESENTED.
C
C     MAXSEG = SUBSCRIPT OF FINAL LOCATION IN SEGMNT  ARRAY
C              WHICH CAN SPECIFY LENGTH OF BAR SEGMENT.
C
C     LETTER = ARRAY   CONTAINING   IN   ARRAY    LOCATIONS
C              LETTER(MINLTR)    THROUGH    AND   INCLUDING
C              LETTER(MAXLTR)  CHARACTERS  BY   WHICH   BAR
C              SEGMENTS   ARE   TO   BE   REPRESENTED,  ONE
C              CHARACTER  PER  LETTER  ARRAY  LOCATION   AS
C              THOUGH  READ  BY  MULTIPLE  OF  A1 FORMAT OR
C              DEFINED  BY  SEVERAL  1H  FIELDS   IN   DATA
C              STATEMENT.    SEGMENT   HAVING   ITS  LENGTH
C              SPECIFIED   BY   SEGMNT(MINSEG)   WILL    BE
C              REPRESENTED    BY    CHARACTER    FOUND   IN
C              LETTER(MINLTR), THAT HAVING  ITS  LENGTH  IN
C              SEGMNT(MINSEG+1)     BY     CHARACTER     IN
C              LETTER(MINLTR+1),    AND    SO    ON.     IF
C              MAXLTR-MINLTR  IS  LESS  THAN MAXSEG-MINSEG,
C              THEN  ASSIGNMENT  OF   CHARACTERS   RECYCLES
C              THROUGH  LETTER  ARRAY  AS MANY TIMES AS ARE
C              NECESSARY TO REPRESENT ALL OF  BAR  SEGMENTS
C              SO  THAT SEGMENT HAVING ITS LENGTH SPECIFIED
C              BY     SEGMNT(MINSEG+MAXLTR-MINLTR+1)     IS
C              REPRESENTED  BY CHARACTER IN LETTER(MINLTR),
C              THAT     HAVING      ITS      LENGTH      IN
C              SEGMNT(MINSEG+MAXLTR-MINLTR+2)  BY CHARACTER
C              IN LETTER(MINLTR+1), AND SO ON.
C
C     MINLTR = SUBSCRIPT OF  LETTER  ARRAY  LOCATION  WHICH
C              SPECIFIES   CHARACTER   TO   BE   USED   FOR
C              REPRESENTATION OF  BAR  SEGMENT  HAVING  ITS
C              LENGTH IN SEGMNT(MINSEG).
C
C     MAXLTR = SUBSCRIPT OF  LETTER  ARRAY  LOCATION  WHICH
C              SPECIFIES   CHARACTER   TO   BE   USED   FOR
C              REPRESENTATION OF  BAR  SEGMENT  HAVING  ITS
C              LENGTH IN SEGMNT(MINSEG+MAXLTR-MINLTR).
C
C     YVALUE = NUMBER TO BE PLACED TO LEFT OF BAR CHART  IF
C              HUNDREDS  DIGIT  OF DECIMAL INTEGER VALUE OF
C              IGRID HAS VALUE 1, 3 OR 5.
C
C     LABEL  = ARRAY   CONTAINING   IN   ARRAY    LOCATIONS
C              LABEL(MINLBL)    THROUGH    AND    INCLUDING
C              LABEL(MAXLBL) CHARACTERS TO BE SHOWN TO LEFT
C              OF  BAR  CHART  IF HUNDREDS DIGIT OF DECIMAL
C              INTEGER VALUE OF IGRID HAS VALUE 2, 4 OR  6.
C              CHARACTERS  IN  LABEL  ARRAY  ARE STORED ONE
C              CHARACTER PER ARRAY LOCATION AS THOUGH  READ
C              BY  MULTIPLE  OF  A1  FORMAT  OR  DEFINED BY
C              SEVERAL 1H FIELDS IN DATA STATEMENT.
C
C     MINLBL = SUBSCRIPT OF LABEL ARRAY LOCATION CONTAINING
C              LEFTMOST CHARACTER.
C
C     MAXLBL = SUBSCRIPT OF LABEL ARRAY LOCATION CONTAINING
C              RIGHTMOST CHARACTER.
C
C     LINPRT = -1, THE PLOT IS NOT  TO INCLUDE ANY CARRIAGE
C              CONTROL CHARACTER AT LEFT END OF EACH LINE.
C            = 0, PLOT WILL BE VIEWED BY USER ON  TERMINAL,
C              EITHER TYPED DIRECTLY WITH IDISK BEING GIVEN
C              TERMINAL UNIT NUMBER, OR TYPED BY USER AFTER
C              THIS  ROUTINE  HAS WRITTEN PLOT INTO FILE ON
C              UNIT NUMBER OF WHICH IS CONTAINED IN  IDISK.
C              BLANK  OR  SPACE  WILL  BE  USED AS CARRIAGE
C              CONTROL CHARACTER TO GIVE SINGLE SPACING.
C            = 1, PLOT WILL BE PRINTED ON LINE  PRINTER  BY
C              USER  AFTER  PROGRAM  HAS  WRITTEN PLOT INTO
C              FILE.  ASTERISK WILL  BE  USED  AS  CARRIAGE
C              CONTROL  CHARACTER  TO  GIVE  SINGLE SPACING
C              WITH SUPPRESSION OF SKIPPING EXTRA LINES  AT
C              PAGE BOUNDARIES.
C
C     IDISK  = UNIT NUMBER OF DEVICE ONTO WHICH  PLOTS  ARE
C              TO BE WRITTEN.
C
      DIMENSION SEGMNT(MAXSEG),LETTER(MAXLTR),LABEL(MAXLBL)
      COMMON/FASPE/LTRBUF(146)
      DATA MAXBFR/146/
C
C     IHRZNT = CHARACTER FOR HORIZONTAL LINES
C     ISPACE = SPACE OF BLANK CHARACTER
C     ISTAR  = USED AS CHARIAGE CONTROL TO PREVENT EXTRA
C              LINES AT PAGE BOUNDARIES
C     IVRTCL = CHARACTER FOR VERTICAL LINES
C     IZERO  = ZERO USED UNDER CENTER LINE
C     KORNER = CHARACTER WHERE HORIZONTAL AND VERTICAL
C              LINES MEET
C
      DATA IHRZNT,IVRTCL,KORNER,ISTAR,IZERO,ISPACE/
     11H-,1H!,1H+,1H*,1H0,1H /
C
C     JGRID  = UNITS DIGIT
C     LGRID  = TENS DIGIT
C     NGRID  = HUNDREDS DIGIT
      LGRID=IGRID/10
      NGRID=IGRID/100
      JGRID=IGRID-(10*LGRID)
      LGRID=LGRID-(10*NGRID)
C
C     UNPACK INDIVIDUAL SWITCHES FROM UNITS DIGIT OF IGRID
C
C       KUNITS JUNITS IUNITS           KUNITS JUNITS IUNITS
C     0     -1      0      0         5      0      0      1
C     1     -1      0      1         6      1      1      0
C     2      0      1      0         7      1      1      1
C     3      0      1      1         8      1      0      0
C     4      0      0      0         9      1      0      1
C
C     KUNITS = -1, NEITHER RIGHT NOR INTERNAL GIRD LINES
C            = 0, RIGHT, BUT NOT INTERNAL, GRID LINES
C            = 1, BOTH RIGHT AND INTERNAL GRID LINES
C     JUNITS = 0, RULE GRID LINES WITH PLUS SIGNS
C            = 1, RULE GRID LINES WITH EXCLAMATION POINTS
C     IUNITS = 0, INSERT SPACES BETWEEN GRID LINES
C            = 1, INSERT MINUS SIGNS BETWEEN GRID LINES
C
      JUNITS=JGRID/2
      IUNITS=JGRID-(2*JUNITS)
      JUNITS=JUNITS-(2*(JUNITS/2))
C
C     ***************************************
C     *                                     *
C     *  CONSTRUCT CONTENTS OF LEFT MARGIN  *
C     *                                     *
C     ***************************************
C
C     INSERT LEFT GRID LINE AND/OR LEFT MINUS SIGN
      MAXPRT=0
      IMRGN=MARGIN
      IF(IMRGN.LT.0)IMRGN=0
      IF(IMRGN.GT.MAXBFR)IMRGN=MAXBFR
      IF(IMRGN.LE.0)GO TO 6
      JRIGHT=IMRGN
      IF(NGRID.LE.2)GO TO 1
      LTRBUF(IMRGN)=ISPACE
      JRIGHT=JRIGHT-1
      IF(NGRID.LE.4)GO TO 1
      LTRBUF(IMRGN)=IHRZNT
      MAXPRT=IMRGN
    1 IF(JRIGHT.LE.0)GO TO 6
      IF(NGRID.GT.0)GO TO 3
C
C     LINE NOT BEARING SCALE NUMBER
      DO 2 I=1,JRIGHT
    2 LTRBUF(I)=ISPACE
      GO TO 6
C
C     LINE BEARING SCALE NUMBER
    3 IF(NGRID.EQ.(2*(NGRID/2)))GO TO 4
      IF(MAXPRT.LT.JRIGHT)MAXPRT=JRIGHT
      MINSIG=JRIGHT-2
      IF(MINSIG.GT.5)MINSIG=5
      IF(MINSIG.LE.0)MINSIG=1
      CALL DARITE(YVALUE,1,0,0,1,
     1-3,0,JRIGHT,-2,7,MINSIG,5,
     20,0,4,0,0,-1,0,
     3MAXBFR,LTRBUF,I,KERR)
      GO TO 6
C
C     BAR WITH LETTERS TO ITS LEFT
    4 J=MAXLBL-JRIGHT
      IF(J.GE.MINLBL)J=MINLBL-1
      DO 5 I=1,JRIGHT
      J=J+1
      LTRBUF(I)=ISPACE
      IF(J.LT.MINLBL)GO TO 5
      IF(MAXPRT.LT.I)MAXPRT=I
      LTRBUF(I)=LABEL(J)
    5 CONTINUE
C
C     ************************************
C     *                                  *
C     *  REPRESENT DATA AS BAR SEGMENTS  *
C     *                                  *
C     ************************************
C
C     GET THE PLOT WIDTH AND MESH LINE WIDTH
    6 LSTSET=KNDBAR-(3*(KNDBAR/3))-1
      KNTLTR=IMRGN
      INCR=-1
      NWIDE=0
      IWIDE=MSHLFT
      IF(IWIDE.LE.0)IWIDE=10
      LWIDE=LNGLFT
      IF(LWIDE.LT.0)LWIDE=0
      IF(LWIDE.GT.(MAXBFR-KNTLTR))LWIDE=MAXBFR-KNTLTR
      JWIDE=IWIDE
      MWIDE=LWIDE
      IF(LWIDE.LE.0)GO TO 32
      ARIGHT=XLEFT
      KNTLTR=KNTLTR+LWIDE+1
      GO TO 8
    7 INCR=1
      IWIDE=MSHRIT
      IF(IWIDE.LE.0)IWIDE=10
      LWIDE=LNGRIT
      IF(LWIDE.LT.0)LWIDE=0
      IF(LWIDE.GT.(MAXBFR-KNTLTR))LWIDE=MAXBFR-KNTLTR
      IF(LWIDE.LE.0)GO TO 33
      ARIGHT=XRIGHT
C
C     INITIAL VALUES
    8 WIDE=LWIDE
      SCALE=WIDE/ARIGHT
      TOTAL=0.0
      COMPAR=0.0
      BIGEST=0.0
      KNTCLM=0
      IBEGIN=0
      NOWSEG=MINSEG
      IF(KNDBAR.LT.0)GO TO 9
      IF(LSTLIN.GE.0)GO TO 10
    9 NOWSEG=MAXSEG+1
   10 IF(JGRID.GT.5)GO TO 12
      IF(JGRID.GT.1)GO TO 11
      MRGLTR=LWIDE+1
      GO TO 13
   11 MRGLTR=IWIDE*(LWIDE/IWIDE)
      GO TO 13
   12 MRGLTR=0
C
C     LOOP THROUGH ALL SEGMENTS IN THE BAR
   13 NOWLTR=MINLTR
   14 LSTONE=1
      IF(NOWSEG.GT.MAXSEG)GO TO 24
      ADDING=SCALE*SEGMNT(NOWSEG)
      IF(ADDING.LE.0.0)GO TO 23
      FORMER=TOTAL
      TOTAL=TOTAL+ADDING
C
C     TEST IF PRESENT BAR IS DOMINANT AT ITS LEFT END
      FRACTN=TOTAL
      IF(FRACTN.GT.COMPAR)FRACTN=COMPAR
      FRACTN=FRACTN-FORMER
      IF(IBEGIN.EQ.0)GO TO 17
      IF(KNDBAR.LE.5)GO TO 15
      IF(TOTAL.GT.COMPAR)GO TO 18
      GO TO 16
   15 IF(FRACTN.LE.BIGEST)GO TO 17
   16 I=KNTLTR-INCR
      IF(IREPLC.NE.0)LTRBUF(I)=LETTER(JREPLC)
      IREPLC=0
      GO TO 20
C
C     INSERT LETTERS ALONG BAR
   17 IF(TOTAL.LE.COMPAR)GO TO 22
   18 FORMER=COMPAR
      COMPAR=COMPAR+1.0
      IF(IBEGIN.GE.LWIDE)GO TO 32
      IF(LSTONE.LE.0)GO TO 21
      IREPLC=0
   19 KNTLTR=KNTLTR+INCR
      IBEGIN=IBEGIN+1
      IF(MAXPRT.LT.KNTLTR)MAXPRT=KNTLTR
      IF(KNTCLM.LE.0)KNTCLM=IWIDE
      KNTCLM=KNTCLM-1
      BIGEST=0.0
   20 LTRBUF(KNTLTR)=LETTER(NOWLTR)
      LSTONE=LSTSET
      JREPLC=NOWLTR
      GO TO 17
   21 IREPLC=1
      IF(LSTONE.EQ.0)GO TO 27
      LTRBUF(KNTLTR)=ISPACE
      GO TO 19
C
C     ALL DONE WITH THIS SEGMENT OF THE BAR
   22 FRACTN=TOTAL-FORMER
      IF(BIGEST.LT.FRACTN)BIGEST=FRACTN
   23 NOWSEG=NOWSEG+1
      NOWLTR=NOWLTR+1
      IF(NOWLTR.LE.MAXLTR)GO TO 14
      GO TO 13
C
C     TEST IF FINAL CHARACTER IS TO BE ALLOWED
   24 IF(KNDBAR.LE.2)GO TO 26
      IF(KNDBAR.GT.5)GO TO 26
      IF(IBEGIN.EQ.0)GO TO 26
      IF(BIGEST.GE.(COMPAR-TOTAL))GO TO 26
      I=KNTLTR-INCR
      IF(IREPLC.NE.0)LTRBUF(I)=LETTER(JREPLC)
      GO TO 27
C
C     ******************************************
C     *                                        *
C     *  CONSTRUCT GRID LINES TO RIGHT OF BAR  *
C     *                                        *
C     ******************************************
C
   25 IF(LSTONE.EQ.0)GO TO 19
   26 IF(KNTCLM.LE.0)KNTCLM=IWIDE
      KNTCLM=KNTCLM-1
      IF(IBEGIN.GE.LWIDE)GO TO 32
      KNTLTR=KNTLTR+INCR
      IBEGIN=IBEGIN+1
   27 IF(KNTCLM.GT.0)GO TO 29
      IF(IBEGIN.LT.MRGLTR)GO TO 29
      IF(JUNITS.EQ.0)GO TO 28
      LTRBUF(KNTLTR)=IVRTCL
      GO TO 30
   28 LTRBUF(KNTLTR)=KORNER
      GO TO 30
   29 IF(IUNITS.EQ.0)GO TO 31
      LTRBUF(KNTLTR)=IHRZNT
   30 IF(MAXPRT.LT.KNTLTR)MAXPRT=KNTLTR
      GO TO 25
   31 LTRBUF(KNTLTR)=ISPACE
      GO TO 25
C
C     REVERSE DIRECTION FOR SECOND HALF
   32 IF(INCR.GT.0)GO TO 33
      KNTLTR=IMRGN+LWIDE
      IF(KNTLTR.GE.MAXBFR)GO TO 7
      IF(LGRID.LE.0)GO TO 7
      KNTLTR=KNTLTR+1
      NWIDE=1
      LTRBUF(KNTLTR)=ISPACE
      I=LGRID
      IF(I.GT.4)I=I-4
      IF(I.LE.1)GO TO 7
      MAXPRT=KNTLTR
      IF(I.EQ.2)LTRBUF(KNTLTR)=IHRZNT
      IF(I.EQ.3)LTRBUF(KNTLTR)=IVRTCL
      IF(I.GE.4)LTRBUF(KNTLTR)=KORNER
      GO TO 7
C
C     OUTPUT THE COMPLETED BAR
   33 KONTRL=ISPACE
      IF(LINPRT.GT.0)KONTRL=ISTAR
      IF(LSTLIN.LT.0)GO TO 37
      IF(LINPRT.GE.0)GO TO 34
      IF(MAXPRT.LE.0)WRITE(IDISK,35)ISPACE
      IF(MAXPRT.GT.0)WRITE(IDISK,35)(LTRBUF(I),I=1,MAXPRT)
      GO TO 36
   34 IF(MAXPRT.LE.0)WRITE(IDISK,35)KONTRL,ISPACE
      IF(MAXPRT.GT.0)WRITE(IDISK,35)KONTRL,
     1(LTRBUF(I),I=1,MAXPRT)
   35 FORMAT(147A1)
C
C     *****************************************************
C     *                                                   *
C     *  CONSTRUCT AND PRINT NUMBERS FORMING LOWER SCALE  *
C     *                                                   *
C     *****************************************************
C
C     CONSTRUCT LINE CONTAINING TICK MARKS
   36 IF(LSTLIN.GT.0)GO TO 57
   37 IFINAL=IMRGN+MWIDE+LWIDE+NWIDE
      IF(IFINAL.LE.IMRGN)GO TO 57
      DO 38 I=1,IFINAL
   38 LTRBUF(I)=ISPACE
      KNTLTR=IMRGN+MWIDE+1
      IF(NWIDE.EQ.0)GO TO 40
      IF(LGRID.LE.4)GO TO 40
   39 LTRBUF(KNTLTR)=IVRTCL
   40 KNTLTR=KNTLTR-JWIDE
      IF(KNTLTR.GT.IMRGN)GO TO 39
      KNTLTR=IMRGN+MWIDE+NWIDE
   41 KNTLTR=KNTLTR+IWIDE
      IF(KNTLTR.GT.IFINAL)GO TO 42
      LTRBUF(KNTLTR)=IVRTCL
      GO TO 41
   42 IF(LINPRT.LT.0)WRITE(IDISK,35)(LTRBUF(I),I=1,IFINAL)
      IF(LINPRT.GE.0)WRITE(IDISK,35)KONTRL,
     1(LTRBUF(I),I=1,IFINAL)
C
C     CONSTRUCT LINE CONTAINING LOWER SCALE NUMBERS
      LERR=-1
      MAXPRT=0
      IF(NWIDE.EQ.0)GO TO 43
      IF(LGRID.LE.4)GO TO 43
      MAXPRT=IMRGN+MWIDE+1
      LTRBUF(MAXPRT)=IZERO
   43 KIND=LERR
      INCR=-1
      IWIDTH=JWIDE
      KNTLTR=1
      WIDE=MWIDE
      GO TO 45
   44 INCR=1
      IWIDTH=IWIDE
      KNTLTR=NWIDE
      WIDE=LWIDE
   45 KNTLTR=KNTLTR+IWIDTH+IMRGN+MWIDE-1
      IF(IWIDTH.GT.10)IWIDTH=10
      JWIDTH=IWIDTH/2
      KNTLTR=KNTLTR-JWIDTH
      MINSIG=IWIDTH-2
      IF(MINSIG.GT.5)MINSIG=5
      IF(MINSIG.LE.0)MINSIG=1
      I=0
      NEED=KNTLTR
      GO TO 48
   46 IF(KNTLTR.LT.0)KNTLTR=0
      CALL DARITE(VALUE,0,0,KIND,1,
     1-3,0,IWIDTH,-2,-2,MINSIG,5,
     20,0,4,0,0,-1,KNTLTR,
     3MAXBFR,LTRBUF,KNTOUT,KERR)
      IF(KERR.GT.0)LERR=1
      KNTLTR=KNTOUT
      IF(KIND.LE.0)GO TO 47
      IF(KERR.EQ.0)GO TO 48
   47 IF(MAXPRT.LT.KNTLTR)MAXPRT=KNTLTR
   48 IF(INCR.GT.0)GO TO 51
      I=I+JWIDE
   49 IF(NEED.LE.KNTLTR)GO TO 50
      KNTLTR=KNTLTR+1
      LTRBUF(KNTLTR)=ISPACE
      GO TO 49
   50 IF(I.GT.MWIDE)GO TO 44
      VALUE=XLEFT*FLOAT(I)/WIDE
      KNTLTR=KNTLTR-JWIDE-JWIDE
      NEED=KNTLTR+JWIDE
      GO TO 46
   51 I=I+IWIDE
      IF(I.GT.LWIDE)GO TO 54
      VALUE=XRIGHT*(FLOAT(I)/WIDE)
   52 IF(NEED.LE.KNTLTR)GO TO 53
      KNTLTR=KNTLTR+1
      LTRBUF(KNTLTR)=ISPACE
      GO TO 52
   53 NEED=KNTLTR+IWIDE
      GO TO 46
   54 IF(MAXPRT.LE.0)GO TO 55
      IF(LINPRT.LT.0)WRITE(IDISK,35)(LTRBUF(I),I=1,MAXPRT)
      IF(LINPRT.GE.0)WRITE(IDISK,35)KONTRL,
     1(LTRBUF(I),I=1,MAXPRT)
      MAXPRT=0
   55 IF(NWIDE.EQ.0)GO TO 56
      I=IMRGN+MWIDE+1
      LTRBUF(I)=ISPACE
   56 IF(KIND.NE.LERR)GO TO 43
C
C     ALL DONE WITH THIS LINE OF THE PLOT
   57 RETURN
C922171101196!
      END