============================================================= subroutine set_dqy(dqy,qx,qy) COMMONS: common-initi.f common-mml-lattice.f common-2Dsc-beam.f common-2Dsc-simulation.f SUBROUTINES USED: LASLETT initi_current initi_kv_beta1 LDCS betanew TUNES_KV_BETA0 micromap-index Mon Jul 17 08:57:38 CEST 2017