SUBROUTINE Jfcn (N, X, Y, JAC)
! SPECIFICATIONS FOR ARGUMENTS
      INTEGER    N
      REAL(8)       X, Y(N), JAC(N,*)

jac(1,1) =0;	jac(1,2) =1;
jac(2,1) =-100;	jac(2,2) =-101
      RETURN
      END