src/fortran/ddaskr.f

4321       DELNRM = DDWNRM(NEQ,DELTA,WT,RPAR,IPAR)
4322       FNRM = DELNRM
4335       CALL DLINSD (NEQ, Y, X, YPRIME, CJ, TSCALE, DELTA, DELNRM, WT,
4358       DELNRM = FNRM
4860       DELNRM = DDWNRM(NEQ,DELTA,WT,RPAR,IPAR)
4861       IF(DELNRM .GT. EPCON) GO TO 380
5009       DELNRM=DDWNRM(NEQ,DELTA,WT,RPAR,IPAR)
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
5593       DELNRM = DDWNRM(NEQ,DELTA,WT,RPAR,IPAR)
5594       IF (DELNRM .EQ. 0.0D0) RETURN
5600       CALL DLINSK (NEQ, Y, X, YPRIME, SAVR, CJ, TSCALE, DELTA, DELNRM,
6151       DELNRM = DDWNRM(NEQ,DELTA,WT,RPAR,IPAR)
6152       IF(DELNRM .GT. EPCON) GO TO 380
6316       DELNRM = DDWNRM(NEQ,DELTA,WT,RPAR,IPAR)
6318         OLDNRM = DELNRM
6319         IF (DELNRM .LE. TOLNEW) GO TO 370
6321         RATE = (DELNRM/OLDNRM)**(1.0D0/M)
6325       IF (S*DELNRM .LE. EPCON) GO TO 370