<div id='wikitext'>
<pre><b> File: TPERR1.FT of Disk: Disks/MyPDP/m8-backup-rka1-rkb1</b></pre>
<pre><b>(Source file text) </b></pre>
<hr />
<pre>
      	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,&#039;BARATRON:&#039;,T16,&#039;SUBROUTINE DOUT:&#039;,T40,
     $		&#039;IERR =&#039;,4X,I4/T27,&#039;DVINP:&#039;,T40,&#039;IERR =&#039;,4X,I4)
2901	FORMAT	(1X,&#039;BARATRON:&#039;,T16,&#039;OVERFLOW IN DVM MODE&#039;)
2902	FORMAT	(1X,&#039;SrTiO3 (EXP):&#039;,T16,&#039;SUBROUTINE DOUT:&#039;,T40,
     $		&#039;IERR =&#039;,4X,I4/T27,&#039;DVINP:&#039;,T40,&#039;IERR =&#039;,4X,I4)
2903	FORMAT	(1X,&#039;SrTiO3 (EXP):&#039;,T16,&#039;OVERFLOW IN DVM MODE&#039;)
2904	FORMAT	(1X,&#039;SrTiO3 (REG):&#039;,T16,&#039;SUBROUTINE DOUT:&#039;,T40,
     $		&#039;IERR =&#039;,4X,I4/T27,&#039;DVINP:&#039;,T40,&#039;IERR =&#039;,4X,I4)
2905	FORMAT	(1X,&#039;SrTiO3 (REG):&#039;,T16,&#039;OVERFLOW IN DVM MODE&#039;)
2906	FORMAT	(1X,&#039;CHECK TEMPERATURE CONTROLLER !&#039;)
2907	FORMAT	(1X,&#039;TEMP REG:&#039;,T16,&#039;SUBROUTINE DAC&#039;,T40,
     $		&#039;IERR =&#039;,4X,I4)
2908	FORMAT	(1X,&#039;SUBROUTINE DINP:&#039;,T40,&#039;IERR =&#039;,4X,I4)

C
	END

</pre>
<hr/>
</div>