function on_off (is_on)

  implicit none
  logical is_on
  character(4) on_off

  if (is_on) then
    on_off = "On"
  else
    on_off = "Off"
  endif

  return

end function

!--------------------------------------------------------

function on_off_int (is_on)

  use bookkeeper_mod

  implicit none
  logical is_on
  integer on_off_int

  if (is_on) then
    on_off_int = on$
  else
    on_off_int = off$
  endif

  return

end function