*     H03ABF Example Program Text
*     Mark 14 Revised. NAG Copyright 1989.
*     .. Parameters ..
      INTEGER          MAMAX, MBMAX, LDKOST
      PARAMETER        (MAMAX=5,MBMAX=5,LDKOST=MAMAX)
      INTEGER          NIN, NOUT
      PARAMETER        (NIN=5,NOUT=6)
*     .. Local Scalars ..
      DOUBLE PRECISION Z
      INTEGER          I, IFAIL, J, M, MA, MAXIT, MB, NUMIT
*     .. Local Arrays ..
      INTEGER          K11(MAMAX+MBMAX), K12(MAMAX+MBMAX),
     +                 K15(MAMAX+MBMAX), K6(MAMAX+MBMAX),
     +                 K7(MAMAX+MBMAX), K8(MAMAX+MBMAX),
     +                 K9(MAMAX+MBMAX), KOST(LDKOST,MBMAX)
*     .. External Subroutines ..
      EXTERNAL         H03ABF
*     .. Executable Statements ..
      WRITE (NOUT,*) 'H03ABF Example Program Results'
*     Skip heading in data file
      READ (NIN,*)
      READ (NIN,*) MA, MB
      IF (MA.GT.0 .AND. MA.LE.MAMAX .AND. MB.GT.0 .AND. MB.LE.MBMAX)
     +    THEN
         M = MA + MB
         READ (NIN,*) (K15(I),I=1,M)
         DO 20 I = 1, MA
            READ (NIN,*) (KOST(I,J),J=1,MB)
   20    CONTINUE
         MAXIT = 200
         IFAIL = 0
*
         CALL H03ABF(KOST,LDKOST,MA,MB,M,K15,MAXIT,K7,K9,NUMIT,K6,K8,
     +               K11,K12,Z,IFAIL)
*
         WRITE (NOUT,*)
         WRITE (NOUT,99999) 'Total cost = ', Z
         WRITE (NOUT,*)
         WRITE (NOUT,*) 'Goods from  to'
         WRITE (NOUT,*)
         WRITE (NOUT,99998) (K11(I),K6(I),K8(I),I=1,M-1)
      END IF
*
99999 FORMAT (1X,A,F5.1)
99998 FORMAT (1X,I3,I6,I5)
      END