SUBROUTINE PIRX(CPI,SPI,CY,CZ)
      COMMON/BULK/I3STRT,I3END,O(6,80)
      DO 11 I=I3STRT,I3END
      DO 11 J=1,2
      KK=0
      IF(J.EQ.2)  KK=3
      KK2=KK+2
      KK3=KK+3
      Y1=O(KK2,I)-CY
      Z1=O(KK3,I)-CZ
      O(KK2,I)=Y1*CPI-Z1*SPI+CY
11    O(KK3,I)=Z1*CPI+Y1*SPI+CZ
      RETURN
      END