update_atom_set_with_displacement Subroutine

public subroutine update_atom_set_with_displacement(a, displacement)

update Atom_set with displacement

Arguments

Type	Intent	Optional	Attributes		Name
type(atom_set),	intent(inout)			::	a(:)
real(kind=long),	intent(in)			::	displacement(:)