nusselt_pipe Function

public function nusselt_pipe(c_pt, Re, Pra, Tother, T) result(nusselt) bind(C)

Arguments

Type IntentOptional Attributes Name
type(c_ptr), value :: c_pt
real(kind=dp), value :: Re
real(kind=dp), value :: Pra
real(kind=dp), value :: Tother
real(kind=dp), value :: T

Return Value real(kind=dp)


Source Code

    function nusselt_pipe(c_pt,Re,Pra,Tother,T) result(nusselt) bind(C)
        type(c_ptr), value :: c_pt
        real(dp), value :: Re,Pra,Tother,T
        real(dp) :: nusselt
        type(pipe_cfg_t), pointer :: pipe_ptr
        call c_f_pointer(c_pt,pipe_ptr)      
    
        nusselt=pipe_ptr%a*(Re**pipe_ptr%b)*(Pra**pipe_ptr%c)
    end function nusselt_pipe