86 DOUBLE PRECISION x( * )
92 INTEGER i,
inc, ix, ixnext
105 IF(
lsame( job,
'I' ) )
THEN
115 IF( x( ix ).GT.x( ixnext ) )
THEN
119 x( ix ) = x( ixnext )
126 ELSE IF(
lsame( job,
'D' ) )
THEN
136 IF( x( ix ).LT.x( ixnext ) )
THEN
140 x( ix ) = x( ixnext )
subroutine dlaord(JOB, N, X, INCX)
DLAORD
logical function lsame(CA, CB)
LSAME
error code as a return value instead of the INFO parameter This implementation supports both the ILP64 and LP64 programming and different complex type C99 This implementation includes interfaces for the LAPACK Driver and Computational routines only Product Directories The installation directory of this package has the following compiler names for binaries to be created linked to You may choose the appropriate LP64 ILP64 convenient complex type LAPACKE name and or redefine system malloc free in make inc Several examples of make inc are provided After setting up the make inc