fork download
copy 
  1.  
  2. PROGRAM CAL
  3. PRINT*, ' Enter Roughness Ratio (e/d) '
  4. READ*, ED
  5. PRINT*, ' Enter Reynolds Number (Re) '
  6. READ*, Re
  7. IF (ABS(DF).GT.1.E-6) THEN
  8. F= 0.25/(0.434*ALOG( ED/3.7 + 5.74/RE**0.9)**2 )
  9. F= 1/SQRT (F)
  10. ITER= 0
  11. ITER= ITER + 1
  12. G= ED/3.7 + 2.51*F/RE
  13. RF= F + 0.869*ALOG(G)
  14. DFR= 1. + 0.869/G*2.51/RE
  15. DF=-RF/DFR
  16. F= F + DF
  17. END IF
  18. F=1./(F**2)
  19. PRINT*, ' THE FRICTION FACTOR IS ', F
  20. STOP
  21. END
  22.  
Runtime error #stdin #stdout 0.01s 2620KB
comments (?)
stdin
copy 
0.0004
298805
stdout
copy 
  Enter Roughness Ratio (e/d) 
  Enter Reynolds Number (Re)
https://ideone.com/hA9YM
language:
Fortran (gfortran 8.3)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!