File: MSERR1.FT of Disk: Disks/MyPDP/m8-1-rka1-rkb1
(Source file text)
SUBROUTINE MSERR1(IERRDO,IERRSC,IERRDV,IERRDA,IERR,ITMD) C ITERM=4 C IERR=IERR+1 GOTO(900,901,902,903,904,905,906,907,908),IERR C 900 IF(ITMD.EQ.0) WRITE(ITERM,2909) IF(ITMD.EQ.1) WRITE(ITERM,2910) WRITE(ITERM,2900) IERRDO,IERRSC,IERRDV STOP 901 WRITE(ITERM,2901) IERRDO,IERRDV STOP 902 WRITE(ITERM,2902) STOP 903 WRITE(ITERM,2903) IERRDO,IERRDV STOP 904 WRITE(ITERM,2904) STOP 905 WRITE(ITERM,2905) IERRDO,IERRDV STOP 906 WRITE(ITERM,2906) STOP 907 WRITE(ITERM,2907) STOP 908 WRITE(ITERM,2908) IERRDA STOP C 2900 FORMAT (1X,'TORQUE:',T16,'SUBROUTINE DOUT:',T40, $ 'IERR =',4X,I4/T27,'SCINP:',T40,'IERR =',4X,I4/ $ T27,'DVINP:',T40,'IERR =',4X,I4) 2901 FORMAT (1X,'BARATRON:',T16,'SUBROUTINE DOUT:',T40, $ 'IERR =',4X,I4/T27,'DVINP:',T40,'IERR =',4X,I4) 2902 FORMAT (1X,'BARATRON:',T16,'OVERFLOW IN DVM MODE') 2903 FORMAT (1X,'SrTiO3 (EXP):',T16,'SUBROUTINE DOUT:',T40, $ 'IERR =',4X,I4/T27,'DVINP:',T40,'IERR =',4X,I4) 2904 FORMAT (1X,'SrTiO3 (EXP):',T16,'OVERFLOW IN DVM MODE') 2905 FORMAT (1X,'SrTiO3 (REG):',T16,'SUBROUTINE DOUT:',T40, $ 'IERR =',4X,I4/T27,'DVINP:',T40,'IERR =',4X,I4) 2906 FORMAT (1X,'SrTiO3 (REG):',T16,'OVERFLOW IN DVM MODE') 2907 FORMAT (1X,'CHECK TEMPERATURE CONTROLLER !') 2908 FORMAT (1X,'TEMP REG:',T16,'SUBROUTINE DAC',T40, $ 'IERR =',4X,I4) 2909 FORMAT (1X,'TORQUE OR MODULATION:') 2910 FORMAT (1X,'DILATION:') C END