C  ------------------------------------- SET I/O UNITS FOR PRIME ------ <--
      CALL UPRIMO                                                       <--
C  -------------------------------------------------------------------- <--