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

更新

Browse Source
This commit is contained in:
vinciyan 2025-05-12 10:17:10 +08:00
parent af8150b63c
commit bdd059806d
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Services/FortranInteropService.cs
View File

@ -36,10 +36,10 @@ namespace FortranWebApi.Services
private static extern void SUB_SHUILIANGJISUAN(
ref int NDATA,
ref float LONG,
ref int INbd,
ref int INzd,
ref int INsm,
ref int INrough,
ref float INbd,
ref float INzd,
ref float INsm,
ref float INrough,
ref float ZZ0,
ref int DB,
float[] UQ,
@ -75,10 +75,10 @@ namespace FortranWebApi.Services
// 提取参数
int NDATA = GetIntParameter(parameters, "NDATA");
float LONG = GetFloatParameter(parameters, "LONG");
int INbd = GetIntParameter(parameters, "INbd");
int INzd = GetIntParameter(parameters, "INzd");
int INsm = GetIntParameter(parameters, "INsm");
int INrough = GetIntParameter(parameters, "INrough");
float INbd = GetFloatParameter(parameters, "INbd");
float INzd = GetFloatParameter(parameters, "INzd");
float INsm = GetFloatParameter(parameters, "INsm");
float INrough = GetFloatParameter(parameters, "INrough");
float ZZ0 = GetFloatParameter(parameters, "ZZ0");
int DB = GetIntParameter(parameters, "DB");
float[] UQ = GetFloatArrayParameter(parameters, "UQ");