fixing default behavior to not print in helmholtz fmm

flatironinstitute · Nov 1, 2023 · 9779529 · 9779529
1 parent 1da75f6
commit 9779529
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/helmholtz/hfmm2d.f b/src/helmholtz/hfmm2d.f
@@ -150,7 +150,7 @@ subroutine hfmm2d(nd,eps,zk,ns,sources,ifcharge,charge,
       ifunif = 0
       iper = 0
 
-      ifprint = 1
+      ifprint = 0
 
 c
 c  turn on computation of list 1
@@ -702,7 +702,7 @@ subroutine hfmm2dmain(nd,eps,
 c     Prints timing breakdown and other things if ifprint=1.
 c     Prints timing breakdown, list information, and other things if ifprint=2.
 c      
-        ifprint=1
+        ifprint=0
 
         pi = 4*atan(1.0d0)
 c