C LAST UPDATE: 
C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C
C**************************
C**     LFN_UNQ_RESET    **
C**************************
C
CD-Routine: Re-initialise Unique Reflections Counts - LFN_UNQ_RESET
C This subroutine is used to re-initialise all the counts flags in the
C unique reflections list as generated by LFN_UNQ_GEN.
CD-end
CD-Fortran:
      SUBROUTINE LFN_UNQ_RESET
CD-end
      INCLUDE 'implicit_none.finc'
C
C Purpose: Re-initialise all the counts flags in the unique reflections list
C
C Author:  John W. Campbell, September 1993
C
C Arguments:
C
CD-Parameters:
C      None
CD-end
C====== GLOBALS:
C
      EXTERNAL LFN_UNQ_BDAT
      INCLUDE 'lfn_unq.finc'
C
C====== LOCALS:
C
      INTEGER I

C     INTEGER I     !Loop variable
C
C-------------------------------------------------------------------------------
C
      IF (NUM_UNQ.LE.0) RETURN
      DO 100 I = 1, NUM_UNQ
         COUNTS(I) = 0
         MULT_CNT(I) = 0
         SIGN_CNT(I) = 0
100   CONTINUE
      RETURN
      END
