SUBROUTINE YARY(CYA,SYA,CX,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
      KK1=KK+1
      KK3=KK+3
      X1=O(KK1,I)-CX
      Z1=O(KK3,I)-CZ
      O(KK1,I)=X1*CYA+Z1*SYA+CX
11    O(KK3,I)=Z1*CYA-X1*SYA+CZ
      RETURN
      END