**** KEYLIST -- this defines what kind of keys genANN is able to process syntactially

      keylist=' '

!     The only "special" key in the sense that it terminates input
      keylist(1, 1)='DATA:'
      keylist(2, 1)='E!'

      keylist(1, 2)='SEED:'
      keylist(2, 2)='+I1'

      keylist(1, 3)='NSET:'
      keylist(2, 3)='+I1'

      keylist(1, 4)='SETS:'
      keylist(2, 4)='+IN'

      keylist(1, 5)='NPAT:'
      keylist(2, 5)='+I1'

      keylist(1, 6)='NPOINTS:'
      keylist(2, 6)='+IN'

      keylist(1, 7)='VALIDATION:'
      keylist(2, 7)='+I1'

      keylist(1, 8)='RANDOM:'
      keylist(2, 8)='E'

      keylist(1, 9)='FREEZE:'
      keylist(2, 9)='E'

      keylist(1,10)='DRYRUN:'
      keylist(2,10)='E'

      keylist(1,11)='RECORD:'
      keylist(2,11)='C1'

      keylist(1,12)='NLAY:'
      keylist(2,12)='+I!1'

      keylist(1,13)='NEUPOP:'
      keylist(2,13)='+I!N'

      keylist(1,14)='TYPOP:'
      keylist(2,14)='+I!N'

      keylist(1,15)='DEPRECATED:'
      keylist(2,15)='E'

      keylist(1,16)='DEPRECATED:'
      keylist(2,16)='E'

      keylist(1,17)='INPUTS:'
      keylist(2,17)='+I1'

      keylist(1,18)='OUTPUTS:'
      keylist(2,18)='+I1'

      keylist(1,19)='MAXFAILS:'
      keylist(2,19)='+I1'

      keylist(1,20)='NOMAXFAILS:'
      keylist(2,20)='E'

      keylist(1,21)='REFFAILS:'
      keylist(2,21)='+I1'

      keylist(1,22)='NOREFFAILS:'
      keylist(2,22)='E'

      keylist(1,23)='DEPRECATED:'
      keylist(2,23)='E'

      keylist(1,24)='MICIT:'
      keylist(2,24)='+I1'

      keylist(1,25)='MAXBPIT:'
      keylist(2,25)='+I1'

      keylist(1,26)='GSPREAD:'
      keylist(2,26)='+D1'

      keylist(1,27)='WSPREAD:'
      keylist(2,27)='+D1'

      keylist(1,28)='BSPREAD:'
      keylist(2,28)='+D1'

      keylist(1,29)='HART2EV:'
      keylist(2,29)='E'

      keylist(1,30)='HART2ICM:'
      keylist(2,30)='E'

      keylist(1,31)='ARBUNITS:'
      keylist(2,31)='+D1'

      keylist(1,32)='UCUSTOM:'
      keylist(2,32)='C2'

      keylist(1,33)='RMSOPT:'
      keylist(2,33)='+D1'

      keylist(1,34)='MINGRAD:'
      keylist(2,34)='+D1'

      keylist(1,35)='MINWBSTEP:'
      keylist(2,35)='+D1'

      keylist(1,36)='DEPRECATED:'
      keylist(2,36)='E'

      keylist(1,37)='ECHO:'
      keylist(2,37)='CN'

      keylist(1,38)='ERRCUT:'
      keylist(2,38)='DN'

      keylist(1,39)='CUTWT:'
      keylist(2,39)='+DN'

      keylist(1,40)='INSHIFT:'
      keylist(2,40)='DN'

      keylist(1,41)='INSCALE:'
      keylist(2,41)='DN'

      keylist(1,42)='NORMINP:'
      keylist(2,42)='E'

      keylist(1,43)='ZERO:'
      keylist(2,43)='E'

      keylist(1,44)='VALPER:'
      keylist(2,44)='+D1'

      keylist(1,45)='DEPRECATED:'
      keylist(2,45)='E'

      keylist(1,46)='RUNCHUNK:'
      keylist(2,46)='+I2'

      keylist(1,47)='RUNFROM:'
      keylist(2,47)='+I1'

      keylist(1,48)='RUNTO:'
      keylist(2,48)='+I1'

      keylist(1,49)='LEGACY-WT:'
      keylist(2,49)='E'

      keylist(1,50)='INCLUDE-DATA:'
      keylist(2,50)='C1'

      keylist(1,51)='NOSCANWALK:'
      keylist(2,51)='E'

      keylist(1,52)='LAMBDA:'
      keylist(2,52)='+D1'

      keylist(1,53)='MQFACT:'
      keylist(2,53)='+D1'

