Commit 8e9a7503 authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

Fix check on triangular part of pentagonal matrices

parent ce8be021
...@@ -391,7 +391,7 @@ int MORSE_ztpgqrt_Tile_Async( int L, ...@@ -391,7 +391,7 @@ int MORSE_ztpgqrt_Tile_Async( int L,
morse_error("MORSE_ztpgqrt_Tile", "only square tiles supported"); morse_error("MORSE_ztpgqrt_Tile", "only square tiles supported");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE); return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
} }
if (((Q2->m - L) % Q2->mb) != 0) { if ( (L != 0) && (((Q2->m - L) % Q2->mb) != 0) ) {
morse_error("MORSE_ztpgqrt_Tile", "Triangular part must be aligned with tiles"); morse_error("MORSE_ztpgqrt_Tile", "Triangular part must be aligned with tiles");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE); return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
} }
......
...@@ -348,7 +348,7 @@ int MORSE_ztpqrt_Tile_Async( int L, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc ...@@ -348,7 +348,7 @@ int MORSE_ztpqrt_Tile_Async( int L, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc
morse_error("MORSE_ztpqrt_Tile", "only square tiles supported"); morse_error("MORSE_ztpqrt_Tile", "only square tiles supported");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE); return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
} }
if (((B->m - L) % B->mb) != 0) { if ( (L != 0) && (((B->m - L) % B->mb) != 0) ) {
morse_error("MORSE_ztpqrt_Tile", "Triangular part must be aligned with tiles"); morse_error("MORSE_ztpqrt_Tile", "Triangular part must be aligned with tiles");
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE); return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
} }
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment