boundary.f90

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

!===========================================================================
function bounLeft(time)
! Function on the left boundary
	real bounLeft
	bounLeft=0
end function bounLeft
!==========================================================================
function bounRight(time)
! Function on the right boundary
	real bounRight
	bounRight=0
end function bounRight