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