s_spline_matrix_dense__init Subroutine

private subroutine s_spline_matrix_dense__init(self, n)

Type Bound

sll_t_spline_matrix_dense

Arguments

Type IntentOptional Attributes Name
class(sll_t_spline_matrix_dense), intent(out) :: self
integer, intent(in) :: n

Calls

proc~~s_spline_matrix_dense__init~~CallsGraph proc~s_spline_matrix_dense__init sll_t_spline_matrix_dense%s_spline_matrix_dense__init sll_assert sll_assert proc~s_spline_matrix_dense__init->sll_assert

Source Code

  subroutine s_spline_matrix_dense__init( self, n )
    class(sll_t_spline_matrix_dense), intent(  out) :: self
    integer                         , intent(in   ) :: n

    SLL_ASSERT( n > 0 )

    self%n = n
    allocate( self%ipiv(n) )
    allocate( self%a(n,n) )
    self%a(:,:) = 0.0_wp
    self%factorized=.FALSE.

  end subroutine s_spline_matrix_dense__init