============================================================
 
      Compute nonlinear acceptance with one turn map
 
 ============================================================
 
subroutine nl_acc(rang,nmax,acc_n,r_eff,acc_matrix)
 
COMMONS: 
common-initi.f
common-2Dsc-simulation.f
 
SUBROUTINES USED:
  timeexini
  borderda_ex
 
micromap-index
Mon Jul 17 08:57:32 CEST 2017