CDECK  ID>, HWRINT.

*CMZ :-        -26/04/91  11.11.56  by  Bryan Webber

*-- Author :    Bryan Webber

C-----------------------------------------------------------------------

      FUNCTION HWRINT(IMIN,IMAX)

C-----------------------------------------------------------------------

C     RANDOM INTEGER IN [IMIN,IMAX]. N.B. ASSUMES IMAX.GE.IMIN

C-----------------------------------------------------------------------

      DOUBLE PRECISION HWR,RN,ONE

      INTEGER HWRINT,IMIN,IMAX

      EXTERNAL HWR

      PARAMETER (ONE=1.0D0)

    1 RN=HWR()

      IF (RN.EQ.ONE) GOTO 1

      RN=RN*(IMAX-IMIN+1)

      HWRINT=IMIN+INT(RN)

      END