![]() ![]() IF (ABS(fx(xnew,L,Q,hf,rho,mu,rough)) = maxit) THEN REAL(DP)::z,phead,hf,L,Q,mu,rho,rough,eff,pump,nu,ppow,fric,pres,xnew,xold,xolder,D INTEGER,PARAMETER::DP=selected_real_kind(15) If I figure this out I will update it to working. I would appreciate any guidance.ĮDIT: I have updated the code with some suggestions from users, still seeing quick divergence. I've done this on paper and understand the mechanics of the equations. ![]() I am trying to write a program to solve for pipe diameter for a pump system I've designed.
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |