init_basis_vecs_rect Subroutine

private subroutine init_basis_vecs_rect(this)

Type Bound

rectangle

Arguments

Type IntentOptional Attributes Name
class(rectangle) :: this

Contents

Source Code

init_basis_vecs_rect

Source Code

    subroutine init_basis_vecs_rect(this)
        class(rectangle) :: this

        integer :: l

        if (t_trans_corr_2body) then
            l = 2
        else
            l = 1
        end if

        call this%init_basis_vecs_rect_base(l)
    end subroutine init_basis_vecs_rect