File: TORQ1.FT of Disk: Disks/MyPDP/m8-1-rka1-rkb1

(Source file text) 

---

C	MAIN TORQ1
	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,VAPRE
C
	LOGICAL VAPRE
C
	CALL OUTA1
	CALL TEMPA1
	CALL MEAS1
	CALL TEMPB1
	CALL OUTB1
C
	END

---