Changeset 114 for trunk/SRC/ReadWrite/writebat.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/writebat.pro (modified) (3 diffs)

trunk/SRC/ReadWrite/writebat.pro

@@ -16 +16 @@
 ;-
 PRO writebat, zbat, filename
+;
+  compile_opt idl2, strictarrsubs
+;
 ; basic checks
   IF n_params() NE 2 THEN BEGIN
@@ -61 +64 @@
     iformat = string('(', il3+2, 'i3)')
     FOR jj =  jpj2-1, 0, -1  DO BEGIN
-      zbati(0:il3) = zbat(il1:il2, jj)
+      zbati[0:il3] = zbat[il1:il2, jj]
       printf, iunit, FORMAT = iformat, jj+1, zbati
     END
@@ -77 +80 @@
   iformat = string('(', il3+2, 'i3)')
   FOR jj =  jpj2-1, 0, -1  DO BEGIN
-    zbati2(0:irest-1) = 0
-    zbati2(0:il3) = zbat(il1:il2, jj)
+    zbati2[0:irest-1] = 0
+    zbati2[0:il3] = zbat[il1:il2, jj]
     printf, iunit, FORMAT = iformat, jj+1, zbati2
   END