diff options
| author | jofret | 2010-06-21 06:24:38 +0000 |
|---|---|---|
| committer | jofret | 2010-06-21 06:24:38 +0000 |
| commit | 8b44229ef44f0558ce045e46ff833fb44df913c9 (patch) | |
| tree | 4fdd89b2258c18c905d2f17ef4bea8ea9cf32893 /src/fortran/blas/zrotg.f | |
| parent | af0366230e14cc75d9e9a183375ee9cb69fb46b6 (diff) | |
| download | scilab2c-8b44229ef44f0558ce045e46ff833fb44df913c9.tar.gz scilab2c-8b44229ef44f0558ce045e46ff833fb44df913c9.tar.bz2 scilab2c-8b44229ef44f0558ce045e46ff833fb44df913c9.zip | |
Tagging the 2.0 release of scilab2crelease-2.0
Diffstat (limited to 'src/fortran/blas/zrotg.f')
| -rw-r--r-- | src/fortran/blas/zrotg.f | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/src/fortran/blas/zrotg.f b/src/fortran/blas/zrotg.f new file mode 100644 index 00000000..f6a4aa12 --- /dev/null +++ b/src/fortran/blas/zrotg.f @@ -0,0 +1,21 @@ + subroutine zrotg(ca,cb,c,s) + double complex ca,cb,s + double precision c + double precision norm,scale + double complex alpha + if (cdabs(ca) .ne. 0.0d0) go to 10 + c = 0.0d0 + s = (1.0d0,0.0d0) + ca = cb + go to 20 + 10 continue + scale = cdabs(ca) + cdabs(cb) + norm = scale*dsqrt((cdabs(ca/dcmplx(scale,0.0d0)))**2 + + * (cdabs(cb/dcmplx(scale,0.0d0)))**2) + alpha = ca /cdabs(ca) + c = cdabs(ca) / norm + s = alpha * dconjg(cb) / norm + ca = alpha * norm + 20 continue + return + end |