      SUBROUTINE RORZ(CRO,SRO,CX,CY)
      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
      KK1=KK+1
      KK2=KK+2
      X1=O(KK1,I)-CX
      Y1=O(KK2,I)-CY
      O(KK1,I)=X1*CRO-Y1*SRO+CX
11    O(KK2,I)=Y1*CRO+X1*SRO+CY
      RETURN
      END
