- 225 



L0W(Klo+1) = 900. 

 HIGH(Kh1+1) = 900. 

 LOSTOP = O 

 HISTOP = 



WRITE(4,875) N6AGE 



WRITE(4,890) Klo.Khi , Avg.Dev.Lol Im.Hi 1 im 



WRITE(4.900) 



400 

 410 



GO TO 400 

 DO 400 1=1 ,N 



IF(LOW( 1 ) .eq.900. ) L0ST0P=1 

 IF(HIGH( 1) .eq.900. ) HIST0P=1 

 IF(L0ST0P.eq.O .and. HISTOP. eq.O) 



WRITE(4,901) LOW( i ).HIGH( i ) 

 IF(LOSTOP.eq. 1 .and. HISTOP. eq.O) 



WRITE(4.902) HIGH( 1 ) 

 I F( LOSTOP. eq.O .and. HISTOP.eq.1) 



WRITE(4,903) LOW( 1 ) 

 IF(L0ST0P.eq. 1 and. HISTOP.eq.1) 

 GO TO 410 

 Cont inue 

 CONTINUE 



C Aver'age 2 adjacent points to halve the record size. 

 N2 = N/2 

 DO 480 1=1 .N2 

 J=I*2-1 



X(1) = (X(j)+X( j+1))/2.0 

 480 CONTINUE 



C Re-calculate mean. 



405 SUM =0.0 



DO 440 1=1 ,N2 

 140 SUM = X( 1 ) + SUM 



AVG = SUM/N2 



C Subtract mean from record and convert from volts 

 C to PSI. Divide diff records by distance between 

 C sensing points to give pressure differential 

 C per length of arm. 



DO 450 1=1 ,N 



IF(NGAGE.ne.5) X(i) = ( ( X( i )-AVG)/5 . 0)/DXINCH 

 IF(NGAGE.eq.5) X(i) = (X(i)-avg) * 10.0 

 450 Continue 



875 Format(/, lOx, 'GAUGE NUMBER', 12) 



890 Format(1G,' LOW truncat Ions ; ' . 16 



1 4x. 'Mean=' .f6.3. ' S .Dev= ' . f 8 . 5. ' 



2 f6.3,' Upper L 1ml t= ' . f 6 . 3 ) 



900 Format(4x. 'LOW ,7)<, 'HIGH' ) 



901 Format(F8.2.F10.2) 



902 Format(8x,F10.2) 



903 Format (F8. 2) 



HIGH truncations',/. 

 Lower Limi t= ' , 



Return 

 End 



