00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035 FLA_Error FLA_Chol( FLA_Uplo uplo, FLA_Obj A );
00036 FLA_Error FLA_LU_nopiv( FLA_Obj A );
00037 FLA_Error FLA_LU_piv( FLA_Obj A, FLA_Obj p );
00038 FLA_Error FLA_QR_UT( FLA_Obj A, FLA_Obj T );
00039 FLA_Error FLA_LQ_UT( FLA_Obj A, FLA_Obj S );
00040 FLA_Error FLA_Hess( FLA_Obj A, FLA_Obj t, int ilo, int ihi );
00041 FLA_Error FLA_Trinv( FLA_Uplo uplo, FLA_Diag diag, FLA_Obj A );
00042 FLA_Error FLA_Ttmm( FLA_Uplo uplo, FLA_Obj A );
00043 FLA_Error FLA_Sylv( FLA_Trans transa, FLA_Trans transb, FLA_Obj isgn, FLA_Obj A, FLA_Obj B, FLA_Obj C, FLA_Obj scale );
00044 FLA_Error FLA_SPDinv( FLA_Uplo uplo, FLA_Obj A );
00045
00046 FLA_Error FLA_Accum_T_UT( FLA_Direct direct, FLA_Store storev, FLA_Obj A, FLA_Obj tau, FLA_Obj T );
00047 FLA_Error FLA_Swap_rows( FLA_Obj A, dim_t k1, dim_t k2, FLA_Obj ipiv );
00048 FLA_Error FLA_Apply_Q_UT( FLA_Side side, FLA_Trans trans, FLA_Store storev, FLA_Obj A, FLA_Obj T, FLA_Obj W, FLA_Obj B );
00049
00050
00051
00052 void FLA_F2C( fla_chol_f )( F_INT *uplo, F_INT *A, F_INT *IERROR );
00053 void FLA_F2C( fla_lu_nopiv_f )( F_INT *A, F_INT *IERROR );
00054 void FLA_F2C( fla_lu_piv_f )( F_INT *A, F_INT *p, F_INT *IERROR );
00055 void FLA_F2C( fla_qr_ut_f )( F_INT *A, F_INT *T, F_INT *IERROR );
00056 void FLA_F2C( fla_qr_ut_create_t_f )( F_INT *A, F_INT *T, F_INT *IERROR );
00057 void FLA_F2C( fla_qr_ut_recover_tau_f )( F_INT *T, F_INT *tau, F_INT *IERROR );
00058 void FLA_F2C( fla_lq_ut_f )( F_INT *A, F_INT *S, F_INT *IERROR );
00059 void FLA_F2C( fla_lq_ut_create_t_f )( F_INT *A, F_INT *T, F_INT *IERROR );
00060 void FLA_F2C( fla_lq_ut_recover_tau_f )( F_INT *T, F_INT *tau, F_INT *IERROR );
00061 void FLA_F2C( fla_hess_f )( F_INT *A, F_INT *T, F_INT *ILO, F_INT *IHI, F_INT *IERROR );
00062 void FLA_F2C( fla_trinv_f )( F_INT *uplo, F_INT *diag, F_INT *A, F_INT *IERROR );
00063 void FLA_F2C( fla_ttmm_f )( F_INT *uplo, F_INT *A, F_INT *IERROR );
00064 void FLA_F2C( fla_sylv_f )( F_INT *transa, F_INT *transb, F_INT *isgn, F_INT *A, F_INT *B, F_INT *C, F_INT *scale, F_INT *IERROR );
00065 void FLA_F2C( fla_spdinv_f )( F_INT *uplo, F_INT *A, F_INT *IERROR );
00066
00067 void FLA_F2C( fla_accum_t_ut_f )( F_INT *direct, F_INT *storev, F_INT *A, F_INT *tau, F_INT *T, F_INT *IERROR );
00068 void FLA_F2C( fla_swap_rows_f )( F_INT *A, F_INT *k1, F_INT *k2, F_INT *ipiv, F_INT *IERROR );
00069
00070
00071
00072 FLA_Error FLA_Chol_task( FLA_Uplo uplo, FLA_Obj A, fla_chol_t* cntl );
00073 FLA_Error FLA_Chol_l_task( FLA_Obj A, fla_chol_t* cntl );
00074 FLA_Error FLA_Chol_u_task( FLA_Obj A, fla_chol_t* cntl );
00075 FLA_Error FLA_LU_nopiv_task( FLA_Obj A, fla_lu_t* cntl );
00076 FLA_Error FLA_LU_piv_task( FLA_Obj A, FLA_Obj p, fla_lu_t* cntl );
00077 FLA_Error FLA_LU_piv_copy_task( FLA_Obj A, FLA_Obj p, FLA_Obj U, fla_lu_t* cntl );
00078 FLA_Error FLA_Trsm_piv_task( FLA_Obj A, FLA_Obj B, FLA_Obj p, fla_trsm_t* cntl );
00079 FLA_Error FLA_SA_LU_task( FLA_Obj U, FLA_Obj D, FLA_Obj p, FLA_Obj L, dim_t nb_alg, fla_lu_t* cntl );
00080 FLA_Error FLA_SA_FS_task( FLA_Obj L, FLA_Obj D, FLA_Obj p, FLA_Obj C, FLA_Obj E, dim_t nb_alg, fla_lu_t* cntl );
00081 FLA_Error FLA_Trinv_task( FLA_Uplo uplo, FLA_Diag diag, FLA_Obj A, fla_trinv_t* cntl );
00082 FLA_Error FLA_Trinv_l_task( FLA_Diag diag, FLA_Obj A, fla_trinv_t* cntl );
00083 FLA_Error FLA_Trinv_u_task( FLA_Diag diag, FLA_Obj A, fla_trinv_t* cntl );
00084 FLA_Error FLA_Ttmm_task( FLA_Uplo uplo, FLA_Obj A, fla_ttmm_t* cntl );
00085 FLA_Error FLA_Ttmm_l_task( FLA_Obj A, fla_ttmm_t* cntl );
00086 FLA_Error FLA_Ttmm_u_task( FLA_Obj A, fla_ttmm_t* cntl );
00087 FLA_Error FLA_Sylv_task( FLA_Trans transa, FLA_Trans transb, FLA_Obj isgn, FLA_Obj A, FLA_Obj B, FLA_Obj C, FLA_Obj scale, fla_sylv_t* cntl );
00088 FLA_Error FLA_Sylv_nn_task( FLA_Obj isgn, FLA_Obj A, FLA_Obj B, FLA_Obj C, FLA_Obj scale, fla_sylv_t* cntl );
00089 FLA_Error FLA_Sylv_nt_task( FLA_Obj isgn, FLA_Obj A, FLA_Obj B, FLA_Obj C, FLA_Obj scale, fla_sylv_t* cntl );
00090 FLA_Error FLA_Sylv_tn_task( FLA_Obj isgn, FLA_Obj A, FLA_Obj B, FLA_Obj C, FLA_Obj scale, fla_sylv_t* cntl );
00091 FLA_Error FLA_Sylv_tt_task( FLA_Obj isgn, FLA_Obj A, FLA_Obj B, FLA_Obj C, FLA_Obj scale, fla_sylv_t* cntl );
00092 FLA_Error FLA_Apply_Q_UT_task( FLA_Side side, FLA_Trans trans, FLA_Store storev, FLA_Obj A, FLA_Obj T, FLA_Obj W, FLA_Obj B, fla_apqut_t* cntl );
00093 FLA_Error FLA_Apply_Q_UT_lhc_task( FLA_Obj A, FLA_Obj T, FLA_Obj W, FLA_Obj B, fla_apqut_t* cntl );
00094 FLA_Error FLA_Apply_Q_UT_UD_task( FLA_Side side, FLA_Trans trans, FLA_Store storev, FLA_Obj D, FLA_Obj T, FLA_Obj W, FLA_Obj C, FLA_Obj E, fla_apqutud_t* cntl );
00095 FLA_Error FLA_Apply_Q_UT_UD_lhc_task( FLA_Obj D, FLA_Obj T, FLA_Obj W, FLA_Obj C, FLA_Obj E, fla_apqutud_t* cntl );
00096 FLA_Error FLA_QR_UT_UD_task( FLA_Obj B, FLA_Obj D, FLA_Obj T, fla_qrutud_t* cntl );
00097 FLA_Error FLA_QR_UT_task( FLA_Obj A, FLA_Obj T, fla_qrut_t* cntl );
00098 FLA_Error FLA_QR_UT_copy_task( FLA_Obj A, FLA_Obj T, FLA_Obj U, fla_qrut_t* cntl );
00099 FLA_Error FLA_LQ_UT_task( FLA_Obj A, FLA_Obj T, fla_lqut_t* cntl );
00100
00101
00102
00103 FLA_Error FLA_Chol_internal( FLA_Uplo uplo, FLA_Obj A, fla_chol_t* cntl );
00104 FLA_Error FLA_LU_nopiv_internal( FLA_Obj A, fla_lu_t* cntl );
00105 FLA_Error FLA_LU_piv_internal( FLA_Obj A, FLA_Obj p, fla_lu_t* cntl );
00106 FLA_Error FLA_QR_UT_internal( FLA_Obj A, FLA_Obj T, fla_qrut_t* cntl );
00107 FLA_Error FLA_LQ_UT_internal( FLA_Obj A, FLA_Obj S, fla_lqut_t* cntl );
00108 FLA_Error FLA_Hess_internal( FLA_Obj A, FLA_Obj t, int ilo, int ihi, fla_hess_t* cntl );
00109 FLA_Error FLA_Trinv_internal( FLA_Uplo uplo, FLA_Diag diag, FLA_Obj A, fla_trinv_t* cntl );
00110 FLA_Error FLA_Ttmm_internal( FLA_Uplo uplo, FLA_Obj A, fla_ttmm_t* cntl );
00111 FLA_Error FLA_Sylv_internal( FLA_Trans transa, FLA_Trans transb, FLA_Obj isgn, FLA_Obj A, FLA_Obj B, FLA_Obj C, FLA_Obj scale, fla_sylv_t* cntl );
00112 FLA_Error FLA_SPDinv_internal( FLA_Uplo uplo, FLA_Obj A, fla_spdinv_t* cntl );
00113 FLA_Error FLA_Apply_Q_UT_internal( FLA_Side side, FLA_Trans trans, FLA_Store storev, FLA_Obj A, FLA_Obj T, FLA_Obj W, FLA_Obj B, fla_apqut_t* cntl );
00114 FLA_Error FLA_Apply_Q_UT_UD_internal( FLA_Side side, FLA_Trans trans, FLA_Store storev, FLA_Obj D, FLA_Obj T, FLA_Obj W, FLA_Obj C, FLA_Obj E, fla_apqutud_t* cntl );
00115 FLA_Error FLA_QR_UT_UD_internal( FLA_Obj B, FLA_Obj D, FLA_Obj T, fla_qrutud_t* cntl );
00116 FLA_Error FLA_Apply_Q_UT_inc_internal( FLA_Side side, FLA_Trans trans, FLA_Store storev, FLA_Obj A, FLA_Obj TW, FLA_Obj W1, FLA_Obj B, fla_apqutinc_t* cntl );
00117 FLA_Error FLA_Accum_T_UT_internal( FLA_Direct direct, FLA_Store storev, FLA_Obj A, FLA_Obj tau, FLA_Obj T );
00118
00119
00120
00121 FLA_Error FLA_Apply_Q_blk_external( FLA_Side side, FLA_Trans trans, FLA_Store storev, FLA_Obj A, FLA_Obj t, FLA_Obj B );
00122 FLA_Error FLA_Apply_Q_unb_external( FLA_Side side, FLA_Trans trans, FLA_Store storev, FLA_Obj A, FLA_Obj t, FLA_Obj B );
00123
00124 FLA_Error FLA_Chol_blk_external( FLA_Uplo uplo, FLA_Obj A );
00125 FLA_Error FLA_Chol_unb_external( FLA_Uplo uplo, FLA_Obj A );
00126
00127 FLA_Error FLA_LU_nopiv_blk_external( FLA_Obj A );
00128 FLA_Error FLA_LU_nopiv_unb_external( FLA_Obj A );
00129
00130 FLA_Error FLA_LU_piv_blk_external( FLA_Obj A, FLA_Obj p );
00131 FLA_Error FLA_LU_piv_unb_external( FLA_Obj A, FLA_Obj p );
00132
00133 FLA_Error FLA_QR_blk_external( FLA_Obj A, FLA_Obj t );
00134 FLA_Error FLA_QR_unb_external( FLA_Obj A, FLA_Obj t );
00135
00136 FLA_Error FLA_QR_UT_blk_external( FLA_Obj A, FLA_Obj t );
00137 FLA_Error FLA_QR_UT_unb_external( FLA_Obj A, FLA_Obj t );
00138 FLA_Error FLA_QR_UT_Accum_T_unb_external( FLA_Obj A, FLA_Obj T );
00139
00140 FLA_Error FLA_LQ_blk_external( FLA_Obj A, FLA_Obj t );
00141 FLA_Error FLA_LQ_unb_external( FLA_Obj A, FLA_Obj t );
00142
00143 FLA_Error FLA_LQ_UT_blk_external( FLA_Obj A, FLA_Obj t );
00144 FLA_Error FLA_LQ_UT_unb_external( FLA_Obj A, FLA_Obj t );
00145 FLA_Error FLA_LQ_UT_Accum_T_unb_external( FLA_Obj A, FLA_Obj T );
00146
00147 FLA_Error FLA_Hess_blk_external( FLA_Obj A, FLA_Obj t, int ilo, int ihi );
00148 FLA_Error FLA_Hess_unb_external( FLA_Obj A, FLA_Obj t, int ilo, int ihi );
00149
00150 FLA_Error FLA_Trinv_blk_external( FLA_Uplo uplo, FLA_Diag diag, FLA_Obj A );
00151 FLA_Error FLA_Trinv_unb_external( FLA_Uplo uplo, FLA_Diag diag, FLA_Obj A );
00152
00153 FLA_Error FLA_Ttmm_blk_external( FLA_Uplo uplo, FLA_Obj A );
00154 FLA_Error FLA_Ttmm_unb_external( FLA_Uplo uplo, FLA_Obj A );
00155
00156 FLA_Error FLA_Sylv_blk_external( FLA_Trans transa, FLA_Trans transb, FLA_Obj isgn, FLA_Obj A, FLA_Obj B, FLA_Obj C, FLA_Obj scale );
00157 FLA_Error FLA_Sylv_unb_external( FLA_Trans transa, FLA_Trans transb, FLA_Obj isgn, FLA_Obj A, FLA_Obj B, FLA_Obj C, FLA_Obj scale );
00158
00159 FLA_Error FLA_SPDinv_blk_external( FLA_Uplo uplo, FLA_Obj A );
00160
00161 FLA_Error FLA_Accum_T_UT_unb_external( FLA_Direct direct, FLA_Store storev, FLA_Obj A, FLA_Obj tau, FLA_Obj T );
00162
00163
00164
00165 void FLA_F2C( fla_apply_q_blk_external_f )( F_INT *side, F_INT *trans, F_INT* storev, F_INT* A, F_INT *t, F_INT *B, F_INT *IERROR );
00166 void FLA_F2C( fla_apply_q_unb_external_f )( F_INT *side, F_INT *trans, F_INT* storev, F_INT* A, F_INT *t, F_INT *B, F_INT *IERROR );
00167
00168 void FLA_F2C( fla_chol_blk_external_f )( F_INT *uplo, F_INT *A, F_INT *IERROR );
00169 void FLA_F2C( fla_chol_unb_external_f )( F_INT *uplo, F_INT *A, F_INT *IERROR );
00170
00171 void FLA_F2C( fla_lu_nopiv_blk_external_f )( F_INT *A, F_INT *IERROR );
00172 void FLA_F2C( fla_lu_nopiv_unb_external_f )( F_INT *A, F_INT *IERROR );
00173
00174 void FLA_F2C( fla_lu_piv_blk_external_f )( F_INT *A, F_INT *p, F_INT *IERROR );
00175 void FLA_F2C( fla_lu_piv_unb_external_f )( F_INT *A, F_INT *p, F_INT *IERROR );
00176
00177 void FLA_F2C( fla_qr_blk_external_f )( F_INT *A, F_INT *t, F_INT *IERROR );
00178 void FLA_F2C( fla_qr_unb_external_f )( F_INT *A, F_INT *t, F_INT *IERROR );
00179
00180 void FLA_F2C( fla_qr_ut_blk_external_f )( F_INT *A, F_INT *t, F_INT *IERROR );
00181 void FLA_F2C( fla_qr_ut_unb_external_f )( F_INT *A, F_INT *t, F_INT *IERROR );
00182
00183 void FLA_F2C( fla_lq_blk_external_f )( F_INT *A, F_INT *t, F_INT *IERROR );
00184 void FLA_F2C( fla_lq_unb_external_f )( F_INT *A, F_INT *t, F_INT *IERROR );
00185
00186 void FLA_F2C( fla_lq_ut_blk_external_f )( F_INT *A, F_INT *t, F_INT *IERROR );
00187 void FLA_F2C( fla_lq_ut_unb_external_f )( F_INT *A, F_INT *t, F_INT *IERROR );
00188
00189 void FLA_F2C( fla_hess_blk_external_f )( F_INT *A, F_INT *T, F_INT *ILO, F_INT *IHI, F_INT *IERROR );
00190 void FLA_F2C( fla_hess_unb_external_f )( F_INT *A, F_INT *T, F_INT *ILO, F_INT *IHI, F_INT *IERROR );
00191
00192 void FLA_F2C( fla_trinv_blk_external_f )( F_INT *uplo, F_INT *diag, F_INT *A, F_INT *IERROR );
00193 void FLA_F2C( fla_trinv_unb_external_f )( F_INT *uplo, F_INT *diag, F_INT *A, F_INT *IERROR );
00194
00195 void FLA_F2C( fla_ttmm_blk_external_f )( F_INT *uplo, F_INT *A, F_INT *IERROR );
00196 void FLA_F2C( fla_ttmm_unb_external_f )( F_INT *uplo, F_INT *A, F_INT *IERROR );
00197
00198 void FLA_F2C( fla_sylv_blk_external_f )( F_INT *transa, F_INT *transb, F_INT *isgn, F_INT *A, F_INT *B, F_INT *C, F_INT *scale, F_INT *IERROR );
00199 void FLA_F2C( fla_sylv_unb_external_f )( F_INT *transa, F_INT *transb, F_INT *isgn, F_INT *A, F_INT *B, F_INT *C, F_INT *scale, F_INT *IERROR );
00200
00201 void FLA_F2C( fla_spdinv_blk_external_f )( F_INT *uplo, F_INT *A, F_INT *IERROR );
00202
00203
00204
00205 FLA_Error FLA_Chol_check( FLA_Uplo uplo, FLA_Obj A );
00206 FLA_Error FLA_LU_nopiv_check( FLA_Obj A );
00207 FLA_Error FLA_LU_piv_check( FLA_Obj A, FLA_Obj p );
00208 FLA_Error FLA_LU_incpiv_check( FLA_Obj A, FLA_Obj p, FLA_Obj L );
00209 FLA_Error FLA_FS_incpiv_check( FLA_Obj A, FLA_Obj p, FLA_Obj L, FLA_Obj b );
00210 FLA_Error FLA_QR_check( FLA_Obj A, FLA_Obj t );
00211 FLA_Error FLA_QR_UT_check( FLA_Obj A, FLA_Obj T );
00212 FLA_Error FLA_QR_UT_recover_tau_check( FLA_Obj T, FLA_Obj tau );
00213 FLA_Error FLA_LQ_check( FLA_Obj A, FLA_Obj t );
00214 FLA_Error FLA_LQ_UT_check( FLA_Obj A, FLA_Obj T );
00215 FLA_Error FLA_LQ_UT_recover_tau_check( FLA_Obj T, FLA_Obj tau );
00216 FLA_Error FLA_Hess_check( FLA_Obj A, FLA_Obj t, int ilo, int ihi );
00217 FLA_Error FLA_Trinv_check( FLA_Uplo uplo, FLA_Diag diag, FLA_Obj A );
00218 FLA_Error FLA_Ttmm_check( FLA_Uplo uplo, FLA_Obj A );
00219 FLA_Error FLA_Sylv_check( FLA_Trans transa, FLA_Trans transb, FLA_Obj isgn, FLA_Obj A, FLA_Obj B, FLA_Obj C, FLA_Obj scale );
00220 FLA_Error FLA_SPDinv_check( FLA_Uplo uplo, FLA_Obj A );
00221
00222 FLA_Error FLA_Apply_Q_check( FLA_Side side, FLA_Trans trans, FLA_Store storev, FLA_Obj A, FLA_Obj t, FLA_Obj B );
00223
00224 FLA_Error FLA_Apply_Q_UT_check( FLA_Side side, FLA_Trans trans, FLA_Store storev, FLA_Obj A, FLA_Obj T, FLA_Obj W, FLA_Obj B );
00225 FLA_Error FLA_Apply_Q_UT_UD_check( FLA_Side side, FLA_Trans trans, FLA_Store storev, FLA_Obj D, FLA_Obj T, FLA_Obj W, FLA_Obj C, FLA_Obj E );
00226 FLA_Error FLA_QR_UT_UD_check( FLA_Obj B, FLA_Obj D, FLA_Obj T );
00227 FLA_Error FLA_QR_UT_inc_check( FLA_Obj A, FLA_Obj TW );
00228 FLA_Error FLA_Apply_Q_UT_inc_check( FLA_Side side, FLA_Trans trans, FLA_Store storev, FLA_Obj A, FLA_Obj TW, FLA_Obj W1, FLA_Obj B );
00229
00230 FLA_Error FLA_Accum_T_UT_check( FLA_Direct direct, FLA_Store storev, FLA_Obj A, FLA_Obj tau, FLA_Obj T );
00231 FLA_Error FLA_Swap_rows_check( FLA_Obj A, dim_t k1, dim_t k2, FLA_Obj ipiv );
00232
00233 FLA_Error FLA_Chol_internal_check( FLA_Uplo uplo, FLA_Obj A, fla_chol_t* cntl );
00234 FLA_Error FLA_LU_nopiv_internal_check( FLA_Obj A, fla_lu_t* cntl );
00235 FLA_Error FLA_Trinv_internal_check( FLA_Uplo uplo, FLA_Diag diag, FLA_Obj A, fla_trinv_t* cntl );
00236 FLA_Error FLA_Ttmm_internal_check( FLA_Uplo uplo, FLA_Obj A, fla_ttmm_t* cntl );
00237 FLA_Error FLA_SPDinv_internal_check( FLA_Uplo uplo, FLA_Obj A, fla_spdinv_t* cntl );
00238 FLA_Error FLA_Sylv_internal_check( FLA_Trans transa, FLA_Trans transb, FLA_Obj isgn, FLA_Obj A, FLA_Obj B, FLA_Obj C, FLA_Obj scale, fla_sylv_t* cntl );
00239 FLA_Error FLA_LQ_UT_internal_check( FLA_Obj A, FLA_Obj T, fla_lqut_t* cntl );
00240 FLA_Error FLA_QR_UT_internal_check( FLA_Obj A, FLA_Obj T, fla_qrut_t* cntl );
00241 FLA_Error FLA_QR_UT_copy_internal_check( FLA_Obj A, FLA_Obj T, FLA_Obj U, fla_qrut_t* cntl );
00242 FLA_Error FLA_QR_UT_UD_internal_check( FLA_Obj B, FLA_Obj D, FLA_Obj T, fla_qrutud_t* cntl );
00243 FLA_Error FLA_Apply_Q_UT_internal_check( FLA_Side side, FLA_Trans trans, FLA_Store storev, FLA_Obj A, FLA_Obj T, FLA_Obj W, FLA_Obj B, fla_apqut_t* cntl );
00244 FLA_Error FLA_Apply_Q_UT_inc_internal_check( FLA_Side side, FLA_Trans trans, FLA_Store storev, FLA_Obj A, FLA_Obj TW, FLA_Obj W1, FLA_Obj B, fla_apqutinc_t* cntl );
00245 FLA_Error FLA_Apply_Q_UT_UD_internal_check( FLA_Side side, FLA_Trans trans, FLA_Store storev, FLA_Obj D, FLA_Obj T, FLA_Obj W, FLA_Obj C, FLA_Obj E, fla_apqutud_t* cntl );