implicit none in CBLAS

mgates3 · mgates3 · commit 83ed564b462d · 2025-08-26T23:27:58.000-04:00
diff --git a/CBLAS/src/cdotcsub.f b/CBLAS/src/cdotcsub.f
@@ -4,6 +4,7 @@
 c     Witten by Keita Teranishi.  2/11/1998
 c
       subroutine cdotcsub(n,x,incx,y,incy,dotc)
+      implicit none
 c
       external cdotc
       complex cdotc,dotc
diff --git a/CBLAS/src/cdotusub.f b/CBLAS/src/cdotusub.f
@@ -4,6 +4,7 @@
 c     Witten by Keita Teranishi.  2/11/1998
 c
       subroutine cdotusub(n,x,incx,y,incy,dotu)
+      implicit none
 c
       external cdotu
       complex cdotu,dotu
diff --git a/CBLAS/src/dasumsub.f b/CBLAS/src/dasumsub.f
@@ -4,6 +4,7 @@
 c     Witten by Keita Teranishi.  2/11/1998
 c
       subroutine dasumsub(n,x,incx,asum)
+      implicit none
 c
       external dasum
       double precision dasum,asum
diff --git a/CBLAS/src/dcabs1sub.f b/CBLAS/src/dcabs1sub.f
@@ -3,6 +3,7 @@
 c     The program is a fortran wrapper for dcabs1.
 c
       subroutine dcabs1sub(z, cabs1)
+      implicit none
 c
       external dcabs1
       double complex z
diff --git a/CBLAS/src/ddotsub.f b/CBLAS/src/ddotsub.f
@@ -4,6 +4,7 @@
 c     Witten by Keita Teranishi.  2/11/1998
 c
       subroutine ddotsub(n,x,incx,y,incy,dot)
+      implicit none
 c
       external ddot
       double precision ddot
diff --git a/CBLAS/src/dnrm2sub.f b/CBLAS/src/dnrm2sub.f
@@ -4,6 +4,7 @@
 c     Witten by Keita Teranishi.  2/11/1998
 c
       subroutine dnrm2sub(n,x,incx,nrm2)
+      implicit none
 c
       external dnrm2
       double precision dnrm2,nrm2
diff --git a/CBLAS/src/dsdotsub.f b/CBLAS/src/dsdotsub.f
@@ -4,6 +4,7 @@
 c     Witten by Keita Teranishi.  2/11/1998
 c
       subroutine dsdotsub(n,x,incx,y,incy,dot)
+      implicit none
 c
       external dsdot
       double precision dsdot,dot
diff --git a/CBLAS/src/dzasumsub.f b/CBLAS/src/dzasumsub.f
@@ -4,6 +4,7 @@
 c     Witten by Keita Teranishi.  2/11/1998
 c
       subroutine dzasumsub(n,x,incx,asum)
+      implicit none
 c
       external dzasum
       double precision dzasum,asum
diff --git a/CBLAS/src/dznrm2sub.f b/CBLAS/src/dznrm2sub.f
@@ -4,6 +4,7 @@
 c     Witten by Keita Teranishi.  2/11/1998
 c
       subroutine dznrm2sub(n,x,incx,nrm2)
+      implicit none
 c
       external dznrm2
       double precision dznrm2,nrm2
diff --git a/CBLAS/src/icamaxsub.f b/CBLAS/src/icamaxsub.f
@@ -4,6 +4,7 @@
 c     Witten by Keita Teranishi.  2/11/1998
 c
       subroutine icamaxsub(n,x,incx,iamax)
+      implicit none
 c
       external icamax
       integer  icamax,iamax
diff --git a/CBLAS/src/idamaxsub.f b/CBLAS/src/idamaxsub.f
@@ -4,6 +4,7 @@
 c     Witten by Keita Teranishi.  2/22/1998
 c
       subroutine idamaxsub(n,x,incx,iamax)
+      implicit none
 c
       external idamax
       integer  idamax,iamax
diff --git a/CBLAS/src/isamaxsub.f b/CBLAS/src/isamaxsub.f
@@ -4,6 +4,7 @@
 c     Witten by Keita Teranishi.  2/11/1998
 c
       subroutine isamaxsub(n,x,incx,iamax)
+      implicit none
 c
       external isamax
       integer  isamax,iamax
