diff --git a/TESTING/EIG/cchkee.F b/TESTING/EIG/cchkee.F index 7c6f580870..638966afe1 100644 --- a/TESTING/EIG/cchkee.F +++ b/TESTING/EIG/cchkee.F @@ -2524,7 +2524,7 @@ PROGRAM CCHKEE 9974 FORMAT( ' Tests of CHBTRD', / ' (reduction of a Hermitian band ', $ 'matrix to real tridiagonal form)' ) 9973 FORMAT( / 1X, 71( '-' ) ) - 9972 FORMAT( / ' LAPACK VERSION ', I1, '.', I1, '.', I1 ) + 9972 FORMAT( / ' LAPACK VERSION ', I1, '.', I2, '.', I1 ) 9971 FORMAT( / ' Tests of the Generalized Linear Regression Model ', $ 'routines' ) 9970 FORMAT( / ' Tests of the Generalized QR and RQ routines' ) diff --git a/TESTING/EIG/dchkee.F b/TESTING/EIG/dchkee.F index 2b8e0b371d..20c4cb47c2 100644 --- a/TESTING/EIG/dchkee.F +++ b/TESTING/EIG/dchkee.F @@ -2508,7 +2508,7 @@ PROGRAM DCHKEE 9974 FORMAT( ' Tests of DSBTRD', / ' (reduction of a symmetric band ', $ 'matrix to tridiagonal form)' ) 9973 FORMAT( / 1X, 71( '-' ) ) - 9972 FORMAT( / ' LAPACK VERSION ', I1, '.', I1, '.', I1 ) + 9972 FORMAT( / ' LAPACK VERSION ', I1, '.', I2, '.', I1 ) 9971 FORMAT( / ' Tests of the Generalized Linear Regression Model ', $ 'routines' ) 9970 FORMAT( / ' Tests of the Generalized QR and RQ routines' ) diff --git a/TESTING/EIG/schkee.F b/TESTING/EIG/schkee.F index bf04b5e5b6..fa780b695c 100644 --- a/TESTING/EIG/schkee.F +++ b/TESTING/EIG/schkee.F @@ -2511,7 +2511,7 @@ PROGRAM SCHKEE 9974 FORMAT( ' Tests of SSBTRD', / ' (reduction of a symmetric band ', $ 'matrix to tridiagonal form)' ) 9973 FORMAT( / 1X, 71( '-' ) ) - 9972 FORMAT( / ' LAPACK VERSION ', I1, '.', I1, '.', I1 ) + 9972 FORMAT( / ' LAPACK VERSION ', I1, '.', I2, '.', I1 ) 9971 FORMAT( / ' Tests of the Generalized Linear Regression Model ', $ 'routines' ) 9970 FORMAT( / ' Tests of the Generalized QR and RQ routines' ) diff --git a/TESTING/EIG/zchkee.F b/TESTING/EIG/zchkee.F index b14127553b..7261881b48 100644 --- a/TESTING/EIG/zchkee.F +++ b/TESTING/EIG/zchkee.F @@ -2522,7 +2522,7 @@ PROGRAM ZCHKEE 9974 FORMAT( ' Tests of ZHBTRD', / ' (reduction of a Hermitian band ', $ 'matrix to real tridiagonal form)' ) 9973 FORMAT( / 1X, 71( '-' ) ) - 9972 FORMAT( / ' LAPACK VERSION ', I1, '.', I1, '.', I1 ) + 9972 FORMAT( / ' LAPACK VERSION ', I1, '.', I2, '.', I1 ) 9971 FORMAT( / ' Tests of the Generalized Linear Regression Model ', $ 'routines' ) 9970 FORMAT( / ' Tests of the Generalized QR and RQ routines' ) diff --git a/TESTING/LIN/cchkaa.F b/TESTING/LIN/cchkaa.F index 57d95c7419..a5a3428c14 100644 --- a/TESTING/LIN/cchkaa.F +++ b/TESTING/LIN/cchkaa.F @@ -1245,7 +1245,7 @@ PROGRAM CCHKAA 9995 FORMAT( ' Invalid input value: ', A4, '=', I6, '; must be <=', $ I6 ) 9994 FORMAT( ' Tests of the COMPLEX LAPACK routines ', - $ / ' LAPACK VERSION ', I1, '.', I1, '.', I1, + $ / ' LAPACK VERSION ', I1, '.', I2, '.', I1, $ / / ' The following parameter values will be used:' ) 9993 FORMAT( 4X, A4, ': ', 10I6, / 11X, 10I6 ) 9992 FORMAT( / ' Routines pass computational tests if test ratio is ', diff --git a/TESTING/LIN/cchkrfp.f b/TESTING/LIN/cchkrfp.f index 58d55c31c9..2511f8b56b 100644 --- a/TESTING/LIN/cchkrfp.f +++ b/TESTING/LIN/cchkrfp.f @@ -276,7 +276,7 @@ PROGRAM CCHKRFP 9995 FORMAT( ' !! Invalid input value: ', A4, '=', I6, '; must be <=', $ I6 ) 9994 FORMAT( / ' Tests of the COMPLEX LAPACK RFP routines ', - $ / ' LAPACK VERSION ', I1, '.', I1, '.', I1, + $ / ' LAPACK VERSION ', I1, '.', I2, '.', I1, $ / / ' The following parameter values will be used:' ) 9993 FORMAT( 4X, A4, ': ', 10I6, / 11X, 10I6 ) 9992 FORMAT( / ' Routines pass computational tests if test ratio is ', diff --git a/TESTING/LIN/dchkaa.F b/TESTING/LIN/dchkaa.F index 6582cac135..91ed659661 100644 --- a/TESTING/LIN/dchkaa.F +++ b/TESTING/LIN/dchkaa.F @@ -1089,7 +1089,7 @@ PROGRAM DCHKAA 9995 FORMAT( ' Invalid input value: ', A4, '=', I6, '; must be <=', $ I6 ) 9994 FORMAT( ' Tests of the DOUBLE PRECISION LAPACK routines ', - $ / ' LAPACK VERSION ', I1, '.', I1, '.', I1, + $ / ' LAPACK VERSION ', I1, '.', I2, '.', I1, $ / / ' The following parameter values will be used:' ) 9993 FORMAT( 4X, A4, ': ', 10I6, / 11X, 10I6 ) 9992 FORMAT( / ' Routines pass computational tests if test ratio is ', diff --git a/TESTING/LIN/dchkab.f b/TESTING/LIN/dchkab.f index a6b8a0fe1d..afa73c80ce 100644 --- a/TESTING/LIN/dchkab.f +++ b/TESTING/LIN/dchkab.f @@ -350,7 +350,7 @@ PROGRAM DCHKAB $ I6 ) 9994 FORMAT( ' Tests of the DOUBLE PRECISION LAPACK DSGESV/DSPOSV', $ ' routines ', - $ / ' LAPACK VERSION ', I1, '.', I1, '.', I1, + $ / ' LAPACK VERSION ', I1, '.', I2, '.', I1, $ / / ' The following parameter values will be used:' ) 9993 FORMAT( 4X, A4, ': ', 10I6, / 11X, 10I6 ) 9992 FORMAT( / ' Routines pass computational tests if test ratio is ', diff --git a/TESTING/LIN/dchkrfp.f b/TESTING/LIN/dchkrfp.f index e242e013d8..ebaa482fad 100644 --- a/TESTING/LIN/dchkrfp.f +++ b/TESTING/LIN/dchkrfp.f @@ -275,7 +275,7 @@ PROGRAM DCHKRFP 9995 FORMAT( ' !! Invalid input value: ', A4, '=', I6, '; must be <=', $ I6 ) 9994 FORMAT( / ' Tests of the DOUBLE PRECISION LAPACK RFP routines ', - $ / ' LAPACK VERSION ', I1, '.', I1, '.', I1, + $ / ' LAPACK VERSION ', I1, '.', I2, '.', I1, $ / / ' The following parameter values will be used:' ) 9993 FORMAT( 4X, A4, ': ', 10I6, / 11X, 10I6 ) 9992 FORMAT( / ' Routines pass computational tests if test ratio is ', diff --git a/TESTING/LIN/schkaa.F b/TESTING/LIN/schkaa.F index 036b13924f..ad6ea87767 100644 --- a/TESTING/LIN/schkaa.F +++ b/TESTING/LIN/schkaa.F @@ -1083,7 +1083,7 @@ PROGRAM SCHKAA 9995 FORMAT( ' Invalid input value: ', A4, '=', I6, '; must be <=', $ I6 ) 9994 FORMAT( ' Tests of the REAL LAPACK routines ', - $ / ' LAPACK VERSION ', I1, '.', I1, '.', I1, + $ / ' LAPACK VERSION ', I1, '.', I2, '.', I1, $ / / ' The following parameter values will be used:' ) 9993 FORMAT( 4X, A4, ': ', 10I6, / 11X, 10I6 ) 9992 FORMAT( / ' Routines pass computational tests if test ratio is ', diff --git a/TESTING/LIN/schkrfp.f b/TESTING/LIN/schkrfp.f index f3fdfa07f9..6fd3c00abf 100644 --- a/TESTING/LIN/schkrfp.f +++ b/TESTING/LIN/schkrfp.f @@ -274,7 +274,7 @@ PROGRAM SCHKRFP 9995 FORMAT( ' !! Invalid input value: ', A4, '=', I6, '; must be <=', $ I6 ) 9994 FORMAT( / ' Tests of the REAL LAPACK RFP routines ', - $ / ' LAPACK VERSION ', I1, '.', I1, '.', I1, + $ / ' LAPACK VERSION ', I1, '.', I2, '.', I1, $ / / ' The following parameter values will be used:' ) 9993 FORMAT( 4X, A4, ': ', 10I6, / 11X, 10I6 ) 9992 FORMAT( / ' Routines pass computational tests if test ratio is ', diff --git a/TESTING/LIN/zchkaa.F b/TESTING/LIN/zchkaa.F index f1020f2d87..77a7a6cb31 100644 --- a/TESTING/LIN/zchkaa.F +++ b/TESTING/LIN/zchkaa.F @@ -1281,7 +1281,7 @@ PROGRAM ZCHKAA 9995 FORMAT( ' Invalid input value: ', A4, '=', I6, '; must be <=', $ I6 ) 9994 FORMAT( ' Tests of the COMPLEX*16 LAPACK routines ', - $ / ' LAPACK VERSION ', I1, '.', I1, '.', I1, + $ / ' LAPACK VERSION ', I1, '.', I2, '.', I1, $ / / ' The following parameter values will be used:' ) 9993 FORMAT( 4X, A4, ': ', 10I6, / 11X, 10I6 ) 9992 FORMAT( / ' Routines pass computational tests if test ratio is ', diff --git a/TESTING/LIN/zchkab.f b/TESTING/LIN/zchkab.f index 63274cabb9..495d373e0c 100644 --- a/TESTING/LIN/zchkab.f +++ b/TESTING/LIN/zchkab.f @@ -350,7 +350,7 @@ PROGRAM ZCHKAB 9995 FORMAT( ' Invalid input value: ', A4, '=', I6, '; must be <=', $ I6 ) 9994 FORMAT( ' Tests of the COMPLEX*16 LAPACK ZCGESV/ZCPOSV routines ', - $ / ' LAPACK VERSION ', I1, '.', I1, '.', I1, + $ / ' LAPACK VERSION ', I1, '.', I2, '.', I1, $ / / ' The following parameter values will be used:' ) 9993 FORMAT( 4X, A4, ': ', 10I6, / 11X, 10I6 ) 9992 FORMAT( / ' Routines pass computational tests if test ratio is ', diff --git a/TESTING/LIN/zchkrfp.f b/TESTING/LIN/zchkrfp.f index 1764f566e4..2bf2ac3cf7 100644 --- a/TESTING/LIN/zchkrfp.f +++ b/TESTING/LIN/zchkrfp.f @@ -276,7 +276,7 @@ PROGRAM ZCHKRFP 9995 FORMAT( ' !! Invalid input value: ', A4, '=', I6, '; must be <=', $ I6 ) 9994 FORMAT( / ' Tests of the COMPLEX*16 LAPACK RFP routines ', - $ / ' LAPACK VERSION ', I1, '.', I1, '.', I1, + $ / ' LAPACK VERSION ', I1, '.', I2, '.', I1, $ / / ' The following parameter values will be used:' ) 9993 FORMAT( 4X, A4, ': ', 10I6, / 11X, 10I6 ) 9992 FORMAT( / ' Routines pass computational tests if test ratio is ',