Searched refs:num_redunt_geo (Results 1 – 2 of 2) sorted by relevance
| /dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/src/geom/ |
| H A D | geom_total.F90 | 616 subroutine geom_total_num_redunt(num_cent, order_cent, num_redunt_geo) argument
621 integer, intent(out) :: num_redunt_geo local
636 num_redunt_geo = 3**order_geo
639 num_redunt_geo = num_subset*num_redunt_geo
661 sort_redunt, num_redunt_geo, redunt_list) argument
669 integer, intent(in) :: num_redunt_geo local
670 integer, intent(out) :: redunt_list(2,num_redunt_geo)
699 if (pnum_redunt_geo/=num_redunt_geo) &
|
| /dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/src/ |
| H A D | gen1int_geom.F90 | 664 unique_expt, num_redunt_geo, redunt_expt) argument
670 integer, intent(in) :: num_redunt_geo local
671 real(REALK), intent(inout) :: redunt_expt(num_opt,num_redunt_geo,num_dens)
682 if (num_redunt_geo/=path_num_unique) &
693 if (num_redunt_geo/=(3*nary_tree%num_atoms)**nary_tree%order_geo) &
696 num_redunt_geo)
703 unique_expt, num_redunt_geo, redunt_expt)
|