The R Project SVN R

Rev

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

Rev 25303 Rev 26797
Line 163... Line 163...
163 
		     Rcomplex *vl, const int *ldvl,
 163 
		     Rcomplex *vl, const int *ldvl,
164 
		     Rcomplex *vr, const int *ldvr,
 164 
		     Rcomplex *vr, const int *ldvr,
165 
		     Rcomplex *work, const int *lwork,
165 
		     Rcomplex *work, const int *lwork,
166 
		     double *rwork, int *info);
 166 
		     double *rwork, int *info);
167 
 
 167 
 
- 
 
 168 
/* DGECON - estimate the reciprocal of the condition number of a */
- 
 
 169 
/* general real matrix A, in either the 1-norm or the */
- 
 
 170 
/* infinity-norm, using the LU factorization computed by DGETRF */
- 
 
 171 
void F77_NAME(dgecon)(const char* norm, const int* n,
- 
 
 172 
    		  const double* a, const int* lda,
- 
 
 173 
    		  const double* anorm, double* rcond,
- 
 
 174 
    		  double* work, int* iwork, int* info);
- 
 
 175 
 
168 
/* DGESV computes the solution to a complex system of linear equations */
 176 
/* DGESV computes the solution to a complex system of linear equations */
169 
void F77_NAME(dgesv)(const int *n, const int *nrhs, double *a,
 177 
void F77_NAME(dgesv)(const int *n, const int *nrhs, double *a,
170 
		     const int *lda, int *ipiv, double *b,
 178 
		     const int *lda, int *ipiv, double *b,
171 
		     const int *ldb, int *info);
 179 
		     const int *ldb, int *info);
172 
 
 180 
 
Line 188... Line 196...
188 
void F77_NAME(dtrtrs)(const char *uplo, const char *trans, const char *diag,
 196 
void F77_NAME(dtrtrs)(const char *uplo, const char *trans, const char *diag,
189 
		      const int *n, const int *nrhs,
 197 
		      const int *n, const int *nrhs,
190 
		      double *a, const int *lda,
 198 
		      double *a, const int *lda,
191 
		      double *b, const int *ldb,
 199 
		      double *b, const int *ldb,
192 
		      int *info);
 200 
		      int *info);
- 
 
 201 
 
- 
 
 202 
/* DLANGE - return the value of the one norm, or the Frobenius */
- 
 
 203 
/* norm, or the infinity norm, or the element of largest absolute */
- 
 
 204 
/* value of a real matrix A */
- 
 
 205 
double
- 
 
 206 
F77_NAME(dlange)(const char* norm, const int* m, const int* n,
- 
 
 207 
		 const double* a, const int* lda, double* work);