./splinesurv/src/mainloop.c

CmiscUtils/ddotWrapper [ Functions ]

NAME

    ddotWrapper --- Wrapper for Fortran call to ddot

FUNCTION

Compute the dot product of vectors x and y

Wrapper for BLAS call to ddot, with fixed incx and incy at 1.

SYNOPSIS

521 static inline double ddotWrapper( int n, double *x, double *y)

INPUTS

    n     number of elements
    x     vector 1
    y     vector 2

OUTPUTS

    dot product of x and y.

SOURCE

525 {
526     int c1=1;
527     return F77_CALL(ddot)(&n, x, &c1, y, &c1);
528 }