[BACK]Return to ilaenv.f CVS log [TXT] [DIR] Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/ilaenv.f between versions 1.19 and 1.20

version 1.19, 2020/05/21 21:46:03 version 1.20, 2023/08/07 08:39:14
Line 79 Line 79
 *>          = 9: maximum size of the subproblems at the bottom of the  *>          = 9: maximum size of the subproblems at the bottom of the
 *>               computation tree in the divide-and-conquer algorithm  *>               computation tree in the divide-and-conquer algorithm
 *>               (used by xGELSD and xGESDD)  *>               (used by xGELSD and xGESDD)
 *>          =10: ieee NaN arithmetic can be trusted not to trap  *>          =10: ieee infinity and NaN arithmetic can be trusted not to trap
 *>          =11: infinity arithmetic can be trusted not to trap  *>          =11: infinity arithmetic can be trusted not to trap
 *>          12 <= ISPEC <= 16:  *>          12 <= ISPEC <= 17:
 *>               xHSEQR or related subroutines,  *>               xHSEQR or related subroutines,
 *>               see IPARMQ for detailed explanation  *>               see IPARMQ for detailed explanation
 *> \endverbatim  *> \endverbatim
Line 132 Line 132
 *> \author Univ. of Colorado Denver  *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.  *> \author NAG Ltd.
 *  *
 *> \date November 2019  
 *  
 *> \ingroup OTHERauxiliary  *> \ingroup OTHERauxiliary
 *  *
 *> \par Further Details:  *> \par Further Details:
Line 162 Line 160
 *  =====================================================================  *  =====================================================================
       INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, N4 )        INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, N4 )
 *  *
 *  -- LAPACK auxiliary routine (version 3.9.0) --  *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --  *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--  *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
 *     November 2019  
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       CHARACTER*( * )    NAME, OPTS        CHARACTER*( * )    NAME, OPTS
Line 189 Line 186
 *     .. Executable Statements ..  *     .. Executable Statements ..
 *  *
       GO TO ( 10, 10, 10, 80, 90, 100, 110, 120,        GO TO ( 10, 10, 10, 80, 90, 100, 110, 120,
      $        130, 140, 150, 160, 160, 160, 160, 160)ISPEC       $        130, 140, 150, 160, 160, 160, 160, 160, 160)ISPEC
 *  *
 *     Invalid value for ISPEC  *     Invalid value for ISPEC
 *  *
Line 472 Line 469
             ELSE              ELSE
                NB = 64                 NB = 64
             END IF              END IF
            ELSE IF( C3.EQ.'SYL' ) THEN
   *           The upper bound is to prevent overly aggressive scaling.
               IF( SNAME ) THEN
                  NB = MIN( MAX( 48, INT( ( MIN( N1, N2 ) * 16 ) / 100) ),
        $                   240 )
               ELSE
                  NB = MIN( MAX( 24, INT( ( MIN( N1, N2 ) * 8 ) / 100) ),
        $                   80 )
               END IF
          END IF           END IF
       ELSE IF( C2.EQ.'LA' ) THEN        ELSE IF( C2.EQ.'LA' ) THEN
          IF( C3.EQ.'UUM' ) THEN           IF( C3.EQ.'UUM' ) THEN
Line 480 Line 486
             ELSE              ELSE
                NB = 64                 NB = 64
             END IF              END IF
            ELSE IF( C3.EQ.'TRS' ) THEN
               IF( SNAME ) THEN
                  NB = 32
               ELSE
                  NB = 32
               END IF
          END IF           END IF
       ELSE IF( SNAME .AND. C2.EQ.'ST' ) THEN        ELSE IF( SNAME .AND. C2.EQ.'ST' ) THEN
          IF( C3.EQ.'EBZ' ) THEN           IF( C3.EQ.'EBZ' ) THEN
Line 686 Line 698
 *  *
   140 CONTINUE    140 CONTINUE
 *  *
 *     ISPEC = 10: ieee NaN arithmetic can be trusted not to trap  *     ISPEC = 10: ieee and infinity NaN arithmetic can be trusted not to trap
 *  *
 *     ILAENV = 0  *     ILAENV = 0
       ILAENV = 1        ILAENV = 1
Line 697 Line 709
 *  *
   150 CONTINUE    150 CONTINUE
 *  *
 *     ISPEC = 11: infinity arithmetic can be trusted not to trap  *     ISPEC = 11: ieee infinity arithmetic can be trusted not to trap
 *  *
 *     ILAENV = 0  *     ILAENV = 0
       ILAENV = 1        ILAENV = 1
Line 708 Line 720
 *  *
   160 CONTINUE    160 CONTINUE
 *  *
 *     12 <= ISPEC <= 16: xHSEQR or related subroutines.  *     12 <= ISPEC <= 17: xHSEQR or related subroutines.
 *  *
       ILAENV = IPARMQ( ISPEC, NAME, OPTS, N1, N2, N3, N4 )        ILAENV = IPARMQ( ISPEC, NAME, OPTS, N1, N2, N3, N4 )
       RETURN        RETURN
Removed from v.1.19  
changed lines
  Added in v.1.20

CVSweb interface <joel.bertrand@systella.fr>