File: TORQT.FT of Tape: Test/Tests/Blank-Tape-Unit1
(Source file text)
C MAIN TORQT 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 MEAST CALL OUTB1 C END