fix PROGRAM line in INSTALL

mgates3 · mgates3 · commit d0b1591e28ec · 2025-08-26T23:27:58.000-04:00
diff --git a/INSTALL/dsecndtst.f b/INSTALL/dsecndtst.f
@@ -20,7 +20,9 @@
 *
 *> \ingroup test_second
 *
-*  =====================================================================      PROGRAM DSECNDTST
+*  =====================================================================
+      PROGRAM DSECNDTST
+      IMPLICIT NONE
 *
 *  -- LAPACK test routine --
 *
@@ -117,6 +119,8 @@
      $        ' than zero => timing in TESTING might be dubious' )
       CALL MYSUB(NMAX,X,Y)
       END
+
+*  =====================================================================
       SUBROUTINE MYSUB(N,X,Y)
       IMPLICIT NONE
       INTEGER N
diff --git a/INSTALL/secondtst.f b/INSTALL/secondtst.f
@@ -16,7 +16,9 @@
 *
 *> \ingroup test_second
 *
-*  =====================================================================      PROGRAM SECONDTST
+*  =====================================================================
+      PROGRAM SECONDTST
+      IMPLICIT NONE
 *
 *  -- LAPACK test routine --
 *
@@ -113,6 +115,8 @@
      $        ' than zero => timing in TESTING might be dubious' )
       CALL MYSUB(NMAX,X,Y)
       END
+
+*  =====================================================================
       SUBROUTINE MYSUB(N,X,Y)
       IMPLICIT NONE
       INTEGER N

Original file line number	Diff line number	Diff line change
`@@ -20,7 +20,9 @@`
`20`	`20`	`*`
`21`	`21`	`*> \ingroup test_second`
`22`	`22`	`*`
`23`		`-* ===================================================================== PROGRAM DSECNDTST`
	`23`	`+* =====================================================================`
	`24`	`+ PROGRAM DSECNDTST`
	`25`	`+ IMPLICIT NONE`
`24`	`26`	`*`
`25`	`27`	`* -- LAPACK test routine --`
`26`	`28`	`*`
`@@ -117,6 +119,8 @@`
`117`	`119`	`$ ' than zero => timing in TESTING might be dubious' )`
`118`	`120`	`CALL MYSUB(NMAX,X,Y)`
`119`	`121`	`END`
	`122`	`+`
	`123`	`+* =====================================================================`
`120`	`124`	`SUBROUTINE MYSUB(N,X,Y)`
`121`	`125`	`IMPLICIT NONE`
`122`	`126`	`INTEGER N`
Original file line number	Diff line number	Diff line change
`@@ -16,7 +16,9 @@`
`16`	`16`	`*`
`17`	`17`	`*> \ingroup test_second`
`18`	`18`	`*`
`19`		`-* ===================================================================== PROGRAM SECONDTST`
	`19`	`+* =====================================================================`
	`20`	`+ PROGRAM SECONDTST`
	`21`	`+ IMPLICIT NONE`
`20`	`22`	`*`
`21`	`23`	`* -- LAPACK test routine --`
`22`	`24`	`*`
`@@ -113,6 +115,8 @@`
`113`	`115`	`$ ' than zero => timing in TESTING might be dubious' )`
`114`	`116`	`CALL MYSUB(NMAX,X,Y)`
`115`	`117`	`END`
	`118`	`+`
	`119`	`+* =====================================================================`
`116`	`120`	`SUBROUTINE MYSUB(N,X,Y)`
`117`	`121`	`IMPLICIT NONE`
`118`	`122`	`INTEGER N`