From dda60cd527f14dcf9bbe38759115278f1412bfbf Mon Sep 17 00:00:00 2001
From: Manas Rachh <mrachh@flatironinstitute.org>
Date: Mon, 3 Jun 2024 23:58:22 -0400
Subject: [PATCH] removing all print statements which aren't error messages

---
 src/biharmonic/bhfmm2d.f   | 1 -
 src/common/pts_tree2d.f    | 1 -
 src/helmholtz/hfmm2d.f     | 2 --
 src/helmholtz/hfmm2d_mps.f | 3 ---
 src/laplace/cfmm2d.f       | 1 -
 5 files changed, 8 deletions(-)

diff --git a/src/biharmonic/bhfmm2d.f b/src/biharmonic/bhfmm2d.f
index 6182a0d..d1cbbf6 100644
--- a/src/biharmonic/bhfmm2d.f
+++ b/src/biharmonic/bhfmm2d.f
@@ -997,7 +997,6 @@ subroutine bhfmm2dmain(nd,eps,
 C$    time2=omp_get_wtime()
       timeinfo(2)=time2-time1
 
-cc      print *, ldc
 cc      call prin2('carray=*',carray,(ldc+1)*(ldc+1))
 
       if(ifprint .ge. 1)
diff --git a/src/common/pts_tree2d.f b/src/common/pts_tree2d.f
index 111f713..b89ccdf 100644
--- a/src/common/pts_tree2d.f
+++ b/src/common/pts_tree2d.f
@@ -250,7 +250,6 @@ subroutine pts_tree_mem(src,ns,targ,nt,idivflag,ndiv,nlmin,nlmax,
 c         if current memory is not sufficient reallocate
 c
         if(nbtot.gt.nbmax) then
-           print *, "Reallocating"
            allocate(centers2(2,nbmax),ilevel2(nbmax),iparent2(nbmax))
            allocate(nchild2(nbmax),ichild2(4,nbmax),isrcse2(2,nbmax))
            allocate(itargse2(2,nbmax))
diff --git a/src/helmholtz/hfmm2d.f b/src/helmholtz/hfmm2d.f
index 4fcb08c..8a974ff 100644
--- a/src/helmholtz/hfmm2d.f
+++ b/src/helmholtz/hfmm2d.f
@@ -1056,7 +1056,6 @@ subroutine hfmm2dmain(nd,eps,
            allocate(wsave(4*nsig+100))
            allocate(transvecmpmp(nsig,4))
            call zffti(nsig, wsave)
-           if(ifprint.ge.1) print *, "Doing mpmp using hf"
            c2(1) = 0.0d0
            c2(2) = 0.0d0
            do jbox=1,4
@@ -1119,7 +1118,6 @@ subroutine hfmm2dmain(nd,eps,
         dlam = 1/(dlam/(2*pi))                 
         boxlam = boxsize(ilev)/dlam
         call zffti(nsig,wsave)
-        if(boxlam.gt.16.and.ifprint.ge.1) print *, "in high freq"
 c
 c   precompute mp to sig for all boxes 
 c       
diff --git a/src/helmholtz/hfmm2d_mps.f b/src/helmholtz/hfmm2d_mps.f
index 51af816..e2abf93 100644
--- a/src/helmholtz/hfmm2d_mps.f
+++ b/src/helmholtz/hfmm2d_mps.f
@@ -111,7 +111,6 @@ subroutine hfmm2d_mps(nd,eps,zk,nmpole,cmpole,rmpole,
 
       idivflag = 0
       ndiv = 1
-      print *, "ndiv still needs to be optimized"
 
 
 
@@ -654,7 +653,6 @@ subroutine hfmm2dmain_mps(nd,eps,
            allocate(wsave(4*nsig+100))
            allocate(transvecmpmp(nsig,4))
            call zffti(nsig, wsave)
-           if(ifprint.ge.1) print *, "Doing mpmp using hf"
            c2(1) = 0.0d0
            c2(2) = 0.0d0
            do jbox=1,4
@@ -717,7 +715,6 @@ subroutine hfmm2dmain_mps(nd,eps,
         dlam = 1/(dlam/(2*pi))                 
         boxlam = boxsize(ilev)/dlam
         call zffti(nsig,wsave)
-        if(boxlam.gt.16.and.ifprint.ge.1) print *, "in high freq"
 c
 c   precompute mp to sig for all boxes 
 c       
diff --git a/src/laplace/cfmm2d.f b/src/laplace/cfmm2d.f
index dd1d87d..2fc8ac0 100644
--- a/src/laplace/cfmm2d.f
+++ b/src/laplace/cfmm2d.f
@@ -952,7 +952,6 @@ subroutine cfmm2dmain(nd,eps,
 C$    time2=omp_get_wtime()
       timeinfo(2)=time2-time1
 
-cc      print *, ldc
 cc      call prin2('carray=*',carray,(ldc+1)*(ldc+1))
 
       if(ifprint .ge. 1)