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

Diff for /rpl/lapack/lapack/dlat2s.f between versions 1.4 and 1.5

version 1.4, 2010/12/21 13:53:34 version 1.5, 2011/07/22 07:38:08
Line 1 Line 1
       SUBROUTINE DLAT2S( UPLO, N, A, LDA, SA, LDSA, INFO )        SUBROUTINE DLAT2S( UPLO, N, A, LDA, SA, LDSA, INFO )
 *  *
 *  -- LAPACK PROTOTYPE auxiliary routine (version 3.1.2) --  *  -- LAPACK PROTOTYPE auxiliary routine (version 3.3.1) --
 *  -- 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..--
 *     May 2007  *  -- April 2011                                                      --
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       CHARACTER          UPLO        CHARACTER          UPLO
Line 56 Line 56
 *                PRECISION overflow threshold, in this case, the content  *                PRECISION overflow threshold, in this case, the content
 *                of the UPLO part of SA in exit is unspecified.  *                of the UPLO part of SA in exit is unspecified.
 *  *
 *  =========  *  =====================================================================
 *  *
 *     .. Local Scalars ..  *     .. Local Scalars ..
       INTEGER            I, J        INTEGER            I, J
Line 76 Line 76
          DO 20 J = 1, N           DO 20 J = 1, N
             DO 10 I = 1, J              DO 10 I = 1, J
                IF( ( A( I, J ).LT.-RMAX ) .OR. ( A( I, J ).GT.RMAX ) )                 IF( ( A( I, J ).LT.-RMAX ) .OR. ( A( I, J ).GT.RMAX ) )
      +             THEN       $             THEN
                   INFO = 1                    INFO = 1
                   GO TO 50                    GO TO 50
                END IF                 END IF
Line 87 Line 87
          DO 40 J = 1, N           DO 40 J = 1, N
             DO 30 I = J, N              DO 30 I = J, N
                IF( ( A( I, J ).LT.-RMAX ) .OR. ( A( I, J ).GT.RMAX ) )                 IF( ( A( I, J ).LT.-RMAX ) .OR. ( A( I, J ).GT.RMAX ) )
      +             THEN       $             THEN
                   INFO = 1                    INFO = 1
                   GO TO 50                    GO TO 50
                END IF                 END IF
Removed from v.1.4  
changed lines
  Added in v.1.5

CVSweb interface <joel.bertrand@systella.fr>