Changeset 236 for trunk/SRC/ReadWrite/read_grads.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/ReadWrite/read_grads.pro (modified) (6 diffs)

trunk/SRC/ReadWrite/read_grads.pro

@@ -97 +97 @@
    if keyword_set(timestep) then BEGIN
       if date1 GT date2 then begin
-         print, 'date2 must be larger than date1'
+         ras = report( 'date2 must be larger than date1')
          return, -1
       endif
@@ -106 +106 @@
       jdate2 = time[0] > date2jul(date2, /grads)
       if jdate1 GT jdate2 then begin
-         print, 'date2 must be larger than date1'
+         ras = report('date2 must be larger than date1')
          return, -1
       endif
@@ -114 +114 @@
    ENDELSE
    if t2 LT t1 then begin
-      print, 'There is no date between date1 and date2'
+      ras = report('There is no date between date1 and date2')
       return, -1
    endif
@@ -126 +126 @@
    varid = varid[0]
    if varid EQ -1 then begin
-      print, var+' not found in the variable list of '+filename
+      ras = report(var+' not found in the variable list of '+filename)
       return,  -1
    ENDIF
@@ -159 +159 @@
     , swap_endian = swapbytes
    if err ne 0 then begin
-      print,!err_string
+      ras = report(!err_string)
       return, -1
    endif
@@ -179 +179 @@
    infof2read=fstat(unit)
    if infof2read.size NE filesize then begin
-      print, 'According to '+filename+' the file size must be '+strtrim(filesize, 1)+' instead of '+strtrim(infof2read.size, 1)
-      print, 'jpi: '+strtrim(jpi, 2)
-      print, 'jpj: '+strtrim(jpj, 2)
-      print, 'jpt: '+strtrim(jpt, 2)
-      print, 'format size in byte: '+strtrim(fmtsz, 2)
-      print, 'number of xy arrays: '+strtrim(nxybloc, 2)
+      ras = report('According to '+filename+' the file size must be '+strtrim(filesize, 1)+' instead of '+strtrim(infof2read.size, 1))
+      ras = report( 'jpi: '+strtrim(jpi, 2))
+      ras = report( 'jpj: '+strtrim(jpj, 2))
+      ras = report( 'jpt: '+strtrim(jpt, 2))
+      ras = report( 'format size in byte: '+strtrim(fmtsz, 2))
+      ras = report( 'number of xy arrays: '+strtrim(nxybloc, 2))
       return, -1
    endif