File: TPERR1.FT of Tape: Various/Tests/dsk1c
(Source file text)
SUBROUTINE TPERR1(IERRDO,IERRDV,IERRDA,IERRDI,IERR) C ITERM=4 C IERR=IERR+1 GOTO(900,901,902,903,904,905,906,907,908),IERR C 900 WRITE(ITERM,2900) IERRDO,IERRDV STOP 901 WRITE(ITERM,2901) STOP 902 WRITE(ITERM,2902) IERRDO,IERRDV STOP 903 WRITE(ITERM,2903) STOP 904 WRITE(ITERM,2904) IERRDO,IERRDV STOP 905 WRITE(ITERM,2905) STOP 906 WRITE(ITERM,2906) STOP 907 WRITE(ITERM,2907) IERRDA STOP 908 WRITE(ITERM,2908) IERRDI STOP C 2900 FORMAT (1X,'BARATRON:',T16,'SUBROUTINE DOUT:',T40, $ 'IERR =',4X,I4/T27,'DVINP:',T40,'IERR =',4X,I4) 2901 FORMAT (1X,'BARATRON:',T16,'OVERFLOW IN DVM MODE') 2902 FORMAT (1X,'SrTiO3 (EXP):',T16,'SUBROUTINE DOUT:',T40, $ 'IERR =',4X,I4/T27,'DVINP:',T40,'IERR =',4X,I4) 2903 FORMAT (1X,'SrTiO3 (EXP):',T16,'OVERFLOW IN DVM MODE') 2904 FORMAT (1X,'SrTiO3 (REG):',T16,'SUBROUTINE DOUT:',T40, $ 'IERR =',4X,I4/T27,'DVINP:',T40,'IERR =',4X,I4) 2905 FORMAT (1X,'SrTiO3 (REG):',T16,'OVERFLOW IN DVM MODE') 2906 FORMAT (1X,'CHECK TEMPERATURE CONTROLLER !') 2907 FORMAT (1X,'TEMP REG:',T16,'SUBROUTINE DAC',T40, $ 'IERR =',4X,I4) 2908 FORMAT (1X,'SUBROUTINE DINP:',T40,'IERR =',4X,I4) C END