fork download
copy 
  1. PROGRAM CAL
  2. PRINT*, ' Enter Roughness Ratio (e/d) '
  3. READ*, ED
  4. PRINT*, ' Enter Reynolds Number (Re) '
  5. READ*, Re
  6. IF (ABS(DF).GT.1.E-6) THEN
  7. F= 0.25/(0.434*ALOG( ED/3.7 + 5.74/RE**0.9)**2 )
  8. F= 1/SQRT (F)
  9. ITER= 0
  10. ITER= ITER + 1
  11. G= ED/3.7 + 2.51*F/RE
  12. RF= F + 0.869*ALOG(G)
  13. DFR= 1. + 0.869/G*2.51/RE
  14. DF=-RF/DFR
  15. F= F + DF
  16. END IF
  17. F=1./(F**2)
  18. PRINT*, ' THE FRICTION FACTOR IS ', F
  19. STOP
  20. END
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/fUTYr
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!