CI		SRA		R8	(1)	RIGHT ASCENSION OF GUIDE STAR 1 (RADIANS)
CI		SDE		R8	(1)	DECLINATION OF GUIDE STAR 1 (RADIANS)
CI
C
CI		DEBLUR	        L	(1)	A FLAG TO INDICATE WHETHER ATTITUDE
Cl						MATRIX SHOULD IN ADDITION BE CORRECTED
CI						FOR MOTION DUE TO LIMIT CYCLE:
CI							.TRUE. = CORRECT IT
CI							.FALSE. = DON'T CORRECT IT, BECAUSE
CI							THE BLURRING IS EITHER TO BE IGNORED
CI							OR TO BE HANDLED OUTSIDE THIS S/W.
C
CO	OUTPUT  ATTC	R8	(3,3)	3-AXIS ATTITUDE AT TIME OF "FMTBUF"
CO					CORRECTED IF NECESSARY FOR FSS/DEBLURRING
C
CO		IRET	I	(1)	RETURN CODE	-
CO					= 0 NO ERROR
CO					BIT 15 (=LSB) SET IF ITERATIONS DON'T
CO						CONVERGE IN "SUNCO" ROUTINE
CO					BIT 14 SET IF UNRECOGNISABLE FORMAT
C
CS		DROTX	ROTATES	AN ATTITUDE MATRIX AROUND X,Y OR Z AXIS
CS		SUNCO	RECOMPUTE THE ATTITUDE MATRIX AS FUNCTION OF
CS			STAR REFERENCE POSITION AND FSS MEASUREMENTS
CS		MVW	MOVE n 16-BIT WORDS FROM 2ND ARGUMENT To 3RD.
C
C
	IMPLICIT REAL*8 (A-H,O-Z)
	LOGICAL DEBLUR,SUMPRE
	INTEGER*2 FMTBUF(1),A5289,AI03,AO59,L1,L2,L3
	INTEGER*4 I4,D32768
	REAL*8 ATTI(3,3),ATTC(3,3),SUN(3),ERR(3)
	INTEGER*2 I2(2)
	EQUIVALENCE (I4,I2)
	DATA D32768/32768/
	DATA SECA/.206264806247096D+06/	!RADS TO ARC SECS
	DATA SECFSH/2417.1656982082/	!RADS TO FSS HIGH-GAIN UNITS (256/3")
	DATA SECFSL/38674.651171331/	!RADS TO FSS LOW-GAIN UNITS (16/3")
	DATA A5289/709/
	DATA A103/182/
	DATA A059/175/
	IRET=0
C	COPY ATTI INTO ATTC
	CALL MVW(36,ATTI,ATTC)
C CHECK FOR 2 STAR MODE
	IF(ISTR2.NE.0)THEN
C EXTRACT ICRS, WHICH IS PARAMETER A528. IT IS A 4-BIT PARAMETER, BUT
C HERE ONLY ONE BIT IS USED (THE LSB) CALLED "ICRS1"
C EXTRACT ICFL TOO (A529)
	I=ISHFT(FMTBUF(A5289),-7)
	ICFL=IAND(I,1)
	ICRSI=IAND(I/2,1)
C IF THE MONITORING IS ON ONE STAR AND SUN THE INERTIAL X (ROLL)
C ERROR IS NOT RELIABLE AND NEEDS TO BE RECOMPUTED FROM FSS MEAS.
C ALSO, CHECK SUN PRESENCE INDICATOR FOR FSS IX (AI03, FR 13, WD 10 BT 6)
	SUNPRE=IAND(FMTBUF(A103),OO1OOO8).NE.0
	IF(ICRSI.EQ.0.AND.ICFL.EQ.O.AND.SUNPRE)THEN
C RETRIEVE FSS GAIN SELECTION (PARAM.AO59, FRAME 12,WORD 13, BIT 0)
	IGAIN=IAND(ISHFT(FMTBUF(A059),-7),1)
C RETRIEVE AND SUM ALL FOUR FSS MEASUREMENTS FROM TLM FORMAT
C PARAM.A163, FRAME 1, WORD 15, BITS 0-7
	JCOUNT=0
	NFSS=0
	L1=88
	L2=472