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