SUBROUTINE PRNTPL (CNT,ARR) C SUBROUTINE IS CALLED BY SCMPUT AND PLOTS N POINTS ONTO THE PRINTER INTEGER CNT,ARR(CNT) C ARR HOLDS CNT POINTS TO BE PLOTTED ONTO THE PRINTER C C INTEGER NCOND EXTERNAL NCOND INTEGER TMAX,I,J,LIN(20),CHAR,FACTR,T C C CALL MOVE (-20,1H ,LIN) TMAX=0 DO 10 I=1,CNT 10 TMAX=MAX0(ARR(I),TMAX) IF (TMAX.GT.200) RETURN FACTR=NCOND(TMAX.GE.100,10,TMAX.GE.50,5,TMAX.GT.25,2,1) CHAR=NCOND(FACTR.EQ.10,1H*,FACTR.EQ.5,1H+,FACTR.EQ.2,1H#,1H$) DO 20 I=0,TMAX,FACTR T=(TMAX-I+FACTR/2)/FACTR DO 25 J=1,CNT 25 LIN(J)=NCOND((ARR(J)+FACTR/2)/FACTR.EQ.T,CHAR,1H ) 20 WRITE (3,1) T,(LIN(J),J=1,CNT) WRITE (3,2) RETURN 1 FORMAT (I7,' -:',20A5) 2 FORMAT (11X,'0 10 20 30 40 50 60 70',3X, * '80 90 100 110 120 130 140 150 160 170') END