diff --git a/CBLAS/src/izamaxsub.f b/CBLAS/src/izamaxsub.f
@@ -4,6 +4,7 @@
 c     Witten by Keita Teranishi.  2/11/1998
 c
       subroutine izamaxsub(n,x,incx,iamax)
+      implicit none
 c
       external izamax
       integer  izamax,iamax
diff --git a/CBLAS/src/sasumsub.f b/CBLAS/src/sasumsub.f
@@ -4,6 +4,7 @@
 c     Witten by Keita Teranishi.  2/11/1998
 c
       subroutine sasumsub(n,x,incx,asum)
+      implicit none
 c
       external sasum
       real sasum,asum
diff --git a/CBLAS/src/scabs1sub.f b/CBLAS/src/scabs1sub.f
@@ -3,6 +3,7 @@
 c     The program is a fortran wrapper for scabs1.
 c
       subroutine scabs1sub(z, cabs1)
+      implicit none
 c
       external scabs1
       complex z
diff --git a/CBLAS/src/scasumsub.f b/CBLAS/src/scasumsub.f
@@ -4,6 +4,7 @@
 c     Witten by Keita Teranishi.  2/11/1998
 c
       subroutine scasumsub(n,x,incx,asum)
+      implicit none
 c
       external scasum
       real scasum,asum
diff --git a/CBLAS/src/scnrm2sub.f b/CBLAS/src/scnrm2sub.f
@@ -4,6 +4,7 @@
 c     Witten by Keita Teranishi.  2/11/1998
 c
       subroutine scnrm2sub(n,x,incx,nrm2)
+      implicit none
 c
       external scnrm2
       real scnrm2,nrm2
diff --git a/CBLAS/src/sdotsub.f b/CBLAS/src/sdotsub.f
@@ -4,6 +4,7 @@
 c     Witten by Keita Teranishi.  2/11/1998
 c
       subroutine sdotsub(n,x,incx,y,incy,dot)
+      implicit none
 c
       external sdot
       real sdot
diff --git a/CBLAS/src/sdsdotsub.f b/CBLAS/src/sdsdotsub.f
@@ -4,6 +4,7 @@
 c     Witten by Keita Teranishi.  2/11/1998
 c
       subroutine sdsdotsub(n,sb,x,incx,y,incy,dot)
+      implicit none
 c
       external sdsdot
       real sb,sdsdot,dot
diff --git a/CBLAS/src/snrm2sub.f b/CBLAS/src/snrm2sub.f
@@ -4,6 +4,7 @@
 c     Witten by Keita Teranishi.  2/11/1998
 c
       subroutine snrm2sub(n,x,incx,nrm2)
+      implicit none
 c
       external snrm2
       real snrm2,nrm2
diff --git a/CBLAS/src/zdotcsub.f b/CBLAS/src/zdotcsub.f
@@ -4,6 +4,7 @@
 c     Witten by Keita Teranishi.  2/11/1998
 c
       subroutine zdotcsub(n,x,incx,y,incy,dotc)
+      implicit none
 c
       external zdotc
       double complex zdotc,dotc
diff --git a/CBLAS/src/zdotusub.f b/CBLAS/src/zdotusub.f
@@ -4,6 +4,7 @@
 c     Witten by Keita Teranishi.  2/11/1998
 c
       subroutine zdotusub(n,x,incx,y,incy,dotu)
+      implicit none
 c
       external zdotu
       double complex zdotu,dotu
diff --git a/CBLAS/testing/c_cblat1.f b/CBLAS/testing/c_cblat1.f
@@ -1,4 +1,6 @@
+*  =====================================================================
       PROGRAM CCBLAT1
+      IMPLICIT NONE
 *     Test program for the COMPLEX    Level 1 CBLAS.
 *     Based upon the original CBLAS test routine together with:
 *     F06GAF Example Program Text
@@ -45,7 +47,10 @@ PROGRAM CCBLAT1
 99999 FORMAT (' Complex CBLAS Test Program Results',/1X)
 99998 FORMAT ('                                    ----- PASS -----')
       END
+
+*  =====================================================================
       SUBROUTINE HEADER
+      IMPLICIT NONE
 *     .. Parameters ..
       INTEGER          NOUT
       PARAMETER        (NOUT=6)
