Determine if the passed species instance corresponds to ions
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(specie), | intent(in) | :: | spec |
elemental logical function is_ion_species(spec)
implicit none
type(specie), intent(in) :: spec
is_ion_species = spec%type == ion_species
end function is_ion_species