      SUBROUTINE MAP(N,F,X)
************************************************************************
*                                                                      *
*     Example: singular P_0                                            *
*                                                                      *
************************************************************************
*
      REAL*8 F(N),X(N)
*
      F(1)=0.0
      F(2)=X(1)-1.0
*
      RETURN
      END
*
*
*
      SUBROUTINE NABMAP(N,T,X)
************************************************************************
*                                                                      *
*     Jacobian                                                         *
*                                                                      *
************************************************************************
*
*
      REAL*8 T(N,N),X(N)
*
      T(1,1)=0.0
      T(1,2)=0.0
      T(2,1)=1.0
      T(2,2)=0.0
*
      RETURN
      END
