>
      SUBROUTINE AB13HD( DICO, JOBE, EQUIL, JOBD, CKPROP, REDUCE, POLES,
     $                   N, M, P, RANKE, FPEAK, A, LDA, E, LDE, B, LDB,
     $                   C, LDC, D, LDD, NR, GPEAK, TOL, IWORK, DWORK,
     $                   LDWORK, ZWORK, LZWORK, BWORK, IWARN, INFO )
C     .. Scalar Arguments ..
      CHARACTER          CKPROP, DICO, EQUIL, JOBD, JOBE, POLES, REDUCE
      INTEGER            INFO, IWARN, LDA, LDB, LDC, LDD, LDE, LDWORK,
     $                   LZWORK, M, N, NR, P, RANKE
C