[北斗]

请论坛好友帮忙把这个FORTRAN 语言改编成MATLAB语言
我不太懂，所以需要你们帮忙，谢谢。