File: OUT2.FT of Tape: Sources/Multi8/m8-mprog-f

(Source file text) 

---

     	SUBROUTINE OUT1
	COMMON/TITLE/ADENT,DITOMO,IRUN,ICHAR
	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/PM,PV,TM,TV,TSET,DELTP,DELTI
C
	LOGICAL YES
C
	ITERM=4
	IFILE=6
C
	TV=SQRT(TV/FLOAT(NP-1))
	PV=SQRT(PV/FLOAT(NP-1))
	WRITE(ITERM,2000)
	WRITE(ITERM,2001) TM,TV
	WRITE(ITERM,2002) PM,PV
100	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
	WRITE(ITERM,2009) ADENT,DITOMO,IRUN
C
	IVAR=20
	DITO=1.
	SHIFT=.0
	PERMAS=.0
	WRITE(IFILE,3000) IVAR,DRHE3,HANG,HHI,HLO,
     $	PF(2),PS(2),PT(2),DITO,
     $	TMEAN,TVAR,SHIFT,PERMAS,CALI(2),
     $	SPL,SPV,PM,PV,TM,PV,SHIFT
C
	RETURN
1000	FORMAT	(F8.4)
1001	FORMAT	(A1)

2000	FORMAT	(/1X,'SAMPLE TEMPERATURE:')
2001	FORMAT	(T5,'SrTiO3',T40,'TM   =',F8.4,' [V]'/
     $		T40,'TV   =+-',F6.4,' [V]')
2002	FORMAT	(/T5,'BARATRON',T40,'PM   =',F8.4,' [Torr]'/
     $		T40,'PV   =+-',F6.4,' [Torr]')
2003	FORMAT	(T8,'INTERPOLATION p(T):'/T11,'T1 [K]:',T70,$)
2004	FORMAT	(T11,'p1 [Torr]:',T70,$)
2005	FORMAT	(T11,'T2 [K]:',T70,$)
2006	FORMAT	(T11,'p2 [Torr]:',T70,$)
2007	FORMAT	(/T5,'BARATRON',T40,'TMEAN=',F8.4,' [K]'/
     $		T40,'TVAR =+-',F6.4,' [K]')
2008	FORMAT	(/1X,'SAMPLE TEMPERATURE OK ? (T OR F)',T70,$)
2009	FORMAT	(/1X,A3,A1,I2,61('-'),T70,'FINISHED')

3000	FORMAT	(I2,20(/E13.6))
C
	END

---