From 6c8155b64617f9e4282e62a7c17148e48eb074b4 Mon Sep 17 00:00:00 2001
From: Juha Ruokolainen <jpr@ruokolainen-linux.x.csc.fi>
Date: Sat, 17 Aug 2024 13:19:23 +0300
Subject: [PATCH] Remove debug prints.

---
 fem/src/DefUtils.F90 | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/fem/src/DefUtils.F90 b/fem/src/DefUtils.F90
index 3b5f7ea2ab..e5e35ecc6b 100644
--- 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