anchor.diff:      END SUBROUTINE
   
       SUBROUTINE DGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, VR, &
  -        LDVR, WORK, LWORK, INFO )
  +                      LDVR, WORK, LWORK, INFO )
       import :: dp
       CHARACTER          JOBVL, JOBVR
       INTEGER            INFO, LDA, LDVL, LDVR, LWORK, N
  
positive.code:     END SUBROUTINE
  
      SUBROUTINE DGEEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, WR, WI, &
          VL, LDVL, VR, LDVR, ILO, IHI, SCALE, ABNRM, &
          RCONDE, RCONDV, WORK, LWORK, IWORK, INFO )
      import :: dp
      CHARACTER          BALANC, JOBVL, JOBVR, SENSE
      INTEGER            IHI, ILO, INFO, LDA, LDVL, LDVR, LWORK, N
  
negative.code:     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 )
      import :: dp
      CHARACTER          BALANC, JOBVL, JOBVR, SENSE
      INTEGER            IHI, ILO, INFO, LDA, LDVL, LDVR, LWORK, N
  