pro m1coeff,b,c,f,k7,k8,k9
;
;+
; NAME:
;	M1COEFF
;
; PURPOSE:
;	This routine returns coefficients needed for computing the M1 pointing.
;	It is used by other routines.
;
; CATEGORY:
;	UTIL
;
; CALLING SEQUENCE:
;	M1COEFF,B,C,F,K7,K8,K9
;
; INPUTS:
;	None
;
; OUTPUTS:
;	B,C,F,K7,K8,K9:	The coefficients for the M1 mirror pointing
;
; MODIFICATION HISTORY:
; 	Written by:	RA Howard, NRL, 1994
;
;	@(#)m1coeff.pro	1.1 10/05/96 LASCO IDL LIBRARY
;-

b=[143.4,142.4,-3.82,.1456,-.0009793]
c=[191.3,158.9,-6.669,.2689,-.002903]
f=[102.4,118.3,-2.449,.07827,-.0003191]
k7=0.294
k8=0.588
k9=0.509
return
end