diff --git a/Services/FortranInteropService.cs b/Services/FortranInteropService.cs index 3cfcd63..7b7008d 100644 --- a/Services/FortranInteropService.cs +++ b/Services/FortranInteropService.cs @@ -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");