2 ! { dg-options "-O2 -fprefetch-loop-arrays -w" }
4 SUBROUTINE GHDSYM(IZ
,IS
,LMMAX
,S
,LMS
,Y
,L2M
,DRL
,NLAY2
,K0
,DCUT
)!,
6 COMPLEX Y(L2M
,L2M
),H(33),S(LMS
)
7 COMPLEX RU
,CI
,CZ
,K0
,FF
,Z
,Z1
,Z2
,Z3
,ST
15 S(IPM
)=S(IPM
)+Z3
*Y(L
,M
)
16 IF (M
.NE
.1) S(IMM
)=S(IMM
)+Z3
*Y(M
-1,L
)*CSGN