1      SUBROUTINE INIZ
2C
3C  INITIZE FOR REUSE OF THE COMMON BLOCKS
4C
5      COMMON /CONSNT/PI,DEG,UNUSED,RAD
6      COMMON /IBWH/  PBWH, X(47)
7      COMMON /IBWHV/ PBWHV, Y(7)
8      COMMON /IBH/   PBH, Z(144)
9      DO 1000 I=1,144
10         Z(I)=UNUSED
11         IF(I.GT.47) GO TO 1000
12         X(I)=UNUSED
13         IF(I.GT.7) GO TO 1000
14         Y(I)=UNUSED
15 1000 CONTINUE
16      RETURN
17      END
18