File: OUTB1.FT of Disk: Disks/MyPDP/m8-backup-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

---