get_from_col_complex Function

private pure function get_from_col_complex(this) result(col)

Type Bound

column

Arguments

Type IntentOptional Attributes Name
class(column), intent(in) :: this

Return Value complex(kind=rk), dimension(this % n)


Source Code

    pure function get_from_col_complex(this) result(col)
        class(column), intent(in) :: this
        complex(rk), dimension(this % n) :: col

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

        col = this % ccol

    end function get_from_col_complex