calc_4bump_posang (ul_physlib)

	status.i4.v = calc_4bump_posang(theta.r4a.r, beta.r4a.r, psi.r4a.r,
					beta_target.r4.v, psi_target.r4.v,
					alpha_target.r4.v, tune.r4.v,
					target_position.r4.r, target_angle.r4.r)

	Calculate needed angles given the lattice functions at four 
	correctors and the position and angle at the "target" location.
	The four bump calculation is a superposition of two three bumps.

	theta		angle at each location in radians
	beta		beta parameter at each corrector in meters
	psi		psi parameter at each corrector in radians
	beta_target	beta parameter at target location in radians
	psi_target	psi parameter at target location in radians
	alpha_target	alpha parameter at target location
	tune		tune of machine
	target_postion	position at target location in meters
	target_angle	angle at target location in meters

	This function returns status values as follows:

	OK			success
	otherwise		trapped error condition

	This function requires the following include files:

	cnsparam_h, ul_physlib_h:physlib_h, ssdef_h

	Related functions:

	calc_3bump_posang