Skip to content

Commit

Permalink
it's a bug!
Browse files Browse the repository at this point in the history
  • Loading branch information
dalekopera committed Jan 7, 2025
1 parent d5250c0 commit 97ec154
Showing 1 changed file with 0 additions and 2 deletions.
2 changes: 0 additions & 2 deletions src/sbls/sbls.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1890,7 +1890,6 @@ SUBROUTINE SBLS_form_and_factorize( n, m, H, A, C, data, &
! prefix for all output

CHARACTER ( LEN = LEN( TRIM( control%prefix ) ) - 2 ) :: prefix
write(6,*) ' length of prefix is ', LEN( prefix )
IF ( LEN( TRIM( control%prefix ) ) > 2 ) &
prefix = control%prefix( 2 : LEN( TRIM( control%prefix ) ) - 1 )

Expand Down Expand Up @@ -10234,7 +10233,6 @@ SUBROUTINE SBLS_factorize_matrix( data, status, H_val, A_val, C_val, D )

! form and factorize the block matrix

write(6,*) ' data%sbls_control%prefix is **', data%sbls_control%prefix, '**'
CALL SBLS_form_and_factorize( data%H%n, data%C%m, data%H, data%A, data%C, &
data%sbls_data, data%sbls_control, &
data%sbls_inform, D = D )
Expand Down

0 comments on commit 97ec154

Please sign in to comment.