From 238b1489e5811527eb5f8101710d73383423ce8a Mon Sep 17 00:00:00 2001
From: diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a>
Date: Tue, 29 Nov 2005 12:59:26 +0000
Subject: Remove some commented debugging print statements.

git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@41 f69c4107-0314-4c4f-9ad4-17e986b73f4a
---
 src/Derivatives_6_5.F90 | 8 --------
 1 file changed, 8 deletions(-)

diff --git a/src/Derivatives_6_5.F90 b/src/Derivatives_6_5.F90
index 60b55a2..411bd59 100644
--- a/src/Derivatives_6_5.F90
+++ b/src/Derivatives_6_5.F90
@@ -28,7 +28,6 @@ subroutine deriv_gf_6_5 ( var, ni, nj, nk, dir, bb, gsize, delta, dvar )
   logical, save :: first = .true.
 
   if ( first ) then
-!    print*,'6-5 called'
     a(1) = 3.0_wp/4.0_wp; a(2) = -3.0_wp/20.0_wp; a(3) = 1.0_wp/60.0_wp
 
     q(1,1) = -137.0_wp/60.0_wp; q(2,1) = 5.0_wp; q(3,1) = -5.0_wp;
@@ -143,7 +142,6 @@ subroutine deriv_gf_6_5 ( var, ni, nj, nk, dir, bb, gsize, delta, dvar )
                       q(7,7) * var(7,:,:) + q(8,7) * var(8,:,:) + &
                       q(9,7) * var(9,:,:) + q(10,7) * var(10,:,:) ) * idel
       il = 8
-!      print*,'x-'
     end if
     if ( bb(2) == 0 ) then
       ir = ni - gsize
@@ -187,7 +185,6 @@ subroutine deriv_gf_6_5 ( var, ni, nj, nk, dir, bb, gsize, delta, dvar )
                            q(5,1) * var(ni-4,:,:) + &
                            q(6,1) * var(ni-5,:,:) ) * idel
       ir = ni - 7
-!      print*,'x+'
     end if
     dvar(il:ir,:,:) = ( a(1) * ( var(il+1:ir+1,:,:) - &
                                  var(il-1:ir-1,:,:) ) + &
@@ -231,7 +228,6 @@ subroutine deriv_gf_6_5 ( var, ni, nj, nk, dir, bb, gsize, delta, dvar )
                       q(5,7) * var(:,5,:) + q(6,7) * var(:,6,:) + &
                       q(7,7) * var(:,7,:) + q(8,7) * var(:,8,:) + &
                       q(9,7) * var(:,9,:) + q(10,7) * var(:,10,:) ) * idel
-!      print*,'y-'
       jl = 8
     end if
     if ( bb(2) == 0 ) then
@@ -275,7 +271,6 @@ subroutine deriv_gf_6_5 ( var, ni, nj, nk, dir, bb, gsize, delta, dvar )
                            q(3,1) * var(:,nj-2,:) + q(4,1) * var(:,nj-3,:) + &
                            q(5,1) * var(:,nj-4,:) + &
                            q(6,1) * var(:,nj-5,:) ) * idel
-!      print*,'y+'
       jr = nj - 7
     end if
     dvar(:,jl:jr,:) = ( a(1) * ( var(:,jl+1:jr+1,:) - &
@@ -320,7 +315,6 @@ subroutine deriv_gf_6_5 ( var, ni, nj, nk, dir, bb, gsize, delta, dvar )
                       q(5,7) * var(:,:,5) + q(6,7) * var(:,:,6) + &
                       q(7,7) * var(:,:,7) + q(8,7) * var(:,:,8) + &
                       q(9,7) * var(:,:,9) + q(10,7) * var(:,:,10) ) * idel
-!      print*,'z-'
       kl = 8
     end if
     if ( bb(2) == 0 ) then
@@ -364,7 +358,6 @@ subroutine deriv_gf_6_5 ( var, ni, nj, nk, dir, bb, gsize, delta, dvar )
                            q(3,1) * var(:,:,nk-2) + q(4,1) * var(:,:,nk-3) + &
                            q(5,1) * var(:,:,nk-4) + &
                            q(6,1) * var(:,:,nk-5) ) * idel
-!      print*,'z+'
       kr = nk - 7
     end if
     dvar(:,:,kl:kr) = ( a(1) * ( var(:,:,kl+1:kr+1) - &
@@ -374,5 +367,4 @@ subroutine deriv_gf_6_5 ( var, ni, nj, nk, dir, bb, gsize, delta, dvar )
                         a(3) * ( var(:,:,kl+3:kr+3) - &
                                  var(:,:,kl-3:kr-3) ) ) * idel
   end select direction
-!  print*,'Exiting'
 end subroutine deriv_gf_6_5
-- 
cgit v1.2.3