program conjgf
implicit none
real(8) a(6,6)
integer i1, i2
do i1 = 1,6
do i2 = 1,6
if (i1=i2) then
a(i1,i2) = 0.0d0
else
a(i1,i2) = i1+i2
end if
enddo
enddo
print*,a
read(*,*)
end program conjgf
program conjgf
implicit none
real(8) a(6,6)
integer i1, i2
Forall(i1=1:6,i2=1:6) a(i1,i2)=merge(0,i1+i2,i1==i2)
write(*,'(*(6f7.2,/))') a
read(*,*)
end program conjgf