* PR 09-Sep-94.         (sg26.3: STB-25)
program define _jprfpse /* creates global macros for fp.ado */
	version 3.1
	gl S_E_bloc `1'
	gl S_E_cmd `2'
	gl S_E_cont "`3'"
	gl S_E_d0l "`4'"
	gl S_E_d0m1 "`5'"
	gl S_E_d0m2 "`6'"
	gl S_E_d1q "`7'"
	gl S_E_d2c "`8'"
	gl S_E_dev0 `9'
	gl S_E_devb "`10'"
	gl S_E_devc "`11'"
	gl S_E_devl "`12'"
	gl S_E_dev1 "`13'"
	gl S_E_dev2 "`14'"
	gl S_E_devq "`15'"
	gl S_E_DF `16'
	gl S_E_dist `17'
	gl S_E_dlBT "`18'"
	gl S_E_dlm1 "`19'"
	gl S_E_dlm2 "`20'"
	gl S_E_dm12 "`21'"
	gl S_E_dqm2 "`22'"
	gl S_E_exp "`23'"
	gl S_E_fixp "`24'"
	gl S_E_if `25'
	gl S_E_in `26'
	gl S_E_xpx "`27'"
	gl S_E_lin `28'
	gl S_E_meq2 `29'
	gl S_E_x "`30'"
	gl S_E_nobs `31'
	gl S_E_nxp "`32'"
	gl S_E_fpop "`33'"
	gl S_E_orig "`34'"
	gl S_E_P0l "`35'"
	gl S_E_P0m1 "`36'"
	gl S_E_P0m2 "`37'"
	gl S_E_P1q "`38'"
	gl S_E_P2c "`39'"
  	gl S_E_PlBT "`40'"
	gl S_E_Plm1 "`41'"
	gl S_E_Plm2 "`42'"
	gl S_E_pm1 "`43'"
	gl S_E_Pm12 "`44'"
	gl S_E_pm21 "`45'"
	gl S_E_pm22 "`46'"
	gl S_E_Pqm2 "`47'"
	gl S_E_pwrs "`48'"
	gl S_E_rhs "`49'"
	loc rsd1 "`50'"
	loc rsd2 "`51'"
	gl S_E_srch `52'
	gl S_E_shft "`53'"
	gl S_E_xp "`54'"
	gl S_E_depv `55'
	gl S_E_zero "`56'"
	gl S_E_zeta "`57'"

	gl S_E_fp "fp"
	gl S_E_fp2 "fp"

	gl S_E_p1 "$S_P1"
	gl S_E_p2 "$S_P2"
	gl S_P1
	gl S_P2

	gl S_1 $S_E_dev0
	gl S_2 $S_E_devl
	gl S_3 $S_E_devq
	gl S_4 $S_E_devc
	gl S_5 $S_E_devb
	gl S_6 $S_E_dev1
	gl S_7 $S_E_dev2
	gl S_8 $S_E_pm1
	gl S_9 $S_E_pm21
	gl S_10 $S_E_pm22
	gl S_11 `rsd1'
	gl S_12 `rsd2'
	gl S_13 $S_E_P0l
	gl S_14 $S_E_P1q
	gl S_15 $S_E_P2c
	gl S_16 $S_E_PlBT
	gl S_17 $S_E_P0m1
	gl S_18 $S_E_Plm1
	gl S_19 $S_E_P0m2
	gl S_20 $S_E_Plm2
	gl S_21 $S_E_Pqm2
	gl S_22 $S_E_Pm12
	gl S_23 $S_E_zeta
end