copy_bond Subroutine

  1. mimic_types.f90
  2. mimic_types
  3. copy_bond

private subroutine copy_bond(dest, source)

Arguments

TypeIntentOptionalAttributesName
class(bond_type), intent(out) :: dest
class(bond_type), intent(in) :: source

Contents

Source Code

copy_bond

Source Code

subroutine copy_bond(dest, source)
    class(bond_type), intent(out) :: dest
    class(bond_type), intent(in) :: source

    dest%atom_i = source%atom_i
    dest%atom_j = source%atom_j
    dest%length = source%length
end subroutine copy_bond