Lines Matching refs:jbas
59 integer i_geom, j_geom, ibas, jbas, ucont
88 jbas = j_basis + BASIS_HANDLE_OFFSET
90 jsbas = jbas
102 ucont = (sf_ibs_cn2ucn(jsh,jbas))
103 Lj = infbs_cont(CONT_TYPE ,ucont,jbas)
104 j_prim = infbs_cont(CONT_NPRIM,ucont,jbas)
105 j_gen = infbs_cont(CONT_NGEN ,ucont,jbas)
106 j_iexp = infbs_cont(CONT_IEXP ,ucont,jbas)
107 j_icfp = infbs_cont(CONT_ICFP ,ucont,jbas)
108 j_cent = (sf_ibs_cn2ce(jsh,jbas))
109 j_geom = ibs_geom(jbas)
140 & coords(1,j_cent,j_geom),dbl_mb(mb_exndcf(j_iexp,jbas)),
141 & dbl_mb(mb_exndcf(j_icfp,jbas)),
167 any_spherical = bas_spherical(ibas).or.bas_spherical(jbas)
176 if (bas_spherical(ibas).and.bas_spherical(jbas)) then
197 else if (bas_spherical(jbas)) then