;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; is_string_numeric.ncl
; Carl Schreck (cjschrec@ncsu.edu)
; March 2016
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

undef ( "is_string_numeric" )
function is_string_numeric( \
  i_string[*] : string \
)
begin

  okChars = (/ "+", "-", ".", "0", "1", "2", "3", "4", "5", "6", "7", "8",  \
      "9", "E", "e" /)

  retVal = new( dimsizes(i_string), logical )

  do i = 0, dimsizes(i_string)-1
    charArray := stringtocharacter( i_string(i) )
    retVal(i) = True
    do j = 0, dimsizes(charArray)-2
      retVal(i) = retVal(i).and.( any( charArray(j).eq.okChars ) )
    end do
  end do

  return(retVal)
end ; is_string_numeric