      SUBROUTINE MAP(N,F,X)
************************************************************************
*                                                                      *
*     2 dimentional convex programming                                 *
*                                                                      *
*     QQR-T1-3 modified                                                *
*                                                                      *
************************************************************************
*
      REAL*8 F(N),X(N)
*
*
      F(1)=X(1)-X(2)-7+8.0*X(1)*X(3)
      F(2)=2.0*X(2)-X(1)-7+2*X(2)*X(3)
      F(3)=25-4*X(1)*X(1)-X(2)*X(2)
*
      RETURN
      END
*
*
*
      SUBROUTINE NABMAP(N,T,X)
************************************************************************
*                                                                      *
*     Jacobian                                                         *
*                                                                      *
************************************************************************
*
*
      REAL*8 T(N,N),X(N)
*
*
      T(  1,  1)=1+8*X(3)
      T(  1,  2)=-1
      T(  1,  3)=8*X(1)
      T(  2,  1)=-1
      T(  2,  2)=2.0+2*X(3)
      T(  2,  3)=2*X(2)
      T(  3,  1)=-8*X(1)
      T(  3,  2)=-2*X(2)
      T(  3,  3)=0
*
      RETURN
      END
