funA_3_1_overR2 Function

public pure function funA_3_1_overR2(b) result(ret)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: b

Return Value real(kind=dp)


Contents

Source Code

funA_3_1_overR2

Source Code

    pure function funA_3_1_overR2(b) result(ret)
        real(dp), intent(in) :: b
        real(dp) :: ret
        ret = OverR2 * funA(b, 3.0_dp, 1.0_dp)
    end function funA_3_1_overR2