To execute single vector mode, please checkout these comment-outs To execute multi-vector mode, please checkout these comment-outs COMPARE!!
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| type(COO_) | :: | A_COO | ||||
| type(COO_) | :: | B_COO | ||||
| type(CRS_) | :: | A_CRS | ||||
| type(CRS_) | :: | B_CRS | ||||
| real(kind=real64), | allocatable | :: | X(:) | |||
| real(kind=real64), | allocatable | :: | lambda | |||
| real(kind=real64), | allocatable | :: | X_all(:,:) | |||
| real(kind=real64), | allocatable | :: | lambda_all(:) | |||
| real(kind=real64), | allocatable | :: | X_all_lapack(:,:) | |||
| real(kind=real64), | allocatable | :: | lambda_all_lapack(:) | |||
| real(kind=real64) | :: | err | ||||
| integer(kind=int32) | :: | n |