change_col_complex Subroutine

private subroutine change_col_complex(this, i, val)

Type Bound

column

Arguments

Type IntentOptional Attributes Name
class(column), intent(inout) :: this
integer, intent(in) :: i
complex(kind=rk), intent(in) :: val

Source Code

    subroutine change_col_complex(this, i, val)
        class(column), intent(inout) :: this
        integer, intent(in) :: i
        complex(rk), intent(in) :: val

        if (this % dtype /= COMPLEX_NUM) error stop 'column is not of type complex'

        this % ccol(i) = val

    end subroutine change_col_complex