Skip to content

Commit

Permalink
removing all print statements which aren't error messages
Browse files Browse the repository at this point in the history
  • Loading branch information
mrachh committed Jun 4, 2024
1 parent 8ac88d2 commit dda60cd
Showing 5 changed files with 0 additions and 8 deletions.
1 change: 0 additions & 1 deletion src/biharmonic/bhfmm2d.f
Original file line number Diff line number Diff line change
@@ -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)
1 change: 0 additions & 1 deletion src/common/pts_tree2d.f
Original file line number Diff line number Diff line change
@@ -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))
2 changes: 0 additions & 2 deletions src/helmholtz/hfmm2d.f
Original file line number Diff line number Diff line change
@@ -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
3 changes: 0 additions & 3 deletions src/helmholtz/hfmm2d_mps.f
Original file line number Diff line number Diff line change
@@ -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
1 change: 0 additions & 1 deletion src/laplace/cfmm2d.f
Original file line number Diff line number Diff line change
@@ -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)

0 comments on commit dda60cd

Please sign in to comment.