From 99c4971bd83367bd650ca2c39199aa9fa22b1141 Mon Sep 17 00:00:00 2001
From: langou <langou@users.noreply.github.com>
Date: Wed, 26 Jan 2011 05:49:27 +0000
Subject: [PATCH] bon maintenant, ca compile ... (desole)

---
 SRC/dsytri2x.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SRC/dsytri2x.f b/SRC/dsytri2x.f
index f7b2940f4..742a81740 100644
--- a/SRC/dsytri2x.f
+++ b/SRC/dsytri2x.f
@@ -492,7 +492,7 @@
                ELSE
                  IP=-IPIV(I)
                  IF ( I .LT. IP) CALL DSYSWAPR( UPLO, N, A, LDA, I ,IP )
-                 IF ( I .GT. IP) CALL DSYSWAPR(  UPLO, N, A, LDA, IP ,I )
+                 IF ( I .GT. IP) CALL DSYSWAPR( UPLO, N, A, LDA, IP, I )
                  I=I-1
                ENDIF
                I=I-1