set_n_bath Subroutine

private subroutine set_n_bath(this, n_bath)

Type Bound

aim

Arguments

Type IntentOptional Attributes Name
class(aim) :: this
integer, intent(in) :: n_bath

Contents

Source Code

set_n_bath

Source Code

    subroutine set_n_bath(this, n_bath)
        class(aim) :: this
        integer, intent(in) :: n_bath
        character(*), parameter :: this_routine = "set_n_bath"

        ASSERT(n_bath > 0)

        this%n_bath = n_bath

    end subroutine set_n_bath