set_refgw_sym Subroutine

private pure subroutine set_refgw_sym(ngw, sym)

Set the number of gaussian weights for an element symbol

Arguments

Type IntentOptional Attributes Name
integer, intent(out) :: ngw(:)

Number of gaussian weights
character(len=*), intent(in) :: sym

Element symbol

Source Code

pure subroutine set_refgw_sym(ngw, sym)

   !> Number of gaussian weights
   integer, intent(out) :: ngw(:)

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

   call set_refgw(ngw, to_number(sym))

end subroutine set_refgw_sym