parse_structure_generic Module Subroutine

module subroutine parse_structure_generic(unit, charge, multiplicity, error)

Generic parser for %structure section (works for both config and molecule)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: unit
integer, intent(inout) :: charge
integer, intent(inout) :: multiplicity
type(error_t), intent(out) :: error

Calls

proc~~parse_structure_generic~~CallsGraph proc~parse_structure_generic parse_structure_generic proc~error_set error_t%error_set proc~parse_structure_generic->proc~error_set proc~strip_comment strip_comment proc~parse_structure_generic->proc~strip_comment

Called by

proc~~parse_structure_generic~~CalledByGraph proc~parse_structure_generic parse_structure_generic interface~parse_structure_generic parse_structure_generic interface~parse_structure_generic->proc~parse_structure_generic proc~parse_molecule_structure parse_molecule_structure proc~parse_molecule_structure->interface~parse_structure_generic proc~parse_structure_section parse_structure_section proc~parse_structure_section->interface~parse_structure_generic interface~parse_structure_section parse_structure_section interface~parse_structure_section->proc~parse_structure_section proc~parse_single_molecule parse_single_molecule proc~parse_single_molecule->proc~parse_molecule_structure proc~parse_molecules_section parse_molecules_section proc~parse_molecules_section->proc~parse_single_molecule proc~read_mqc_file read_mqc_file proc~read_mqc_file->interface~parse_structure_section interface~parse_molecules_section parse_molecules_section interface~parse_molecules_section->proc~parse_molecules_section program~main main program~main->proc~read_mqc_file

Variables

Type Visibility Attributes Name Initial
integer, private :: eq_pos
integer, private :: io_stat
character(len=MAX_LINE_LEN), private :: key
character(len=MAX_LINE_LEN), private :: line
character(len=MAX_LINE_LEN), private :: value

Source Code

   module subroutine parse_structure_generic(unit, charge, multiplicity, error)
      !! Generic parser for %structure section (works for both config and molecule)
      integer, intent(in) :: unit
      integer, intent(inout) :: charge, multiplicity
      type(error_t), intent(out) :: error

      character(len=MAX_LINE_LEN) :: line, key, value
      integer :: io_stat, eq_pos
      do
         read (unit, '(A)', iostat=io_stat) line
         if (io_stat /= 0) then
            call error%set(ERROR_IO, "Unexpected end of file in %structure section")
            return
         end if

         line = adjustl(line)
         if (len_trim(line) == 0) cycle
         if (line(1:1) == '#' .or. line(1:1) == '!') cycle

         if (trim(strip_comment(line)) == 'end') exit

         eq_pos = index(line, '=')
         if (eq_pos == 0) cycle

         key = adjustl(line(1:eq_pos - 1))
         value = adjustl(line(eq_pos + 1:))

         select case (trim(key))
         case ('charge')
            read (value, *, iostat=io_stat) charge
         case ('multiplicity')
            read (value, *, iostat=io_stat) multiplicity
         case default
            call error%set(ERROR_PARSE, "Unknown key in %structure section: "//trim(key))
            return
         end select
      end do

   end subroutine parse_structure_generic