[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.13 and 1.14

version 1.13, 2014/01/27 09:28:30 version 1.14, 2015/11/26 11:44:21
Line 82 Line 82
 *>          =10: ieee NaN arithmetic can be trusted not to trap  *>          =10: ieee 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 <= 16:
 *>               xHSEQR or one of its 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 2011  *> \date November 2015
 *  *
 *> \ingroup auxOTHERauxiliary  *> \ingroup auxOTHERauxiliary
 *  *
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.4.0) --  *  -- LAPACK auxiliary routine (version 3.6.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..--
 *     November 2011  *     November 2015
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       CHARACTER*( * )    NAME, OPTS        CHARACTER*( * )    NAME, OPTS
Line 410 Line 410
          IF( C3.EQ.'EBZ' ) THEN           IF( C3.EQ.'EBZ' ) THEN
             NB = 1              NB = 1
          END IF           END IF
         ELSE IF( C2.EQ.'GG' ) THEN
            NB = 32
            IF( C3.EQ.'HD3' ) THEN
               IF( SNAME ) THEN
                  NB = 32
               ELSE
                  NB = 32
               END IF
            END IF
       END IF        END IF
       ILAENV = NB        ILAENV = NB
       RETURN        RETURN
Line 488 Line 497
                NBMIN = 2                 NBMIN = 2
             END IF              END IF
          END IF           END IF
         ELSE IF( C2.EQ.'GG' ) THEN
            NBMIN = 2
            IF( C3.EQ.'HD3' ) THEN
               NBMIN = 2
            END IF
       END IF        END IF
       ILAENV = NBMIN        ILAENV = NBMIN
       RETURN        RETURN
Line 542 Line 556
                NX = 128                 NX = 128
             END IF              END IF
          END IF           END IF
         ELSE IF( C2.EQ.'GG' ) THEN
            NX = 128
            IF( C3.EQ.'HD3' ) THEN
               NX = 128
            END IF
       END IF        END IF
       ILAENV = NX        ILAENV = NX
       RETURN        RETURN
Line 614 Line 633
 *  *
   160 CONTINUE    160 CONTINUE
 *  *
 *     12 <= ISPEC <= 16: xHSEQR or one of its subroutines.   *     12 <= ISPEC <= 16: 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.13  
changed lines
  Added in v.1.14

CVSweb interface <joel.bertrand@systella.fr>