cc_reset Subroutine

private subroutine cc_reset(this)

Reset all CC components to zero

Type Bound

Arguments

Type	Intent	Optional	Attributes		Name
class(cc_energy_t),	intent(inout)			::	this

Source Code

   subroutine cc_reset(this)
      !! Reset all CC components to zero
      class(cc_energy_t), intent(inout) :: this
      this%singles = 0.0_dp
      this%doubles = 0.0_dp
      this%triples = 0.0_dp
   end subroutine cc_reset