Astronomical Applications Department, U.S. Naval Observatory Sensitivity Integral Page 38
t139 = 1.D0/t109
t31 = t109**2
t138 = 1.D0/t31
t137 = x*a2
t136 = a1*x
t135 = x*a3
t134 = x*a4
t51 = t57*t53
t133 = a4*t51
t125 = t58*a3
t128 = t56*a4
t132 = (2.D0*t137+3.D0*t125+a1+4.D0*t128)*t54
t126 = a2*t58
t131 = t57*(t136+t126+t177)
t127 = t58*a4
t124 = (4.D0*t134+a3)*t53
t39 = r*t169
t50 = t57*t54
t121 = (3.D0*t135+6.D0*t127+a2)*t50
t120 = 3.D0/32.D0*a3
t119 = 3.D0/16.D0*a3
t118 = 3.D0/32.D0*a4
t117 = a2/16.D0
t116 = 3.D0/16.D0*a4
t115 = a1/16.D0
t114 = 3.D0/16.D0*t58
t113 = t51*t116
t40 = s*t169
t35 = g*t39
t21 = -6.D0*t134-3.D0/2.D0*a3
t20 = (r+t49)*x
t19 = (-r+t49)*x
t18 = t48*t169
t17 = t46*t169
t16 = t24*x
t15 = t23*x
t14 = t22*x
t13 = t25*x
t11 = t34*t169
t10 = t36*t169
t9 = -3.D0/2.D0*t135-3.D0*t127-a2/2.D0
t7 = -x*t116-3.D0/64.D0*a3
t6 = t137/2.D0+3.D0/4.D0*t125+a1/4.D0+t128
t76 = -t136-a0-t129-t126-t130
t4 = t76/4.D0
t3 = -x*t120-a4*t114-a2/32.D0
t2 = x*t117+t58*t120+a1/32.D0+t128/8.D0
t1 = x*t115+t58*t117+t177/16.D0
t95 = dcos(t13)
t99 = t89**2
t104 = dcos(t18)
t110 = t85**2
t147 = dcos(t35)
t163 = dsin(t16)
t176 = dsin(t15)
t179 = t131/2.D0
t185 = dsin(t20)
t192 = dcos(t11)
t195 = t97**2
Page 38
