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