From 68f67ba8ff663a5c3bcc453815bafe574654b508 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ren=C3=A9=20van=20Paassen?= Date: Fri, 1 May 2020 19:25:16 +0200 Subject: [PATCH] limit line lengths to 72 char for fortran compiler compatibility --- slycot/src/SB04OD.f | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/slycot/src/SB04OD.f b/slycot/src/SB04OD.f index 929b1d65..d4ccfb0d 100644 --- a/slycot/src/SB04OD.f +++ b/slycot/src/SB04OD.f @@ -567,7 +567,8 @@ SUBROUTINE SB04OD( REDUCE, TRANS, JOBD, M, N, A, LDA, B, LDB, C, C $ LDD, DWORK, DWORK(M+1), DWORK(2*M+1), P, LDP, Q, C $ LDQ, DWORK(3*M+1), LDWORK-3*M, INFO ) CALL DGGES( 'Vectors left', 'Vectors right', 'N', 0, N, A, LDA, - $ D, LDD, SDIM, DWORK, DWORK(M+1), DWORK(2*M+1), P, LDP, Q, + $ D, LDD, SDIM, DWORK, DWORK(M+1), DWORK(2*M+1), P, + $ LDP, Q, $ LDQ, DWORK(3*M+1), LDWORK-3*M, 0, INFO ) C @@ -626,8 +627,10 @@ SUBROUTINE SB04OD( REDUCE, TRANS, JOBD, M, N, A, LDA, B, LDB, C, C CALL DGEGS( 'Vectors left', 'Vectors right', N, B, LDB, E, C $ LDE, DWORK, DWORK(N+1), DWORK(2*N+1), U, LDU, V, C $ LDV, DWORK(3*N+1), LDWORK-3*N, INFO ) - CALL DGGES( 'Vectors left', 'Vectors right', 'N', 0, N, B, LDB, E, - $ LDE, SDIM, DWORK, DWORK(N+1), DWORK(2*N+1), U, LDU, V, + CALL DGGES( 'Vectors left', 'Vectors right', 'N', + $ 0, N, B, LDB, E, + $ LDE, SDIM, DWORK, DWORK(N+1), DWORK(2*N+1), + $ U, LDU, V, $ LDV, DWORK(3*N+1), LDWORK-3*N, 0, INFO ) C C Undo scaling