fix reference in format (Reference-LAPACK PR 1024)

martin-frbg · web-flow · commit a9817b421235 · 2024-06-18T11:20:22.000+02:00
diff --git a/lapack-netlib/TESTING/EIG/dlahd2.f b/lapack-netlib/TESTING/EIG/dlahd2.f
@@ -534,8 +534,8 @@ SUBROUTINE DLAHD2( IOUNIT, PATH )
      $      / ' 2: norm( I - Q'' Q )   / ( m ulp )',
      $      / ' 3: norm( I - PT PT'' )   / ( n ulp )',
      $      / ' 4: norm( Y - Q'' C )   / ( norm(Y) max(m,nrhs) ulp )' )
- 9968 FORMAT( / ' Tests performed:  See sdrvst.f' )
- 9967 FORMAT( / ' Tests performed:  See cdrvst.f' )
+ 9968 FORMAT( / ' Tests performed:  See ddrvst.f' )
+ 9967 FORMAT( / ' Tests performed:  See zdrvst.f' )
 *
 *     End of DLAHD2
 *

Original file line number	Diff line number	Diff line change
`@@ -534,8 +534,8 @@ SUBROUTINE DLAHD2( IOUNIT, PATH )`
`534`	`534`	`$ / ' 2: norm( I - Q'' Q ) / ( m ulp )',`
`535`	`535`	`$ / ' 3: norm( I - PT PT'' ) / ( n ulp )',`
`536`	`536`	`$ / ' 4: norm( Y - Q'' C ) / ( norm(Y) max(m,nrhs) ulp )' )`
`537`		`- 9968 FORMAT( / ' Tests performed: See sdrvst.f' )`
`538`		`- 9967 FORMAT( / ' Tests performed: See cdrvst.f' )`
	`537`	`+ 9968 FORMAT( / ' Tests performed: See ddrvst.f' )`
	`538`	`+ 9967 FORMAT( / ' Tests performed: See zdrvst.f' )`
`539`	`539`	`*`
`540`	`540`	`* End of DLAHD2`
`541`	`541`	`*`