@@ -73,7 +78,10 @@ SUBROUTINE HEADER
 *
 99999 FORMAT (/' Test of subprogram number',I3,9X,A15)
       END
+
+*  =====================================================================
       SUBROUTINE CHECK1(SFAC)
+      IMPLICIT NONE
 *     .. Parameters ..
       INTEGER           NOUT
       PARAMETER         (NOUT=6)
@@ -274,7 +282,10 @@ SUBROUTINE CHECK1(SFAC)
       END IF
       RETURN
       END
+
+*  =====================================================================
       SUBROUTINE CHECK2(SFAC)
+      IMPLICIT NONE
 *     .. Parameters ..
       INTEGER           NOUT
       PARAMETER         (NOUT=6)
@@ -519,7 +530,10 @@ SUBROUTINE CHECK2(SFAC)
    60 CONTINUE
       RETURN
       END
+
+*  =====================================================================
       SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)
+      IMPLICIT NONE
 *     ********************************* STEST **************************
 *
 *     THIS SUBR COMPARES ARRAYS  SCOMP() AND STRUE() OF LENGTH LEN TO
@@ -574,7 +588,10 @@ SUBROUTINE STEST(LEN,SCOMP,STRUE,SSIZE,SFAC)
      +       '     SIZE(I)',/1X)
 99997 FORMAT (1X,I4,I3,3I5,I3,2E36.8,2E12.4)
       END
+
+*  =====================================================================
       SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
+      IMPLICIT NONE
 *     ************************* STEST1 *****************************
 *
 *     THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN
@@ -599,7 +616,10 @@ SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
 *
       RETURN
       END
+
+*  =====================================================================
       REAL             FUNCTION SDIFF(SA,SB)
+      IMPLICIT NONE
 *     ********************************* SDIFF **************************
 *     COMPUTES DIFFERENCE OF TWO NUMBERS.  C. L. LAWSON, JPL 1974 FEB 15
 *
@@ -609,7 +629,10 @@ REAL             FUNCTION SDIFF(SA,SB)
       SDIFF = SA - SB
       RETURN
       END
+
+*  =====================================================================
       SUBROUTINE CTEST(LEN,CCOMP,CTRUE,CSIZE,SFAC)
+      IMPLICIT NONE
 *     **************************** CTEST *****************************
 *
 *     C.L. LAWSON, JPL, 1978 DEC 6
@@ -640,7 +663,10 @@ SUBROUTINE CTEST(LEN,CCOMP,CTRUE,CSIZE,SFAC)
       CALL STEST(2*LEN,SCOMP,STRUE,SSIZE,SFAC)
       RETURN
       END
+
+*  =====================================================================
       SUBROUTINE ITEST1(ICOMP,ITRUE)
+      IMPLICIT NONE
 *     ********************************* ITEST1 *************************
 *
 *     THIS SUBROUTINE COMPARES THE VARIABLES ICOMP AND ITRUE FOR
diff --git a/CBLAS/testing/c_cblat2.f b/CBLAS/testing/c_cblat2.f
diff --git a/CBLAS/testing/c_cblat3.f b/CBLAS/testing/c_cblat3.f
diff --git a/CBLAS/testing/c_dblat1.f b/CBLAS/testing/c_dblat1.f
diff --git a/CBLAS/testing/c_dblat2.f b/CBLAS/testing/c_dblat2.f
diff --git a/CBLAS/testing/c_dblat3.f b/CBLAS/testing/c_dblat3.f
diff --git a/CBLAS/testing/c_sblat1.f b/CBLAS/testing/c_sblat1.f
diff --git a/CBLAS/testing/c_sblat2.f b/CBLAS/testing/c_sblat2.f
diff --git a/CBLAS/testing/c_sblat3.f b/CBLAS/testing/c_sblat3.f
diff --git a/CBLAS/testing/c_zblat1.f b/CBLAS/testing/c_zblat1.f
diff --git a/CBLAS/testing/c_zblat2.f b/CBLAS/testing/c_zblat2.f
diff --git a/CBLAS/testing/c_zblat3.f b/CBLAS/testing/c_zblat3.f

Original file line number	Diff line number	Diff line change
`@@ -4,6 +4,7 @@`
`4`	`4`	`c Witten by Keita Teranishi. 2/11/1998`
`5`	`5`	`c`
`6`	`6`	`subroutine cdotcsub(n,x,incx,y,incy,dotc)`
	`7`	`+ implicit none`
