| /dports/math/xlapack/lapack-3.10.0/BLAS/SRC/ |
| H A D | drotg.f90 | 92 subroutine DROTG( a, b, c, s ) subroutine
93 integer, parameter :: wp = kind(1.d0)
100 real(wp), parameter :: zero = 0.0_wp
101 real(wp), parameter :: one = 1.0_wp
104 real(wp), parameter :: safmin = real(radix(0._wp),wp)**max( &
108 real(wp), parameter :: safmax = real(radix(0._wp),wp)**max( &
114 real(wp) :: a, b, c, s local
117 real(wp) :: anorm, bnorm, scl, sigma, r, z local
|
| /dports/math/blas/lapack-3.10.0/BLAS/SRC/ |
| H A D | drotg.f90 | 92 subroutine DROTG( a, b, c, s ) subroutine
93 integer, parameter :: wp = kind(1.d0)
100 real(wp), parameter :: zero = 0.0_wp
101 real(wp), parameter :: one = 1.0_wp
104 real(wp), parameter :: safmin = real(radix(0._wp),wp)**max( &
108 real(wp), parameter :: safmax = real(radix(0._wp),wp)**max( &
114 real(wp) :: a, b, c, s local
117 real(wp) :: anorm, bnorm, scl, sigma, r, z local
|
| /dports/math/lapack/lapack-3.10.0/BLAS/SRC/ |
| H A D | drotg.f90 | 92 subroutine DROTG( a, b, c, s ) subroutine
93 integer, parameter :: wp = kind(1.d0)
100 real(wp), parameter :: zero = 0.0_wp
101 real(wp), parameter :: one = 1.0_wp
104 real(wp), parameter :: safmin = real(radix(0._wp),wp)**max( &
108 real(wp), parameter :: safmax = real(radix(0._wp),wp)**max( &
114 real(wp) :: a, b, c, s local
117 real(wp) :: anorm, bnorm, scl, sigma, r, z local
|
| /dports/math/lapacke/lapack-3.10.0/BLAS/SRC/ |
| H A D | drotg.f90 | 92 subroutine DROTG( a, b, c, s ) subroutine
93 integer, parameter :: wp = kind(1.d0)
100 real(wp), parameter :: zero = 0.0_wp
101 real(wp), parameter :: one = 1.0_wp
104 real(wp), parameter :: safmin = real(radix(0._wp),wp)**max( &
108 real(wp), parameter :: safmax = real(radix(0._wp),wp)**max( &
114 real(wp) :: a, b, c, s local
117 real(wp) :: anorm, bnorm, scl, sigma, r, z local
|
| /dports/math/cblas/lapack-3.10.0/BLAS/SRC/ |
| H A D | drotg.f90 | 92 subroutine DROTG( a, b, c, s ) subroutine
93 integer, parameter :: wp = kind(1.d0)
100 real(wp), parameter :: zero = 0.0_wp
101 real(wp), parameter :: one = 1.0_wp
104 real(wp), parameter :: safmin = real(radix(0._wp),wp)**max( &
108 real(wp), parameter :: safmax = real(radix(0._wp),wp)**max( &
114 real(wp) :: a, b, c, s local
117 real(wp) :: anorm, bnorm, scl, sigma, r, z local
|
| /dports/math/math77/MATH77/ |
| H A D | drotg.f | 1 SUBROUTINE DROTG(A,B,C,S) subroutine
33 DOUBLE PRECISION A, B, C, S, U, V, R
55 10 IF (B .EQ. 0.D0) GO TO 20
71 15 B = 1.D0
76 20 C = 1.D0
|
| /dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/BLAS/SRC/ |
| H A D | drotg.f | 70 SUBROUTINE DROTG(DA,DB,C,S) subroutine
78 DOUBLE PRECISION C,DA,DB,S
84 DOUBLE PRECISION R,ROE,SCALE,Z
|
| /dports/math/cmlib/cmlib-3.0_8/src/blas/ |
| H A D | drotg.f | 1 SUBROUTINE DROTG(DA,DB,DC,DS) subroutine
78 10 IF (DB .EQ. 0.D0) GO TO 20
94 15 DB = 1.D0
99 20 DC = 1.D0
|
| /dports/math/slatec/src/ |
| H A D | drotg.f | 2 SUBROUTINE DROTG (DA, DB, DC, DS) subroutine
83 10 IF (DB .EQ. 0.0D0) GO TO 20
99 15 DB = 1.0D0
104 20 DC = 1.0D0
|
| /dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/BLAS/SRC/ |
| H A D | drotg.f | 47 SUBROUTINE DROTG(DA,DB,C,S) subroutine
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/blas/double/ |
| H A D | drotg.f | 1 SUBROUTINE DROTG(DA,DB,C,S) subroutine
|
| /dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/BLAS/SRC/ |
| H A D | drotg.f | 47 SUBROUTINE DROTG(DA,DB,C,S) subroutine
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/blas/double/ |
| H A D | drotg.f | 1 SUBROUTINE DROTG(DA,DB,C,S) subroutine
|
| /dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/ |
| H A D | dp34.F | 5175 SUBROUTINE DROTG(DA,DB,C,S) subroutine
5181 DOUBLE PRECISION DA,DB,C,S,ROE,SCALE,R,Z local
5191 10 R = SCALE*DSQRT((DA/SCALE)**2 + (DB/SCALE)**2)
5195 20 Z = S
|