bon maintenant, ca compile ... (desole)

2011-01-26 05:49:27 +00:00
parent d267cb5ed4
commit 99c4971bd8
1 changed files with 1 additions and 1 deletions
@@ -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