	CC=12398.12
	PI=3.1416
	F9=PI/180
	CORR=0.
	A=CC/(2.*DSPACE*ECAL)
	A=ATAN(A/SQRT(1-A**2))		! SOLLWINKEL CU-KANTE
	A=A*180./PI
	TYPE *,'BRAGG-ANGLE OF LAST MONOCHROMATOR CALIBRATION : ',A
	DO 1500 I=1,IK
	B=(STPCAL-CORR-XN(I))/STPDEG
	IF(LS.NE.1) B=-B
	TH(J)=A-B			! THETA
