/dports/math/octave/octave-6.4.0/liboctave/external/dassl/ |
H A D | ddaini.f | 67 * 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 D | ddastp.f | 108 * 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 D | ddaini.f | 68 * 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 D | sdaini.f | 66 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 D | ddastp.f | 109 * 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 D | sdastp.f | 107 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 D | dnsd.f | 125 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 D | dnsk.f | 139 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 D | dnsid.f | 100 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 D | dnsik.f | 137 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 D | dnedd.f | 243 DELNRM = DDWNRM(NEQ,DELTA,WT,RPAR,IPAR) 244 IF(DELNRM .GT. EPCON) GO TO 380
|
H A D | dnedk.f | 246 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 D | ddaini.f | 152 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 D | ddastp.f | 141 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 D | sdaini.f | 151 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 D | sdastp.f | 140 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 D | ddassl.f | 163 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 D | ddaskr.f | 4322 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 …]
|