funPlus1 Function

private pure function funPlus1(b) result(ret)

Arguments

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

Return Value real(kind=dp)


Contents

Source Code

funPlus1

Source Code

    pure function funPlus1(b) result(ret)
        ! think of a better way to include that -> wasted time
        real(dp), intent(in) :: b
        real(dp) :: ret
        unused_var(b)
        ret = 1.0_dp
    end function funPlus1