diff options
Diffstat (limited to 'SRC/cunbdb4.f')
| -rw-r--r-- | SRC/cunbdb4.f | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/SRC/cunbdb4.f b/SRC/cunbdb4.f index bc948a30..f97a8507 100644 --- a/SRC/cunbdb4.f +++ b/SRC/cunbdb4.f @@ -344,9 +344,8 @@ $ X21(I+1,I), LDX21, WORK(ILARF) ) CALL CLACGV( Q-I+1, X21(I,I), LDX21 ) IF( I .LT. M-Q ) THEN - S = SQRT( SCNRM2( P-I, X11(I+1,I), 1, X11(I+1,I), - $ 1 )**2 + SCNRM2( M-P-I, X21(I+1,I), 1, X21(I+1,I), - $ 1 )**2 ) + S = SQRT( SCNRM2( P-I, X11(I+1,I), 1 )**2 + $ + SCNRM2( M-P-I, X21(I+1,I), 1 )**2 PHI(I) = ATAN2( S, C ) END IF * |