Merge pull request #1093 from wdconinc/patch-1

dlahrd.f: consistent line reflow for DTRMV calls
2025-01-13 01:27:33 -07:00
parent cf2c4402e9 3aa877584b
commit 0799b59571
1 changed files with 4 additions and 4 deletions
@@ -231,8 +231,8 @@
 *
 *           w := T**T *w
 *
-            CALL DTRMV( 'Upper', 'Transpose', 'Non-unit', I-1, T, LDT,
-     $                  T( 1, NB ), 1 )
+            CALL DTRMV( 'Upper', 'Transpose', 'Non-unit', I-1,
+     $                  T, LDT, T( 1, NB ), 1 )
 *
 *           b2 := b2 - V2*w
 *
@@ -270,8 +270,8 @@
 *        Compute T(1:i,i)
 *
         CALL DSCAL( I-1, -TAU( I ), T( 1, I ), 1 )
-         CALL DTRMV( 'Upper', 'No transpose', 'Non-unit', I-1, T, LDT,
-     $               T( 1, I ), 1 )
+         CALL DTRMV( 'Upper', 'No transpose', 'Non-unit', I-1,
+     $               T, LDT, T( 1, I ), 1 )
         T( I, I ) = TAU( I )
 *
   10 CONTINUE