Lines Matching refs:lya
24 INTEGER :: ico,jco,lxa,lxb,lxp,lxyz,lyp,lzp, iaxis, l, k, lya,lyb,lza,lzb
111 <$--(for lya in range(0,la_max_local+1))-->
113 <$--(for lxa in range(0,la_max_local-lya+1))-->
114 …oef_tyz(@<lxa>@,@<lxb>@,@<lya>@,@<lyb>@)=coef_tyz(@<lxa>@,@<lxb>@,@<lya>@,@<lyb>@)+coef_ttz(@<lxa>…
126 <$--(for lya in range(0,la_max_local-lza+1))-->
140 <$--(if (la_max_local-lza-lya) > 0)-->
141 <$--(if (lza+lya == 0))-->
144 DO lxa=MAX(la_min_local-@<lza>@-@<lya>@,0),@<la_max_local - lza - lya>@
146 ico=coset(lxa,@<lya>@,@<lza>@)
149 !ico=coset(0,@<lya>@,@<lza>@)
150 ico=@<(lya+lza)*(lya+lza+1)*(lya+lza+2)/6+1+(lya+lza)*(lya+lza+1)/2+lza>@
153 … vab(ico,jco)=vab(ico,jco)+coef_tyz(lxa,lxb,@<lya>@,@<lyb>@)*alpha_3(@<lzp>@,@<lza>@,@<lzb>@)
155 <$--(if (la_max_local-lza-lya) > 0)-->
184 <$--(for lya in range(0,la_max_local+1))-->
186 <$--(for lxa in range(0,la_max_local-lya+1))-->
187 …oef_tyz(@<lxa>@,@<lxb>@,@<lya>@,@<lyb>@)=coef_tyz(@<lxa>@,@<lxb>@,@<lya>@,@<lyb>@)+coef_ttz(@<lxa>…
198 <$--(for lya in range(0,la_max_local-lza+1))-->
212 <$--(if (la_max_local-lza-lya) > 0)-->
213 <$--(if (lza+lya == 0))-->
216 DO lxa=MAX(la_min_local-@<lza>@-@<lya>@,0),@<la_max_local - lza - lya>@
219 ico=coset(lxa,@<lya>@,@<lza>@)
222 !ico=coset(0,@<lya>@,@<lza>@)
223 ico=@<(lya+lza)*(lya+lza+1)*(lya+lza+2)/6+1+(lya+lza)*(lya+lza+1)/2+lza>@
226 … vab(ico,jco)=vab(ico,jco)+coef_tyz(lxa,lxb,@<lya>@,@<lyb>@)*alpha_3(lzp,@<lza>@,@<lzb>@)
228 <$--(if (la_max_local-lza-lya) > 0)-->