diff --git a/Fortran/1.xlsx b/Fortran/1.xlsx
index 279f36f..58fdaab 100644
Binary files a/Fortran/1.xlsx and b/Fortran/1.xlsx differ
diff --git a/Fortran/Mc_method.f90 b/Fortran/Mc_method.f90
index c51be50..e4ab903 100644
--- a/Fortran/Mc_method.f90
+++ b/Fortran/Mc_method.f90
@@ -11,8 +11,7 @@
 !  PURPOSE:  Entry point for the console application.
 !
 !**************************************************************************** 
-SUBROUTINE Mc_method( NFILENAME   ,&      ! 文件名字长度            整数          //输入参数
-                    N           ,&          ! 入流流量数据点个数     整数         //输入参数
+SUBROUTINE Mc_method( N           ,&          ! 入流流量数据点个数     整数         //输入参数
                     Q1          ,&          ! 入流流量              浮点数            //输入参数
                     Q20         ,&        ! 出流流量初始值              浮点数         //输入     
                     X           ,&          ! 流量比重因子          浮点数           //输入参数
diff --git a/Fortran/XAJ.f90 b/Fortran/XAJ.f90
index f326c94..24632d8 100644
--- a/Fortran/XAJ.f90
+++ b/Fortran/XAJ.f90
@@ -127,8 +127,7 @@ SUBROUTINE XAJ(   FILELEN    ,&
         
     END DO
     
-    CALL Mc_method( FILELEN   ,&      ! 文件名字长度            整数          //输入参数
-                    NODE           ,&          ! 入流流量数据点个数     整数         //输入参数
+    CALL Mc_method( NODE           ,&          ! 入流流量数据点个数     整数         //输入参数
                     Q1(I,:)          ,&          ! 入流流量              浮点数            //输入参数
                     Q20(I)         ,&        ! 出流流量初始值              浮点数         //输入     
                     X           ,&          ! 流量比重因子          浮点数           //输入参数