integer function hlnxtf(id,chtype,chtitl,chopt)
*
      character*(*) chtype,chtitl,chopt
      integer id
*
      call hlnext(id,chtype,chtitl,chopt)
      hlnxtf = id
      return
      end