170       integer bra, ket, bra_ucont, ket_ucont, ibc, ikc, nint  local
206       do 00100 ibc = 1, bra_ucont
210         bra_type = infbs_cont(CONT_TYPE,ibc,bra)
211         bra_prim = infbs_cont(CONT_NPRIM,ibc,bra)
212         bra_gen  = infbs_cont(CONT_NGEN,ibc,bra)
223           ket_lim = ibc
242           nint = int_unint(brain,ibc,ketin,ikc,0,0,0,0)
308       integer bra, ket, bra_ucont, ket_ucont, ibc, ikc, nint  local
345       do 00100 ibc = 1, bra_ucont
349         bra_type = infbs_cont(CONT_TYPE,ibc,bra)
350         bra_prim = infbs_cont(CONT_NPRIM,ibc,bra)
351         bra_gen  = infbs_cont(CONT_NGEN,ibc,bra)
362           ket_lim = ibc
381           nint = int_unint(brain,ibc,ketin,ikc,0,0,0,0)
454       integer bra, ket, bra_ucont, ket_ucont, ibc, ikc, nint  local
493       do 00100 ibc = 1, bra_ucont
497         bra_type = infbs_cont(CONT_TYPE,ibc,bra)
498         bra_prim = infbs_cont(CONT_NPRIM,ibc,bra)
499         bra_gen  = infbs_cont(CONT_NGEN,ibc,bra)
500         bra_rel = infbs_cont(CONT_RELLS,ibc,bra) .ne. 0
501         bra_cent  = (sf_ibs_cn2ce(ibc,bra))
512           ket_lim = ibc
534           nint = int_unint(brain,ibc,brain,ibc,ketin,ikc,ketin,ikc)
607           nint = int_unint(brain,ibc,brain,ibc,ketin,ikc,ketin,ikc)
671             nint = int_unint(brain,ibc,brain,ibc,brain,ibc,ketin,ikc)
737             nint = int_unint(brain,ibc,ketin,ikc,ketin,ikc,ketin,ikc)
866       integer ibc, i_type, i_prim, i_gen, i_atom  local
903       do ibc = 1, bra_ucont
905         i_type = infbs_cont(CONT_TYPE ,ibc,bra)
906         i_prim = infbs_cont(CONT_NPRIM,ibc,bra)
907         i_gen  = infbs_cont(CONT_NGEN ,ibc,bra)
908         i_atom = (sf_ibs_cn2ce(ibc,bra))
928           bra_rel = infbs_cont(CONT_RELLS,ibc,bra) .ne. 0
965               nint = int_unint(brain,ibc,brain,jbc,ketin,kkc,ketin,lkc)