void drotg ( double *sa, double *sb, double *c, double *s ); int zchdc ( complex a[], int lda, int p, int ipvt[], int job ); int zchdd ( complex r[], int ldr, int p, complex x[], complex z[], int ldz, int nz, complex y[], double rho[], double c[], complex s[] ); void zchex ( complex r[], int ldr, int p, int k, int l, complex z[], int ldz, int nz, double c[], complex s[], int job ); void zchud ( complex r[], int ldr, int p, complex x[], complex z[], int ldz, int nz, complex y[], double rho[], double c[], complex s[] ); double zgbco ( complex abd[], int lda, int n, int ml, int mu, int ipvt[] ); void zgbdi ( complex abd[], int lda, int n, int ml, int mu, int ipvt[], complex det[2] ); int zgbfa ( complex abd[], int lda, int n, int ml, int mu, int ipvt[] ); void zgbsl ( complex abd[], int lda, int n, int ml, int mu, int ipvt[], complex b[], int job ); double zgeco ( complex a[], int lda, int n, int ipvt[] ); void zgedi ( complex a[], int lda, int n, int ipvt[], complex det[2], int job ); int zgefa ( complex a[], int lda, int n, int ipvt[] ); void zgesl ( complex a[], int lda, int n, int ipvt[], complex b[], int job ); int zgtsl ( int n, complex c[], complex d[], complex e[], complex b[] ); double zhico ( complex a[], int lda, int n, int ipvt[] ); void zhidi ( complex a[], int lda, int n, int ipvt[], double det[2], int inert[3], int job ); int zhifa ( complex a[], int lda, int n, int ipvt[] ); void zhisl ( complex a[], int lda, int n, int ipvt[], complex b[] ); double zhpco ( complex ap[], int n, int ipvt[] ); void zhpdi ( complex ap[], int n, int ipvt[], double det[2], int inert[3], int job ); int zhpfa ( complex ap[], int n, int ipvt[] ); void zhpsl ( complex ap[], int n, int ipvt[], complex b[] ); double zpbco ( complex abd[], int lda, int n, int m, int *info ); void zpbdi ( complex abd[], int lda, int n, int m, double det[2] ); int zpbfa ( complex abd[], int lda, int n, int m ); void zpbsl ( complex abd[], int lda, int n, int m, complex b[] ); double zpoco ( complex a[], int lda, int n, int *info ); void zpodi ( complex a[], int lda, int n, double det[2], int job ); int zpofa ( complex a[], int lda, int n ); void zposl ( complex a[], int lda, int n, complex b[] ); double zppco ( complex ap[], int n, int *info ); void zppdi ( complex ap[], int n, double det[2], int job ); int zppfa ( complex ap[], int n ); void zppsl ( complex ap[], int n, complex b[] ); void zptsl ( int n, complex d[], complex e[], complex b[] ); void zqrdc ( complex x[], int ldx, int n, int p, complex qraux[], int ipvt[], int job ); int zqrsl ( complex x[], int ldx, int n, int k, complex qraux[], complex y[], complex qy[], complex qty[], complex b[], complex rsd[], complex xb[], int job ); double zsico ( complex a[], int lda, int n, int ipvt[] ); void zsidi ( complex a[], int lda, int n, int ipvt[], complex det[2], int job ); int zsifa ( complex a[], int lda, int n, int ipvt[] ); void zsisl ( complex a[], int lda, int n, int ipvt[], complex b[] ); double zspco ( complex ap[], int n, int ipvt[] ); void zspdi ( complex ap[], int n, int ipvt[], complex det[2], int job ); int zspfa ( complex ap[], int n, int ipvt[] ); void zspsl ( complex ap[], int n, int ipvt[], complex b[] ); int zsvdc ( complex x[], int ldx, int n, int p, complex s[], complex e[], complex u[], int ldu, complex v[], int ldv, int job ); double ztrco ( complex t[], int ldt, int n, int job ); int ztrdi ( complex t[], int ldt, int n, complex det[2], int job ); int ztrsl ( complex t[], int ldt, int n, complex b[], int job );