zzx/MSJGMX
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

3

Browse Source
This commit is contained in:
tp 2025-06-12 15:07:21 +08:00
parent 7323da0b3b
commit 130033862c
3 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Fortran/1.xlsx
View File

Binary file not shown.

3
Fortran/Mc_method.f90
View File

@ -11,8 +11,7 @@
! PURPOSE: Entry point for the console application. ! PURPOSE: Entry point for the console application.
! !
!**************************************************************************** !****************************************************************************
SUBROUTINE Mc_method( NFILENAME ,& ! 文件名字长度 整数 //输入参数 SUBROUTINE Mc_method( N ,& ! 入流流量数据点个数 整数 //输入参数
N ,& ! 入流流量数据点个数 整数 //输入参数
Q1 ,& ! 入流流量 浮点数 //输入参数 Q1 ,& ! 入流流量 浮点数 //输入参数
Q20 ,& ! 出流流量初始值 浮点数 //输入 Q20 ,& ! 出流流量初始值 浮点数 //输入
X ,& ! 流量比重因子 浮点数 //输入参数 X ,& ! 流量比重因子 浮点数 //输入参数

3
Fortran/XAJ.f90
View File

@ -127,8 +127,7 @@ SUBROUTINE XAJ( FILELEN ,&
END DO END DO
CALL Mc_method( FILELEN ,& ! 文件名字长度 整数 //输入参数 CALL Mc_method( NODE ,& ! 入流流量数据点个数 整数 //输入参数
NODE ,& ! 入流流量数据点个数 整数 //输入参数
Q1(I,:) ,& ! 入流流量 浮点数 //输入参数 Q1(I,:) ,& ! 入流流量 浮点数 //输入参数
Q20(I) ,& ! 出流流量初始值 浮点数 //输入 Q20(I) ,& ! 出流流量初始值 浮点数 //输入
X ,& ! 流量比重因子 浮点数 //输入参数 X ,& ! 流量比重因子 浮点数 //输入参数