fork download 
  1. PROGRAM CAL
  2. WRITE (6 , * ) ' Enter Roughness Ratio (e/d) '
  3. READ (5 , * ) ED
  4. WRITE (6 , * ) ' Enter Reynolds Number (Re) '
  5. READ (5, * ) Re
  6.  5 F= 0.25/(0.434*ALOG( ED/3.7 + 5.74/RE**0.9)**2 )
  7. F= 1/SQRT (F)
  8. ITER= 0
  9. ITER= ITER + 1
  10. G= ED/3.7 + 2.51*F/RE
  11. RF= F + 0.869/G*2.51/RE
  12. DFR= -RF/DFR
  13. F= F + DF
  14. IF (ABS(DF).GT.1.E-6) GO TO 5
  15. F=1./(F**2)
  16. WRITE (6, * ) ' THE FRICTION FACTOR IS ', F
  17. STOP
  18. END
  19.  
  20.  
  21.  
Runtime error #stdin #stdout 0.01s 2620KB
comments (?)
stdin 
0.0002
380450
stdout 
  Enter Roughness Ratio (e/d) 
  Enter Reynolds Number (Re)
https://ideone.com/zvA9R
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!