simple算法解方腔驱动流fortran语句