remove compiler warnings

Author: iyamazaki

SRC/chesv_aa_2stage.f

@@ -203,16 +203,10 @@ SUBROUTINE CHESV_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB,
 *     ..
 *
 *  =====================================================================
-*     .. Parameters ..
-      COMPLEX            ZERO, ONE
-      PARAMETER          ( ZERO = ( 0.0E+0, 0.0E+0 ),
-     $                     ONE  = ( 1.0E+0, 0.0E+0 ) )
 *
 *     .. Local Scalars ..
       LOGICAL            UPPER, TQUERY, WQUERY
-      INTEGER            I, J, K, I1, I2, TD
-      INTEGER            LDTB, LWKOPT, NB, KB, NT, IINFO
-      COMPLEX            PIV
+      INTEGER            LWKOPT
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME
@@ -223,7 +217,7 @@ SUBROUTINE CHESV_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB,
       EXTERNAL           XERBLA
 *     ..
 *     .. Intrinsic Functions ..
-      INTRINSIC          CONJG, MIN, MAX
+      INTRINSIC          MAX
 *     ..
 *     .. Executable Statements ..
 *

SRC/chetrs_aa_2stage.f

@@ -204,7 +204,7 @@ SUBROUTINE CHETRS_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB,
 *
 *     Read NB and compute LDTB
 *
-      NB = TB( 1 )
+      NB = INT( TB( 1 ) )
       LDTB = LTB/N
 *
       IF( UPPER ) THEN

SRC/dsysv_aa_2stage.f

@@ -203,16 +203,10 @@ SUBROUTINE DSYSV_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB,
 *     ..
 *
 *  =====================================================================
-*     .. Parameters ..
-      DOUBLE PRECISION   ZERO, ONE
-      PARAMETER          ( ZERO = ( 0.0D+0, 0.0D+0 ),
-     $                     ONE  = ( 1.0D+0, 0.0D+0 ) )
 *
 *     .. Local Scalars ..
       LOGICAL            UPPER, TQUERY, WQUERY
-      INTEGER            I, J, K, I1, I2, TD
-      INTEGER            LDTB, LWKOPT, NB, KB, NT, IINFO
-      DOUBLE PRECISION            PIV
+      INTEGER            LWKOPT
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME
@@ -223,7 +217,7 @@ SUBROUTINE DSYSV_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB,
       EXTERNAL           XERBLA
 *     ..
 *     .. Intrinsic Functions ..
-      INTRINSIC          CONJG, MIN, MAX
+      INTRINSIC          MAX
 *     ..
 *     .. Executable Statements ..
 *

SRC/dsytrs_aa_2stage.f

@@ -204,7 +204,7 @@ SUBROUTINE DSYTRS_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB,
 *
 *     Read NB and compute LDTB
 *
-      NB = TB( 1 )
+      NB = INT( TB( 1 ) )
       LDTB = LTB/N
 *
       IF( UPPER ) THEN

SRC/ssysv_aa_2stage.f

@@ -1,6 +1,6 @@
 *> \brief <b> SSYSV_AA_2STAGE computes the solution to system of linear equations A * X = B for SY matrices</b>
 *
-* @generated from SRC/chesv_aasen_2stage.f, fortran c -> s, Tue Oct 31 11:22:31 2017
+*  @precisions fortran s -> c
 *
 *  =========== DOCUMENTATION ===========
 *
@@ -21,8 +21,8 @@
 *  ===========
 *
 *      SUBROUTINE SSYSV_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB,
-*                                     IPIV, IPIV2, B, LDB, WORK, LWORK,
-*                                     INFO )
+*                                  IPIV, IPIV2, B, LDB, WORK, LWORK,
+*                                  INFO )
 *
 *       .. Scalar Arguments ..
 *       CHARACTER          UPLO
@@ -203,16 +203,10 @@ SUBROUTINE SSYSV_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB,
 *     ..
 *
 *  =====================================================================
-*     .. Parameters ..
-      REAL               ZERO, ONE
-      PARAMETER          ( ZERO = ( 0.0E+0, 0.0E+0 ),
-     $                     ONE  = ( 1.0E+0, 0.0E+0 ) )
-*
+*     ..
 *     .. Local Scalars ..
       LOGICAL            UPPER, TQUERY, WQUERY
-      INTEGER            I, J, K, I1, I2, TD
-      INTEGER            LDTB, LWKOPT, NB, KB, NT, IINFO
-      REAL               PIV
+      INTEGER            LWKOPT
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME
@@ -223,7 +217,7 @@ SUBROUTINE SSYSV_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB,
       EXTERNAL           XERBLA
 *     ..
 *     .. Intrinsic Functions ..
-      INTRINSIC          CONJG, MIN, MAX
+      INTRINSIC          MAX
 *     ..
 *     .. Executable Statements ..
 *

SRC/ssytrf_aa_2stage.f

@@ -1,6 +1,6 @@
 *> \brief \b SSYTRF_AA_2STAGE
 *
-* @generated from SRC/dsytrf_aa_2stage.f, fortran d -> s, Mon Oct 30 11:57:50 2017
+*  @precisions fortran s -> c
 *
 *  =========== DOCUMENTATION ===========
 *
@@ -29,7 +29,7 @@
 *       ..
 *       .. Array Arguments ..
 *       INTEGER            IPIV( * ), IPIV2( * )
-*       REAL   A( LDA, * ), TB( * ), WORK( * )
+*       REAL               A( LDA, * ), TB( * ), WORK( * )
 *       ..
 *
 *> \par Purpose:

SRC/ssytrs_aa_2stage.f

@@ -1,6 +1,6 @@
 *> \brief \b SSYTRS_AA_2STAGE
 *
-* @generated from SRC/dsytrs_aa_2stage.f, fortran d -> s, Mon Oct 30 11:59:02 2017
+*  @precisions fortran s -> c
 *
 *  =========== DOCUMENTATION ===========
 *
@@ -204,7 +204,7 @@ SUBROUTINE SSYTRS_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB,
 *
 *     Read NB and compute LDTB
 *
-      NB = TB( 1 )
+      NB = INT( TB( 1 ) )
       LDTB = LTB/N
 *
       IF( UPPER ) THEN