1
subroutine calcsc(type)
2
c this routine calculates scalar quantities used to
3
c compute the next k polynomial and new estimates of
4
c the quadratic coefficients.
5
c type - integer variable set here indicating how the
6
c calculations are normalized to avoid overflow
7
common /gloglo/ p, qp, k, qk, svk, sr, si, u,
8
* v, a, b, c, d, a1, a2, a3, a6, a7, e, f, g,
9
* h, szr, szi, lzr, lzi, eta, are, mre, n, nn
10
double precision p(101), qp(101), k(101),
11
* qk(101), svk(101), sr, si, u, v, a, b, c, d,
12
* a1, a2, a3, a6, a7, e, f, g, h, szr, szi,
17
c synthetic division of k by the quadratic 1,u,v
18
call quadsd(n, u, v, k(1), qk(1), c, d)
19
if (abs(c).gt.abs(k(n))*100.*eta) go to 10
20
if (abs(d).gt.abs(k(n-1))*100.*eta) go to 10
22
c type=3 indicates the quadratic is almost a factor
25
10 if (abs(d).lt.abs(c)) go to 20
27
c type=2 indicates that all formulas are divided by d
32
a3 = (a+g)*e + h*(b/d)
37
c type=1 indicates that all formulas are divided by c