subroutine funobj( mode, n, x, f, g, nstate,
     $                   cw, lencw, iw, leniw, rw, lenrw )

      implicit           double precision (a-h,o-z)
      double precision   x(n), g(n)

      character*8        cw(lencw)
      integer            iw(leniw)
      double precision   rw(lenrw)

*     ==================================================================
*     Nonlinear objective routines for maxi.
*     maxi does not have a nonlinear objective.
*     ==================================================================
      iPrint    = iw( 12) ! Print file
      iSumm     = iw( 13) ! Summary file
      nProb     = iw(108) ! problem number

      if (iPrint .gt. 0) write(iPrint, 9000)
      if (iSumm  .gt. 0) write(iSumm , 9000)
      mode   = -1
      return

 9000 format(/ ' XXX maxi should not call funobj.')

*     end of funobj
      end