fileout.f90

来自「求解粘性Burger方程和非粘性Burger方程的各种差分格式」· F90 代码 · 共 10 行

subroutine fileOut(unOne,lenX,deltX,time,loc)
	integer i
	real unOne(lenX+1)
	write(loc,'(a,a,f10.5,a)')	'zone t=','"At',time,'"'
		write(loc,'(a,i,a,/)'),"i=",lenX+1,",j=1,f=point"
			do i=1,lenX+1
				write(loc,'(f10.3,f10.3)'),(i-1)*deltX, unOne(i)   ! record solution in each 5 deltT
			end do
	write(loc,*) " "     
end subroutine fileOut