1 
2 #include "f2c-bridge.h"
3 #include "blas_enum.h"
4 void BLAS_zsum_x(int n, const void *x, int incx,
5 		 void *sum, enum blas_prec_type prec);
6 
7 
FC_FUNC_(blas_zsum_x,BLAS_ZSUM_X)8 extern void FC_FUNC_(blas_zsum_x, BLAS_ZSUM_X)
9   (int *n, const void *x, int *incx, void *sum, int *prec) {
10   BLAS_zsum_x(*n, x, *incx, sum, (enum blas_prec_type) *prec);
11 }
12