=========================================================
 
      Initialize the poisson parameter for a given
      beam current (in Amperes)
 
 
 =========================================================
 
subroutine initi_current(current1)
 
COMMONS: 
common-initi.f
common-2Dsc-beam.f
common-2Dsc-simulation.f
common-mml-lattice.f
 
SUBROUTINES USED:
  messages_n
  initi_perveance
 
micromap-index
Mon Jul 17 08:57:38 CEST 2017