fortran程序计算超声速前台接