4 lines
71 B
FortranFixed
4 lines
71 B
FortranFixed
|
DO 1 I = 1,N
|
||
|
|
DO 1 J = 1,N
|
||
|
|
1 A(I,J) = (I/J)*(J/I)
|