Cc DATA » USED IN RAMP FUNCTION, TO TURN ON WAVE MAIN 
READ (5510)START sRISE MAIN 
Cc MAIN 
30 FORMAT (8F 19.4) MAIN 
C# * # © # @ # » WRITE OUT THE INPUT VALUES MAIN 
WRITE (6019) START»RISE KAR MAIN 
19 FORMAT (" START = "FIO 04% 9/5" RISE = "oF100% 9/9" KAR = "oFLOMAIN 
04) MAIN 
Cc MAIN 
Cc TME IS THE TIME AT WHICH THE INTEGRATION INTERVAL IS MAIN 
c TO KE CHANGED MAIN 
c HMX IS THE NEW MAXIMUM INTERVAL SIZE AFTER TIME TME MAIN 
c HMN IS THE NEW MINIMUM INTERVAL SIZE FOR KUTMER TO SUB-DIVIDE MAIN 
Cc THE MAXIMUM INTERVAL UP TO MAIN 
Cc IF THIS OPTION IS NOT USED SET TME TO THE STOP TIME OF THE RUN MAIN 
Cc MAIN 
READ (5510) TME »HMX»HMN MAIN 
WRITE (6911) TME »HMAX »HMX 9 HMINoHMN MAIN 
ll FORMAT(® AT TIME #9F7.29% THE MAXIMUM INTERVAL SIZE FOR INTEGRATIMAIN 
#ON WILL BE CHANGED FROM oF 10049% TO @9Fl0.49/5 MAIN 
#@ AND THE MINIMUM SIZE FOR HALVING CHANGES FROM #5F10,4, MAIN 
# ® TO oF 10.4) MAIN 
C ADJUST THE TIME FOR CHANGE OF INTEGRATION INTERVAL MAIN 
Cc FOR CHECK AGAINST TIME IN THE INTEGARTION LOOP MAIN 
T™ = TME-(HMAX/2.) MAIN 
Cc SET SWITCH FOR CALCULATION UF PITCH AND HEAVE RATIOES MAIN 
Cc ON NEXT CALL TO PLOTER MAIN 
IPT = 0 MAIN 
IF (TME.EQ.XE) IPT = 1 MAIN 
Cc MAIN 
READ(5,10) PERCNT MAIN 
XACCL = ECG=PERCNT#BL MAIN 
WRITE (6912) PERCNT»XACCL MAIN 
12 FORMAT(*® THE x USED FOR THE BOw AND CG ACCELERATION COMPUTATIONS MAIN 
oIS EQUAL TO ECG-*sF10.497H*BL OR 0F10.4) MAIN 
C MAIN 
WRITE (6023) MAIN 
WRITE (6947) MAIN 
23 FORMAT(1H ,//) MAIN 
47 FORMAT (" STATION NO. 53Xo"DEAD RISE" 9 BX o"EST"58X 9 "NOM"s MAIN 
# 1OX»"BEAM") MAIN 
WRITE (6955) ((I1sBETASEST (I) »NO(T) 9BM( 1) ) 9 T=) 9 NUM) MAIN 
55 FORMAT (OXoT20SX oF 10049 4XoF1004%94X9F 10040 3KX0F 1004) MAIN 
WRITE (6923) MAIN 
WRITE (6956) (X(I) oI=196) MAIN 
56 FORMAT(" X VALUES" 54X96(F10,492X)) MAIN 
Cc # # # # # @ @ # CHANGE INPUT FROM DEGREES TO RADIANS MAIN 
X(3) = X(3)#RPD MAIN 
X(6) = X(6)#RPD MAIN 
c MAIN 
WAVE = STA2T+¢RISE MAIN 
NWAVE = 0 MAIN 
C# # # # #@ # # & WRITE OUT COMPUTED ARRAYS MAIN 
WRITE (6957)Mo IT 9K oC oPHALF oP I »GRAVTY MAIN 
IF (NPRINT.LT.%) GO TO 62 MAIN 
WRITE (6958) (E (1) oT=1yNUM) MAIN 
WRITE (6559) (N(I) oI=1 9NUM) MAIN 
WRITE (6064) (MMAX(I) » I=] 9NUM) MAIN 
WRITE (6065) (TEST(I) 9 I=) 9NUM) MAIN 
51 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
11S 
116 
117 
118 
119 
