SUBROUTINE Jfcn (N, X, Y, DYPDY)
! SPECIFICATIONS FOR ARGUMENTS
      INTEGER    N
      REAL(8)       X, Y(N), DYPDY(N,*)
! This subroutine is never called
      RETURN
      END