c-----------------------------------------------------------------------
subroutine read_grp(grp,iset)
c-----------------------------------------------------------------------
implicit double precision (a-h,o-z)
dimension grp(*)
Reads redundancy group numbers (vector, length = ntg) from an active dump record.
iset (input) is the set number of the group numbers.
2cm