说明：   This an fortran code that used in cfd codes.if you are looking to this code at first should know about this code. It is a simple methof of solvinf navier-stokes cide.its part of calculating PStar.