<div id='wikitext'>
<pre><b> File: TEMPB1.FT of Tape: Sources/Multi8/m8-mprog-f</b></pre>
<pre><b>(Source file text) </b></pre>
<hr />
<pre>
	SUBROUTINE TEMPB1
	COMMON/TITLE/FNAME(6),MOTODI,IRUN
	COMMON/SAMPLE/SPL,SPA,SPV,HANG
	COMMON/FIELD/NP,HHI,HLO,DRHE3,DRH,DELDRH,VIND,IMIN,ISEC
	COMMON/PARAM/PS(2),PT(2),PF(2),CALI(2)
	COMMON/TEMP/TMEAN,TVAR,PM,PV,TM,TV,TSET,DELTP,DELTI
C
	LOGICAL YES
C
	ITERM=4
C
	TV=SQRT(TV/FLOAT(NP-1))
	PV=SQRT(PV/FLOAT(NP-1))
100	WRITE(ITERM,2000)
	WRITE(ITERM,2001) TM,TV
	WRITE(ITERM,2002) PM,PV
	WRITE(ITERM,2003)
	READ(ITERM,1000) T1
	WRITE(ITERM,2004)
	READ(ITERM,1000) P1
	WRITE(ITERM,2005)
	READ(ITERM,1000) T2
	WRITE(ITERM,2006)
	READ(ITERM,1000) P2
	TP=(T2-T1)/(P2-P1)
	TMEAN=T1+(PM-P1)*TP
	TVAR=PV*TP
	WRITE(ITERM,2007) TMEAN,TVAR
	WRITE(ITERM,2008)
	READ(ITERM,1001) YES
	IF(.NOT.YES) GOTO 100
C
	RETURN
C
1000	FORMAT	(F8.4)
1001	FORMAT	(L1)
C
2000	FORMAT	(/1X,&#039;SAMPLE TEMPERATURE:&#039;)
2001	FORMAT	(T5,&#039;SrTiO3&#039;,T40,&#039;TM   =&#039;,F8.4,&#039; [V]&#039;/
     $		T40,&#039;TV   =+-&#039;,F6.4,&#039; [V]&#039;)
2002	FORMAT	(/T5,&#039;BARATRON&#039;,T40,&#039;PM   =&#039;,F8.4,&#039; [Torr]&#039;/
     $		T40,&#039;PV   =+-&#039;,F6.4,&#039; [Torr]&#039;)
2003	FORMAT	(T8,&#039;INTERPOLATION p(T):&#039;/T11,&#039;T1 [K]:&#039;,T70,$)
2004	FORMAT	(T11,&#039;p1 [Torr]:&#039;,T70,$)
2005	FORMAT	(T11,&#039;T2 [K]:&#039;,T70,$)
2006	FORMAT	(T11,&#039;p2 [Torr]:&#039;,T70,$)
2007	FORMAT	(/T5,&#039;BARATRON&#039;,T40,&#039;TMEAN=&#039;,F8.4,&#039; [K]&#039;/
     $		T40,&#039;TVAR =+-&#039;,F6.4,&#039; [K]&#039;)
2008	FORMAT	(/1X,&#039;SAMPLE TEMPERATURE OK ? (T OR F)&#039;,T70,$)
C
	END

</pre>
<hr/>
</div>