c---------------------------------
       IMPLICIT DOUBLE PRECISION (A-H,O-Z)
       PARAMETER ( pi =3.1415926535d0)
       PARAMETER ( sq2 = 1.414213562d0)
       Common /PARShalo/ xmax,aL2,En,alpha
       Common /Auxil/ x1out,eps1,eps2,x_out,Phimax
       Common /Orbs/ norb,Nseed,Sigma,Vrad,Vperp