Lines Matching refs:jbas
47 integer ibas,jbas, kbas
76 do 00200 jbas = 1,ibas
77 if (api_is_atomic_basis(bases(jbas))) then
82 & (bases(ibas),bases(jbas),lsz_2e4c,lmem_2e4c)
85 & (bases(ibas),bases(jbas),lsz_2e4c,lmem_2e4c)
92 & (bases(ibas),bases(jbas),lsz_2e3c,lmem_2e3c)
98 & (bases(ibas),bases(jbas),lsz_2e2c,lmem_2e2c)
102 call emem_1e(bases(ibas), bases(jbas), lsz_1e, lmem_1e)
135 do 00400 jbas = 1,ibas
136 do 00500 kbas = 1,jbas
137 call emem_3ov(bases(ibas),bases(jbas),bases(kbas),
214 integer ibas, jbas, kbas
230 jbas = jbasin + BASIS_HANDLE_OFFSET
234 jt_ucont = infbs_head(HEAD_NCONT,jbas)
243 write(luout,*)' j name ',bs_name(jbas)
264 if (ibas.eq.jbas) j_lim = iic
267 j_type = abs(infbs_cont(CONT_TYPE,ijc,jbas))
268 j_prim = infbs_cont(CONT_NPRIM,ijc,jbas)
272 if (kbas.eq.jbas) k_lim = ijc