有限元程序HYPLAS2.0编译失败

ft_eason

《Computational Methods for Plasticity: Theory and Applications》这本书的配套Fortran程序Hyplas2.0我按照README文档的提示尝试编译，但一直不成功。

开发环境是Windows11， Visual Studio 2022，使用oneAPI 2022的编译器。

报错信息如下图(未完全显示)：


错误都是6634， 实参和虚参形状不匹配

对于第一个报错信息：
F:\Code\HYPLAS_v2.0\src\MATERIALS\matisu.f(95): error #6634: The shape matching rules of actual arguments and dummy arguments have been violated.   [RALGVA]     1(   RALGVA     ,IPROPS     ,LALGVA     ,NTYPE      ,RPROPS     ,----------^

我找到 matisu.f 源文件，第95行，调用suvmps子程序时报错，

[Fortran] 纯文本查看 复制代码

CALL SUVMPS
1( RALGVA ,IPROPS ,LALGVA ,NTYPE ,RPROPS ,
2 RSTAVA ,STRAT ,STRES )

suvmps函数的声明如下：

[Fortran] 纯文本查看 复制代码

      SUBROUTINE SUVMPS
     1(   DGAMA      ,IPROPS     ,LALGVA     ,NTYPE      ,RPROPS     ,
     2    RSTAVA     ,STRAT      ,STRES      )

形参 DGAMA 在suvmps 内部用作一个标量，因此产生形参和实参的冲突


附件为软件源码

请大佬帮忙解答

fcode

尝试关闭接口检查。工程属性，Fortran，Diagnostics，Check Routine Interfaces 改为 No