      function ibool(l)
      logical l
      if ( l ) then
	      ibool = 1
      else
	      ibool = 0
      end if
      return
      end
