c
c Print out GEANT SET and DETector information
c
c 30/07/99 R. Holzmann
      subroutine hadpgsets
      implicit none
      integer*4 lset, ldet
      character*10 set, det

      call kugetc(set,lset)
      call kugetc(det,ldet)
      call gpsets(set(1:min(4,lset)),det(1:min(4,ldet)))  ! print the info
      return
      end