7.1.7 Writing occupation numbers

c-----------------------------------------------------------------------
      subroutine write_occ(occ,iset,type)
c-----------------------------------------------------------------------
      implicit double precision (a-h,o-z)
      character*(*) type
      dimension occ(*)

Writes a vector of occpuation numbers to an active dump record. type (input) is a string describing the orbital type, e.g. NATORB or CANONIAL to which the occupation numbers refer. The input variable iset is the set number of the occupation numbers. If iset exists, it is overwritten, otherwise a new set is created. if iset.eq.0, a new set is created. iset is not modified, but the actual set number used is stored in variable dump_iset.