Changeset 236 for trunk/SRC/Interpolation/inquad.pro

Timestamp:

03/21/07 18:18:44 (17 years ago)

Author:

pinsard

Message:

replace some print by some report in some .pro #2

File:

• trunk/SRC/Interpolation/inquad.pro (modified) (3 diffs)

trunk/SRC/Interpolation/inquad.pro

@@ -261 +261 @@
 ; points out of the cells
     IF (where(chtest EQ 0))[0] NE -1 THEN BEGIN
-      IF NOT keyword_set(noprint) THEN print, 'Points number '+strjoin(strtrim(where(chtest EQ 0), 1), ', ')+' are out of the grid'
+      IF NOT keyword_set(noprint) THEN BEGIN
+         ras = report('Points number '+strjoin(strtrim(where(chtest EQ 0), 1), ', ')+' are out of the grid')
+      ENDIF
       stop
     ENDIF
 ; points in more than one cell
     IF (where(chtest GT 1))[0] NE -1 THEN BEGIN
-      IF NOT keyword_set(noprint) THEN print, 'Points number '+strjoin(strtrim(where(chtest GT 1), 1), ', ')+' are in more than one cell'
+      IF NOT keyword_set(noprint) THEN BEGIN
+        ras = report('Points number '+strjoin(strtrim(where(chtest GT 1), 1), ', ')+' are in more than one cell')
+      ENDIF
       stop
     ENDIF
@@ -277 +281 @@
     CASE 1 OF
       found[0] EQ -1:BEGIN
-        IF NOT keyword_set(noprint) THEN print, 'The point is out of the cells'
+        IF NOT keyword_set(noprint) THEN BEGIN
+           ras = report('The point is out of the cells')
+        ENDIF
         IF keyword_set(onsphere) THEN BEGIN
 ; restore old !map...
@@ -289 +295 @@
       END
       n_elements(found) GT ntofind:BEGIN
-        IF NOT keyword_set(noprint) THEN print, 'The point is in more than one cell'
+        IF NOT keyword_set(noprint) THEN BEGIN
+          ras = report('The point is in more than one cell')
+        ENDIF
       END
       ELSE: