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