exact solution of peak shock tube problem

Hello Everyone,

Does anyone have the exact solution to the peak shock tube problem compatible with FORTRAN 95. Actually I have done a numerical solution to the problem and I need to check my result by comparing it with the exact solution. Thanks

Saikat