==========================================================
 
      physics coordinate ---> courant-snyder
 
 ==========================================================
 
subroutine phys_cs(xs,x)
 
COMMONS: 
 
SUBROUTINES USED:
  beta
 
micromap-index
Mon Jul 17 08:57:35 CEST 2017