--- MITgcm/eesupp/src/print.F	1999/05/24 15:22:00	1.15
+++ MITgcm/eesupp/src/print.F	2001/02/04 14:38:44	1.17
@@ -1,4 +1,5 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/src/print.F,v 1.15 1999/05/24 15:22:00 adcroft Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/src/print.F,v 1.17 2001/02/04 14:38:44 cnh Exp $
+C $Name:  $
 
 #include "CPP_EEOPTIONS.h"
 
@@ -180,7 +181,7 @@
       xOld = fld(1)
       DO K=2,lFld
        xNew = fld(K  )
-       IF ( .NOT. compact .OR. xNew .NE. xOld ) THEN
+       IF ( .NOT. compact .OR. (xNew .NE. xOld) ) THEN
         nDup = iHi-iLo+1
         IF ( nDup .EQ. 1 ) THEN
          WRITE(msgBuf,'(A,I9,A)') '              ',xOld,punc
@@ -294,7 +295,7 @@
       xOld = fld(1)
       DO K=2,lFld
        xNew = fld(K  )
-       IF ( .NOT. compact .OR. xNew .NEQV. xOld ) THEN
+       IF ( .NOT. compact .OR. (xNew .NEQV. xOld) ) THEN
         nDup = iHi-iLo+1
         IF ( nDup .EQ. 1 ) THEN
          WRITE(msgBuf,'(A,L5,A)') '              ',xOld,punc
@@ -408,7 +409,7 @@
       xOld = fld(1)
       DO K=2,lFld
        xNew = fld(K  )
-       IF ( .NOT. compact .OR. xNew .NE. xOld ) THEN
+       IF ( .NOT. compact .OR. (xNew .NE. xOld) ) THEN
         nDup = iHi-iLo+1
         IF ( nDup .EQ. 1 ) THEN
          WRITE(msgBuf,'(A,1PE23.15,A)') '              ',xOld,punc