From d687719fc68ce1f1f2d3b4ba6cf54542db36d6d7 Mon Sep 17 00:00:00 2001
From: Tjerk Straatsma <straatsmatp@ornl.gov>
Date: Thu, 17 Aug 2000 22:14:00 +0000
Subject: [PATCH] remove debug print

---
 src/analyz/ana_tag.F | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/analyz/ana_tag.F b/src/analyz/ana_tag.F
index e76b5410f7..f6faec37d5 100644
--- a/src/analyz/ana_tag.F
+++ b/src/analyz/ana_tag.F
@@ -1,6 +1,6 @@
       subroutine ana_tag(card,sgmnam,x)
 c
-c $Id: ana_tag.F,v 1.6 2000-07-13 23:49:39 edo Exp $
+c $Id: ana_tag.F,v 1.7 2000-08-17 22:14:00 d3j191 Exp $
 c
       implicit none
 c
@@ -48,7 +48,7 @@ c
      + i7,' through ',i7,' and atoms within ',f12.6, ' nm')
       if(cs(1:1).eq.'_') cs(1:1)=' '
       do 3 i=1,nsa
-      print*,sgmnam(i)
+cx      print*,sgmnam(i)
       read(sgmnam(i),'(5x,a5,i6)') ct,it
       do 4 j=1,5
       if(cs(j:j).eq.'?') ct(j:j)='?'
@@ -70,11 +70,9 @@ c
 c
 c     broadcast to all nodes
 c
-#if !defined(WIN32)
       if(np.gt.1) then
       call ga_brdcst(mag_d06,byte_mb(i_tag),48*nsa,0)
       endif
-#endif
 c
       return
 c