Compute the inner product of two vectors with extended
precision accumulation and result.
Returns D.P. dot product accumulated in D.P., for S.P. SX and SY
SDOT = sum for I = 0 to N-1 of SX(LX+I*INCX) * SY(LY+I*INCY),
where LX = 1 if INCX >= 0, else LX = 1+(1-N)*INCX, and LY is
defined in a similar way using INCY.

Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|

integer(kind=ilp), | intent(in) | :: | n |
|||

real(kind=sp), | intent(in) | :: | sx(*) |
|||

integer(kind=ilp), | intent(in) | :: | incx |
|||

real(kind=sp), | intent(in) | :: | sy(*) |
|||

integer(kind=ilp), | intent(in) | :: | incy |

Compute the inner product of two vectors with extended
precision accumulation and result.
Returns D.P. dot product accumulated in D.P., for S.P. SX and SY
DSDOT = sum for I = 0 to N-1 of SX(LX+I*INCX) * SY(LY+I*INCY),
where LX = 1 if INCX >= 0, else LX = 1+(1-N)*INCX, and LY is
defined in a similar way using INCY.

Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|

integer(kind=ilp), | intent(in) | :: | n |
|||

real(kind=sp), | intent(in) | :: | sx(*) |
|||

integer(kind=ilp), | intent(in) | :: | incx |
|||

real(kind=sp), | intent(in) | :: | sy(*) |
|||

integer(kind=ilp), | intent(in) | :: | incy |