c---------------------------------
       IMPLICIT DOUBLE PRECISION (A-H,O-Z)
       PARAMETER ( pi =3.1415926535d0)
       PARAMETER ( sq2 = 1.414213562d0)
       Common /PARShalo/ Conc,aMvir,rs,deltcr
       Common /Auxil/ x1out,eps1,eps2,x_out,
     &        fcons,xp