7.1.8 Writing redundancy group numbers

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

Writes a vector or redundancy group numbers to an active dump record. type (input) is a string describing the orbital type, e.g. NATORB or CANONIAL to which the group numbers refer. The input variable iset is the set number of the group 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.