fork download

copy

PROGRAM CAL
PRINT (6 , * ) ' Enter Roughness Ratio (e/d) '
READ (5 , * ) ED
PRINT (6 , * ) ' Enter Reynolds Number (Re) '
READ (5, * ) Re
IF (ABS(DF).GT.1.E-6) THEN
F= 0.25/(0.434*ALOG( ED/3.7 + 5.74/RE**0.9)**2 )
F= 1/SQRT (F)
ITER= 0
ITER= ITER + 1
G= ED/3.7 + 2.51*F/RE
RF= F + 0.869/G*2.51/RE
DFR= -RF/DFR
F= F + DF
END IF
F=1./(F**2)
PRINT(6, * ) ' THE FRICTION FACTOR IS ', F
STOP
END
 

prog.f95:2.5:

PRINT (6 , * ) ' Enter Roughness Ratio (e/d) '
     1
Error: Syntax error in PRINT statement at (1)
prog.f95:4.5:

PRINT (6 , * ) ' Enter Reynolds Number (Re) '
     1
Error: Syntax error in PRINT statement at (1)
prog.f95:17.5:

PRINT(6, * ) ' THE FRICTION FACTOR IS ', F
     1
Error: Syntax error in PRINT statement at (1)

Standard output is empty