![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to drotm.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / lapack / blas|
Return to drotm.f CVS log | Up to [local] / rpl / lapack / blas |
| version 1.3, 2010/08/06 15:32:19 | version 1.4, 2010/08/07 13:18:05 |
|---|---|
| Line 65 | Line 65 |
| IF (.NOT. (INCX.EQ.INCY.AND.INCX.GT.0)) GO TO 70 | IF (.NOT. (INCX.EQ.INCY.AND.INCX.GT.0)) GO TO 70 |
| * | * |
| NSTEPS = N*INCX | NSTEPS = N*INCX |
| IF (DFLAG) 50,10,30 | IF (DFLAG.LT.ZERO) THEN |
| GO TO 50 | |
| ELSE IF (DFLAG.EQ.ZERO) THEN | |
| GO TO 10 | |
| ELSE | |
| GO TO 30 | |
| END IF | |
| 10 CONTINUE | 10 CONTINUE |
| DH12 = DPARAM(4) | DH12 = DPARAM(4) |
| DH21 = DPARAM(3) | DH21 = DPARAM(3) |
| Line 104 | Line 110 |
| IF (INCX.LT.0) KX = 1 + (1-N)*INCX | IF (INCX.LT.0) KX = 1 + (1-N)*INCX |
| IF (INCY.LT.0) KY = 1 + (1-N)*INCY | IF (INCY.LT.0) KY = 1 + (1-N)*INCY |
| * | * |
| IF (DFLAG) 120,80,100 | IF (DFLAG.LT.ZERO) THEN |
| GO TO 120 | |
| ELSE IF (DFLAG.EQ.ZERO) THEN | |
| GO TO 80 | |
| ELSE | |
| GO TO 100 | |
| END IF | |
| 80 CONTINUE | 80 CONTINUE |
| DH12 = DPARAM(4) | DH12 = DPARAM(4) |
| DH21 = DPARAM(3) | DH21 = DPARAM(3) |