set_val_cmplx_int32 Subroutine

private subroutine set_val_cmplx_int32(this, i, j, val)

Type Bound

shared_ragged_array_cmplx_t

Arguments

Type IntentOptional Attributes Name
class(shared_ragged_array_cmplx_t), intent(inout) :: this
integer(kind=int32), intent(in) :: i
integer(kind=int32), intent(in) :: j
complex(kind=dp), intent(in) :: val

Contents

Source Code

set_val_cmplx_int32

Source Code

    subroutine set_val_cmplx_int32(this, i, j, val)
        class(shared_ragged_array_cmplx_t), intent(inout) :: this
        integer(int32), intent(in) :: i, j
        complex(dp), intent(in) :: val

        this%ptr(i)%res(j) = val
    end subroutine set_val_cmplx_int32