Ideone.com | Online Fortran Compiler & Debugging Tool

RecruitCoders.com

Computer geeks!

RecruitCoders.com

Recent public codes are listed below. You can filter them by the following programming languages:

codes: 54123 page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

23 days 20 hours ago view (lines: 39, size: 719, inputs: 1) Fortran Compilation error

1
2
3
4
5
6
7
8
9
PROGRAM CAL
PRINT*, ' Enter Re '
Read*, ED
Print*, ' ENter re number '
Read*, 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
 ...

23 days 20 hours ago view (lines: 39, size: 717, inputs: 1) Fortran Compilation error

1
2
3
4
5
6
7
8
9
PROGRAM CAL
PRINT*, ' Enter Re'
Read*, ED
Print*, ' ENter re number'
Read*, 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
 ...

23 days 20 hours ago view (lines: 20, size: 331, inputs: 1) Fortran Compilation error

1
2
3
4
5
6
7
8
9
PROGRAM CAL
PRINT*, ' Enter Re'
Read*, ED
Print*, ' ENter re number'
Read*, Re
If (ABS(DF).GT.1.E-6) THEN
F= 0.25/ (0.434*ALOG(ED/3.7 + 5.74/RE**2)
F=1/ SQRT(F)
ITER=0
 ...

23 days 20 hours ago view (lines: 20, size: 380, inputs: 1) Fortran Runtime error

1
2
3
4
5
6
7
8
9
PROGRAM CAL
PRINT*, ' Enter Roughness Ratio (e/d) '
READ*, ED
PRINT*, ' Enter Reynolds Number (Re) '
READ*, 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
 ...

23 days 20 hours ago view (lines: 20, size: 380, inputs: 1) Fortran Runtime error

1
2
3
4
5
6
7
8
9
PROGRAM CAL
PRINT*, ' Enter Roughness Ratio (e/d) '
READ*, ED
PRINT*, ' Enter Reynolds Number (Re) '
READ*, 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
 ...

23 days 20 hours ago view (lines: 21, size: 381, inputs: 1) Fortran Success

1
2
3
4
5
6
7
8
9
PROGRAM CAL
PRINT*, ' Enter Roughness Ratio (e/d) '
READ*, ED
PRINT*, ' Enter Reynolds Number (Re) '
READ*, 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
 ...

23 days 20 hours ago view (lines: 20, size: 380, inputs: 1) Fortran Runtime error

1
2
3
4
5
6
7
8
9
PROGRAM CAL
PRINT*, ' Enter Roughness Ratio (e/d) '
READ*, ED
PRINT*, ' Enter Reynolds Number (Re) '
READ*, 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
 ...

23 days 20 hours ago view (lines: 21, size: 381, inputs: 1) Fortran Success

1
2
3
4
5
6
7
8
9
PROGRAM CAL
PRINT*, ' Enter Roughness Ratio (e/d) '
READ*, ED
PRINT*, ' Enter Reynolds Number (Re) '
READ*, 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
 ...

23 days 20 hours ago view (lines: 21, size: 381, inputs: 1) Fortran Runtime error

1
2
3
4
5
6
7
8
9
PROGRAM CAL
PRINT*, ' Enter Roughness Ratio (e/d) '
READ*, ED
PRINT*, ' Enter Reynolds Number (Re) '
READ*, 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
 ...

23 days 20 hours ago view (lines: 21, size: 381, inputs: 1) Fortran Runtime error

1
2
3
4
5
6
7
8
9
PROGRAM CAL
PRINT*, ' Enter Roughness Ratio (e/d) '
READ*, ED
PRINT*, ' Enter Reynolds Number (Re) '
READ*, 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
 ...

23 days 20 hours ago view (lines: 21, size: 381, inputs: 1) Fortran Success

1
2
3
4
5
6
7
8
9
PROGRAM CAL
PRINT*, ' Enter Roughness Ratio (e/d) '
READ*, ED
PRINT*, ' Enter Reynolds Number (Re) '
READ*, 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
 ...

23 days 20 hours ago view (lines: 21, size: 381, inputs: 1) Fortran Runtime error

1
2
3
4
5
6
7
8
9
PROGRAM CAL
PRINT*, ' Enter Roughness Ratio (e/d) '
READ*, ED
PRINT*, ' Enter Reynolds Number (Re) '
READ*, 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
 ...

23 days 20 hours ago view (lines: 22, size: 382, inputs: 1) Fortran Runtime error

1
2
3
4
5
6
7
8
9
 
PROGRAM CAL
PRINT*, ' Enter Roughness Ratio (e/d) '
READ*, ED
PRINT*, ' Enter Reynolds Number (Re) '
READ*, 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)
 ...

23 days 20 hours ago view (lines: 21, size: 381, inputs: 1) Fortran Success

1
2
3
4
5
6
7
8
9
PROGRAM CAL
PRINT*, ' Enter Roughness Ratio (e/d) '
READ*, ED
PRINT*, ' Enter Reynolds Number (Re) '
READ*, 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
 ...

23 days 20 hours ago view (lines: 21, size: 381, inputs: 1) Fortran Success

1
2
3
4
5
6
7
8
9
PROGRAM CAL
PRINT*, ' Enter Roughness Ratio (e/d) '
READ*, ED
PRINT*, ' Enter Reynolds Number (Re) '
READ*, 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
 ...

23 days 20 hours ago view (lines: 20, size: 359, inputs: 1) Fortran Runtime error

1
2
3
4
5
6
7
8
9
PROGRAM CAL
PRINT*, ' Enter Roughness Ratio (e/d) '
READ*, ED
PRINT*, ' Enter Reynolds Number (Re) '
READ*, 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
 ...

