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-05-12 16:20:36 +08:00
parent be9951bfef
commit 36c45e7094
1 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
Fortran/Mc_method.f90
View File

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