00001
00002 #ifndef netlib_h_
00003 #define netlib_h_
00004
00005 extern "C" {
00006 int dsvdc_(double *x, const int& ldx, const int& m, const int& n,
00007 double *sv,
00008 double *errors,
00009 double *u, const int& ldu,
00010 double *v, const int& ldv,
00011 double *work,
00012 const int& job, int *info);
00013
00014 int rsg_ (const int& nm, const int& n,
00015 const double *a_matrix, const double *b_matrix,
00016 double *eigenvalues,
00017 const int& want_eigenvectors, const double *eigenvectors,
00018 const double *workspace_1_size_n, const double *workspace_2_size_n,
00019 int* output_error_code);
00020
00021 int rs_(const int& nm, const int& n, const double *a_matrix,
00022 double *eigenvalues,
00023 const int& want_eigenvectors, const double *eigenvectors,
00024 const double *workspace_1_size_n, const double *workspace_2_size_n,
00025 int* output_error_code);
00026
00027 int dqrdc_(double *x, const int& ldx, const int& n, const int& p, double* qraux, int *jpvt, double *work, const int& job);
00028
00029 };
00030
00031 #endif