Home
last modified time | relevance | path

Searched refs:TERKP1 (Results 1 – 8 of 8) sorted by relevance

/dports/math/octave/octave-6.4.0/liboctave/external/daspk/
H A Dddstp.f284 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 Dddastp.f111 * 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 Dsdastp.f109 * 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 Dddastp.f110 * 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 Dddastp.f426 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 Dsdastp.f425 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 Dddassl.f2273 * 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 Dddaskr.f3535 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