cc_total Function

private pure function cc_total(this) result(total)

Compute total CC correlation energy

Type Bound

Arguments

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

Return Value real(kind=dp)

Source Code

   pure function cc_total(this) result(total)
      !! Compute total CC correlation energy
      class(cc_energy_t), intent(in) :: this
      real(dp) :: total

      total = this%singles + this%doubles + this%triples
   end function cc_total