The R Project SVN R

Rev

Rev 86987 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 86987 Rev 87292
Line 2922... Line 2922...
2922 
La_extern void
 2922 
La_extern void
2923 
F77_NAME(zgebak)(const char* job, const char* side, La_INT *n, La_INT *ilo,
 2923 
F77_NAME(zgebak)(const char* job, const char* side, La_INT *n, La_INT *ilo,
2924 
		 La_INT *ihi, double *scale, La_INT *m, La_complex *v,
 2924 
		 La_INT *ihi, double *scale, La_INT *m, La_complex *v,
2925 
		 La_INT *ldv, La_INT *info FCLEN FCLEN);
 2925 
		 La_INT *ldv, La_INT *info FCLEN FCLEN);
2926 
 
 2926 
 
- 
 
 2927 
/* ZGEBAL balances a general complex matrix A */
2927 
La_extern void
 2928 
La_extern void
2928 
F77_NAME(zgebal)(const char *job, const La_INT *n, La_complex *a,
 2929 
F77_NAME(zgebal)(const char *job, const La_INT *n, La_complex *a,
2929 
		 const La_INT *lda, La_INT *ilo, La_INT *ihi, double *scale,
 2930 
		 const La_INT *lda, La_INT *ilo, La_INT *ihi, double *scale,
2930 
		 La_INT *info FCLEN);
 2931 
		 La_INT *info FCLEN);
2931 
 
 2932