c
c  -------------------
c
	subroutine raneuler(iisave,pi2,phi1,phi,phi2)
c  assumes that the RAN1 function is properly set up
c  in the calling program
c
	phi1=4*pi2*ran1(iisave)
	phi2=4*pi2*ran1(iisave)
	phi=acos(ran1(iisave))
	return
	end
c
c  -------------------
c