/dports/math/octave/octave-6.4.0/liboctave/external/odepack/ |
H A D | cfode.f | 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 81 TESCO(3,NQM1) = RAGQ 105 TESCO(1,NQ) = RQ1FAC [all …]
|
H A D | scfode.f | 1 SUBROUTINE SCFODE (METH, ELCO, TESCO) argument 45 REAL ELCO, TESCO local 48 DIMENSION ELCO(13,12), TESCO(3,12) 56 TESCO(1,1) = 0.0E0 57 TESCO(2,1) = 2.0E0 58 TESCO(1,2) = 1.0E0 59 TESCO(3,12) = 0.0E0 94 TESCO(2,NQ) = RAGQ 96 TESCO(3,NQM1) = RAGQ 120 TESCO(1,NQ) = RQ1FAC [all …]
|
H A D | stode.f | 13 DOUBLE PRECISION CONIT, CRATE, EL, ELCO, HOLD, RMAX, TESCO, local 20 1 HOLD, RMAX, TESCO(3,12), local 149 CALL CFODE (METH, ELCO, TESCO) 164 DDN = VNORM (N, SAVF, EWT)/TESCO(1,L) 178 140 CALL CFODE (METH, ELCO, TESCO) 289 DCON = DEL*DMIN1(1.0D0,1.5D0*CRATE)/(TESCO(2,NQ)*CONIT) 336 IF (M .EQ. 0) DSM = DEL/TESCO(2,NQ) 337 IF (M .GT. 0) DSM = VNORM (N, ACOR, EWT)/TESCO(2,NQ) 399 DUP = VNORM (N, SAVF, EWT)/TESCO(3,NQ) 406 DDN = VNORM (N, YH(1,L), EWT)/TESCO(1,NQ) [all …]
|
H A D | sstode.f | 106 REAL CONIT, CRATE, EL, ELCO, HOLD, RMAX, TESCO, local 111 1 HOLD, RMAX, TESCO(3,12), local 170 CALL SCFODE (METH, ELCO, TESCO) 185 DDN = SVNORM (N, SAVF, EWT)/TESCO(1,L) 199 140 CALL SCFODE (METH, ELCO, TESCO) 305 DCON = DEL*MIN(1.0E0,1.5E0*CRATE)/(TESCO(2,NQ)*CONIT) 350 IF (M .EQ. 0) DSM = DEL/TESCO(2,NQ) 351 IF (M .GT. 0) DSM = SVNORM (N, ACOR, EWT)/TESCO(2,NQ) 413 DUP = SVNORM (N, SAVF, EWT)/TESCO(3,NQ) 420 DDN = SVNORM (N, YH(1,L), EWT)/TESCO(1,NQ) [all …]
|
H A D | ssolsy.f | 53 REAL CONIT, CRATE, EL, ELCO, HOLD, RMAX, TESCO, local 56 1 HOLD, RMAX, TESCO(3,12), local
|
H A D | solsy.f | 11 DOUBLE PRECISION CONIT, CRATE, EL, ELCO, HOLD, RMAX, TESCO, local 16 1 HOLD, RMAX, TESCO(3,12), local
|
H A D | intdy.f | 11 DOUBLE PRECISION CONIT, CRATE, EL, ELCO, HOLD, RMAX, TESCO, local 16 1 HOLD, RMAX, TESCO(3,12), local
|
H A D | sintdy.f | 50 REAL CONIT, CRATE, EL, ELCO, HOLD, RMAX, TESCO, local 53 1 HOLD, RMAX, TESCO(3,12), local
|
H A D | prepj.f | 14 DOUBLE PRECISION CONIT, CRATE, EL, ELCO, HOLD, RMAX, TESCO, local 21 1 HOLD, RMAX, TESCO(3,12), local
|
H A D | sprepj.f | 66 REAL CONIT, CRATE, EL, ELCO, HOLD, RMAX, TESCO, local 69 1 HOLD, RMAX, TESCO(3,12), local
|
H A D | slsode.f | 1217 REAL CONIT, CRATE, EL, ELCO, HOLD, RMAX, TESCO, local 1236 1 HOLD, RMAX, TESCO(3,12), local
|
H A D | dlsode.f | 954 DOUBLE PRECISION CONIT, CRATE, EL, ELCO, HOLD, RMAX, TESCO, local 976 1 HOLD, RMAX, TESCO(3,12), local
|
/dports/math/slatec/src/ |
H A D | dcfod.f | 2 SUBROUTINE DCFOD (METH, ELCO, TESCO) argument 25 1 RQ1FAC, RQFAC, TESCO, TSIGN, XPIN 26 DIMENSION ELCO(13,12),TESCO(3,12) 61 TESCO(1,1) = 0.0D0 62 TESCO(2,1) = 2.0D0 63 TESCO(1,2) = 1.0D0 64 TESCO(3,12) = 0.0D0 105 TESCO(2,NQ) = RAGQ 107 TESCO(3,NQM1) = RAGQ 136 TESCO(1,NQ) = RQ1FAC [all …]
|
H A D | cfod.f | 2 SUBROUTINE CFOD (METH, ELCO, TESCO) argument 27 DIMENSION ELCO(13,12), TESCO(3,12) 61 TESCO(1,1) = 0.0E0 62 TESCO(2,1) = 2.0E0 63 TESCO(1,2) = 1.0E0 64 TESCO(3,12) = 0.0E0 99 TESCO(2,NQ) = RAGQ 101 TESCO(3,NQM1) = RAGQ 125 TESCO(1,NQ) = RQ1FAC 126 TESCO(2,NQ) = NQP1/ELCO(1,NQ) [all …]
|
H A D | dstod.f | 98 3 RH, RHDN, RHSM, RHUP, RMAX, ROWND, RPAR, SAVF, TESCO, 164 CALL DCFOD(METH,ELCO,TESCO) 184 DDN = DVNRMS(N,SAVF,EWT)/TESCO(1,L) 200 CALL DCFOD(METH,ELCO,TESCO) 240 R = 1.0D0/TESCO(2,NQU) 357 1 /(TESCO(2,NQ)*CONIT) 372 2 /TESCO(2,NQ) 452 R = 1.0D0/TESCO(2,NQU) 566 R = 1.0D0/TESCO(2,NQU) 607 R = 1.0D0/TESCO(2,NQU) [all …]
|
H A D | stod.f | 96 1 ROWND, CONIT, CRATE, EL, ELCO, HOLD, RC, RMAX, TESCO, 103 1 HOLD, RC, RMAX, TESCO(3,12), 156 CALL CFOD (METH, ELCO, TESCO) 171 DDN = VNWRMS (N, SAVF, EWT)/TESCO(1,L) 185 140 CALL CFOD (METH, ELCO, TESCO) 291 DCON = DEL*MIN(1.0E0,1.5E0*CRATE)/(TESCO(2,NQ)*CONIT) 332 IF (M .EQ. 0) DSM = DEL/TESCO(2,NQ) 333 IF (M .GT. 0) DSM = VNWRMS (N, ACOR, EWT)/TESCO(2,NQ) 394 DUP = VNWRMS (N, SAVF, EWT)/TESCO(3,NQ) 401 DDN = VNWRMS (N, YH(1,L), EWT)/TESCO(1,NQ) [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/depac/ |
H A D | cfod.f | 2 SUBROUTINE CFOD(METH,ELCO,TESCO) argument 15 DIMENSION ELCO(13,12), TESCO(3,12) 49 TESCO(1,1) = 0.0E0 50 TESCO(2,1) = 2.0E0 51 TESCO(1,2) = 1.0E0 52 TESCO(3,12) = 0.0E0 87 TESCO(2,NQ) = RAGQ 89 TESCO(3,NQM1) = RAGQ 113 TESCO(1,NQ) = RQ1FAC 114 TESCO(2,NQ) = FLOAT(NQP1)/ELCO(1,NQ) [all …]
|
H A D | stod.f | 84 1 ROWND, CONIT, CRATE, EL, ELCO, HOLD, RC, RMAX, TESCO, 91 1 HOLD, RC, RMAX, TESCO(3,12), 144 CALL CFOD (METH, ELCO, TESCO) 159 DDN = VNWRMS (N, SAVF, EWT)/TESCO(1,L) 173 140 CALL CFOD (METH, ELCO, TESCO) 279 DCON = DEL*AMIN1(1.0E0,1.5E0*CRATE)/(TESCO(2,NQ)*CONIT) 320 IF (M .EQ. 0) DSM = DEL/TESCO(2,NQ) 321 IF (M .GT. 0) DSM = VNWRMS (N, ACOR, EWT)/TESCO(2,NQ) 382 DUP = VNWRMS (N, SAVF, EWT)/TESCO(3,NQ) 389 DDN = VNWRMS (N, YH(1,L), EWT)/TESCO(1,NQ) [all …]
|
/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | ddebdf.f | 1609 CALL DCFOD(METH,ELCO,TESCO) 2106 SUBROUTINE DCFOD (METH, ELCO, TESCO) argument 2130 DIMENSION ELCO(13,12),TESCO(3,12) 2165 TESCO(1,1) = 0.0D0 2166 TESCO(2,1) = 2.0D0 2167 TESCO(1,2) = 1.0D0 2168 TESCO(3,12) = 0.0D0 2209 TESCO(2,NQ) = RAGQ 2211 TESCO(3,NQM1) = RAGQ 2240 TESCO(1,NQ) = RQ1FAC [all …]
|
/dports/finance/skrooge/skrooge-2.26.1/tests/input/skgtestimportcsv/ |
H A D | footer.csv | 2 28/08/2019,))),TESCO LONDON,-£2.00,+£998.75
|
/dports/science/siconos/siconos-4.4.0/externals/netlib/odepack/ |
H A D | opkda1.f | 91 DOUBLE PRECISION ELCO, TESCO local 102 TESCO(1,1) = 0.0D0 103 TESCO(2,1) = 2.0D0 104 TESCO(1,2) = 1.0D0 105 TESCO(3,12) = 0.0D0 140 TESCO(2,NQ) = RAGQ 142 TESCO(3,NQM1) = RAGQ 166 TESCO(1,NQ) = RQ1FAC 1118 700 R = 1.0D0/TESCO(2,NQU) 4426 700 R = 1.0D0/TESCO(2,NQU) [all …]
|