Lines Matching refs:TESCO
1 SUBROUTINE CFODE (METH, ELCO, TESCO) argument
5 DOUBLE PRECISION ELCO, TESCO local
8 DIMENSION ELCO(13,12), TESCO(3,12)
41 TESCO(1,1) = 0.0D0
42 TESCO(2,1) = 2.0D0
43 TESCO(1,2) = 1.0D0
44 TESCO(3,12) = 0.0D0
79 TESCO(2,NQ) = RAGQ
80 IF (NQ .LT. 12) TESCO(1,NQP1) = RAGQ*RQFAC/DBLE(NQP1)
81 TESCO(3,NQM1) = RAGQ
105 TESCO(1,NQ) = RQ1FAC
106 TESCO(2,NQ) = DBLE(NQP1)/ELCO(1,NQ)
107 TESCO(3,NQ) = DBLE(NQ+2)/ELCO(1,NQ)