logical function qnumbr(string)
      character*(*) string
      character digits*18
      data digits/'0123456789+-.edED '/
      do 10 i=1,len(string)
         if (index(digits,string(i:i)).eq.0) go to 20
 10      continue
      qnumbr=.true.
      return
 20   qnumbr=.false.
      return
      end