anchor.diff:      END SUBROUTINE
   
       SUBROUTINE DSYSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, &
  -        LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, &
  -        IWORK, INFO )
  +                       LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, &
  +                       IWORK, INFO )
       import :: dp
       CHARACTER          FACT, UPLO
       INTEGER            INFO, LDA, LDAF, LDB, LDX, LWORK, N, NRHS
  
positive.code:     END SUBROUTINE
  
      SUBROUTINE DGESVX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, &
          EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO )
      import :: dp
      CHARACTER          EQUED, FACT, TRANS
      INTEGER            INFO, LDA, LDAF, LDB, LDX, N, NRHS
  
negative.code:     END SUBROUTINE
  
      SUBROUTINE ZGESVX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, &
                         EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, &
                         WORK, RWORK, INFO )
      import :: dp
      CHARACTER          EQUED, FACT, TRANS
      INTEGER            INFO, LDA, LDAF, LDB, LDX, N, NRHS
  