is_bath_site Function

    logical function is_bath_site(this, ind)
        class(aim) :: this
        integer, intent(in) :: ind
        character(*), parameter :: this_routine = "is_bath_site"

        ASSERT(ind > 0)
        ASSERT(ind <= this%get_nsites())

        is_bath_site = this%sites(ind)%is_bath()

    end function is_bath_site