Searched refs:map_bond_kind (Results 1 – 2 of 2) sorted by relevance
140 INTEGER, POINTER :: map_bond_kind(:) local158 ALLOCATE (map_bond_kind(nbond))162 map_bond_kind(j) = j190 map_bond_kind(j) = map_bond_kind(k)196 map_bond_kind(j) = counter203 bond_list(j)%bond_kind => bond_kind_set(map_bond_kind(j))207 DEALLOCATE (map_bond_kind)