c
	parameter ( ncint = 20 )
	common /curco/  curcoef(njp1,nk2p3,ncint),
     $       y2ion_old(njp1,nk2p3), lmin(njp1,nk2p3),
     $       lmax(njp1,nk2p3),lcint(njp1,nk2p3)