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

更新 Fortran/Mc_method.f90

Browse Source
This commit is contained in:
zzx 2025-06-12 15:09:37 +08:00
parent 130033862c
commit b7ec29ddd1
1 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
Fortran/Mc_method.f90
View File

@ -11,19 +11,16 @@
! PURPOSE: Entry point for the console application.
!
!****************************************************************************
SUBROUTINE Mc_method( N ,& ! 入流流量数据点个数 整数 //输入参数
Q1 ,& ! 入流流量 浮点数 //输入参数
Q20 ,& ! 出流流量初始值 浮点数 //输入
X ,& ! 流量比重因子 浮点数 //输入参数
K ,& ! 流量模数 浮点数 //输入参数
DETAT ,& ! 时间步长 （小时） 浮点数 //输入参数
C0 ,& ! 系数 浮点数 //输出参数
C1 ,& ! 浮点数 //输出参数
C2 ,& ! 浮点数 //输出参数
Q2 ) ! 出流流量 浮点数 //输出
INTEGER::NFILENAME
CHARACTER(LEN = NFILENAME)::FILENAME
SUBROUTINE Mc_method( N ,& ! 入流流量数据点个数 整数 //输入参数
Q1 ,& ! 入流流量 浮点数 //输入参数
Q20 ,& ! 出流流量初始值 浮点数 //输入
X ,& ! 流量比重因子 浮点数 //输入参数
K ,& ! 流量模数 浮点数 //输入参数
DETAT ,& ! 时间步长 （小时） 浮点数 //输入参数
C0 ,& ! 系数 浮点数 //输出参数
C1 ,& ! 浮点数 //输出参数
C2 ,& ! 浮点数 //输出参数
Q2 ) ! 出流流量 浮点数 //输出
INTEGER::N
REAL::Q1(1000)