--- MITgcm_contrib/cg2d_bench/print.F	2006/05/12 21:58:06	1.1
+++ MITgcm_contrib/cg2d_bench/print.F	2006/05/12 22:25:15	1.2
@@ -1,3 +1,4 @@
+C $Id: print.F,v 1.2 2006/05/12 22:25:15 ce107 Exp $
 C--   File printf.F: Routines for performing formatted textual I/O
 C--                  in the MITgcm UV implementation environment.
 C--    Contents
@@ -33,7 +34,7 @@
       INTEGER jLo, jHi
       INTEGER kLo, kHi
       INTEGER nBx, nBy
-      REAL fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy)
+      Real fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy)
       INTEGER iMin, iMax, iStr
       INTEGER jMin, jMax, jStr
       INTEGER kMin, kMax, kStr
@@ -54,10 +55,10 @@
       INTEGER lChList
       PARAMETER ( lChList = 28 )
       CHARACTER*(lChList) chList
-      REAL fMin
-      REAL fMax
-      REAL fRange
-      REAL small
+      Real fMin
+      Real fMax
+      Real fRange
+      Real small
       INTEGER I, J, K, bi, bj, iStrngLo, iStrngHi, iBuf, iDx
       LOGICAL validRange
 
@@ -189,11 +190,11 @@
            DO I=iMin, iMax, iStr
             iBuf = iBuf + 1
             IDX = NINT( 
-     &             FLOAT( lChList-1 )*( fld(I,J,K,bi,bj)-fMin ) / (fRange) 
-     &            )+1
+     &           FLOAT( lChList-1 )*( fld(I,J,K,bi,bj)-fMin ) / (fRange)
+     $           )+1
             IF ( iBuf .LE. MAX_LEN_PLOTBUF ) 
      &       plotBuf(iBuf:iBuf) = chList(IDX:IDX)
-            IF ( fld(I,J,K,bi,bj) .EQ. 0. ) THEN
+            IF ( fld(I,J,K,bi,bj) .EQ. 0. _d 0) THEN
              IF ( iBuf .LE. MAX_LEN_PLOTBUF ) 
      &        plotBuf(iBuf:iBuf) = '*'
             ENDIF
@@ -279,5 +280,3 @@
 C
       RETURN
       END
-
-C $Id: print.F,v 1.1 2006/05/12 21:58:06 ce107 Exp $