Fortran语言解决一维激波管问题，本程序为一阶迎风Roe格式(Fortran language to solve one-dimensional shock tube problem, this program is the first order upwind Roe format)