!      keylist(1,54)=
!      keylist(2,54)=
!
!      keylist(1,55)=
!      keylist(2,55)=
!
!      keylist(1,56)=
!      keylist(2,56)=
!
!      keylist(1,57)=
!      keylist(2,57)=
!
!      keylist(1,58)=
!      keylist(2,58)=
!
!      keylist(1,59)=
!      keylist(2,59)=
!
!      keylist(1,60)=
!      keylist(2,60)=

!      keylist(1,61)=
!      keylist(2,61)=
!
!      keylist(1,62)=
!      keylist(2,62)=
!
!      keylist(1,63)=
!      keylist(2,63)=
!
!      keylist(1,64)=
!      keylist(2,64)=
!
!      keylist(1,65)=
!      keylist(2,65)=
!
!      keylist(1,66)=
!      keylist(2,66)=
!
!      keylist(1,67)=
!      keylist(2,67)=
!
!      keylist(1,68)=
!      keylist(2,68)=
!
!      keylist(1,69)=
!      keylist(2,69)=
!
!      keylist(1,70)=
!      keylist(2,70)=
!
!      keylist(1,71)=
!      keylist(2,71)=
!
!      keylist(1,72)=
!      keylist(2,72)=
!
!      keylist(1,73)=
!      keylist(2,73)=
!
!      keylist(1,74)=
!      keylist(2,74)=
!
!      keylist(1,75)=
!      keylist(2,75)=
!
!      keylist(1,76)=
!      keylist(2,76)=
!
!      keylist(1,77)=
!      keylist(2,77)=
!
!      keylist(1,78)=
!      keylist(2,78)=
!
!      keylist(1,79)=
!      keylist(2,79)=
!
!      keylist(1,80)=
!      keylist(2,80)=
!
!      keylist(1,81)=
!      keylist(2,81)=
!
!      keylist(1,82)=
!      keylist(2,82)=
!
!      keylist(1,83)=
!      keylist(2,83)=
!
!      keylist(1,84)=
!      keylist(2,84)=
!
!      keylist(1,85)=
!      keylist(2,85)=
!
!      keylist(1,86)=
!      keylist(2,86)=
!
!      keylist(1,87)=
!      keylist(2,87)=
!
!      keylist(1,88)=
!      keylist(2,88)=
!
!      keylist(1,89)=
!      keylist(2,89)=
!
!      keylist(1,90)=
!      keylist(2,90)=
!
!      keylist(1,91)=
!      keylist(2,91)=
!
!      keylist(1,92)=
!      keylist(2,92)=
!
!      keylist(1,93)=
!      keylist(2,93)=
!
!      keylist(1,94)=
!      keylist(2,94)=
!
!      keylist(1,95)=
!      keylist(2,95)=
!
!      keylist(1,96)=
!      keylist(2,96)=
!
!      keylist(1,97)=
!      keylist(2,97)=
!
!      keylist(1,98)=
!      keylist(2,98)=
!
!      keylist(1,99)=
!      keylist(2,99)=

      do j=1,maxkeys
         if (keylist(1,j)(1:1).eq.' ') then
            keynum=j-1
            write(6,'("Number of accepted input keys: ",I3)') keynum
            exit
         endif
      enddo