C   **PROGRAM TO CALCULATE % VITAL CAPACITY
C	AT MAXIMUM CLOSE SHUTTER PRESSURE.
C
C	LOCATES THE ABSOLUTE VOLUME MINIMUM, AND
C	THE FOLLOWING ABSOLUTE MAXIMUM AND ABSOLUTE
C	MINIMUM PRESSURE, AND THE CORRESPONDING
C	VOLUME READINGS.
C
C
C	BLOCK DATA IN FILE RKB0:PF6605.DT
C
C	CALLS SUBROUTINES MCTRNS.RL,AND PFTRNS.RA
C
C	FIRST 260 WORDS OF THE COMMON BLOCK: 
C	VOLUME,FLOW,PRESSURE,V,Q,P.....1365 PARAMETERS.
C
C	FILE NAME* PFSVC.AS
	COMMON A(411),D(90),MANU,BLNO
	DIMENSION LIN(56)
1	WRITE(4,99)
99	FORMAT(' NAME       DEPTH  GAS      DATE')
	READ(4,98)LIN
98	FORMAT(56A1)
	WRITE(4,100)
100	FORMAT(' MANU (I2): '$)
	READ(4,101)MANU
	IF(MANU.LT.0)STOP
101	FORMAT(I2)
	WRITE(4,300)
300	FORMAT(' P SCALE FACTOR:'$)
	READ(4,201)PSF
	SF=0.0111
	WRITE(4,200)SF
200	FORMAT(' V SCALE FACTOR:'F6.4)
201	FORMAT(E11.4)
	WRITE(4,500)
	READ(4,201)SVC
500	FORMAT(' SLOW VITAL CAPACITY: '$)
	VMIN= 99999.
	VMAX=-99999.
	PMIN=99999.
	PMAX=-99999.
	DO 1000 IB=1,16
	BLNO=IB
	CALL TRANS
	DO 1000 J=1,85
	JV=3*J-2
	JP=JV+2
	IF(VMIN.GT.A(JV))VMIN=A(JV)
	IF(PMIN.GT.A(JP))JMIN=JP
	IF(PMIN.GT.A(JP))JBMIN=IB
	IF(PMIN.GT.A(JP))PMIN=A(JP)
1000	CONTINUE
	IF(PMIN.LE.-511..OR.VMIN.LE.-511.)WRITE(4,701)
	DO 2000 IB=JBMIN,16
	BLNO=IB
	CALL TRANS
	DO 2000 J=1,85
	JP=3*J
	IF(PMAX.GE.A(JP))GO TO 2000
	JMAX=JP
	JBMAX=IB
	PMAX=A(JP)
2000	CONTINUE
	IF(PMAX.GE.511.)WRITE(4,601)
	PMIN=PMIN*PSF
	PMAX=PMAX*PSF
	WRITE(4,800)PMAX,PMIN
800	FORMAT(1X///,20X,'   PMAX         PMIN'/,20X,2E13.4/)
	BLNO=JBMIN
	CALL TRANS
	P1VC=A(JMIN-2)
	BLNO=JBMAX
	CALL TRANS
	P2VC=A(JMAX-2)
	P1VC=(SVC-(P1VC-VMIN)*SF)/SVC*100.
	P2VC=(SVC-(P2VC-VMIN)*SF)/SVC*100.
	WRITE(4,400)P2VC,P1VC
400	FORMAT(20X,'AT PMAX        AT PMIN'/,' % VITAL CAPACITY:',
     1 F9.2,F13.2///)
	GO TO 1
601	FORMAT(' POSITIVE OVERFLOW.'///)
701	FORMAT(' NEGATIVE OVERFLOW.'///)
	STOP
	END