replaced use of strnumber by valid_num to fix a bug under gdl on some plateforms ... git status

Jean-Philippe Bernard
1 parent 56829eab
Showing 1 changed file with 6 additions and 1 deletions Show diff stats
src/idl_misc/Astron_for_Dustemwrap/pro/misc/readcol.pro
@@ -292,6 +292,7 @@ pro readcol,name,v1,V2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15, $
         ngood--
         if ~keyword_set(SILENT) then $
            message,'Skipping Line ' + strtrim(skipline+j+1,2),/INF
+           ;stop
         goto, BADLINE 
      endif
  
@@ -300,6 +301,7 @@ pro readcol,name,v1,V2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15, $
         ngood--
         if keyword_set(DEBUG) then $
            message,'Skipping Comment Line ' + strtrim(skipline+j+1,2),/INF
+         stop
         goto, BADLINE 
      endif
  
@@ -309,6 +311,7 @@ pro readcol,name,v1,V2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15, $
      if N_elements(var) LT nfmt then begin 
         if ~keyword_set(SILENT) then $ 
            message,'Skipping Line ' + strtrim(skipline+j+1,2),/INF 
+         ;stop
         ngood--            
         goto, BADLINE           ;Enough columns?
      endif
@@ -325,10 +328,12 @@ pro readcol,name,v1,V2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15, $
      for i = 0L,ncol-1 do begin
  
         if check_numeric[i] then begin                      ;Check for valid numeric data
-           tst = strnumber(var[i],val,hex=hex[i],NAN=nan)   ;Valid number?
+           ;tst = strnumber(var[i],val,hex=hex[i],NAN=nan)   ;Valid number?
+           tst = valid_num(var[i])    ;Modified by JPB to avoid nasty bug on some plateforms with GDL
            if ~tst  then begin                           ;If not, skip this line
               if ~keyword_set(SILENT) then $ 
                  message,'Skipping Line ' + strtrim(skipline+j+1,2),/INF 
+               ;stop
               ngood--
               goto, BADLINE 
            endif