sw/rescue/lab8e_goettingen/disk2_11/rkb/paroff/haeprn.ft

   1         SUBROUTINE PRNTPL (CNT,ARR)
   2 C       SUBROUTINE IS CALLED BY SCMPUT AND PLOTS N POINTS ONTO THE PRINTER
   3         INTEGER CNT,ARR(CNT)
   4 C       ARR HOLDS CNT POINTS TO BE PLOTTED ONTO THE PRINTER
   5 C
   6 C
   7         INTEGER NCOND
   8         EXTERNAL NCOND
   9         INTEGER TMAX,I,J,LIN(20),CHAR,FACTR,T
  10 C
  11 C
  12         CALL MOVE (-20,1H ,LIN)
  13         TMAX=0
  14         DO 10 I=1,CNT
  15 10      TMAX=MAX0(ARR(I),TMAX)
  16         IF (TMAX.GT.200) RETURN
  17         FACTR=NCOND(TMAX.GE.100,10,TMAX.GE.50,5,TMAX.GT.25,2,1)
  18         CHAR=NCOND(FACTR.EQ.10,1H*,FACTR.EQ.5,1H+,FACTR.EQ.2,1H#,1H$)
  19         DO 20 I=0,TMAX,FACTR
  20         T=(TMAX-I+FACTR/2)/FACTR
  21         DO 25 J=1,CNT
  22 25      LIN(J)=NCOND((ARR(J)+FACTR/2)/FACTR.EQ.T,CHAR,1H )
  23 20      WRITE (3,1) T,(LIN(J),J=1,CNT)
  24         WRITE (3,2)
  25         RETURN
  26 1       FORMAT (I7,'  -:',20A5)
  27 2       FORMAT (11X,'0    10   20   30   40   50   60   70',3X,
  28      *  '80   90   100  110  120  130  140  150  160  170')
  29         END
  30 \1a