是用fortran写的程序,是从浙大拿过来的程序,希望对大家有帮助!