construct_type_solver_sparse_crs_bicgstab Module Function

    module function construct_type_solver_sparse_crs_bicgstab(size, tolerance, max_iterations, preconditioner) result(structure)
        implicit none
        integer(int32), intent(in) :: size
        real(real64), intent(in) :: tolerance
        integer(int32), intent(in) :: max_iterations
        integer(int32), intent(in) :: preconditioner
        class(abst_solver), allocatable :: structure

        allocate (type_solver_sparse_crs_bicgstab :: structure)
        select type (this => structure)
        type is (type_solver_sparse_crs_bicgstab)

            this%size = size
            this%tolerance = tolerance
            this%max_iterations = max_iterations
            this%preconditioner = preconditioner

            ! 配列の確保
            call allocate_array(this%M, this%size)
            call allocate_array(this%p, this%size)
            call allocate_array(this%phat, this%size)
            call allocate_array(this%s, this%size)
            call allocate_array(this%shat, this%size)
            call allocate_array(this%r, this%size)
            call allocate_array(this%r0, this%size)
            call allocate_array(this%t, this%size)
            call allocate_array(this%v, this%size)
            call allocate_array(this%x, this%size)

        end select

    end function construct_type_solver_sparse_crs_bicgstab