c parameters for fel ( felget,main )
      integer ncnfm, nelem
      parameter(ncnfm = 40, nelem = 20)
      integer  buflen, strlen
c  add new element to the list below
      parameter( buflen = 1024, strlen = 80 )
      character*6 knfel, knafre, knedrf, knmirr, knesrc, knaini
      character*6 kneopt, knoutp, knconj, knenrm, knztun
      character*6 knztrd, knisrc, knrdst, kndsp, knesft
      character*6 knsapa, knrapa, knaapa
      character*6 knqmag
      character*6 knauni, knagau
      character*6 knadrf
      character*6 knausr
c  add here to install new type of element
      character*6 knnew
      character*6 knterm
      parameter( 
     &     knfel ='FEL   ' , knafre='AFREE ' , knmirr='MIRROR'
     &  ,  knesrc='ESOURC' , knaini='AINIT ' , knedrf='EDRIFT'
     &  ,  kneopt='EOPTIC' , knoutp='OUTPUT' , knconj='CONJG '
     &  ,  knztun='ZTUNIF' , knenrm='ENORM ' , knztrd='ZTRDST'
     &  ,  knisrc='ISOREC' , knrdst='EREDST' , kndsp ='DSPSCT'
     &  ,  knesft='ESHIFT' 
     &  ,  knqmag='QMAG  ' , knadrf='ADRIFT'
     &  ,  knsapa='SAPATU' , knrapa='RAPATU', knaapa='AAPATU'
     &  ,  knagau='AGAUSS'
     &  ,  knauni='AUNIFO' , knausr='AUSER'
c  add here to install  new kind of element
     &        ,  knnew ='NEW'
     &        ,  knterm ='TERM  ' )
      character*6 sbegin, send
      parameter( sbegin = 'BEGIN ', send = 'END   ' )
c parameters for debug
      character*6 kndebg
      parameter ( kndebg = 'DEBUG ' )
c parameters for output
      integer    nsoutp
      parameter ( nsoutp = 3 )
      character*6 stoutp(nsoutp)
c parameters for wigglr
      integer     nstwgk
      parameter ( nstwgk = 2 )
      character*6 stwgk(nstwgk)
c
      common / stdata /  stoutp, stwgk