How to reduce the code?

[Ivan_S_]

How to reduce the following code?

[fortran]P0=1.D0
…
DO I=1,6
  DO J=1,6
    S(J,I)=P0
  END DO
END DO[/fortran]

I am looking for the simple solution for the following array:

[fortran]| 1.D0 1.D0 1.D0 |
| 1.D0 1.D0 1.D0 |
| 1.D0 1.D0 1.D0 |[/fortran]

[mecej4]

If S is not dimensioned (6,6), but something larger: S(1:6,1:6) = 1d0

[rase]

Even shorter:  s=1d0
complete program:
real(8), dimension(6,6) :: s
s=1d0
end

[Ivan_S_]

S is dimensioned as (6,6). Both variants are working excellent. Thanks!

[John_Campbell]

Even "s=1" will give the correct result, as 1d0-1 = 0