From aecbe577d91d470181488169ea26bb1dc5df6050 Mon Sep 17 00:00:00 2001
From: ryoji <ryoji@971fb155-194f-0410-9daf-e2eca44e59f5>
Date: Fri, 5 Jan 2001 10:55:26 +0000
Subject: add pughreduce.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/DistortedBHIVP/trunk@17 971fb155-194f-0410-9daf-e2eca44e59f5
---
 src/Stab3d.F | 3 ---
 1 file changed, 3 deletions(-)

(limited to 'src')

diff --git a/src/Stab3d.F b/src/Stab3d.F
index dd8292e..f8ca5e0 100644
--- a/src/Stab3d.F
+++ b/src/Stab3d.F
@@ -237,9 +237,6 @@ c      rnorm = sum(r**2)
       rnorm=sqrt(rnorm)
             
       if (rnorm .gt. tol) goto 1
-      print*,'-----------' 
-      write(*,*) "ncyc=",kk
-      print*,'-----------------------------------------------------------'
       return
       end
 c
-- 
cgit v1.2.3