Program FTCS Dimension F(1500,1500) integer grid, tmax, pilihan, pil real c(5000,5000) write(*,*)\'FTCS\' write(*,*)