Changeset 240 for trunk/SRC/ReadWrite

Timestamp:

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

Author:

pinsard

Message:

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

Location:

trunk/SRC/ReadWrite

Files:

• read_grads.pro (modified) (1 diff)
• readoldopadistcoast.pro (modified) (1 diff)
• readoldoparestart.pro (modified) (2 diffs)
• scanctl.pro (modified) (1 diff)

trunk/SRC/ReadWrite/read_grads.pro

@@ -179 +179 @@
    infof2read=fstat(unit)
    if infof2read.size NE filesize then begin
-      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))
+      ras = report(['According to '+filename+' the file size must be '+strtrim(filesize, 1)+' instead of '+strtrim(infof2read.size, 1), $
+      'jpi: '+strtrim(jpi, 2), $
+      'jpj: '+strtrim(jpj, 2), $
+      'jpt: '+strtrim(jpt, 2), $
+      'format size in byte: '+strtrim(fmtsz, 2), $
+      'number of xy arrays: '+strtrim(nxybloc, 2)])
       return, -1
    endif

trunk/SRC/ReadWrite/readoldopadistcoast.pro

@@ -103 +103 @@
    size = numrec*reclen-toomuch
    if size NE filepamameters.size then begin
-      ras = report( 'The size of the file is not the expected one!')
-      ras = report( 'Check your file or the values of ibloc, jpiglo,')
-      ras = report( 'jpjglo, jpk, jpbyt, numrec in this program')
+      ras = report(['The size of the file is not the expected one!', $
+      'Check your file or the values of ibloc, jpiglo,', $
+      'jpjglo, jpk, jpbyt, numrec in this program'])
       return, -1
    endif

trunk/SRC/ReadWrite/readoldoparestart.pro

@@ -145 +145 @@
    iname_file = findfile(filename)
    if iname_file[0] EQ '' then begin
-      ras = report( 'Bad file name')
+      ras = report('Bad file name')
       return
    ENDIF ELSE iname_file = iname_file[0]
@@ -165 +165 @@
    size = numrec*reclen-toomuch
    if size NE filepamameters.size then begin
-      ras = report( 'The size of the file is not the expected one!')
-      ras = report( 'Check your file or the values of ibloc, jpiglo,')
-      ras = report( 'jpjglo, jpk, jpbyt, numrec in this program')
+      ras = report(['The size of the file is not the expected one!', $
+      'Check your file or the values of ibloc, jpiglo,', $
+      'jpjglo, jpk, jpbyt, numrec in this program'])
       return
    endif

trunk/SRC/ReadWrite/scanctl.pro

@@ -273 +273 @@
    files = strsplit(files,/extract)
    if n_elements(files) NE 2 then begin
-      ras = report( 'Bad definition of the filename. There should be 2 elements:')
-      ras = report( 'DEST and 1 filename that may define many files')
+      ras = report(['Bad definition of the filename. There should be 2 elements:', $
+      'DEST and 1 filename that may define many files'])
       stop
    endif