===========================================
 
      COMPUTE THE TUNES WITH OFF MOMENTUM
 
 ===========================================
 
subroutine TUNESCHR(deltap,qx,qy)
 
COMMONS: 
common-initi.f
common-mml-lattice.f
 
SUBROUTINES USED:
  beta
  DYNMAP
  cccp
 
micromap-index
Mon Jul 17 08:57:36 CEST 2017