CIPRIME CNUNIT                                                          CNUNIT      1
      COMMON /UNITX/ IU3,IU4,IU6,IU7,IU8,IU11,IU12,IU15,IU16,IU17,IU18  CNUNIT      2
     &,IU21,IU26,IU27,IU31,IU33,IU35,IU36,IU50,IU51,IU52,IU53,IU54      CNUNIT      3
     &,IU55,IU56,IU57,IU58,IU59,IU60,IU61,IUHK                          CNUNIT      4
