***************************************************************************** ** DISPATCHER FUNCS ** ***************************************************************************** */
| 777 | ***************************************************************************** |
| 778 | */ |
| 779 | static fortran_int copy(fortran_int *n, |
| 780 | float *sx, fortran_int *incx, |
| 781 | float *sy, fortran_int *incy) { return FNAME(scopy)(n, sx, incx, |
| 782 | sy, incy); |
| 783 | } |
| 784 | static fortran_int copy(fortran_int *n, |
| 785 | double *sx, fortran_int *incx, |
| 786 | double *sy, fortran_int *incy) { return FNAME(dcopy)(n, sx, incx, |
no outgoing calls
no test coverage detected