Changeset 114 for trunk/SRC/ReadWrite/readoldopadistcoast.pro

Timestamp:

06/19/06 16:14:56 (18 years ago)

Author:

smasson

Message:

new compilation options (compile_opt idl2, strictarrsubs) in each routine

File:

• trunk/SRC/ReadWrite/readoldopadistcoast.pro (modified) (2 diffs)

trunk/SRC/ReadWrite/readoldopadistcoast.pro

@@ -23 +23 @@
 
 FUNCTION read3fromopa, unit, params, num
+;
+  compile_opt idl2, strictarrsubs
+;
    offset=params.reclen*params.jpk*(num-1L)
    a=assoc(unit,dblarr(params.jpiglo,params.jpjglo,params.jpk,/nozero),offset)
@@ -42 +45 @@
 ;-
 FUNCTION readoldopadistcoast, filename, jpiglo, jpjglo, jpk, IBLOC = ibloc, JPBYT = jpbyt, NUMREC = numrec
+;
+;
+  compile_opt idl2, strictarrsubs
 ;
    iname_file = findfile(filename)