Home
last modified time | relevance | path

Searched refs:DELNRM (Results 1 – 18 of 18) sorted by relevance

/dports/math/octave/octave-6.4.0/liboctave/external/dassl/
H A Dddaini.f67 * CJ, DAMP, DELNRM, ERR, OLDNRM, R, RATE, S, XOLD, YNORM local
154 DELNRM=DDANRM(NEQ,DELTA,WT,RPAR,IPAR)
155 IF (DELNRM.LE.100.D0*UROUND*YNORM)
159 OLDNRM=DELNRM
162 340 RATE=(DELNRM/OLDNRM)**(1.0D0/M)
166 350 IF (S*DELNRM .LE. 0.33D0) GO TO 400
188 DELNRM=DDANRM(NEQ,DELTA,WT,RPAR,IPAR)
189 IF (DELNRM.GT.0.33D0) GO TO 430
H A Dddastp.f108 * ALPHA0, ALPHAS, CJLAST, CK, DELNRM, ENORM, ERK, ERKM1, local
156 DELNRM=1.0D0
307 DELNRM=DDANRM(NEQ,DELTA,WT,RPAR,IPAR)
308 IF (DELNRM .LE. 100.D0*UROUND*PNORM) GO TO 375
310 OLDNRM = DELNRM
312 365 RATE = (DELNRM/OLDNRM)**(1.0D0/M)
315 367 IF (S*DELNRM .LE. 0.33D0) GO TO 375
351 DELNRM = DDANRM(NEQ,DELTA,WT,RPAR,IPAR)
352 IF(DELNRM .GT. 0.33D0) GO TO 380
/dports/math/slatec/src/
H A Dddaini.f68 * CJ, DAMP, DELNRM, ERR, OLDNRM, R, RATE, S, XOLD, YNORM
155 DELNRM=DDANRM(NEQ,DELTA,WT,RPAR,IPAR)
156 IF (DELNRM.LE.100.D0*UROUND*YNORM)
160 OLDNRM=DELNRM
163 340 RATE=(DELNRM/OLDNRM)**(1.0D0/M)
167 350 IF (S*DELNRM .LE. 0.33D0) GO TO 400
189 DELNRM=DDANRM(NEQ,DELTA,WT,RPAR,IPAR)
190 IF (DELNRM.GT.0.33D0) GO TO 430
H A Dsdaini.f66 REAL CJ, DAMP, DELNRM, ERR, OLDNRM, R, RATE, S, XOLD, YNORM
153 DELNRM=SDANRM(NEQ,DELTA,WT,RPAR,IPAR)
154 IF (DELNRM.LE.100.E0*UROUND*YNORM)
158 OLDNRM=DELNRM
161 340 RATE=(DELNRM/OLDNRM)**(1.0E0/M)
165 350 IF (S*DELNRM .LE. 0.33E0) GO TO 400
187 DELNRM=SDANRM(NEQ,DELTA,WT,RPAR,IPAR)
188 IF (DELNRM.GT.0.33E0) GO TO 430
H A Dddastp.f109 * ALPHA0, ALPHAS, CJLAST, CK, DELNRM, ENORM, ERK, ERKM1,
157 DELNRM=1.0D0
308 DELNRM=DDANRM(NEQ,DELTA,WT,RPAR,IPAR)
309 IF (DELNRM .LE. 100.D0*UROUND*PNORM) GO TO 375
311 OLDNRM = DELNRM
313 365 RATE = (DELNRM/OLDNRM)**(1.0D0/M)
316 367 IF (S*DELNRM .LE. 0.33D0) GO TO 375
352 DELNRM = DDANRM(NEQ,DELTA,WT,RPAR,IPAR)
353 IF(DELNRM .GT. 0.33D0) GO TO 380
H A Dsdastp.f107 REAL ALPHA0, ALPHAS, CJLAST, CK, DELNRM, ENORM, ERK, ERKM1,
155 DELNRM=1.0E0
306 DELNRM=SDANRM(NEQ,DELTA,WT,RPAR,IPAR)
307 IF (DELNRM .LE. 100.E0*UROUND*PNORM) GO TO 375
309 OLDNRM = DELNRM
311 365 RATE = (DELNRM/OLDNRM)**(1.0E0/M)
314 367 IF (S*DELNRM .LE. 0.33E0) GO TO 375
350 DELNRM = SDANRM(NEQ,DELTA,WT,RPAR,IPAR)
351 IF(DELNRM .GT. 0.33E0) GO TO 380
/dports/math/octave/octave-6.4.0/liboctave/external/daspk/
H A Ddnsd.f125 DELNRM=DDWNRM(NEQ,DELTA,WT,RPAR,IPAR)
126 IF (DELNRM .LE. TOLNEW) GO TO 370
128 OLDNRM = DELNRM
130 RATE = (DELNRM/OLDNRM)**(1.0D0/M)
134 IF (S*DELNRM .LE. EPCON) GO TO 370
H A Ddnsk.f139 DELNRM = DDWNRM(NEQ,DELTA,WT,RPAR,IPAR)
140 IF (DELNRM .LE. TOLNEW) GO TO 370
142 OLDNRM = DELNRM
144 RATE = (DELNRM/OLDNRM)**(1.0D0/M)
148 IF (S*DELNRM .LE. EPCON) GO TO 370
H A Ddnsid.f100 DELNRM = DDWNRM(NEQ,DELTA,WT,RPAR,IPAR)
101 FNRM = DELNRM
113 CALL DLINSD (NEQ, Y, X, YPRIME, CJ, DELTA, DELNRM, WT, LSOFF,
136 DELNRM = FNRM
H A Ddnsik.f137 DELNRM = DDWNRM(NEQ,DELTA,WT,RPAR,IPAR)
138 IF (DELNRM .EQ. 0.0D0) RETURN
144 CALL DLINSK (NEQ, Y, X, YPRIME, SAVR, CJ, DELTA, DELNRM, WT,
H A Ddnedd.f243 DELNRM = DDWNRM(NEQ,DELTA,WT,RPAR,IPAR)
244 IF(DELNRM .GT. EPCON) GO TO 380
H A Ddnedk.f246 DELNRM = DDWNRM(NEQ,DELTA,WT,RPAR,IPAR)
247 IF(DELNRM .GT. EPCON) GO TO 380
/dports/math/cmlib/cmlib-3.0_8/src/ddassl/
H A Dddaini.f152 DELNRM=DDANRM(NEQ,DELTA,WT,RPAR,IPAR)
153 IF (DELNRM.LE.100.D0*UROUND*YNORM)
157 OLDNRM=DELNRM
160 340 RATE=(DELNRM/OLDNRM)**(1.0D0/DBLE(M))
164 350 IF (S*DELNRM .LE. 0.33D0) GO TO 400
188 DELNRM=DDANRM(NEQ,DELTA,WT,RPAR,IPAR)
189 IF (DELNRM.GT.0.33D0) GO TO 430
H A Dddastp.f141 DELNRM=1.0D0
293 DELNRM=DDANRM(NEQ,DELTA,WT,RPAR,IPAR)
294 IF (DELNRM .LE. 100.D0*UROUND*PNORM) GO TO 375
296 OLDNRM = DELNRM
298 365 RATE = (DELNRM/OLDNRM)**(1.0D0/DBLE(M))
301 367 IF (S*DELNRM .LE. 0.33D0) GO TO 375
337 DELNRM = DDANRM(NEQ,DELTA,WT,RPAR,IPAR)
338 IF(DELNRM .GT. 0.33D0) GO TO 380
/dports/math/cmlib/cmlib-3.0_8/src/sdassl/
H A Dsdaini.f151 DELNRM=SDANRM(NEQ,DELTA,WT,RPAR,IPAR)
152 IF (DELNRM.LE.100.E0*UROUND*YNORM)
156 OLDNRM=DELNRM
159 340 RATE=(DELNRM/OLDNRM)**(1.0E0/FLOAT(M))
163 350 IF (S*DELNRM .LE. 0.33E0) GO TO 400
187 DELNRM=SDANRM(NEQ,DELTA,WT,RPAR,IPAR)
188 IF (DELNRM.GT.0.33E0) GO TO 430
H A Dsdastp.f140 DELNRM=1.0E0
292 DELNRM=SDANRM(NEQ,DELTA,WT,RPAR,IPAR)
293 IF (DELNRM .LE. 100.E0*UROUND*PNORM) GO TO 375
295 OLDNRM = DELNRM
297 365 RATE = (DELNRM/OLDNRM)**(1.0E0/FLOAT(M))
300 367 IF (S*DELNRM .LE. 0.33E0) GO TO 375
336 DELNRM = SDANRM(NEQ,DELTA,WT,RPAR,IPAR)
337 IF(DELNRM .GT. 0.33E0) GO TO 380
/dports/math/scilab/scilab-6.1.1/scilab/modules/differential_equations/src/fortran/
H A Dddassl.f163 DELNRM=DDANRM(NEQ,DELTA,WT,RPAR,IPAR)
164 IF (DELNRM.LE.100.D0*UROUND*YNORM)
168 OLDNRM=DELNRM
171 340 RATE=(DELNRM/OLDNRM)**(1.0D0/M)
175 350 IF (S*DELNRM .LE. 0.33D0) GO TO 400
197 DELNRM=DDANRM(NEQ,DELTA,WT,RPAR,IPAR)
198 IF (DELNRM.GT.0.33D0) GO TO 430
2319 DELNRM=1.0D0
2481 OLDNRM = DELNRM
2483 365 RATE = (DELNRM/OLDNRM)**(1.0D0/M)
[all …]
H A Dddaskr.f4322 FNRM = DELNRM
4358 DELNRM = FNRM
4861 IF(DELNRM .GT. EPCON) GO TO 380
5011 OLDNRM = DELNRM
5012 IF (DELNRM .LE. TOLNEW) GO TO 370
5014 RATE = (DELNRM/OLDNRM)**(1.0D0/M)
5018 IF (S*DELNRM .LE. EPCON) GO TO 370
5594 IF (DELNRM .EQ. 0.0D0) RETURN
6152 IF(DELNRM .GT. EPCON) GO TO 380
6318 OLDNRM = DELNRM
[all …]