l_of_sym Function

  1. m_psml_api.F90
  2. m_psml_api
  3. l_of_sym

private function l_of_sym(str, name) result(l)

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: str
character(len=*), intent(in) :: name

Return Value integer


Contents

Source Code

l_of_sym

Source Code

function l_of_sym(str,name) result(l)
character(len=*), intent(in) :: str, name
integer                :: l
!
! This routine will disappear once we store
! l as integer in the data structure
!
do l = 0,4
   if (str == sym(l)) RETURN
enddo
call die("Wrong l symbol in "//trim(name))
end function l_of_sym