      SUBROUTINE DYCHG(X,Y,YOLD)
      DOUBLE PRECISION X(1),Y(1),YOLD
      Y(1) = 0.D0
      IF (YOLD .EQ. 0.D0) Y(1) = 1.D0
      RETURN
      END
