C
C LAST UPDATE:
C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C
C****************************
C**     LFN_ROTATE_XY      **
C****************************
C
C
	SUBROUTINE LFN_ROTATE_XY(ANGLE, X_UNROT, Y_UNROT, X_ROT, Y_ROT)
C
C PURPOSE: Subroutine to rotate coordinates
C
C AUTHOR: D. Nguti
C
C
C **** SERVICE ROUTINE ONLY ****
C
C ARGUMENTS:
C
	REAL X_UNROT, Y_UNROT, X_ROT, Y_ROT
	REAL ANGLE
C
C-------------------------------------------------------------------------------

      X_ROT = X_UNROT*COS(ANGLE) - Y_UNROT*SIN(ANGLE)
      Y_ROT = X_UNROT*SIN(ANGLE) + Y_UNROT*COS(ANGLE)

      RETURN
      END
