Commit 5948a673 authored by Plaszczynski Stephane's avatar Plaszczynski Stephane
Browse files

No commit message

No commit message
parent 2f9319a0
function strindex, arr, pattern,silent=silent
w=where(strmatch(arr,pattern),cnt)
if (cnt eq 0 and not keyword_set(silent)) then print,"WARNING: " ,pattern, " NOT FOUND"
if (cnt gt 1 and not keyword_set(silent)) then print,"WARNING: more than one occurence of " ,pattern, " foiund : returningfirst"
return,w[0]
end
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment