line formatting fixes to schksy_rook.f and dchksy_rook.f
authorigor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971>
Mon, 26 Dec 2011 03:31:49 +0000 (03:31 +0000)
committerigor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971>
Mon, 26 Dec 2011 03:31:49 +0000 (03:31 +0000)
TESTING/LIN/dchksy_rook.f
TESTING/LIN/schksy_rook.f

index f3b9506..882ff06 100644 (file)
 *
                      SRNAMT = 'DLARHS'
                      CALL DLARHS( MATPATH, XTYPE, UPLO, ' ', N, N,
-     $                            KL, KU,NRHS, A, LDA, XACT, LDA,
-     $                            B, LDA,ISEED, INFO )
+     $                            KL, KU, NRHS, A, LDA, XACT, LDA,
+     $                            B, LDA, ISEED, INFO )
                      CALL DLACPY( 'Full', N, NRHS, B, LDA, X, LDA )
 *
                      SRNAMT = 'DSYTRS_ROOK'
index 5c8bea3..afe3a57 100644 (file)
 *
                      SRNAMT = 'SLARHS'
                      CALL SLARHS( MATPATH, XTYPE, UPLO, ' ', N, N,
-     $                            KL, KU,NRHS, A, LDA, XACT, LDA,
-     $                            B, LDA,ISEED, INFO )
+     $                            KL, KU, NRHS, A, LDA, XACT, LDA,
+     $                            B, LDA, ISEED, INFO )
                      CALL SLACPY( 'Full', N, NRHS, B, LDA, X, LDA )
 *
                      SRNAMT = 'SSYTRS_ROOK'