==========================================================
 
      this subroutine compute the single particle tune:
      tune si computed after two application of this routine.
      therefore you need the common tunespacecharge1 and nnd1
      has to be setted to 0: nnd1 = 0 before you start to use
      this routine
 
 ===========================================================
 
subroutine tunesp1(np)
 
COMMONS: 
common-initi.f
common-mml-lattice.f
common-2Dsc-simulation.f
common-2Dsc-beam.f
 
SUBROUTINES USED:
  PERIODICDISPERSION
  TUNES
 
micromap-index
Mon Jul 17 08:57:40 CEST 2017