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

(Source file text) 

---

     	SUBROUTINE OUTA1
	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
	ITERM=4
	IPARA=5
	IFILE=6
C
	READ(IPARA,3000) (FNAME(I),I=1,6),MOTODI,IRUN
	READ(IPARA,3001) SPL,SPA,SPV,HANG,VAPRE
	READ(IPARA,3002) NP,HHI,HLO,DRHE3,PREC
	READ(IPARA,3003) VIND,IMIN,ISEC
	IF(MOTODI.EQ.68.OR.MOTODI.EQ.84) READ(IPARA,3004)
     $	PS(1),PT(1),PF(1),CALI(1),SIG
	IF(MOTODI.EQ.77) READ(IPARA,3004) PS(1),PT(1),PF(1),CALI(1)
	IF(MOTODI.EQ.68) READ(IPARA,3004) PS(2),PT(2),PF(2),CALI(2)
	DRH=DRHE3*1.E-3
	DELDRH=DRH*PREC/100.
C
	IERR=-1
	CALL USR3(IFILE,FNAME,3,IERR)
	IF(IERR.LT.0) GOTO 900
C
	WRITE(IFILE,3005) FNAME(3),FNAME(4),IRUN
	WRITE(IFILE,3006) NP
C
	RETURN
C
900	IERR=-IERR
	WRITE(ITERM,2900) IERR
	STOP
C
2900	FORMAT	(1X,'SUBROUTINE USR3:',T40,'IERR =',4X,I4)
C
3000	FORMAT	(6A3,2X,2I10)
3001	FORMAT	(4E15.6,14X,L1)
3002	FORMAT	(10X,I5,4E15.6)
3003	FORMAT	(E15.6,10X,I5,10X,I5)
3004	FORMAT	(5E15.6)
3005	FORMAT	(2A3,I4)
3006	FORMAT	(I6)
C
	END



---