====================================================================
 
      Descrition:
      this is like gen_x, but the parametrization is different:
      it is built for the nl_acc routine.
 
 ====================================================================
 
subroutine gen_x1(x,r,n1,n2,n3,nmax)
 
COMMONS: 
common-initi.f
 
SUBROUTINES USED:
 
micromap-index
Mon Jul 17 08:57:31 CEST 2017