x_i = A_ij b_j $OMP parallel do default(shared) private(CRS_id,col) $OMP atomic $OMP end parallel do
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=real64), | intent(in) | :: | CRS_value(:) | |||
| integer(kind=int32), | intent(in) | :: | CRS_col(:) | |||
| integer(kind=int64), | intent(in) | :: | CRS_row_ptr(:) | |||
| real(kind=real64), | intent(in) | :: | Old_vectors(:,:) |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(CRS_), | intent(in) | :: | CRS | |||
| real(kind=real64), | intent(in) | :: | Old_vectors(:,:) |