Changeset 240 for trunk/SRC/ReadWrite/readoldopadistcoast.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/ReadWrite/readoldopadistcoast.pro (modified) (1 diff)

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