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

trunk/SRC/ReadWrite/readoldoparestart.pro

@@ -145 +145 @@
    iname_file = findfile(filename)
    if iname_file[0] EQ '' then begin
-      print, '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
-      print, 'The size of the file is not the expected one!'
-      print, 'Check your file or the values of ibloc, jpiglo,'
-      print, 'jpjglo, jpk, jpbyt, numrec in this program'
+      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')
       return
    endif