copy_angle Subroutine

  1. mimic_types.f90
  2. mimic_types
  3. copy_angle

private subroutine copy_angle(dest, source)

Arguments

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

Contents

Source Code

copy_angle

Source Code

subroutine copy_angle(dest, source)
    class(angle_type), intent(out) :: dest
    class(angle_type), intent(in) :: source

    dest%atom_i = source%atom_i
    dest%atom_j = source%atom_j
    dest%atom_k = source%atom_k
    dest%angle = source%angle
end subroutine copy_angle