c----------------------------------------------------------------------- subroutine read_occ(occ,iset) c----------------------------------------------------------------------- implicit double precision (a-h,o-z) dimension occ(*)Reads occupation numbers (vector, length = ntg) from an active dump record. iset (input) is the set number of the occupation numbers