double precision function atof(words)
      character words*8
      read(words,fmt='(bn,f8.0)') atof
      return
      end