parse_molecule_structure Subroutine

subroutine parse_molecule_structure(unit, mol, error)

Parse %structure section for a molecule

Arguments

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

Calls

proc~~parse_molecule_structure~~CallsGraph proc~parse_molecule_structure parse_molecule_structure interface~parse_structure_generic parse_structure_generic proc~parse_molecule_structure->interface~parse_structure_generic proc~parse_structure_generic parse_structure_generic interface~parse_structure_generic->proc~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_molecule_structure~~CalledByGraph proc~parse_molecule_structure parse_molecule_structure 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 interface~parse_molecules_section parse_molecules_section interface~parse_molecules_section->proc~parse_molecules_section proc~read_mqc_file read_mqc_file proc~read_mqc_file->interface~parse_molecules_section program~main main program~main->proc~read_mqc_file

Source Code

   subroutine parse_molecule_structure(unit, mol, error)
      !! Parse %structure section for a molecule
      integer, intent(in) :: unit
      type(molecule_t), intent(inout) :: mol
      type(error_t), intent(out) :: error

      call parse_structure_generic(unit, mol%charge, mol%multiplicity, error)

   end subroutine parse_molecule_structure