numricalfunction.f90

求解粘性Burger方程和非粘性Burger方程的各种差分格式

module comNumFun

contains

function maxArr(arr,len)
	real arr(1:len),maxArr
	integer k
	maxArr=arr(1)
	do k=2,len
		if(maxArr<arr(k)) then
		maxArr=arr(k)
		end if
	end do
end function maxArr

end module comNumFun