/dports/math/slatec/src/ |
H A D | sintrp.f | 2 SUBROUTINE SINTRP (X, Y, XOUT, YOUT, YPOUT, NEQN, KOLD, PHI, IVC, argument 59 KP1 = KOLD + 1 60 KP2 = KOLD + 2 77 IF (KOLD .LE. KGI) GO TO 50 84 M = KOLD - IW + 3 85 30 IF (M .GT. KOLD) GO TO 60 86 DO 40 I = M,KOLD 89 50 GDI = GI(KOLD) 97 IF (KOLD .LT. 2) GO TO 90 98 DO 80 I = 2,KOLD [all …]
|
H A D | dintp.f | 2 SUBROUTINE DINTP (X, Y, XOUT, YOUT, YPOUT, NEQN, KOLD, PHI, IVC, argument 65 KP1 = KOLD + 1 66 KP2 = KOLD + 2 83 IF (KOLD .LE. KGI) GO TO 50 90 M = KOLD - IW + 3 91 30 IF (M .GT. KOLD) GO TO 60 92 DO 40 I = M,KOLD 95 50 GDI = GI(KOLD) 103 IF (KOLD .LT. 2) GO TO 90 104 DO 80 I = 2,KOLD [all …]
|
H A D | ddatrp.f | 2 SUBROUTINE DDATRP (X, XOUT, YOUT, YPOUT, NEQ, KOLD, PHI, PSI) argument 39 INTEGER NEQ, KOLD 46 KOLDP1=KOLD+1
|
H A D | sdatrp.f | 2 SUBROUTINE SDATRP (X, XOUT, YOUT, YPOUT, NEQ, KOLD, PHI, PSI) argument 39 INTEGER NEQ, KOLD 46 KOLDP1=KOLD+1
|
H A D | ddastp.f | 5 * KOLD, NS, NONNEG, NTEMP) 96 * KOLD, NS, NONNEG, NTEMP 149 KOLD=0 176 IF(H.NE.HOLD.OR.K .NE. KOLD) NS = 0 177 NS=MIN(NS+1,KOLD+2) 423 KDIFF=K-KOLD 424 KOLD=K 482 IF(KOLD.EQ.IWM(LMXORD))GO TO 585
|
H A D | sdastp.f | 5 * KOLD, NS, NONNEG, NTEMP) 96 * KOLD, NS, NONNEG, NTEMP 147 KOLD=0 174 IF(H.NE.HOLD.OR.K .NE. KOLD) NS = 0 175 NS=MIN(NS+1,KOLD+2) 421 KDIFF=K-KOLD 422 KOLD=K 480 IF(KOLD.EQ.IWM(LMXORD))GO TO 585
|
H A D | ddes.f | 5 + PHASE1, NORND, STIFF, INTOUT, NS, KORD, KOLD, INIT, KSTEPS, 33 1 KOLD, KORD, KPREV, KSTEPS, L, LTOL, MAXNUM, NATOLP, NEQ, 307 CALL DINTP(X,YY,TOUT,Y,YPOUT,NEQ,KOLD,PHI,IVC,IV,KGI,GI, 397 380 CALL DSTEPS(DF,NEQ,YY,X,H,EPS,WT,START,HOLD,KORD,KOLD,CRASH,PHI,P, 426 IF(KOLD .GT. 4) KLE4 = 0
|
H A D | dsteps.f | 3 + KOLD, CRASH, PHI, P, YP, PSI, ALPHA, BETA, SIG, V, W, G, 177 1 KOLD, KP1, KP2, KSTEPS, L, LIMIT1, LIMIT2, NEQN, NS, NSM2, 252 KOLD = 0 278 IF (NS.LE.KOLD) NS = NS+1 354 IF (K .GE. KOLD) GO TO 140 496 400 KOLD = K
|
H A D | des.f | 5 + NORND, STIFF, INTOUT, NS, KORD, KOLD, INIT, KSTEPS, KLE4, 310 CALL SINTRP(X,YY,TOUT,Y,YPOUT,NEQ,KOLD,PHI,IVC,IV,KGI,GI, 400 380 CALL STEPS(F,NEQ,YY,X,H,EPS,WT,START,HOLD,KORD,KOLD,CRASH,PHI,P, 429 IF(KOLD .GT. 4) KLE4 = 0
|
H A D | steps.f | 2 SUBROUTINE STEPS (F, NEQN, Y, X, H, EPS, WT, START, HOLD, K, KOLD, argument 243 KOLD = 0 269 IF (NS.LE.KOLD) NS = NS+1 345 IF (K .GE. KOLD) GO TO 140 487 400 KOLD = K
|
/dports/math/octave/octave-6.4.0/liboctave/external/dasrt/ |
H A D | drchek.f | 2 * KOLD, G0, G1, GX, JROOT, IRT, UROUND, INFO3, RWORK, IWORK, argument 16 INTEGER JOB, NG, NEQ, KOLD, JROOT, IRT, INFO3, IWORK, IPAR local 75 CALL DDATRP(TN,RWORK(LT0),Y,YP,NEQ,KOLD,PHI,PSI) 105 CALL DDATRP (TN, RWORK(LT0), Y, YP, NEQ, KOLD, PHI, PSI) 120 230 CALL DDATRP (TN, RWORK(LT0), Y, YP, NEQ, KOLD, PHI, PSI) 143 CALL DDATRP (TN, T1, Y, YP, NEQ, KOLD, PHI, PSI) 157 CALL DDATRP (TN, X, Y, YP, NEQ, KOLD, PHI, PSI) 165 CALL DDATRP (TN, X, Y, YP, NEQ, KOLD, PHI, PSI)
|
/dports/math/math77/MATH77/ |
H A D | ddasin.f | 1 SUBROUTINE DDASIN (X, XOUT, YOUT, YPOUT, NEQ, KOLD, PHI, PSI) argument 44 INTEGER NEQ, KOLD local 51 KOLDP1=KOLD+1
|
H A D | sdasin.f | 1 SUBROUTINE SDASIN (X, XOUT, YOUT, YPOUT, NEQ, KOLD, PHI, PSI) argument 44 INTEGER NEQ, KOLD local 51 KOLDP1=KOLD+1
|
/dports/math/octave/octave-6.4.0/liboctave/external/dassl/ |
H A D | ddatrp.f | 1 SUBROUTINE DDATRP (X, XOUT, YOUT, YPOUT, NEQ, KOLD, PHI, PSI) argument 38 INTEGER NEQ, KOLD 45 KOLDP1=KOLD+1
|
H A D | ddastp.f | 4 + K, KOLD, NS, NONNEG, NTEMP) argument 95 * KOLD, NS, NONNEG, NTEMP local 148 KOLD=0 175 IF(H.NE.HOLD.OR.K .NE. KOLD) NS = 0 176 NS=MIN(NS+1,KOLD+2) 422 KDIFF=K-KOLD 423 KOLD=K 481 IF(KOLD.EQ.IWM(LMXORD))GO TO 585
|
/dports/math/octave/octave-6.4.0/liboctave/external/daspk/ |
H A D | ddstp.f | 8 * EPLI,SQRTN,RSQRTN,EPCON,IPHASE,JCALC,JFLG,K,KOLD,NS,NONNEG, argument 107 KOLD=0 128 IF(H.NE.HOLD.OR.K .NE. KOLD) NS = 0 129 NS=MIN0(NS+1,KOLD+2) 265 KDIFF=K-KOLD 266 KOLD=K 330 IF(KOLD.EQ.IWM(LMXORD))GO TO 585 457 690 IF (KOLD .EQ. 0) THEN
|
/dports/math/R-cran-minqa/minqa/src/ |
H A D | rescue.f | 148 KOLD=1 155 TEMP=BMAT(KOLD,J) 156 BMAT(KOLD,J)=BMAT(KNEW,J) 159 TEMP=ZMAT(KOLD,J) 160 ZMAT(KOLD,J)=ZMAT(KNEW,J) 162 PTSID(KOLD)=PTSID(KNEW) 167 TEMP=VLAG(KOLD) 168 VLAG(KOLD)=VLAG(KNEW) 267 KOLD=K
|
/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | ddeabm.f | 1117 IF(KOLD .GT. 4) KLE4 = 0 1186 KP1 = KOLD + 1 1187 KP2 = KOLD + 2 1211 M = KOLD - IW + 3 1212 30 IF (M .GT. KOLD) GO TO 60 1213 DO 40 I = M,KOLD 1216 50 GDI = GI(KOLD) 1225 DO 80 I = 2,KOLD 1246 DO 120 J = 1,KOLD 2823 KOLD = 0 [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/ddassl/ |
H A D | ddastp.f | 6 * IPHASE,JCALC,K,KOLD,NS,NONNEG) 133 KOLD=0 160 IF(H.NE.HOLD.OR.K .NE. KOLD) NS = 0 161 NS=MIN0(NS+1,KOLD+2) 408 KDIFF=K-KOLD 409 KOLD=K 467 IF(KOLD.EQ.IWM(LMXORD))GO TO 585
|
H A D | ddatrp.f | 1 SUBROUTINE DDATRP(X,XOUT,YOUT,YPOUT,NEQ,KOLD,PHI,PSI) argument 36 KOLDP1=KOLD+1
|
/dports/math/cmlib/cmlib-3.0_8/src/sdassl/ |
H A D | sdatrp.f | 1 SUBROUTINE SDATRP(X,XOUT,YOUT,YPOUT,NEQ,KOLD,PHI,PSI) argument 35 KOLDP1=KOLD+1
|
H A D | sdastp.f | 6 * IPHASE,JCALC,K,KOLD,NS,NONNEG) 132 KOLD=0 159 IF(H.NE.HOLD.OR.K .NE. KOLD) NS = 0 160 NS=MIN0(NS+1,KOLD+2) 407 KDIFF=K-KOLD 408 KOLD=K 466 IF(KOLD.EQ.IWM(LMXORD))GO TO 585
|
/dports/math/cmlib/cmlib-3.0_8/src/depac/ |
H A D | intrp.f | 1 SUBROUTINE INTRP(X,Y,XOUT,YOUT,YPOUT,NEQN,KOLD,PHI,PSI) argument 62 KI = KOLD + 1
|
H A D | step2.f | 1 SUBROUTINE STEP2(F,NEQN,Y,X,H,EPS,WT,START,HOLD,K,KOLD,CRASH,PHI, argument 232 KOLD = 0 257 IF (NS.LE.KOLD) NS = NS+1 294 120 IF(K .LE. KOLD) GO TO 130 448 400 KOLD = K
|
H A D | de2.f | 3 2 TWOU,FOURU,START,PHASE1,NORND,STIFF,INTOUT,NS,KORD,KOLD,INIT, 248 CALL INTRP(X,YY,TOUT,Y,YPOUT,NEQ,KOLD,PHI,PSI) 337 380 CALL STEP2(F,NEQ,YY,X,H,EPS,WT,START,HOLD,KORD,KOLD,CRASH,PHI,P, 366 IF(KOLD .GT. 4) KLE4 = 0
|