fork download
copy 
  1. PROGRAM CAL
  2. PRINT*, ' Enter Re'
  3. Read*, ED
  4. Print*, ' ENter re number'
  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**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*, ' factor is....' ,F
  19. Stop
  20. End
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
0.0004
298805
compilation info 
prog.f95:7.41:

F= 0.25/ (0.434*ALOG(ED/3.7 + 5.74/RE**2)
                                         1
Error: Expected a right parenthesis in expression at (1)
stdout
copy 
Standard output is empty
https://ideone.com/DGOS9
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!