|
|
0.5 0 0 0 0.7 1 2 3 4 0 2 3 4 0 1 3 4 0 1 2 4 0 1 2 3 0 1 2 3 4 0.1 1 |
|
|
|
|
0.5 0 0 0 0.7 1 2 3 4 0 2 3 4 0 1 3 4 0 1 2 4 0 1 2 3 0 1 2 3 4 0.1 1 |
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.1 1 |
|
|
|
|
program telco
implicit none
integer, parameter :: ROWS = 10, COLS = 10
real a, table(ROWS,COLS)
integer b, i
open( 10, file="tablenew1.txt" )
read( 10, * ) ( table(i,:), i = 1, ROWS ), a, b
close( 10 )
do i = 1, ROWS
write( *, "( *(f6.3,1x) )" ) table(i,:)
end do
write( *, "(f6.3,/,i0)" ) a, b
end program telco |