Changeset 114 for trunk/SRC/Textoidl/nexttok.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/Textoidl/nexttok.pro (modified) (2 diffs)

trunk/SRC/Textoidl/nexttok.pro

@@ -54 +54 @@
                   POSITION=position, $
                   HELP=Help
+;
+  compile_opt idl2, strictarrsubs
+;
 
 ;  Return to caller on error.
@@ -92 +95 @@
     Matches = 0L
     FOR j=0, NumToks-1 DO BEGIN 
-        TmpMatch = where(TmpStr EQ TmpTok(j),  TmpCnt)
+        TmpMatch = where(TmpStr EQ TmpTok[j],  TmpCnt)
         IF (TmpCnt GT 0) THEN BEGIN
             MatchIdx = [MatchIdx, Replicate(j, TmpCnt)]