Home
last modified time | relevance | path

Searched refs:KOLD (Results 1 – 25 of 41) sorted by relevance

12

/dports/math/slatec/src/
H A Dsintrp.f2 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 Ddintp.f2 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 Dddatrp.f2 SUBROUTINE DDATRP (X, XOUT, YOUT, YPOUT, NEQ, KOLD, PHI, PSI) argument
39 INTEGER NEQ, KOLD
46 KOLDP1=KOLD+1
H A Dsdatrp.f2 SUBROUTINE SDATRP (X, XOUT, YOUT, YPOUT, NEQ, KOLD, PHI, PSI) argument
39 INTEGER NEQ, KOLD
46 KOLDP1=KOLD+1
H A Dddastp.f5 * 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 Dsdastp.f5 * 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 Dddes.f5 + 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 Ddsteps.f3 + 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 Ddes.f5 + 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 Dsteps.f2 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 Ddrchek.f2 * 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 Dddasin.f1 SUBROUTINE DDASIN (X, XOUT, YOUT, YPOUT, NEQ, KOLD, PHI, PSI) argument
44 INTEGER NEQ, KOLD local
51 KOLDP1=KOLD+1
H A Dsdasin.f1 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 Dddatrp.f1 SUBROUTINE DDATRP (X, XOUT, YOUT, YPOUT, NEQ, KOLD, PHI, PSI) argument
38 INTEGER NEQ, KOLD
45 KOLDP1=KOLD+1
H A Dddastp.f4 + 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 Dddstp.f8 * 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 Drescue.f148 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 Dddeabm.f1117 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 Dddastp.f6 * 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 Dddatrp.f1 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 Dsdatrp.f1 SUBROUTINE SDATRP(X,XOUT,YOUT,YPOUT,NEQ,KOLD,PHI,PSI) argument
35 KOLDP1=KOLD+1
H A Dsdastp.f6 * 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 Dintrp.f1 SUBROUTINE INTRP(X,Y,XOUT,YOUT,YPOUT,NEQN,KOLD,PHI,PSI) argument
62 KI = KOLD + 1
H A Dstep2.f1 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 Dde2.f3 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

12