用fortran编写的程序，有点看不懂，求指教。