set_refcn_sym Subroutine

private pure subroutine set_refcn_sym(cn, sym)

Set the reference coordination numbers for an element symbol

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(out) :: cn(:)

Reference coordination number
character(len=*), intent(in) :: sym

Element symbol

Source Code

pure subroutine set_refcn_sym(cn, sym)

   !> Reference coordination number
   real(wp), intent(out) :: cn(:)

   !> Element symbol
   character(len=*), intent(in) :: sym

   call set_refcn(cn, to_number(sym))

end subroutine set_refcn_sym