Changeset 180 for trunk/procs/def_dbase.pro

Timestamp:

12/08/09 12:05:45 (15 years ago)

Author:

pinsard

Message:

fix some errors in syntax of array

File:

• trunk/procs/def_dbase.pro (modified) (3 diffs)

trunk/procs/def_dbase.pro

@@ -26 +26 @@
 
    WHILE ibase LE nbases - 1 DO BEGIN
-      argvar = strsplit((spec_bases(ibase))[0], ' ', /EXTRACT)
+      argvar = strsplit((spec_bases[ibase])[0], ' ', /EXTRACT)
       IF strpos(expid, argvar[0]) NE -1 THEN BEGIN 
-         database = (strsplit((spec_bases(ibase))[0], ' ', /EXTRACT))[2]
+         database = (strsplit((spec_bases[ibase])[0], ' ', /EXTRACT))[2]
          GOTO, fin 
       ENDIF 
@@ -40 +40 @@
 
    WHILE ibase LE nbase - 1 DO BEGIN
-      argvar = strsplit((data_bases(ibase))[0], ' ', /EXTRACT)
+      argvar = strsplit((data_bases[ibase])[0], ' ', /EXTRACT)
       IF strmid(argvar[0], 0, strlen(argvar[0])-3) EQ expid THEN BEGIN 
-         database = (strsplit((data_bases(ibase))[0], ' ', /EXTRACT))[2]
+         database = (strsplit((data_bases[ibase])[0], ' ', /EXTRACT))[2]
          GOTO, fin 
       ENDIF 
@@ -51 +51 @@
 
    ibase = 0
-   database = (strsplit((data_bases(ibase))[0], ' ', /EXTRACT))[2]
+   database = (strsplit((data_bases[ibase])[0], ' ', /EXTRACT))[2]
 
 fin: