is_blank_or_control Function

private pure function is_blank_or_control(line) result(res)

Check if a line is blank or a control line (starts with ‘$’)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: line

Return Value logical


Called by

proc~~is_blank_or_control~~CalledByGraph proc~is_blank_or_control is_blank_or_control proc~classify_line classify_line proc~classify_line->proc~is_blank_or_control proc~count_shells_for_element count_shells_for_element proc~count_shells_for_element->proc~classify_line proc~fill_element_basis fill_element_basis proc~fill_element_basis->proc~classify_line proc~parse_element_basis parse_element_basis proc~parse_element_basis->proc~count_shells_for_element proc~parse_element_basis->proc~fill_element_basis proc~build_molecular_basis build_molecular_basis proc~build_molecular_basis->proc~parse_element_basis

Variables

Type Visibility Attributes Name Initial
integer, private :: trimmed_len

Source Code

   pure function is_blank_or_control(line) result(res)
      !! Check if a line is blank or a control line (starts with '$')
      character(len=*), intent(in) :: line
      logical :: res
      integer :: trimmed_len

      trimmed_len = len_trim(line)

      if (trimmed_len == 0) then
         res = .true.
      else
         res = (line(1:1) == '$')
      end if
   end function is_blank_or_control