=================================================================
 
 
      This routine computes Teng's parameter as function
      of the longitudinal position xs.
 
 
 ================================================================
 
SUBROUTINE TENGPARAM(xs,phi,amu1,amu2,alpha1,beta1, alpha2,beta2,a,b,c,d)
 
COMMONS: 
common-initi.f
common-mml-lattice.f
 
SUBROUTINES USED:
  SYMPMA
  TRANS2
  INV2
  CCCP
  UNITY
  PROD2
  SUM2
  PRODS2
 
micromap-index
Mon Jul 17 08:57:36 CEST 2017