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

更新 Fortran/MASIJINGGEN.f90

Browse Source
This commit is contained in:
zzx 2025-06-03 16:51:16 +08:00
parent 87e38f0f73
commit a1f67178ed
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/MASIJINGGEN.f90
View File

@ -1,19 +1,18 @@
subroutine MASIJINGGEN( NFILENAME ,& ! 文件名字长度 整数 //输入参数 subroutine MASIJINGGEN( NFILENAME ,& ! 文件名字长度 整数 //输入参数
N ,& ! 入流流量数据点个数 整数 //输入参数 N ,& ! 入流流量数据点个数 整数 //输入参数
Q1 ,& ! 入流流量 浮点数 //输入参数 Q1 ,& ! 入流流量 浮点数 //输入参数
Q20 ,& ! 出流流量初始值 浮点数 //输入 Q20 ,& ! 出流流量初始值 浮点数 //输入
X ,& ! 流量比重因子 浮点数 //输入参数 X ,& ! 流量比重因子 浮点数 //输入参数
K ,& ! 流量模数 浮点数 //输入参数 K ,& ! 流量模数 浮点数 //输入参数
DETAT ,& ! 时间步长 （小时） 浮点数 //输入参数 DETAT ,& ! 时间步长 （小时） 浮点数 //输入参数
C0 ,& ! 系数 浮点数 //输出参数 C0 ,& ! 系数 浮点数 //输出参数
C1 ,& ! 浮点数 //输出参数 C1 ,& ! 浮点数 //输出参数
C2 ,& ! 浮点数 //输出参数 C2 ,& ! 浮点数 //输出参数
Q2 )& ! 出流流量 浮点数 //输出 Q2 )& ! 出流流量 浮点数 //输出
BIND(C, NAME="MASIJINGGEN") BIND(C, NAME="MASIJINGGEN")
!DEC$ ATTRIBUTES DLLEXPORT::MASIJINGGEN !DEC$ ATTRIBUTES DLLEXPORT::MASIJINGGEN
INTEGER::NFILENAME INTEGER::NFILENAME
CHARACTER(LEN = NFILENAME)::FILENAME
INTEGER::N INTEGER::N
REAL::Q1(1000) REAL::Q1(1000)