cepa_0 Function

public function cepa_0(run)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: run

Return Value real(kind=dp)


Source Code

    real(dp) function cepa_0(run)
        integer, intent(in) :: run
        ! change this back so it cancels the actual shift
        ! so we can adjust this outside with the cc-amplitudes estimate
!         cepa_0 = 0.0_dp
        cepa_0 = diagsft(run)
    end function cepa_0