subroutine hbflen(iflen)
C
C Files opened with HROPEN have a default limit of 8000 records.
C I increase this to 32000 records with IQUEST(10).
C
C     Fred Kral July 25, 1995 - Using idea from Doug Wright''s UNT package.
C
      implicit none

C..Input number of records for file (default 32,000)
      integer*4 iflen

C..Hbook common block
      INTEGER   IQUEST
      COMMON/QUEST/IQUEST(100)

C..Debugging switch (local)
      logical*4 debug/.false./
      save      debug

*=====-================================================================-=======

C..If input out of range, choose default
      If (iflen .le. 2000 .or. iflen .ge. 65000) then
        IQUEST(10)=65000
      Else
        IQUEST(10)=iflen
      Endif

      If (debug) Write (6, *)
     +  'HBFLEN: ',
     +  ' IQUEST(10) = ', IQUEST(10),
     +  ' from iflen = ', iflen

      return 
      end