friction_correlation_not_implemented Function

public function friction_correlation_not_implemented(c_pt, Re) result(ret_val) bind(C)

Arguments

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

Return Value real(kind=dp)


Source Code

  function friction_correlation_not_implemented(c_pt,Re) result(ret_val) bind(C)
    type(c_ptr), value :: c_pt
    real(dp), value :: Re
    real(dp) :: ret_val
    ret_val=0.0_dp
    if(.false.) print*,c_associated(c_pt),Re
    print*,'friction_correlation - not implemented'
    stop
  end function friction_correlation_not_implemented