Changeset 240 for trunk/SRC/ReadWrite/readoldoparestart.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/readoldoparestart.pro (modified) (2 diffs)

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