| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| real(kind=r8), | intent(in), | dimension(*) | :: | x | ||
| integer, | intent(in) | :: | sx | |||
| real(kind=r8), | intent(in), | dimension(*) | :: | y | ||
| integer, | intent(in) | :: | sy | 
An interface to the BLAS routine for calculating Euclidean
 inner product. This can be passed to nitsol for the
 argument dinpr.