Checks if an entry is zeroed due to frozen orbitals being included @param[in] indices array of size 6 containing the indices of the entry in question in the frozen orbital numbering @return t_freeze true if the entry is zeroed
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=int64), | intent(in) | :: | indices(num_inds) |
pure function t_freeze(indices)
integer(int64), intent(in) :: indices(num_inds)
logical :: t_freeze
t_freeze = any(indices < 1)
end function t_freeze