WRITE (6,*) 'SIGNL 3 1 = ',TTT1
WRITE (6,*) ' 2 = ',TTT2
WRITE (6,*) ' 3 = ',TTT3
WRITE (6,*) ' 4 = ',TTT4
WRITE (6,*) ' 5 = ',TTT5
WRITE (6,*) ' 6 = ',TTT6
CWL(1) =1.0D0
CWL(2) =1.0D0
CWL(3) =1.0D0
CWL(4) =1.0D0
CWL(5) =2.0D0
CWL(6) =2.0D0
CWL(7) =2.0D0
CWL(8) =2.0D0
CWL(9) =2.0D0
CWL(10)=3.0D0
CWL(11)=3.0D0
CWL(12)=3.0D0
CWL(13)=3.0D0
CWL(14)=3.0D0
CWL(15)=3.0D0
CWL(16)=3.0D0
CWL(17)=1.0D0
CWL(18)=3.0D0
CWL(19)=3.0D0
CWL(20)=3.0D0
C 4
DO 1400 L=2,20
C VPP-PARALLEL START 6
C!XOCL PARALLEL REGION
!XOCL SPREAD NOBARRIER DO /IP
DO 1922 IK=1,KV3
DO 1923 IA=1,KATM
IF (NLSPD(KFTYPE(IA)).EQ.1 .AND. L.GT.4)
& GO TO 1923
IF (NLSPD(KFTYPE(IA)).EQ.2 .AND. L.EQ.10) <----- Bug!
& CWL(10)=1.0D0
IF (NLSPD(KFTYPE(IA)).EQ.2 .AND. L.GT.10)
& GO TO 1923
DO 1921 IBAN=NBD1,NBD2
ZFC2(IBAN,IK,IA,1)=DCMPLX(0.0D0,0.0D0)
ZFC2(IBAN,IK,IA,2)=DCMPLX(0.0D0,0.0D0)
ZFC2(IBAN,IK,IA,3)=DCMPLX(0.0D0,0.0D0)
ZFC2(IBAN,IK,IA,4)=DCMPLX(0.0D0,0.0D0)
ZFC2(IBAN,IK,IA,5)=DCMPLX(0.0D0,0.0D0)
ZFC2(IBAN,IK,IA,6)=DCMPLX(0.0D0,0.0D0)
1921 CONTINUE
1923 CONTINUE
1922 CONTINUE
!XOCL END SPREAD
C!XOCL END PARALLEL
C
C VPP-PARALLEL START 7
C!XOCL PARALLEL REGION
!XOCL SPREAD NOBARRIER DO /IP
DO 1420 IK=1,KV3
AKX = VX(IK)
AKY = VY(IK)
AKZ = VZ(IK)
DO 1410 IA=1,KATM
IF (NLSPD(KFTYPE(IA)).EQ.1 .AND. L.GT.4)
& GO TO 1410
IF (NLSPD(KFTYPE(IA)).EQ.2 .AND. L.GT.10)
& GO TO 1410
DO 1430 IBAN=NBD1,NBD2
CW=CWL(L)*RUNI*OCCUU(IBAN,IK)
DO 1440 I=1,IBA(IK)
I1 = NBASE(I,IK)
ZTMP=ZZZ(I,IBAN,IK)*DCONJG(ZFM2(I1,IA))
& *SSS(I,IK,KFTYPE(IA),L)*RAA(I,IK)*RAA(I,IK)
ZFC2(IBAN,IK,IA,1)=ZFC2(IBAN,IK,IA,1)+ZTMP
& *(AKX+GX(I1))*(AKX+GX(I1))
ZFC2(IBAN,IK,IA,2)=ZFC2(IBAN,IK,IA,2)+ZTMP
& *(AKX+GX(I1))*(AKY+GY(I1))
ZFC2(IBAN,IK,IA,3)=ZFC2(IBAN,IK,IA,3)+ZTMP
& *(AKX+GX(I1))*(AKZ+GZ(I1))
ZFC2(IBAN,IK,IA,4)=ZFC2(IBAN,IK,IA,4)+ZTMP
& *(AKY+GY(I1))*(AKY+GY(I1))
ZFC2(IBAN,IK,IA,5)=ZFC2(IBAN,IK,IA,5)+ZTMP
& *(AKY+GY(I1))*(AKZ+GZ(I1))
ZFC2(IBAN,IK,IA,6)=ZFC2(IBAN,IK,IA,6)+ZTMP
& *(AKZ+GZ(I1))*(AKZ+GZ(I1))
1440 CONTINUE
SIGNL(1)=SIGNL(1)+CW *DREAL(
& ZFC2(IBAN,IK,IA,1)*DCONJG(ZFC(IBAN,IK,IA,L)) )
SIGNL(2)=SIGNL(2)+CW *DREAL(
& ZFC2(IBAN,IK,IA,2)*DCONJG(ZFC(IBAN,IK,IA,L)) )
SIGNL(3)=SIGNL(3)+CW *DREAL(
& ZFC2(IBAN,IK,IA,3)*DCONJG(ZFC(IBAN,IK,IA,L)) )
SIGNL(4)=SIGNL(4)+CW *DREAL(
& ZFC2(IBAN,IK,IA,4)*DCONJG(ZFC(IBAN,IK,IA,L)) )
SIGNL(5)=SIGNL(5)+CW *DREAL(
& ZFC2(IBAN,IK,IA,5)*DCONJG(ZFC(IBAN,IK,IA,L)) )
SIGNL(6)=SIGNL(6)+CW *DREAL(
& ZFC2(IBAN,IK,IA,6)*DCONJG(ZFC(IBAN,IK,IA,L)) )
1430 CONTINUE
1410 CONTINUE
1420 CONTINUE
!XOCL END SPREAD SUM(SIGNL)