Source position: cblas.pas line 572
procedure cblas_dspr(
Order: CBLAS_ORDER;
Uplo: CBLAS_UPLO;
N: SInt32;
alpha: Float64;
X: Float64Ptr;
incX: SInt32;
Ap: Float64Ptr
);