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

(Source file text) 

---

	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
	CALL INIT1
	CALL TEMP1
	CALL MEAS1
	CALL OUT1
C
	END

---