SUBROUTINE POUT(IS) BYTE ITT,IDATE(20) CHARACTER IA(24) COMMON /SCRAT/A,IA,C,IDATE,ALO,AHI,ISTAT DATA IY0,IYS/672,28/ DATA ITT/0/ JTST = 10 CALL SCTEST(ITERM) ! ITERM=0 IF NOT GRAPHICS term. CALL ERASE ! ERASE SCREEN IX = 350 IY = IY0 ENCODE(24,1003,IA) IS ! Page number IF(ITERM .ne. 0) THEN ! Plots ? CALL PLCHAR(IX,IY,IA,24) ! Plot page number ELSE WRITE(5,1002) WRITE(5,1001) ITT,IA ENDIF IY = IY - IYS DO 10 J = 1,20 10 IDATE(J) = ' ' CALL DATE(IDATE) CALL TIME(IDATE(11)) IF(iterm .NE. 0) then CALL PLCHAR(IX,IY,%DESCR(IDATE),20) ! WRITE DATE ON SCREEN else write(5,1001) ITT,IDATE ! Write date now WRITE(5,1002) ! And end line ENDIF ISTAT = 0 20 CONTINUE CALL PSCAN(ISTAT,A,C,ISKP,ILIM,CLO,CHI) ! GET A PARAMETER IF(ISTAT .EQ. 0) GO TO 900 d1059 FORMAT(4O10) I = IAND("17, ISHFT(ISTAT,-8) ) ! Get the page number d WRITE(5,1059) ISKP,ISTAT,ILIM,I IF(I .NE. IS) GO TO 20 ! Incorrect page ? ENCODE(24,1000,IA)A,C ! ENCODE TEXT TO WRITE IF(IAND(ISTAT,"10000) .NE. 0) IA(7) = '*' ! '*' IF INPUT PARAM IF(IAND(ILIM,1) .NE. 0 .AND. C .LT. CLO) IA(8)='<' ! If too small IF(IAND(ILIM,2) .NE. 0 .AND. C .GT. CHI) IA(8)='>' ! If too big IY = IY - IYS IY = IY - IYS*ISKP ! Skip required lines IF(IY .GT. 0) GO TO 40 IX = IX + 350 IY = IY0 + IY IF(IX .GT. 1023) IX = 0 40 CALL PLCHAR(IX,IY,IA,24) ! WRITE IT ON GRAPHICS TERMINAL IF(ITERM .NE. 0)GO TO 20 ! IF IT IS GRAPHICS TERMINAL CONTINUE JTST = JTST + 1 IF(JTST .LE. 2) GO TO 50 WRITE(5,1002) JTST = 0 50 WRITE(5,1001)ITT,(IA(J),J=1,24) ! WRITE ON NORMAL TERMINAL GO TO 20 ! NEXT PARAMETER 1000 FORMAT(A4' = ',1P,G14.7 ) 1001 FORMAT(25A1) 1002 FORMAT(1X) 1003 FORMAT(' Page'I3' *=Input param ') 900 CONTINUE ! ENABLE CHECKPOINTING IF(ITERM .EQ. 0) WRITE(5,1002) END