implicit none in SRC/c

Author: mgates3

SRC/cbbcsd.f

@@ -328,6 +328,7 @@ SUBROUTINE CBBCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, M, P,
  $ THETA, PHI, U1, LDU1, U2, LDU2, V1T, LDV1T,
  $ V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E,
  $ B22D, B22E, RWORK, LRWORK, INFO )
+ IMPLICIT NONE
 *
 * -- LAPACK computational routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

SRC/cbdsqr.f

@@ -230,6 +230,7 @@
 * =====================================================================
  SUBROUTINE CBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U,
  $ LDU, C, LDC, RWORK, INFO )
+ IMPLICIT NONE
 *
 * -- LAPACK computational routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

SRC/cgbbrd.f

@@ -188,6 +188,7 @@
 * =====================================================================
  SUBROUTINE CGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q,
  $ LDQ, PT, LDPT, C, LDC, WORK, RWORK, INFO )
+ IMPLICIT NONE
 *
 * -- LAPACK computational routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

SRC/cgbcon.f

@@ -143,6 +143,7 @@
  SUBROUTINE CGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM,
  $ RCOND,
  $ WORK, RWORK, INFO )
+ IMPLICIT NONE
 *
 * -- LAPACK computational routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

SRC/cgbequ.f

@@ -150,6 +150,7 @@
  SUBROUTINE CGBEQU( M, N, KL, KU, AB, LDAB, R, C, ROWCND,
  $ COLCND,
  $ AMAX, INFO )
+ IMPLICIT NONE
 *
 * -- LAPACK computational routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

SRC/cgbequb.f

@@ -157,6 +157,7 @@
  SUBROUTINE CGBEQUB( M, N, KL, KU, AB, LDAB, R, C, ROWCND,
  $ COLCND,
  $ AMAX, INFO )
+ IMPLICIT NONE
 *
 * -- LAPACK computational routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

SRC/cgbrfs.f

@@ -202,6 +202,7 @@ SUBROUTINE CGBRFS( TRANS, N, KL, KU, NRHS, AB, LDAB, AFB,
  $ LDAFB,
  $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK,
  $ INFO )
+ IMPLICIT NONE
 *
 * -- LAPACK computational routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

SRC/cgbrfsx.f

@@ -436,6 +436,7 @@ SUBROUTINE CGBRFSX( TRANS, EQUED, N, KL, KU, NRHS, AB, LDAB,
  $ BERR, N_ERR_BNDS, ERR_BNDS_NORM,
  $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, RWORK,
  $ INFO )
+ IMPLICIT NONE
 *
 * -- LAPACK computational routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

SRC/cgbsv.f

@@ -158,6 +158,7 @@
 * =====================================================================
  SUBROUTINE CGBSV( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB,
  $ INFO )
+ IMPLICIT NONE
 *
 * -- LAPACK driver routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --

SRC/cgbsvx.f

@@ -365,6 +365,7 @@
  SUBROUTINE CGBSVX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB,
  $ LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX,
  $ RCOND, FERR, BERR, WORK, RWORK, INFO )
+ IMPLICIT NONE
 *
 * -- LAPACK driver routine --
 * -- LAPACK is a software package provided by Univ. of Tennessee, --