              IP = ABS( IPIV( I ) )              IF( IP.NE.I ) THEN                 IF (I .LT. IP) CALL SSYSWAPR( UPLO, N, A, LDA, I ,IP )                 IF (I .GT. IP) CALL SSYSWAPR( UPLO, N, A, LDA, IP ,I )              END IF          END DO *       E