===============================================
 
     Description:
     generates a particle at the radius r ad angles
 
     Arguments:
     x = vector of 6 components of the initial value of
         the particle to be tracked.
     n1,n2,n3. nmax is the maximum number of divisions.
 
 ================================================
 
subroutine gen_x(x,r,n1,n2,n3,nmax)
 
COMMONS: 
common-initi.f
 
SUBROUTINES USED:
 
micromap-index
Mon Jul 17 08:57:31 CEST 2017