!  GeFreeHbookId.f90
!
!  Returns free hbook ID
!
!  Detlef Irmscher, Thomas Ullrich, Uni Heidelberg, September 1993
!  Last update: 16.3.95 tu
!
integer function GeFreeHbookId(idStart)
    implicit none
    integer, intent(in)         :: idStart
    logical, external           :: hexist
    GeFreeHbookId = idStart
    do while (hexist(GeFreeHbookId))
       GeFreeHbookId = GeFreeHbookId + 1
    enddo
end function GeFreeHbookId