      SUBROUTINE DAMP1(X,S,DIM)
CJPB  COMPLEX*8 X( 289 ),DIM( 289 )
      COMPLEX   X( 289 ),DIM( 289 )
      DIMENSION S( 289 )
      DO 45 I=1, 289
      X(I)=X(I)+CMPLX(S(I)*REAL(DIM(I)),S(I)*AIMAG(DIM(I)))
 45   CONTINUE
      RETURN
      END
