Searched refs:nucorg_wrt_cc (Results 1 – 2 of 2) sorted by relevance
107 arg_boys = arg_boys+nucorg_wrt_cc(ierr)**2141 geo_pot_pints(2) = nucorg_wrt_cc(1)*aux_pints(1) !px142 geo_pot_pints(3) = nucorg_wrt_cc(2)*aux_pints(1) !py143 geo_pot_pints(4) = nucorg_wrt_cc(3)*aux_pints(1) !pz146 geo_pot_pints(1) = nucorg_wrt_cc(1)*aux_pints(1) !px147 geo_pot_pints(2) = nucorg_wrt_cc(2)*aux_pints(1) !py148 geo_pot_pints(3) = nucorg_wrt_cc(3)*aux_pints(1) !pz358 real(REALK), intent(in) :: nucorg_wrt_cc(3) local398 = nucorg_wrt_cc(1)*cur_geo_pints(addr_cur_geo) &415 = nucorg_wrt_cc(2)*cur_geo_pints(addr_cur_geo+igeo) &[all …]
38 …real(REALK), private, save :: nucorg_wrt_cc(3) !relative coordinates of nuclear potential origin … variable107 nucorg_wrt_cc(ixyz) = nucpot_origin(ixyz)-coord_cc121 arg_aux_fun = arg_aux_fun+nucorg_wrt_cc(ixyz)**2146 arg_aux_fun = arg_aux_fun+nucorg_wrt_cc(ixyz)**2187 geo_pint = nucorg_wrt_cc(1) &195 geo_pint = nucorg_wrt_cc(2) &203 geo_pint = nucorg_wrt_cc(3) &