      SUBROUTINE ROTA(X1,Y1,A,X2,Y2)
      SINA=SIN(A)
      COSA=COS(A)
      X2= X1*COSA+Y1*SINA
      Y2=-X1*SINA+Y1*COSA
      RETURN
      END
