double dznrm2 ( int n, complex x[], int incx ); double dzasum ( int n, complex x[], int incx ); int i4_max ( int i1, int i2 ); int i4_min ( int i1, int i2 ); int izamax ( int n, complex x[], int incx ); bool lsame ( char ca, char cb ); double r8_abs ( double x ); double r8_max ( double x, double y ); double r8_sign ( double x ); void xerbla ( char *srname, int info ); double zabs1 ( complex z ); double zabs2 ( complex z ); void zaxpy ( int n, complex ca, complex cx[], int incx, complex cy[], int incy ); void zcopy ( int n, complex cx[], int incx, complex cy[], int incy ); complex zdotc ( int n, complex cx[], int incx, complex cy[], int incy ); complex zdotu ( int n, complex cx[], int incx, complex cy[], int incy ); void zdrot ( int n, complex cx[], int incx, complex cy[], int incy, double c, double s ); void zdscal ( int n, double sa, complex cx[], int incx ); double zmach ( int job ); void zrotg ( complex *ca, complex cb, double *c, complex *s ); void zscal ( int n, complex ca, complex cx[], int incx ); complex zsign1 ( complex z1, complex z2 ); complex zsign2 ( complex z1, complex z2 ); void zswap ( int n, complex cx[], int incx, complex cy[], int incy );