      SUBROUTINE MAP(N,F,X)
************************************************************************
*                                                                      *
*     Problem 23                                                       *
*                                                                      *
************************************************************************
*
      REAL*8 F(N),X(N)
*
*
      F(1)=2*X(1)-X(3)-2*X(1)*X(4)-18*X(1)*X(5)-2*X(1)*X(6)+X(7)
      F(2)=2*X(2)-X(3)-2*X(2)*X(4)-2*X(2)*X(5)+X(6)-2*X(2)*X(7)
      F(3)=X(1)+X(2)-1
      F(4)=X(1)*X(1)+X(2)*X(2)-1
      F(5)=9*X(1)*X(1)+X(2)*X(2)-9
      F(6)=X(1)*X(1)-X(2)
      F(7)=-X(1)+X(2)*X(2)
*
      RETURN
      END
*
*
*
      SUBROUTINE NABMAP(N,T,X)
************************************************************************
*                                                                      *
*     Jacobian                                                         *
*                                                                      *
************************************************************************
*
*
      REAL*8 T(N,N),X(N)
*
*
      T(  1,  1)=2-2*X(4)-18*X(5)-2*X(6)
      T(  1,  2)=0
      T(  1,  3)=-1
      T(  1,  4)=-2*X(1)
      T(  1,  5)=-18*X(1)
      T(  1,  6)=-2*X(1)
      T(  1,  7)=1
      T(  2,  1)=0
      T(  2,  2)=2-2*X(4)-2*X(5)-2*X(7)
      T(  2,  3)=-1
      T(  2,  4)=-2*X(2)
      T(  2,  5)=-2*X(2)
      T(  2,  6)=1
      T(  2,  7)=-2*X(2)
      T(  3,  1)=1
      T(  3,  2)=1
      T(  4,  1)=2*X(1)
      T(  4,  2)=2*X(2)
      T(  5,  1)=18*X(1)
      T(  5,  2)=2*X(2)
      T(  6,  1)=2*X(1)
      T(  6,  2)=-1
      T(  7,  1)=-1
      T(  7,  2)=2*X(2)
      DO 10 I=3,7
         DO 10 J=3,7
            T(I,J)=0
 10   CONTINUE
*
      RETURN
      END
