anchor.diff:      END SUBROUTINE
   
       SUBROUTINE ZGEEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, W, VL, &
  -        LDVL, VR, LDVR, ILO, IHI, SCALE, ABNRM, RCONDE, &
  -        RCONDV, WORK, LWORK, RWORK, INFO )
  +                       LDVL, VR, LDVR, ILO, IHI, SCALE, ABNRM, RCONDE, &
  +                       RCONDV, WORK, LWORK, RWORK, INFO )
       import :: dp
       CHARACTER          BALANC, JOBVL, JOBVR, SENSE
       INTEGER            IHI, ILO, INFO, LDA, LDVL, LDVR, LWORK, N
  
positive.code:     END SUBROUTINE
  
      SUBROUTINE DGGEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, B, LDB, &
          ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, ILO, IHI, LSCALE, RSCALE, &
          ABNRM, BBNRM, RCONDE, RCONDV, WORK, LWORK, IWORK, BWORK, INFO )
      import :: dp
      CHARACTER          BALANC, JOBVL, JOBVR, SENSE
      INTEGER            IHI, ILO, INFO, LDA, LDB, LDVL, LDVR, LWORK, N
  
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
  