C ETACOM     ETA FOR ACCELERATOR PARAMETERS
C
C ETA             ACCELERATOR ETA FUNCTION (MOMENTUM DEPENDENCE)
C ETAV(6,NPVAR)   DERIVATIVE OF ETA
C
      REAL            ETA(6), ETAV(6,NPVAR)
C
      COMMON /ETACOM/ ETA, ETAV