Merge pull request #880 from edoapra/test721

one more update from master

Author: nwchemgit

src/nwdft/lr_tddft/tddft_analysis.F

@@ -791,7 +791,7 @@ subroutine tddft_analysis(rtdb,geom,ao_bas_han,nroots,nbf_ao,
           enddo
           endif ! nov(i) check
         enddo
-        if (pol.lt.1) then
+        if (pol.gt.0) then
            jsym=ieor(isym-1,int_mb(k_irs(pol)+occ-1)-1)+1
            jsym=ieor(jsym-1,int_mb(k_irs(pol)+vir-1)-1)+1
            call sym_irrepname(geom,jsym,oname)