Merge pull request #3 from aeberspaecher/cosmetic

Cosmetic change for consistency in LAPACK interface
certik · Aug 20, 2012 · 97c13e7 · 97c13e7
2 parents 727158c + 2b4d1fb
commit 97c13e7
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/lapack.f90 b/src/lapack.f90
@@ -142,7 +142,7 @@ SUBROUTINE DGEEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, WR, WI, &
     INTEGER            IHI, ILO, INFO, LDA, LDVL, LDVR, LWORK, N
     REAL(dp)           ABNRM
     INTEGER            IWORK( * )
-    REAL(DP)           A( LDA, * ), RCONDE( * ), RCONDV( * ), &
+    REAL(dp)           A( LDA, * ), RCONDE( * ), RCONDV( * ), &
                        SCALE( * ), VL( LDVL, * ), VR( LDVR, * ), &
                        WI( * ), WORK( * ), WR( * )
     END SUBROUTINE
@@ -163,9 +163,9 @@ SUBROUTINE ZGEEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, W, VL, &
     import :: dp
     CHARACTER          BALANC, JOBVL, JOBVR, SENSE
     INTEGER            IHI, ILO, INFO, LDA, LDVL, LDVR, LWORK, N
-    REAL(DP)           ABNRM
-    REAL(DP)           RCONDE( * ), RCONDV( * ), RWORK( * ), SCALE( * )
-    COMPLEX(DP)        A( LDA, * ), VL( LDVL, * ), VR( LDVR, * ), W( * ), &
+    REAL(dp)           ABNRM
+    REAL(dp)           RCONDE( * ), RCONDV( * ), RWORK( * ), SCALE( * )
+    COMPLEX(dp)        A( LDA, * ), VL( LDVL, * ), VR( LDVR, * ), W( * ), &
                        WORK( * )
     END SUBROUTINE