Changeset 240 for trunk/SRC/Grid/numbisland.pro

Timestamp:

03/28/07 14:17:24 (17 years ago)

Author:

pinsard

Message:

replace some print by some report in some .pro (continuation)

File:

• trunk/SRC/Grid/numbisland.pro (modified) (1 diff)

trunk/SRC/Grid/numbisland.pro

@@ -90 +90 @@
   land = (where(msk EQ 0, count))[0]
   WHILE count NE 0 DO BEGIN
-    IF (islnumb-9) MOD 10 EQ 0 THEN print,  'island number :'+strtrim(islnumb-9, 1)
-
+    IF (islnumb-9) MOD 10 EQ 0 THEN BEGIN
+       ras = report('island number :'+strtrim(islnumb-9, 1))
+    ENDIF
     mskneig, msk, nx, ny, land, islnumb