File: OUTB1.FT of Disk: Disks/MyPDP/m8-1-rka1-rkb1
(Source file text)
SUBROUTINE OUTB1 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,YES C ITERM=4 IFILE=6 C IVAR=20 DI=0. TO=1. SHIFT=.0 PERMAS=.0 IF(MOTODI.NE.68) WRITE(IFILE,3000) IVAR,DRHE3,HANG,HHI,HLO, $ PF(1),PS(1),PT(1),TO, $ TMEAN,TVAR,SHIFT,PERMAS,CALI(1), $ SPL,SPV,PM,PV,TM,TV,SHIFT IF(MOTODI.EQ.68) WRITE(IFILE,3001) IVAR,DRHE3,HANG,HHI,HLO, $ PF(1),PF(2),PS(1),PS(2),PT(1),PT(2),TO,DI, $ TMEAN,TVAR,SHIFT,PERMAS,CALI(1),CALI(2), $ SPL,SPV,PM,PV,TM,TV,SHIFT C ENDFILE IFILE IERR=0 CALL USR3(IFILE,FNAME,4,IERR) IF(IERR.NE.0) GOTO 900 C WRITE(ITERM,2000) FNAME(3),FNAME(4) C RETURN C 900 IERR=-IERR WRITE(ITERM,2900) IERR STOP C 2000 FORMAT (/1X,2A3,61('-'),T70,'FINISHED') C 2900 FORMAT (1X,'SUBROUTINE USR3:',T40,'IERR =',4X,I4) C 3000 FORMAT (I2,20(/E13.6)) 3001 FORMAT (I2,4(/E13.6),4(/E13.6,1X,E13.6),4(/E13.6)/ $ E13.6,1X,E13.6,7(/E13.6)) C END