cepa_1_single Function

private function cepa_1_single(run)

Arguments

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

Return Value real(kind=dp)


Contents

Source Code

cepa_1_single

Source Code

    real(dp) function cepa_1_single(run)
        integer, intent(in) :: run
        ! todo
        call stop_all("cepa_1_single", "TODO")
        unused_var(run)
        cepa_1_single = 0.0_dp

    end function cepa_1_single