23 days 20 hours ago view (lines: 20, size: 359, inputs: 1) Fortran Runtime error

1
2
3
4
5
6
7
8
9
PROGRAM CAL
PRINT*, ' Enter Roughness Ratio (e/d) '
READ*, ED
PRINT*, ' Enter Reynolds Number (Re) '
READ*, 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
 ...

23 days 20 hours ago view (lines: 20, size: 359, inputs: 1) Fortran Runtime error

1
2
3
4
5
6
7
8
9
PROGRAM CAL
PRINT*, ' Enter Roughness Ratio (e/d) '
READ*, ED
PRINT*, ' Enter Reynolds Number (Re) '
READ*, 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
 ...

23 days 20 hours ago view (lines: 20, size: 359, inputs: 1) Fortran Runtime error

1
2
3
4
5
6
7
8
9
PROGRAM CAL
PRINT*, ' Enter Roughness Ratio (e/d) '
READ*, ED
PRINT*, ' Enter Reynolds Number (Re) '
READ*, 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
 ...

23 days 20 hours ago view (lines: 20, size: 391, inputs: 1) Fortran Compilation error

1
2
3
4
5
6
7
8
9
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
 ...

23 days 20 hours ago view (lines: 10, size: 65, inputs: 1) Fortran Success

1
2
3
4
5
6
7
8
PROGRAM DCE
READ*, x
if (x>1) then
x= x+1
end if
print*, x
end

23 days 20 hours ago view (lines: 10, size: 63, inputs: 1) Fortran Compilation error

1
2
3
4
5
6
7
8
PROGRAM DCE
READ*, x
if x>1 then
x= x+1
end if
print*, x
end

23 days 20 hours ago view (lines: 10, size: 61, inputs: 1) Fortran Compilation error

1
2
3
4
5
6
7
8
PROGRAM DCE
READ*, x
if x>1 then
x= x+1
end if
end
print x

23 days 20 hours ago view (lines: 22, size: 394, inputs: 1) Fortran Runtime error

1
2
3
4
5
6
7
8
9
PROGRAM CAL
WRITE (6 , * ) ' Enter Roughness Ratio (e/d) '
READ (5 , * ) ED
WRITE (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
 ...

23 days 20 hours ago view (lines: 21, size: 393, inputs: 1) Fortran Runtime error

1
2
3
4
5
6
7
8
9
PROGRAM CAL
WRITE (6 , * ) ' Enter Roughness Ratio (e/d) '
READ (5 , * ) ED
WRITE (6 , * ) ' Enter Reynolds Number (Re) '
READ (5, * ) Re
 6 F= 0.25/(0.434*ALOG( ED/3.7 + 5.74/RE**0.9)**2 )
F= 1/SQRT (F)
ITER= 0
ITER= ITER + 1
 ...

23 days 20 hours ago view (lines: 21, size: 393, inputs: 1) Fortran Runtime error

1
2
3
4
5
6
7
8
9
PROGRAM CAL
WRITE (6 , * ) ' Enter Roughness Ratio (e/d) '
READ (5 , * ) ED
WRITE (6 , * ) ' Enter Reynolds Number (Re) '
READ (5, * ) Re
 5 F= 0.25/(0.434*ALOG( ED/3.7 + 5.74/RE**0.9)**2 )
F= 1/SQRT (F)
ITER= 0
ITER= ITER + 1
 ...

23 days 20 hours ago view (lines: 21, size: 393, inputs: 1) Fortran Runtime error

1
2
3
4
5
6
7
8
9
PROGRAM CAL
WRITE (6 , * ) ' Enter Roughness Ratio (e/d) '
READ (5 , * ) ED
WRITE (6 , * ) ' Enter Reynolds Number (Re) '
READ (5, * ) Re
 5 F= 0.25/(0.434*ALOG( ED/3.7 + 5.74/RE**0.9)**2 )
F= 1/SQRT (F)
ITER= 0
ITER= ITER + 1
 ...

23 days 21 hours ago view (lines: 21, size: 393, inputs: 1) Fortran Runtime error

1
2
3
4
5
6
7
8
9
PROGRAM CAL
WRITE (6 , * ) ' Enter Roughness Ratio (e/d) '
READ (5 , * ) ED
WRITE (6 , * ) ' Enter Reynolds Number (Re) '
READ (5, * ) Re
 5 F= 0.25/(0.434*ALOG( ED/3.7 + 5.74/RE**0.9)**2 )
F= 1/SQRT (F)
ITER= 0
ITER= ITER + 1
 ...

23 days 21 hours ago view (lines: 21, size: 393, inputs: 2) Fortran Runtime error

1
2
3
4
5
6
7
8
9
PROGRAM CAL
WRITE (6 , * ) ' Enter Roughness Ratio (e/d) '
READ (5 , * ) ED
WRITE (6 , * ) ' Enter Reynolds Number (Re) '
READ (5, * ) Re
 5 F= 0.25/(0.434*ALOG( ED/3.7 + 5.74/RE**0.9)**2 )
F= 1/SQRT (F)
ITER= 0
ITER= ITER + 1
 ...

23 days 21 hours ago view (lines: 21, size: 393, inputs: 2) Fortran Runtime error

1
2
3
4
5
6
7
8
9
PROGRAM CAL
WRITE (6 , * ) ' Enter Roughness Ratio (e/d) '
READ (5 , * ) ED
WRITE (6 , * ) ' Enter Reynolds Number (Re) '
READ (5, * ) Re
 5 F= 0.25/(0.434*ALOG( ED/3.7 + 5.74/RE**0.9)**2 )
F= 1/SQRT (F)
ITER= 0
ITER= ITER + 1
 ...

page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40