diff options
| author | jofret | 2009-04-28 07:17:27 +0000 |
|---|---|---|
| committer | jofret | 2009-04-28 07:17:27 +0000 |
| commit | b4291825aaa210d693f4f858e1c8c25f514a3f71 (patch) | |
| tree | 4ba928deac68d7098a7043cd286acb23351825d8 /src/lib/blas/zscal.f | |
| parent | 8c8d2f518968ce7057eec6aa5cd5aec8faab861a (diff) | |
| download | scilab2c-b4291825aaa210d693f4f858e1c8c25f514a3f71.tar.gz scilab2c-b4291825aaa210d693f4f858e1c8c25f514a3f71.tar.bz2 scilab2c-b4291825aaa210d693f4f858e1c8c25f514a3f71.zip | |
Moving blas to right place
Diffstat (limited to 'src/lib/blas/zscal.f')
| -rw-r--r-- | src/lib/blas/zscal.f | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/src/lib/blas/zscal.f b/src/lib/blas/zscal.f deleted file mode 100644 index 6fa85763..00000000 --- a/src/lib/blas/zscal.f +++ /dev/null @@ -1,29 +0,0 @@ - subroutine zscal(n,za,zx,incx) -c -c scales a vector by a constant. -c jack dongarra, 3/11/78. -c modified 3/93 to return if incx .le. 0. -c modified 12/3/93, array(1) declarations changed to array(*) -c - double complex za,zx(*) - integer i,incx,ix,n -c - if( n.le.0 .or. incx.le.0 )return - if(incx.eq.1)go to 20 -c -c code for increment not equal to 1 -c - ix = 1 - do 10 i = 1,n - zx(ix) = za*zx(ix) - ix = ix + incx - 10 continue - return -c -c code for increment equal to 1 -c - 20 do 30 i = 1,n - zx(i) = za*zx(i) - 30 continue - return - end |