Lines Matching refs:ndns

24       integer nbf2, ndns, ndip
260       do ndns = 1, ndens
261         if (nocc(ndns).gt.0) then
263      &        dbl_mb(k_evals+(ndns-1)*nbf),g_rhs,
264      &        log_mb(k_act),ncent,nocc(ndns),(ndns-1)*n3xyz,ouhf)
615       do ndns = 1, ndens
616         ahi(2) = nocc(ndns)
617         ahi(3) = nvirt(ndns)
619         bhi(1) = bhi(1) + nocc(ndns)*nvirt(ndns)
797       integer g_modx, ind, ndns, in, nmo
824       do ndns = 1, ndens
825         nmo = nocc(ndns) + nvirt(ndns)
840      $                           g_vecs(ndns), dlo, dhi,
846      $                           g_vecs(ndns), alo, ahi,
877       integer g_modx, ind, ndns, in
907       do ndns = 1, ndens
908        ahi1(2) = nocc(ndns)
909        ahi2(1) = nocc(ndns)
910        bhi1(2) = nocc(ndns)
911        bhi1(3) = nocc(ndns)
918         if (nocc(ndns).le.0) then
926      $                g_vecs(ndns), alo1, ahi1,
932      $                g_vecs(ndns), alo2, ahi2,
964       integer ind, ndns, in
969       do ndns = 1, ndens
971        ahi1(2) = nocc(ndns)
972        alo1(3) = nocc(ndns) + 1
975        bhi(2)  = nocc(ndns)
977        bhi(3)  = nvirt(ndns)
979        ahi2(2) = nocc(ndns)
981        ahi2(3) = nocc(ndns)
983        chi(2)  = nocc(ndns)
985        chi(3)  = nocc(ndns)
1028       integer ndns,  i
1034       do ndns = 1, ndens
1035          alo(3) = nocc(ndns) + 1
1036          ahi(3) = nocc(ndns) + nvirt(ndns)
1037          bhi(3) = nvirt(ndns)
1038          ind0 = (ndns-1)*n3xyz+1
1039          ind1 = ndns*n3xyz
1044          do i = 1, nocc(ndns)
1051      $           8d0*evals((ndns-1)*nbf+i),g_rhs,alo,ahi,
1081       integer ndns, jnd, ind, jindex, index
1094       do ndns = 1, ndens
1095       ahi1(2) = nocc(ndns)
1096       ahi1(3) = nocc(ndns)
1097       ahi2(2) = nocc(ndns)
1098       ahi2(3) = nocc(ndns)
1099       bhi1(2) = nocc(ndns)
1100       bhi1(3) = nocc(ndns)
1101       bhi2(2) = nocc(ndns)
1102       bhi2(3) = nocc(ndns)
1103       jindex = (ndns-1)*n3xyz
1108         index = (ndns-1)*n3xyz
1153       integer ind, ndns, in, ndensity, nfock
1183       do ndns = 1, ndens
1185           dbl_mb(k_jfac+ind) =  jfac(ndns)
1187           dbl_mb(k_kfac+ind) =  kfac(ndns)
1273       integer ind, ndns, in
1289       do ndns = 1, ndens
1290        ahi1(2) = nocc(ndns)
1291        ahi1(3) = nvirt(ndns)
1292        ahi2(2) = nocc(ndns)
1293        ahi2(3) = nocc(ndns)
1294        blo1(3) = nocc(ndns) + 1
1295        bhi1(2) = nocc(ndns)
1296        bhi1(3) = nocc(ndns) + nvirt(ndns)
1297        bhi2(2) = nocc(ndns)
1298        bhi2(3) = nocc(ndns)