SUBROUTINE FCT(X,Y,D)
      DIMENSION Y(1),D(1)
      D(1) = 1.0/Y(2)                                                        
      D(2) = - (1.0/Y(1))                                                    
      RETURN
      END