198       INTEGER, DIMENSION(:), POINTER                    :: molecule_list  component
402          NULLIFY (molecule_kind_set(imolecule_kind)%molecule_list)
500             IF (ASSOCIATED(molecule_kind_set(imolecule_kind)%molecule_list)) THEN
501                DEALLOCATE (molecule_kind_set(imolecule_kind)%molecule_list)
576                                 molecule_list, nelectron, nelectron_alpha, nelectron_beta, &  argument
610       INTEGER, DIMENSION(:), OPTIONAL, POINTER           :: molecule_list  local
706          IF (PRESENT(molecule_list)) molecule_list => molecule_kind%molecule_list
861                                 molecule_list, atom_list, nbond, bond_list, &  argument
877       INTEGER, DIMENSION(:), OPTIONAL, POINTER           :: molecule_list  local
978          IF (PRESENT(molecule_list)) THEN
979             n = SIZE(molecule_list)
981             molecule_kind%molecule_list => molecule_list
1014             nmolecule = SIZE(molecule_kind%molecule_list)
1043                   (molecule_kind%molecule_list(imolecule), imolecule=1, nmolecule)
1109                nmolecule = SIZE(molecule_kind_set(imolecule_kind)%molecule_list)