      SUBROUTINE DRIFT(X,XDIFF,N)                                       00000100
      INTEGER X(1),XDIFF                                                00000110
C                                          =W82JS.DRIFT                 00000120
      DO 5 I=1,N                                                        00000130
      IF(X(I) .LE. 0) GO TO 5                                           00000135
      X(I) = X(I) + XDIFF                                               00000140
   5  CONTINUE                                                          00000145
      RETURN                                                            00000150
      END                                                               00000160
