Out array 1.f90

From CFD-Wiki

Subroutine Out_array(F_out,NImax,NJmax,Filename)

Dimension F_out(500,500)

Character Filename*10

Open(10,file=Filename)

Do 12 J=1,NJmax

! write(10,11)(F_out(i,j),i=1,NImax)

11 format(15F6.3)

12 continue

close(10)

Return

End