Пример #1
-1
void
F77_NAME(dsymv)(const char *uplo, const int *n, const double *alpha,
		const double *a, const int *lda,
		const double *x, const int *incx,
		const double *beta, double *y, const int *incy)
{
    DSYMV(uplo, n, alpha, a, lda, x, incx, beta, y, incy);
}
Пример #2
-1
  void IpBlasDsymv(Index n, Number alpha, const Number* A, Index ldA,
                   const Number* x, Index incX, Number beta, Number* y,
                   Index incY)
  {
    ipfint N=n, LDA=ldA, INCX=incX, INCY=incY;

    char UPLO='L';

    DSYMV(&UPLO, &N, &alpha, A, &LDA, x,
          &INCX, &beta, y, &INCY, 1);
  }