diff --git a/SRC/sgejsv.f b/SRC/sgejsv.f
index 229a356a7..993aaa458 100644
--- a/SRC/sgejsv.f
+++ b/SRC/sgejsv.f
@@ -1706,7 +1706,7 @@ SUBROUTINE SGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP,
             CALL SLASET('U', NR-1, NR-1, ZERO, ZERO, U(1,2), LDU )
          END IF
 
-         CALL SGESVJ( 'L', 'U', 'V', NR, NR, U, LDU, SVA,
+         CALL SGESVJ( 'G', 'U', 'V', NR, NR, U, LDU, SVA,
      $        N, V, LDV, WORK(2*N+N*NR+1), LWORK-2*N-N*NR, INFO )
          SCALEM  = WORK(2*N+N*NR+1)
          NUMRANK = NINT(WORK(2*N+N*NR+2))