1 SUBROUTINE cfode (METH, ELCO, TESCO)
4 INTEGER I, IB, NQ, NQM1, NQP1
5 DOUBLE PRECISION ELCO, TESCO
6 DOUBLE PRECISION AGAMQ, FNQ, FNQM1, PC, PINT, RAGQ,
7 1 rqfac, rq1fac, tsign, xpin
54 rqfac = rqfac/dble(nq)
62 110 pc(i) = pc(i-1) + fnqm1*pc(i)
70 pint = pint + tsign*pc(i)/dble(i)
71 120 xpin = xpin + tsign*pc(i)/dble(i+1)
73 elco(1,nq) = pint*rq1fac
76 130 elco(i+1,nq) = rq1fac*pc(i)/dble(i)
80 IF (nq .LT. 12) tesco(1,nqp1) = ragq*rqfac/dble(nqp1)
99 210 pc(i) = pc(i-1) + fnq*pc(i)
103 220 elco(i,nq) = pc(i)/pc(2)
106 tesco(2,nq) = dble(nqp1)/elco(1,nq)
107 tesco(3,nq) = dble(nq+2)/elco(1,nq)
std::string dimension(void) const
subroutine cfode(METH, ELCO, TESCO)