nusselt_correlation_not_implemented Function

public function nusselt_correlation_not_implemented(c_pt, Re, Pra, Tother, T) result(ret_val) 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_correlation_not_implemented(c_pt,Re,Pra,Tother,T) result(ret_val) bind(C)
      type(c_ptr), value :: c_pt
      real(dp), value :: Re,Pra,Tother,T
      real(dp) :: ret_val
      ret_val=0.0_dp
      if(.false.) print*,c_associated(c_pt),Re,Pra,Tother,T
      print*,'nusselt_correlation - not implemented'
      stop
    end function nusselt_correlation_not_implemented