`7`	`8`	`c`
`8`	`9`	`external cdotc`
`9`	`10`	`complex cdotc,dotc`
Original file line number	Diff line number	Diff line change
`@@ -4,6 +4,7 @@`
`4`	`4`	`c Witten by Keita Teranishi. 2/11/1998`
`5`	`5`	`c`
`6`	`6`	`subroutine cdotusub(n,x,incx,y,incy,dotu)`
	`7`	`+ implicit none`
`7`	`8`	`c`
`8`	`9`	`external cdotu`
`9`	`10`	`complex cdotu,dotu`
Original file line number	Diff line number	Diff line change
`@@ -4,6 +4,7 @@`
`4`	`4`	`c Witten by Keita Teranishi. 2/11/1998`
`5`	`5`	`c`
`6`	`6`	`subroutine dasumsub(n,x,incx,asum)`
	`7`	`+ implicit none`
`7`	`8`	`c`
`8`	`9`	`external dasum`
`9`	`10`	`double precision dasum,asum`
Original file line number	Diff line number	Diff line change
`@@ -3,6 +3,7 @@`
`3`	`3`	`c The program is a fortran wrapper for dcabs1.`
`4`	`4`	`c`
`5`	`5`	`subroutine dcabs1sub(z, cabs1)`
	`6`	`+ implicit none`
`6`	`7`	`c`
`7`	`8`	`external dcabs1`
`8`	`9`	`double complex z`
Original file line number	Diff line number	Diff line change
`@@ -4,6 +4,7 @@`
`4`	`4`	`c Witten by Keita Teranishi. 2/11/1998`
`5`	`5`	`c`
`6`	`6`	`subroutine ddotsub(n,x,incx,y,incy,dot)`
	`7`	`+ implicit none`
`7`	`8`	`c`
`8`	`9`	`external ddot`
`9`	`10`	`double precision ddot`
Original file line number	Diff line number	Diff line change
`@@ -4,6 +4,7 @@`
`4`	`4`	`c Witten by Keita Teranishi. 2/11/1998`
`5`	`5`	`c`
`6`	`6`	`subroutine dnrm2sub(n,x,incx,nrm2)`
	`7`	`+ implicit none`
`7`	`8`	`c`
`8`	`9`	`external dnrm2`
`9`	`10`	`double precision dnrm2,nrm2`
Original file line number	Diff line number	Diff line change
`@@ -4,6 +4,7 @@`
`4`	`4`	`c Witten by Keita Teranishi. 2/11/1998`
`5`	`5`	`c`
`6`	`6`	`subroutine dsdotsub(n,x,incx,y,incy,dot)`
	`7`	`+ implicit none`
`7`	`8`	`c`
`8`	`9`	`external dsdot`
`9`	`10`	`double precision dsdot,dot`
Original file line number	Diff line number	Diff line change
`@@ -4,6 +4,7 @@`
`4`	`4`	`c Witten by Keita Teranishi. 2/11/1998`
`5`	`5`	`c`
`6`	`6`	`subroutine dzasumsub(n,x,incx,asum)`
	`7`	`+ implicit none`
`7`	`8`	`c`
`8`	`9`	`external dzasum`
`9`	`10`	`double precision dzasum,asum`
Original file line number	Diff line number	Diff line change
`@@ -4,6 +4,7 @@`
`4`	`4`	`c Witten by Keita Teranishi. 2/11/1998`
`5`	`5`	`c`
`6`	`6`	`subroutine dznrm2sub(n,x,incx,nrm2)`
	`7`	`+ implicit none`
`7`	`8`	`c`
`8`	`9`	`external dznrm2`
`9`	`10`	`double precision dznrm2,nrm2`
Original file line number	Diff line number	Diff line change
`@@ -4,6 +4,7 @@`
`4`	`4`	`c Witten by Keita Teranishi. 2/11/1998`
`5`	`5`	`c`
`6`	`6`	`subroutine icamaxsub(n,x,incx,iamax)`
	`7`	`+ implicit none`
`7`	`8`	`c`
`8`	`9`	`external icamax`
`9`	`10`	`integer icamax,iamax`