1 SUBROUTINE INITZ2 2C 3C REINITIALIZE ARRAYS FOR FLAP ROUTINES 4C 5 COMMON /CONSNT/ PI,DEG,UNUSED,RAD 6 COMMON /POWR/ SPR(59),FLA(45),FLP(189),TRM(22) 7 COMMON /SUPDW/ FHG(35),TCD(58) 8 COMMON /SUPWH/ FCM(282) 9 COMMON /IBODY/ PB, BODY(400) 10 COMMON /IWING/ PW, WING(400) 11 COMMON /IHT/ PH, HT(380) 12 COMMON /IVT/ PV, VT(380) 13 COMMON /IVF/ PF, VF(380) 14C 15 DIMENSION PWW(315),DW(93) 16 EQUIVALENCE (PWW(1),SPR(1)), (DW(1),FHG(1)) 17C 18 DO 1000 I=1,315 19 PWW(I) = UNUSED 20 IF(I .GT. 282) GO TO 1000 21 FCM(I) = UNUSED 22 IF(I .GT. 93) GO TO 1000 23 DW(I) = UNUSED 24 1000 CONTINUE 25 DO 1010 I=1,200 26 BODY(I+200) = UNUSED 27 WING(I+200) = UNUSED 28 IF(I .GT. 180) GO TO 1010 29 HT(I+200) = UNUSED 30 VF(I+200) = UNUSED 31 VF(I+200) = UNUSED 32 1010 CONTINUE 33 RETURN 34 END 35