NWints/api/int_1estv.F

123       integer i_geom, j_geom, ibas, jbas, ucont, uconts
156       jbas = j_basis + BASIS_HANDLE_OFFSET
171         orel = ibas .eq. abas .and. jbas .eq. abas
206       ucont   = (sf_ibs_cn2ucn(jsh,jbas))
210       if (orel .and. (infbs_cont(CONT_RELLS ,ucont,jbas) .ne. 0)) then
217           jbas = lbas
222         jsbas = jbas
225       Lj      = infbs_cont(CONT_TYPE ,ucont,jbas)
226       j_prim  = infbs_cont(CONT_NPRIM,ucont,jbas)
227       j_gen   = infbs_cont(CONT_NGEN ,ucont,jbas)
228       j_iexp  = infbs_cont(CONT_IEXP ,ucont,jbas)
229       j_icfp  = infbs_cont(CONT_ICFP ,ucont,jbas)
230       j_cent  = (sf_ibs_cn2ce(jsh,jbas))
231       j_geom  = ibs_geom(jbas)
259      &      dbl_mb(mb_exndcf(j_iexp,jbas)),
260      &      dbl_mb(mb_exndcf(j_icfp,jbas)),
271      &      coords(1,j_cent,j_geom),dbl_mb(mb_exndcf(j_iexp,jbas)),
272      &      dbl_mb(mb_exndcf(j_icfp,jbas)),
282      &        coords(1,j_cent,j_geom),dbl_mb(mb_exndcf(j_iexp,jbas)),
283      &        dbl_mb(mb_exndcf(j_icfp,jbas)),
296      &      coords(1,j_cent,j_geom),dbl_mb(mb_exndcf(j_iexp,jbas)),
297      &      dbl_mb(mb_exndcf(j_icfp,jbas)), j_prim, j_gen, Lj,
309       any_spherical = bas_spherical(ibas).or.bas_spherical(jbas)
318       if (bas_spherical(ibas).and.bas_spherical(jbas)) then
355       else if (bas_spherical(jbas)) then
815       integer i_geom, j_geom, ibas, jbas, ucont, uconts
846       jbas = j_basis + BASIS_HANDLE_OFFSET
861         orel = ibas .eq. abas .and. jbas .eq. abas
896       ucont   = (sf_ibs_cn2ucn(jsh,jbas))
900       if (orel .and. (infbs_cont(CONT_RELLS ,ucont,jbas) .ne. 0)) then
907           jbas = lbas
912         jsbas = jbas
915       Lj      = infbs_cont(CONT_TYPE ,ucont,jbas)
916       j_prim  = infbs_cont(CONT_NPRIM,ucont,jbas)
917       j_gen   = infbs_cont(CONT_NGEN ,ucont,jbas)
918       j_iexp  = infbs_cont(CONT_IEXP ,ucont,jbas)
919       j_icfp  = infbs_cont(CONT_ICFP ,ucont,jbas)
920       j_cent  = (sf_ibs_cn2ce(jsh,jbas))
921       j_geom  = ibs_geom(jbas)
970      &      dbl_mb(mb_exndcf(j_iexp,jbas)),
971      &      dbl_mb(mb_exndcf(j_icfp,jbas)),
982      &      coords(1,j_cent,j_geom),dbl_mb(mb_exndcf(j_iexp,jbas)),
983      &      dbl_mb(mb_exndcf(j_icfp,jbas)),
993      &        coords(1,j_cent,j_geom),dbl_mb(mb_exndcf(j_iexp,jbas)),
994      &        dbl_mb(mb_exndcf(j_icfp,jbas)),
1004      &      coords(1,j_cent,j_geom),dbl_mb(mb_exndcf(j_iexp,jbas)),
1005      &      dbl_mb(mb_exndcf(j_icfp,jbas)), j_prim, j_gen, Lj,
1017       any_spherical = bas_spherical(ibas).or.bas_spherical(jbas)
1026       if (bas_spherical(ibas).and.bas_spherical(jbas)) then
1063       else if (bas_spherical(jbas)) then
1189       integer i_geom, j_geom, ibas, jbas, ucont, uconts
1221       jbas = j_basis + BASIS_HANDLE_OFFSET
1236         orel = ibas .eq. abas .and. jbas .eq. abas
1271       ucont   = (sf_ibs_cn2ucn(jsh,jbas))
1275       if (orel .and. (infbs_cont(CONT_RELLS ,ucont,jbas) .ne. 0)) then
1282           jbas = lbas
1287         jsbas = jbas
1290       Lj      = infbs_cont(CONT_TYPE ,ucont,jbas)
1291       j_prim  = infbs_cont(CONT_NPRIM,ucont,jbas)
1292       j_gen   = infbs_cont(CONT_NGEN ,ucont,jbas)
1293       j_iexp  = infbs_cont(CONT_IEXP ,ucont,jbas)
1294       j_icfp  = infbs_cont(CONT_ICFP ,ucont,jbas)
1295       j_cent  = (sf_ibs_cn2ce(jsh,jbas))
1296       j_geom  = ibs_geom(jbas)
1344      &      dbl_mb(mb_exndcf(j_iexp,jbas)),
1345      &      dbl_mb(mb_exndcf(j_icfp,jbas)),
1358      &      coords(1,j_cent,j_geom),dbl_mb(mb_exndcf(j_iexp,jbas)),
1359      &      dbl_mb(mb_exndcf(j_icfp,jbas)),
1372      &        coords(1,j_cent,j_geom),dbl_mb(mb_exndcf(j_iexp,jbas)),
1373      &        dbl_mb(mb_exndcf(j_icfp,jbas)),
1385      &      coords(1,j_cent,j_geom),dbl_mb(mb_exndcf(j_iexp,jbas)),
1386      &      dbl_mb(mb_exndcf(j_icfp,jbas)), j_prim, j_gen, Lj,
1403       any_spherical = bas_spherical(ibas).or.bas_spherical(jbas)
1412       if (bas_spherical(ibas).and.bas_spherical(jbas)) then
1449       else if (bas_spherical(jbas)) then
1589       integer i_geom, j_geom, ibas, jbas, ucont, uconts
1620       jbas = j_basis + BASIS_HANDLE_OFFSET
1636         orel = ibas .eq. abas .and. jbas .eq. abas
1671       ucont   = (sf_ibs_cn2ucn(jsh,jbas))
1675       if (orel .and. (infbs_cont(CONT_RELLS ,ucont,jbas) .ne. 0)) then
1682           jbas = lbas
1687         jsbas = jbas
1690       Lj      = infbs_cont(CONT_TYPE ,ucont,jbas)
1691       j_prim  = infbs_cont(CONT_NPRIM,ucont,jbas)
1692       j_gen   = infbs_cont(CONT_NGEN ,ucont,jbas)
1693       j_iexp  = infbs_cont(CONT_IEXP ,ucont,jbas)
1694       j_icfp  = infbs_cont(CONT_ICFP ,ucont,jbas)
1695       j_cent  = (sf_ibs_cn2ce(jsh,jbas))
1696       j_geom  = ibs_geom(jbas)
1754      &      dbl_mb(mb_exndcf(j_iexp,jbas)),
1755      &      dbl_mb(mb_exndcf(j_icfp,jbas)),
1766      &      coords(1,j_cent,j_geom),dbl_mb(mb_exndcf(j_iexp,jbas)),
1767      &      dbl_mb(mb_exndcf(j_icfp,jbas)),
1778      &        coords(1,j_cent,j_geom),dbl_mb(mb_exndcf(j_iexp,jbas)),
1779      &        dbl_mb(mb_exndcf(j_icfp,jbas)),
1789      &      coords(1,j_cent,j_geom),dbl_mb(mb_exndcf(j_iexp,jbas)),
1790      &      dbl_mb(mb_exndcf(j_icfp,jbas)), j_prim, j_gen, Lj,
1805       any_spherical = bas_spherical(ibas).or.bas_spherical(jbas)
1814       if (bas_spherical(ibas).and.bas_spherical(jbas)) then
1851       else if (bas_spherical(jbas)) then