Skylark (Sketching Library)
0.1
|
00001 #ifndef LAPACK_PROTOTYPES_HPP 00002 #define LAPACK_PROTOTYPES_HPP 00003 00004 extern "C" { 00005 void daxpy_ (int*, /* N */ 00006 double*, /* alpha */ 00007 double*, /* X */ 00008 int*, /* INCX */ 00009 double*, /* Y */ 00010 int*); /* INCY */ 00011 00012 void dgemv_ (char*, /* Transpose A or not */ 00013 int*, /* M */ 00014 int*, /* N */ 00015 double*, /* alpha */ 00016 double*, /* A */ 00017 int*, /* LDA */ 00018 double*, /* X */ 00019 int*, /* Increment for elements of X */ 00020 double*, /* beta */ 00021 double*, /* Y */ 00022 int*); /* Increment for elements of Y */ 00023 00024 void dgelss_ (int*, /* M */ 00025 int*, /* N */ 00026 int*, /* Number of right-hand sides */ 00027 double*,/* A */ 00028 int*, /* LDA */ 00029 double*,/* B */ 00030 int*, /* LDB */ 00031 double*,/* S -- array of singular values */ 00032 double*,/* RCOND --- used to determine rank of A */ 00033 int*, /* Rank of A */ 00034 double*,/* Work */ 00035 int*, /* LDWORK */ 00036 int*); /* Result */ 00037 00038 void dgemm_ (char*, /* transpose A */ 00039 char*, /* transpose B */ 00040 int*, /* number of rows in C */ 00041 int*, /* number of columns in C */ 00042 int*, /* number of columns in A if 'n' is used */ 00043 double*, /* alpha */ 00044 double*, /* A */ 00045 int*, /* LDA */ 00046 double*, /* B */ 00047 int*, /* LDB */ 00048 double*, /* beta */ 00049 double*, /* C */ 00050 int*); /* LDC */ 00051 00052 void dsyrk_ (char*, /* UPLO -- upper or lower triangular */ 00053 char*, /* 'T'=> A'A, 'N'==>AA' */ 00054 int*, /* number of rows/columns in C */ 00055 int*, /* 'N' ==> number of columns in A */ 00056 /* 'T' ==> number of rows of A */ 00057 double*, /* alpha */ 00058 double*, /* A */ 00059 int*, /* LDA */ 00060 double*, /* beta */ 00061 double*, /* C */ 00062 int*); /* LDC */ 00063 00064 void dpotrf_(char*, /* uplo */ 00065 int*, /* N */ 00066 double*, /* A */ 00067 int*, /* lda */ 00068 int*); /* info */ 00069 00070 void dtrsm_(char*, /* side */ 00071 char*, /* uplo */ 00072 char*, /* transA */ 00073 char*, /* diag */ 00074 int*, /* M */ 00075 int*, /* N */ 00076 double*, /* alpha */ 00077 double*, /* A */ 00078 int*, /* lda */ 00079 double*, /* B */ 00080 int*); /* ldb */ 00081 00082 double dnrm2_(int*, /* N */ 00083 double*, /* x */ 00084 int*); /* incX */ 00085 00086 double ddot_(int*, /* N */ 00087 double*, /* x */ 00088 int*, /* incX */ 00089 double*, /* y */ 00090 int*); /* incY */ 00091 00092 void dcopy_ (int*, /* M */ 00093 double*, /* src vector */ 00094 int*, /* increments to source */ 00095 double*, /* dst vector */ 00096 int*); /* increments to dst */ 00097 00098 void dgeqrf_ (int*, /* M */ 00099 int*, /* N */ 00100 double*, /* A */ 00101 int*, /* LDA */ 00102 double*, /* tau */ 00103 double*, /* work */ 00104 int*, /* len of work */ 00105 int*); /* info */ 00106 00107 void dgeqr2_ (int*, /* M */ 00108 int*, /* N */ 00109 double*, /* A */ 00110 int*, /* LDA */ 00111 double*, /* tau */ 00112 double*, /* work */ 00113 int*); /* info */ 00114 00115 void dtorg_ (double*, 00116 double*, 00117 double*, 00118 double*); 00119 00120 void drot_ (int*, 00121 double*, 00122 int*, 00123 double*, 00124 int*, 00125 double*, 00126 double*); 00127 00128 void dlasr_ (char*, 00129 char*, 00130 char*, 00131 int*, 00132 int*, 00133 double*, 00134 double*, 00135 double*, 00136 int*); 00137 00138 void dormqr_ (char*, /* side */ 00139 char*, /* trans */ 00140 int*, /* M */ 00141 int*, /* N */ 00142 int*, /* K, the number of elementary reflectors */ 00143 double*, /* A */ 00144 int*, /* LDA */ 00145 double*, /* TAU */ 00146 double*, /* C */ 00147 int*, /* LDC */ 00148 double*, /* work */ 00149 int*, /* lwork */ 00150 int*); /* info */ 00151 00152 void dlarft_ (char*, /* direction */ 00153 char*, /* store format */ 00154 int*, /* order of the block reflector */ 00155 int*, /* number of block reflectors */ 00156 double*, /* store for the block reflectors */ 00157 int*, /* leading dimension of the store */ 00158 double*, /* tau --- scalar factors */ 00159 double*, /* t --- to store the triangular block reflector */ 00160 int*); /* leading dimension of t */ 00161 00162 void dlarfb_ (char*, /* side */ 00163 char*, /* trans */ 00164 char*, /* direction */ 00165 char*, /* column or row major storage */ 00166 int*, /* M */ 00167 int*, /* N */ 00168 int*, /* K */ 00169 double*, /* V */ 00170 int*, /* LDV */ 00171 double*, /* t */ 00172 int*, /* LDT */ 00173 double*, /* C */ 00174 int*, /* LDC */ 00175 double*, /* work */ 00176 int*); /* LDWORK */ 00177 00178 void dorgqr_ (int*, /* M */ 00179 int*, /* N */ 00180 int*, /* K */ 00181 double*, /* A */ 00182 int*, /* LDA */ 00183 double*, /* tau */ 00184 double*, /* work */ 00185 int*, /* len of work */ 00186 int*); /* info */ 00187 00188 void dlaswp_ (int*, /* Number of columns in A */ 00189 double*, /* Matrix A */ 00190 int*, /* LDA */ 00191 int*, /* First pivot element to be accessed */ 00192 int*, /* Last pivot element to be accessed */ 00193 int*, /* Integer array of pivots */ 00194 int*); /* increments to pivot array */ 00195 } 00196 00197 #endif // LAPACK_PROTOTYPES_HPP