[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.18 and 1.19

version 1.18, 2018/05/29 07:18:12 version 1.19, 2020/05/21 21:46:03
Line 132 Line 132
 *> \author Univ. of Colorado Denver  *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.  *> \author NAG Ltd.
 *  *
 *> \date December 2016  *> \date November 2019
 *  *
 *> \ingroup OTHERauxiliary  *> \ingroup OTHERauxiliary
 *  *
Line 162 Line 162
 *  =====================================================================  *  =====================================================================
       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.7.0) --  *  -- LAPACK auxiliary routine (version 3.9.0) --
 *  -- 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..--
 *     December 2016  *     November 2019
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       CHARACTER*( * )    NAME, OPTS        CHARACTER*( * )    NAME, OPTS
Line 176 Line 176
 *  *
 *     .. Local Scalars ..  *     .. Local Scalars ..
       INTEGER            I, IC, IZ, NB, NBMIN, NX        INTEGER            I, IC, IZ, NB, NBMIN, NX
       LOGICAL            CNAME, SNAME        LOGICAL            CNAME, SNAME, TWOSTAGE
       CHARACTER          C1*1, C2*2, C4*2, C3*3, SUBNAM*6        CHARACTER          C1*1, C2*2, C4*2, C3*3, SUBNAM*16
 *     ..  *     ..
 *     .. Intrinsic Functions ..  *     .. Intrinsic Functions ..
       INTRINSIC          CHAR, ICHAR, INT, MIN, REAL        INTRINSIC          CHAR, ICHAR, INT, MIN, REAL
Line 189 Line 189
 *     .. 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,       $        130, 140, 150, 160, 160, 160, 160, 160)ISPEC
      $        170, 170, 170, 170, 170 )ISPEC  
 *  *
 *     Invalid value for ISPEC  *     Invalid value for ISPEC
 *  *
Line 257 Line 256
       C2 = SUBNAM( 2: 3 )        C2 = SUBNAM( 2: 3 )
       C3 = SUBNAM( 4: 6 )        C3 = SUBNAM( 4: 6 )
       C4 = C3( 2: 3 )        C4 = C3( 2: 3 )
         TWOSTAGE = LEN( SUBNAM ).GE.11
        $           .AND. SUBNAM( 11: 11 ).EQ.'2'
 *  *
       GO TO ( 50, 60, 70 )ISPEC        GO TO ( 50, 60, 70 )ISPEC
 *  *
Line 270 Line 271
 *  *
       NB = 1        NB = 1
 *  *
       IF( C2.EQ.'GE' ) THEN        IF( SUBNAM(2:6).EQ.'LAORH' ) THEN
   *
   *        This is for *LAORHR_GETRFNP routine
   *
            IF( SNAME ) THEN
                NB = 32
            ELSE
                NB = 32
            END IF
         ELSE IF( C2.EQ.'GE' ) THEN
          IF( C3.EQ.'TRF' ) THEN           IF( C3.EQ.'TRF' ) THEN
             IF( SNAME ) THEN              IF( SNAME ) THEN
                NB = 64                 NB = 64
Line 360 Line 370
       ELSE IF( C2.EQ.'SY' ) THEN        ELSE IF( C2.EQ.'SY' ) THEN
          IF( C3.EQ.'TRF' ) THEN           IF( C3.EQ.'TRF' ) THEN
             IF( SNAME ) THEN              IF( SNAME ) THEN
                NB = 64                 IF( TWOSTAGE ) THEN
                     NB = 192
                  ELSE
                     NB = 64
                  END IF
             ELSE              ELSE
                NB = 64                 IF( TWOSTAGE ) THEN
                     NB = 192
                  ELSE
                     NB = 64
                  END IF
             END IF              END IF
          ELSE IF( SNAME .AND. C3.EQ.'TRD' ) THEN           ELSE IF( SNAME .AND. C3.EQ.'TRD' ) THEN
             NB = 32              NB = 32
Line 371 Line 389
          END IF           END IF
       ELSE IF( CNAME .AND. C2.EQ.'HE' ) THEN        ELSE IF( CNAME .AND. C2.EQ.'HE' ) THEN
          IF( C3.EQ.'TRF' ) THEN           IF( C3.EQ.'TRF' ) THEN
             NB = 64              IF( TWOSTAGE ) THEN
                  NB = 192
               ELSE
                  NB = 64
               END IF
          ELSE IF( C3.EQ.'TRD' ) THEN           ELSE IF( C3.EQ.'TRD' ) THEN
             NB = 32              NB = 32
          ELSE IF( C3.EQ.'GST' ) THEN           ELSE IF( C3.EQ.'GST' ) THEN
Line 691 Line 713
       ILAENV = IPARMQ( ISPEC, NAME, OPTS, N1, N2, N3, N4 )        ILAENV = IPARMQ( ISPEC, NAME, OPTS, N1, N2, N3, N4 )
       RETURN        RETURN
 *  *
   170 CONTINUE  
 *  
 *     17 <= ISPEC <= 21: 2stage eigenvalues and SVD or related subroutines.  
 *  
       ILAENV = IPARAM2STAGE( ISPEC, NAME, OPTS, N1, N2, N3, N4 )  
       RETURN  
 *  
 *     End of ILAENV  *     End of ILAENV
 *  *
       END        END
Removed from v.1.18  
changed lines
  Added in v.1.19

CVSweb interface <joel.bertrand@systella.fr>