Mercurial > octave-nkf
comparison libcruft/blas/zdrot.f @ 11738:5dc5de967ab0 release-3-0-x
use * instead of 1 for assumed-size fortran arrays
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Fri, 04 Apr 2008 14:27:06 -0400 |
| parents | 30c606bec7a8 |
| children |
comparison
equal
deleted
inserted
replaced
| 11737:dd93a39fa8fe | 11738:5dc5de967ab0 |
|---|---|
| 2 c | 2 c |
| 3 c applies a plane rotation, where the cos and sin (c and s) are | 3 c applies a plane rotation, where the cos and sin (c and s) are |
| 4 c double precision and the vectors zx and zy are double complex. | 4 c double precision and the vectors zx and zy are double complex. |
| 5 c jack dongarra, linpack, 3/11/78. | 5 c jack dongarra, linpack, 3/11/78. |
| 6 c | 6 c |
| 7 double complex zx(1),zy(1),ztemp | 7 double complex zx(*),zy(*),ztemp |
| 8 double precision c,s | 8 double precision c,s |
| 9 integer i,incx,incy,ix,iy,n | 9 integer i,incx,incy,ix,iy,n |
| 10 c | 10 c |
| 11 if(n.le.0)return | 11 if(n.le.0)return |
| 12 if(incx.eq.1.and.incy.eq.1)go to 20 | 12 if(incx.eq.1.and.incy.eq.1)go to 20 |