The R Project SVN R

Rev

Rev 76849 | Rev 84432 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 76849 Rev 76859
Line 22... Line 22...
22 
 *  https://www.R-project.org/Licenses/
 22 
 *  https://www.R-project.org/Licenses/
23 
 */
 23 
 */
24 
 
 24 
 
25 
/*
 25 
/*
26 
   C declarations of LAPACK Fortran subroutines included in R.
 26 
   C declarations of LAPACK Fortran subroutines included in R.
27 
   Just those used (currently or previously) by C routines in R itself.
 27 
   Those used (currently or previously) by C routines in R itself,
- 
 
 28 
   plus a few used in packages.
28 
 
 29 
 
29 
   Part of the API.
 30 
   Part of the API.
30 
 
 31 
 
31 
   R packages that use these should have PKG_LIBS in src/Makevars include
32 
   R packages that use these should have PKG_LIBS in src/Makevars include
32 
   $(LAPACK_LIBS) $(BLAS_LIBS) $(FLIBS)
 33 
   $(LAPACK_LIBS) $(BLAS_LIBS) $(FLIBS)
Line 2326... Line 2327...
2326 
		Rcomplex *wr, Rcomplex *vl, const int *ldvl,
 2327 
		Rcomplex *wr, Rcomplex *vl, const int *ldvl,
2327 
		Rcomplex *vr, const int *ldvr,
 2328 
		Rcomplex *vr, const int *ldvr,
2328 
		Rcomplex *work, const int *lwork,
 2329 
		Rcomplex *work, const int *lwork,
2329 
		double *rwork, int *info FCLEN FCLEN);
 2330 
		double *rwork, int *info FCLEN FCLEN);
2330 
 
 2331 
 
2331 
 
 - 
 
2332 
/* NOTE: The following entry points were traditionally in this file,
 - 
 
2333 
   but are not provided by R's libRlapack */
 - 
 
2334 
 
 - 
 
2335 
/* DZSUM1 - take the sum of the absolute values of a complex */
 - 
 
2336 
/* vector and returns a double precision result	 */
 - 
 
2337 
La_extern double
 - 
 
2338 
F77_NAME(dzsum1)(const int *n, Rcomplex *CX, const int *incx);
 - 
 
2339 
 
 - 
 
2340 
/*  ZLACN2 estimates the 1-norm of a square, complex matrix A.
 2332 
/*  ZLACN2 estimates the 1-norm of a square, complex matrix A.
2341 
 *  Reverse communication is used for evaluating matrix-vector products.
 2333 
 *  Reverse communication is used for evaluating matrix-vector products.
- 
 
 2334 
 * Added in R 2.7.0
2342 
*/
 2335 
*/
2343 
La_extern void
 2336 
La_extern void
2344 
F77_NAME(zlacn2)(const int *n, Rcomplex *v, Rcomplex *x,
 2337 
F77_NAME(zlacn2)(const int *n, Rcomplex *v, Rcomplex *x,
2345 
                 double *est, int *kase, int *isave);
 2338 
                 double *est, int *kase, int *isave);
2346 
 
 2339 
 
2347 
/* ZLANTR  -  return the value of the one norm, or the Frobenius norm, */
 2340 
/* ZLANTR  -  return the value of the one norm, or the Frobenius norm,
2348 
/* or the infinity norm, or the element of largest absolute value of */
 2341 
 * or the infinity norm, or the element of largest absolute value of
2349 
/* a trapezoidal or triangular matrix A */
 2342 
 * a trapezoidal or triangular matrix A.
- 
 
 2343 
 * Added in R 2.7.0
- 
 
 2344 
*/
2350 
La_extern double
 2345 
La_extern double
2351 
F77_NAME(zlantr)(const char* norm, const char* uplo, const char* diag,
 2346 
F77_NAME(zlantr)(const char* norm, const char* uplo, const char* diag,
2352 
		 const int *m, const int *n, Rcomplex *a,
 2347 
		 const int *m, const int *n, Rcomplex *a,
2353 
		 const int *lda, double *work FCLEN FCLEN FCLEN);
 2348 
		 const int *lda, double *work FCLEN FCLEN FCLEN);
2354 
 
 2349 
 
- 
 
 2350 
/* DZSUM1 - take the sum of the absolute values of a complex
- 
 
 2351 
 * vector and returns a double precision result
- 
 
 2352 
 * Added in R 2.15.2
- 
 
 2353 
*/
- 
 
 2354 
La_extern double
- 
 
 2355 
F77_NAME(dzsum1)(const int *n, Rcomplex *CX, const int *incx);
- 
 
 2356 
 
- 
 
 2357 
/* Added in R 3.6.2 */
- 
 
 2358 
La_extern void
- 
 
 2359 
F77_NAME(zpotrf)(const char* uplo, const int* n,
- 
 
 2360 
		 Rcomplex* a, const int* lda, int* info FCLEN);
- 
 
 2361 
La_extern void
- 
 
 2362 
F77_NAME(zpotri)(const char* uplo, const int* n,
- 
 
 2363 
		 Rcomplex* a, const int* lda, int* info FCLEN);
- 
 
 2364 
La_extern void
- 
 
 2365 
F77_NAME(zpotrs)(const char* uplo, const int* n,
- 
 
 2366 
		 const int* nrhs, const Rcomplex* a, const int* lda,
- 
 
 2367 
		 Rcomplex* b, const int* ldb, int* info FCLEN);
- 
 
 2368 
 
2355 
/* ======================================================================== */
 2369 
/* ======================================================================== */
2356 
 
 2370 
 
2357 
//* Other double precision and double complex Lapack routines provided by libRlapack.
 2371 
//* Other double precision and double complex Lapack routines provided by libRlapack.
2358 
/*
 2372 
/*
2359 
   These are extracted from the CLAPACK headers.
 2373 
   These are extracted from the CLAPACK headers.