Searched refs:TERKP1 (Results 1 – 8 of 8) sorted by relevance
/dports/math/octave/octave-6.4.0/liboctave/external/daspk/ |
H A D | ddstp.f | 284 TERKP1 = (K+2)*ERKP1 286 IF(TERKP1.GE.0.5D0*TERK)GO TO 550 288 520 IF(TERKM1.LE.MIN(TERK,TERKP1))GO TO 540 289 IF(TERKP1.GE.TERK.OR.K.EQ.IWM(LMXORD))GO TO 550
|
/dports/math/slatec/src/ |
H A D | ddastp.f | 111 * TEMP2, TERK, TERKM1, TERKM2, TERKP1, XOLD, XRATE 441 TERKP1 = (K+2)*ERKP1 443 IF(TERKP1.GE.0.5D0*TERK)GO TO 550 445 520 IF(TERKM1.LE.MIN(TERK,TERKP1))GO TO 540 446 IF(TERKP1.GE.TERK.OR.K.EQ.IWM(LMXORD))GO TO 550
|
H A D | sdastp.f | 109 * TEMP2, TERK, TERKM1, TERKM2, TERKP1, XOLD, XRATE 439 TERKP1 = (K+2)*ERKP1 441 IF(TERKP1.GE.0.5E0*TERK)GO TO 550 443 520 IF(TERKM1.LE.MIN(TERK,TERKP1))GO TO 540 444 IF(TERKP1.GE.TERK.OR.K.EQ.IWM(LMXORD))GO TO 550
|
/dports/math/octave/octave-6.4.0/liboctave/external/dassl/ |
H A D | ddastp.f | 110 * TEMP2, TERK, TERKM1, TERKM2, TERKP1, XOLD, XRATE local 440 TERKP1 = (K+2)*ERKP1 442 IF(TERKP1.GE.0.5D0*TERK)GO TO 550 444 520 IF(TERKM1.LE.MIN(TERK,TERKP1))GO TO 540 445 IF(TERKP1.GE.TERK.OR.K.EQ.IWM(LMXORD))GO TO 550
|
/dports/math/cmlib/cmlib-3.0_8/src/ddassl/ |
H A D | ddastp.f | 426 TERKP1 = FLOAT(K+2)*ERKP1 428 IF(TERKP1.GE.0.5D0*TERK)GO TO 550 430 520 IF(TERKM1.LE.DMIN1(TERK,TERKP1))GO TO 540 431 IF(TERKP1.GE.TERK.OR.K.EQ.IWM(LMXORD))GO TO 550
|
/dports/math/cmlib/cmlib-3.0_8/src/sdassl/ |
H A D | sdastp.f | 425 TERKP1 = FLOAT(K+2)*ERKP1 427 IF(TERKP1.GE.0.5E0*TERK)GO TO 550 429 520 IF(TERKM1.LE.AMIN1(TERK,TERKP1))GO TO 540 430 IF(TERKP1.GE.TERK.OR.K.EQ.IWM(LMXORD))GO TO 550
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/differential_equations/src/fortran/ |
H A D | ddassl.f | 2273 * TEMP2, TERK, TERKM1, TERKM2, TERKP1, XOLD, XRATE local 2612 TERKP1 = (K+2)*ERKP1 2614 IF(TERKP1.GE.0.5D0*TERK)GO TO 550 2616 520 IF(TERKM1.LE.MIN(TERK,TERKP1))GO TO 540 2617 IF(TERKP1.GE.TERK.OR.K.EQ.IWM(LMXORD))GO TO 550
|
H A D | ddaskr.f | 3535 TERKP1 = (K+2)*ERKP1 3537 IF(TERKP1.GE.0.5D0*TERK)GO TO 550 3539 520 IF(TERKM1.LE.MIN(TERK,TERKP1))GO TO 540 3540 IF(TERKP1.GE.TERK.OR.K.EQ.IWM(LMXORD))GO TO 550
|