cepa_3_double Function

private function cepa_3_double(run)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	run

Return Value real(kind=dp)

Source Code

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