Lines Matching refs:dim_hket
118 …integer dim_hket !dimension of HGTOs on ket center after recovering HGTOs on ket center local
188 dim_hket = (orders_hket_elec(2)+1)*(orders_hket_elec(2)+2) &
191 dim_hket = ((orders_hket_elec(2)+1)*(orders_hket_elec(2)+2) &
196 allocate(hket_pints(dim_hgto_bra,dim_hket,num_geo_pot), stat=ierr)
199 dim_hgto_bra*dim_hket*num_geo_pot)
203 dim_geo_hbra, hbra_pints, dim_hket, num_geo_pot, &
207 call scatter_multi_inner(dim_hgto_bra, dim_hket, 1, num_geo_pot, &
242 dim_hket = (orders_hket_elec(2)+1)*(orders_hket_elec(2)+2) &
245 dim_hket = ((orders_hket_elec(2)+1)*(orders_hket_elec(2)+2) &
256 allocate(hket_pints(dim_hgto_bra,dim_hket,dim_geo_hket), stat=ierr)
259 dim_hgto_bra*dim_hket*dim_geo_hket)
263 dim_geo_hbra, hbra_pints, dim_hket, dim_geo_hket, &
271 call scatter_multi_inner(dim_hgto_bra, dim_hket, 1, dim_geo_hket, &