<div id='wikitext'>
<pre><b> File: MSERR1.FT of Tape: Test/Tests/Blank-Tape-Unit1</b></pre>
<pre><b>(Source file text) </b></pre>
<hr />
<pre>
	SUBROUTINE MSERR1(IERRDO,IERRSC,IERRDV,IERRDA,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,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,&#039;TORQUE:&#039;,T16,&#039;SUBROUTINE DOUT:&#039;,T40,
     $		&#039;IERR =&#039;,4X,I4/T27,&#039;SCINP:&#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;SUBROUTINE DOUT:&#039;,T40,
     $		&#039;IERR =&#039;,4X,I4/T27,&#039;DVINP:&#039;,T40,&#039;IERR =&#039;,4X,I4)
2902	FORMAT	(1X,&#039;BARATRON:&#039;,T16,&#039;OVERFLOW IN DVM MODE&#039;)
2903	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)
2904	FORMAT	(1X,&#039;SrTiO3 (EXP):&#039;,T16,&#039;OVERFLOW IN DVM MODE&#039;)
2905	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)
2906	FORMAT	(1X,&#039;SrTiO3 (REG):&#039;,T16,&#039;OVERFLOW IN DVM MODE&#039;)
2907	FORMAT	(1X,&#039;CHECK TEMPERATURE CONTROLLER !&#039;)
2908	FORMAT	(1X,&#039;TEMP REG:&#039;,T16,&#039;SUBROUTINE DAC&#039;,T40,
     $		&#039;IERR =&#039;,4X,I4)
C
	END

</pre>
<hr/>
</div>