Remove debug prints.

ElmerCSC · Aug 17, 2024 · 6c8155b · 6c8155b
1 parent e345ccf
commit 6c8155b
Showing 1 changed file with 0 additions and 5 deletions.
diff --git a/fem/src/DefUtils.F90 b/fem/src/DefUtils.F90
@@ -3581,13 +3581,9 @@ RECURSIVE FUNCTION DefaultSolve( USolver, BackRotNT ) RESULT(Norm)
 
     CALL Info('DefaultSolve','Calling SolveSystem for linear solution',Level=20)
 
-print*,'a: ', associated(solver), associated(Solver % matrix); flush(6)
     A => Solver % Matrix
-print*,'a: ', associated(solver % variable); flush(6)
     x => Solver % Variable    
-print*,'a: ', associated(A), associated(A % RHS); flush(6)
     b => A % RHS
-print*,'a: ', associated(x % values), SIZE(x % values); flush(6)
     SOL => x % Values
 
     ! Debugging stuff activated only when "Max Output Level" >= 20
@@ -3598,7 +3594,6 @@ RECURSIVE FUNCTION DefaultSolve( USolver, BackRotNT ) RESULT(Norm)
 
 10  CONTINUE
 
-print*,'going sol'; flush(6)
     CALL SolveSystem(A,ParMatrix,b,SOL,x % Norm,x % DOFs,Solver)
 
     IF( InfoActive( 20 ) ) THEN