      SUBROUTINE YCHG(X,Y,YOLD)
      DIMENSION X(1),Y(1)
      Y(1) = 0.0
      IF (YOLD .EQ. 0.0) Y(1) = 1.0
      RETURN
      END
