C---*----1----*----2----*----3----*----4----*----5----*----6----*----7  
      SUBROUTINE SYMSCA(KOPR,NOPR,NBZTYP,NEIBRD,NFOUT,RX,RY,RZ,EPP) 
      IMPLICIT REAL(A-H,O-Y)                                          
      IMPLICIT COMPLEX(Z)                                            
      INCLUDE 'PACVPP' 
      DIMENSION TAA(3,KO) 
!XOCL SUBPROCESSOR PT(IPARA)=PQ(1:IPARA)
!XOCL INDEX PARTITION IQ=(PT,INDEX=1:KO,PART=BAND)
!XOCL LOCAL TAA(:,/IQ) 
      EQUIVALENCE (TAU,TAA) 
      DIMENSION EPP(3,3) 
C---------------------------------------------------------------------- 
!XOCL SPREAD DO /IQ 
      DO 1000 I=1,NOPR                                                  
C     TAU(1,I)=EPP(1,1)*TAU(1,I)+EPP(1,2)*TAU(2,I)+EPP(1,3)*TAU(3,I)
C     TAU(2,I)=EPP(1,2)*TAU(1,I)+EPP(2,2)*TAU(2,I)+EPP(2,3)*TAU(3,I)
C     TAU(3,I)=EPP(1,3)*TAU(1,I)+EPP(2,3)*TAU(2,I)+EPP(3,3)*TAU(3,I) 
      TAA(1,I)=EPP(1,1)*TAA(1,I)
      TAA(2,I)=EPP(2,2)*TAA(2,I)
      TAA(3,I)=EPP(3,3)*TAA(3,I)
 1000 CONTINUE                                                          
!XOCL END SPREAD 
C     DO 1100 I=1,NOPR
C     WRITE (6,600) TAU(1,I),TAU(2,I),TAU(3,I)                          
C 600 FORMAT(1H ,'TAU(1,2,3) = ',3F12.6)                                
C1100 CONTINUE 
      RETURN                                                            
      END