implicit none in SRC

mgates3 · mgates3 · commit 971f19940ea0 · 2025-08-26T23:27:57.000-04:00
diff --git a/SRC/icmax1.f b/SRC/icmax1.f
@@ -76,6 +76,7 @@
 *
 *  =====================================================================
       INTEGER FUNCTION ICMAX1( N, CX, INCX )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/ieeeck.f b/SRC/ieeeck.f
@@ -77,6 +77,7 @@
 *
 *  =====================================================================
       INTEGER          FUNCTION IEEECK( ISPEC, ZERO, ONE )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/ilaclc.f b/SRC/ilaclc.f
@@ -73,6 +73,7 @@
 *
 *  =====================================================================
       INTEGER FUNCTION ILACLC( M, N, A, LDA )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/ilaclr.f b/SRC/ilaclr.f
@@ -73,6 +73,7 @@
 *
 *  =====================================================================
       INTEGER FUNCTION ILACLR( M, N, A, LDA )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/iladiag.f b/SRC/iladiag.f
@@ -53,6 +53,7 @@
 *
 *  =====================================================================
       INTEGER FUNCTION ILADIAG( DIAG )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/iladlc.f b/SRC/iladlc.f
@@ -73,6 +73,7 @@
 *
 *  =====================================================================
       INTEGER FUNCTION ILADLC( M, N, A, LDA )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/iladlr.f b/SRC/iladlr.f
@@ -73,6 +73,7 @@
 *
 *  =====================================================================
       INTEGER FUNCTION ILADLR( M, N, A, LDA )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/ilaenv.f b/SRC/ilaenv.f
@@ -157,6 +157,7 @@
 *>
 *  =====================================================================
       INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, N4 )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/ilaenv2stage.f b/SRC/ilaenv2stage.f
@@ -145,6 +145,7 @@
 *  =====================================================================
       INTEGER FUNCTION ILAENV2STAGE( ISPEC, NAME, OPTS, N1, N2, N3,
      $                               N4 )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/ilaprec.f b/SRC/ilaprec.f
@@ -53,6 +53,7 @@
 *
 *  =====================================================================
       INTEGER FUNCTION ILAPREC( PREC )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/ilaslc.f b/SRC/ilaslc.f
@@ -73,6 +73,7 @@
 *
 *  =====================================================================
       INTEGER FUNCTION ILASLC( M, N, A, LDA )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/ilaslr.f b/SRC/ilaslr.f
@@ -73,6 +73,7 @@
 *
 *  =====================================================================
       INTEGER FUNCTION ILASLR( M, N, A, LDA )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/ilatrans.f b/SRC/ilatrans.f
@@ -53,6 +53,7 @@
 *
 *  =====================================================================
       INTEGER FUNCTION ILATRANS( TRANS )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/ilauplo.f b/SRC/ilauplo.f
@@ -53,6 +53,7 @@
 *
 *  =====================================================================
       INTEGER FUNCTION ILAUPLO( UPLO )
+      IMPLICIT NONE
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/ilazlc.f b/SRC/ilazlc.f
@@ -73,6 +73,7 @@
 *
 *  =====================================================================
       INTEGER FUNCTION ILAZLC( M, N, A, LDA )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/ilazlr.f b/SRC/ilazlr.f
@@ -73,6 +73,7 @@
 *
 *  =====================================================================
       INTEGER FUNCTION ILAZLR( M, N, A, LDA )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/iparmq.f b/SRC/iparmq.f
@@ -226,6 +226,7 @@
 *  =====================================================================
       INTEGER FUNCTION IPARMQ( ISPEC, NAME, OPTS, N, ILO, IHI,
      $                         LWORK )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/izmax1.f b/SRC/izmax1.f
@@ -76,6 +76,7 @@
 *
 *  =====================================================================
       INTEGER FUNCTION IZMAX1( N, ZX, INCX )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/lsamen.f b/SRC/lsamen.f
@@ -69,6 +69,7 @@
 *
 *  =====================================================================
       LOGICAL          FUNCTION LSAMEN( N, CA, CB )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/xerbla.f b/SRC/xerbla.f
@@ -65,6 +65,7 @@
 *
 *  =====================================================================
       SUBROUTINE XERBLA( SRNAME, INFO )
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/xerbla_array.f b/SRC/xerbla_array.f
@@ -85,6 +85,7 @@
 *
 *  =====================================================================
       SUBROUTINE XERBLA_ARRAY( SRNAME_ARRAY, SRNAME_LEN, INFO)
+      IMPLICIT NONE
 *
 *  -- LAPACK auxiliary routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

Original file line number	Diff line number	Diff line change
`@@ -76,6 +76,7 @@`
`76`	`76`	`*`
`77`	`77`	`* =====================================================================`
`78`	`78`	`INTEGER FUNCTION ICMAX1( N, CX, INCX )`
	`79`	`+ IMPLICIT NONE`
`79`	`80`	`*`
`80`	`81`	`* -- LAPACK auxiliary routine --`
`81`	`82`	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`
Original file line number	Diff line number	Diff line change
`@@ -77,6 +77,7 @@`
`77`	`77`	`*`
`78`	`78`	`* =====================================================================`
`79`	`79`	`INTEGER FUNCTION IEEECK( ISPEC, ZERO, ONE )`
	`80`	`+ IMPLICIT NONE`
`80`	`81`	`*`
`81`	`82`	`* -- LAPACK auxiliary routine --`
`82`	`83`	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`
Original file line number	Diff line number	Diff line change
`@@ -73,6 +73,7 @@`
`73`	`73`	`*`
`74`	`74`	`* =====================================================================`
`75`	`75`	`INTEGER FUNCTION ILACLC( M, N, A, LDA )`
	`76`	`+ IMPLICIT NONE`
`76`	`77`	`*`
`77`	`78`	`* -- LAPACK auxiliary routine --`
`78`	`79`	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`
Original file line number	Diff line number	Diff line change
`@@ -53,6 +53,7 @@`
`53`	`53`	`*`
`54`	`54`	`* =====================================================================`
`55`	`55`	`INTEGER FUNCTION ILADIAG( DIAG )`
	`56`	`+ IMPLICIT NONE`
`56`	`57`	`*`
`57`	`58`	`* -- LAPACK computational routine --`
`58`	`59`	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`
Original file line number	Diff line number	Diff line change
`@@ -157,6 +157,7 @@`
`157`	`157`	`*>`
`158`	`158`	`* =====================================================================`
`159`	`159`	`INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, N4 )`
	`160`	`+ IMPLICIT NONE`
`160`	`161`	`*`
`161`	`162`	`* -- LAPACK auxiliary routine --`
`162`	`163`	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`
Original file line number	Diff line number	Diff line change
`@@ -145,6 +145,7 @@`
`145`	`145`	`* =====================================================================`
`146`	`146`	`INTEGER FUNCTION ILAENV2STAGE( ISPEC, NAME, OPTS, N1, N2, N3,`
`147`	`147`	`$ N4 )`
	`148`	`+ IMPLICIT NONE`
`148`	`149`	`*`
`149`	`150`	`* -- LAPACK auxiliary routine --`
`150`	`151`	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`