!
  INTEGER :: idimf  ! the maximum number of free blocks in lfree
!   parameter( idimf = 50 )
!
!  lfree(n,1) is the starting index of free block number n
!  lfree(n,2) is the length free block number n
!
  INTEGER :: lfree(50,2)

  INTEGER :: lenf   ! The acutal number of free blocks in lfree

  COMMON / manage / lfree,lenf,idimf
  LOGICAL :: sprint
  DATA    sprint/.false./