Mentions légales du service

Skip to content
Snippets Groups Projects
Commit 52108330 authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

Cleanup extra spaces in cuda_ztpmqrt.c

parent 5629cc7f
No related branches found
No related tags found
No related merge requests found
Pipeline #
This commit is part of merge request !20. Comments created here will be created in the context of that merge request.
......@@ -61,26 +61,26 @@ CUDA_ztpmqrt( MORSE_enum side, MORSE_enum trans,
/* TS case */
if (L == 0) {
CUDA_ztsmqr( side, trans, m1, n1, M, N, K, IB,
A, LDA, B, LDB, V, LDV, T, LDT,
A, LDA, B, LDB, V, LDV, T, LDT,
WORK, ldwork, WORK + ws, ldworkc,
CUBLAS_STREAM_VALUE );
}
CUBLAS_STREAM_VALUE );
}
/* TT case */
else if( L == M ) {
else if( L == M ) {
// CUDA_zttmqr( side, trans, m1, n1, M, N, K, IB,
// A, LDA, B, LDB, V, LDV, T, LDT,
// WORK, ldwork );
CUDA_ztsmqr( side, trans, m1, n1, M, N, K, IB,
A, LDA, B, LDB, V, LDV, T, LDT,
A, LDA, B, LDB, V, LDV, T, LDT,
WORK, ldwork, WORK + ws, ldworkc,
CUBLAS_STREAM_VALUE );
morse_warning("The lower triangular part must be set to 0 for to be correct");
// CUDA_zttmqr( side, trans, m1, n1, M, N, K, IB,
// A, LDA, B, LDB, V, LDV, T, LDT,
// WORK, ldwork );
}
else {
cudablas_error(-6, "TPMQRT not available on GPU yet\n" );
return -6;
CUBLAS_STREAM_VALUE );
morse_warning("TPMQRT is not available on GPU yet: The lower triangular part must be set to 0 for to be correct");
}
else {
//LAPACKE_ztpmqrt_work( LAPACK_COL_MAJOR, M, N, K, L, IB, V, LDV, T, LDT, A, LDA, B, LDB, WORK );
}
cudablas_error(-6, "TPMQRT not available on GPU yet\n" );
return -6;
}
return MORSE_SUCCESS;
}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment