|
|
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 |