310 lines
5.4 KiB
Plaintext
310 lines
5.4 KiB
Plaintext
**** 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
|