|
version 1.4, 2010/12/21 13:53:53
|
version 1.5, 2011/07/22 07:38:19
|
|
Line 1
|
Line 1
|
| SUBROUTINE ZPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) |
SUBROUTINE ZPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) |
| * |
* |
| * -- LAPACK routine (version 3.2) -- |
* -- LAPACK routine (version 3.3.1) -- |
| * -- Contributed by James Demmel, Deaglan Halligan, Yozo Hida and -- |
* -- Contributed by James Demmel, Deaglan Halligan, Yozo Hida and -- |
| * -- Jason Riedy of Univ. of California Berkeley. -- |
* -- Jason Riedy of Univ. of California Berkeley. -- |
| * -- November 2008 -- |
* -- November 2008 -- |
|
Line 84
|
Line 84
|
| * .. Intrinsic Functions .. |
* .. Intrinsic Functions .. |
| INTRINSIC MAX, MIN, SQRT, LOG, INT, REAL, DIMAG |
INTRINSIC MAX, MIN, SQRT, LOG, INT, REAL, DIMAG |
| * .. |
* .. |
| * .. Statement Functions .. |
|
| DOUBLE PRECISION CABS1 |
|
| * .. |
|
| * .. Statement Function Definitions .. |
|
| CABS1( ZDUM ) = ABS( DBLE( ZDUM ) ) + ABS( DIMAG( ZDUM ) ) |
|
| * .. |
|
| * .. Executable Statements .. |
* .. Executable Statements .. |
| * |
* |
| * Test the input parameters. |
* Test the input parameters. |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to zpoequb.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / lapack / lapack