Lines Matching refs:m_u
63 INTEGER :: m_o, m_u ! counters for sums on m local
132 DO m_u = 1, 2*l_j +1
134 uh = jh - m_j + m_u
145 + D(l_i)%d(m_o,m_i, isym) * D(l_j)%d(m_u,m_j, isym) &
206 DO m_u = 1, 2*l_j +1
208 uh = jh - m_j + m_u
225 + D(l_i)%d(m_o,m_i,isym) * D(l_j)%d(m_u,m_j,isym) &
327 INTEGER :: m_o, m_u ! counters for sums on m local
395 DO m_u = 1, 2*l_j +1
397 uh = jh - m_j + m_u
401 + D(l_i)%d(m_o,m_i, isym) * D(l_j)%d(m_u,m_j, isym) &
461 DO m_u = 1, 2*l_j +1
463 uh = jh - m_j + m_u
469 + D(l_i)%d(m_o,m_i, isym) * D(l_j)%d(m_u,m_j, isym) &
567 INTEGER :: m_o, m_u ! counters for sums on m local
635 DO m_u = 1, 2*l_j +1
637 uh = jh - m_j + m_u
650 + D(l_i)%d(m_o,m_i, isym) * D(l_j)%d(m_u,m_j, isym) &
713 DO m_u = 1, 2*l_j +1
715 uh = jh - m_j + m_u
735 + D(l_i)%d(m_o,m_i,isym)*D(l_j)%d(m_u,m_j,isym)* &
863 INTEGER :: m_o, m_u ! counters for sums on m local
946 DO m_u = 1, 2*l_j +1
948 uh = jh - m_j + m_u
961 + D(l_i)%d(m_o,m_i, irot) * D(l_j)%d(m_u,m_j, irot) &
1030 DO m_u = 1, 2*l_j +1
1032 uh = jh - m_j + m_u
1051 + D(l_i)%d(m_o,m_i,irot)*D(l_j)%d(m_u,m_j,irot)* &
1174 INTEGER :: m_o, m_u ! counters for sums on m local
1250 DO m_u = 1, 2*l_j +1
1252 uh = jh - m_j + m_u
1265 + D(l_i)%d(m_o,m_i, isymq) * D(l_j)%d(m_u,m_j, isymq) &