• 1000 вызов 'zgeqrf_' 1. Функция-кандидат нежизнеспособна: неизвестное преобразование из 'float *' в '__CLPK_doublecomplex *' для третьего аргумента "вот мой код:
include
include
int main (int arg c, const char * argv []) {
float A[4][3] = {{0,-2,1}, {1,3,1}, {0,0,1}, {1,1,5}};
__CLPK_integer m = 4;
__CLPK_integer n = 3;
__CLPK_integer ipiv[3];
__CLPK_doublecomplex tau[n];
__CLPK_doublecomplex work[n];
__CLPK_integer lwork = n;
__CLPK_integer info = 0;
sgetrf_(&m, &n, &A[0][0], &m, ipiv, &info);
zgeqrf_(&m, &n, &A[0][0], &m, tau, work, &lwork, &info);
int row, columns;
for (row=0; row<4; row++)
{
for(columns=0; columns<3; columns++)
{
printf("%f", A[row][columns]);
}
printf("\n");
}
}
Заранее спасибо за ваше время;