Aspen用户模型中调用PPMON_FUGLY问题
用户模型中要用到对应物流中的活度系数，按手册上的先调用PPMON_FUGLY 函数，然后通过PLEX功能读出活度系数。相关的代码在这：
DO I = 1, NCOMP_NCC+9
FD(I) = SOUT1(I)
END DO
T = FD(NCOMP_NCC + 2)
P = FD(NCOMP_NCC + 3)
N = NCOMP_NCC
CALL SHS_CPACK (FD, NCP, IDX, X, FLOW)
DO I = 1, NCP
Y(I) = 0
END DO
CALL PPMON_FUGLY (T,P,X,Y,N,IDX,NBOPST,KDIAG,KPHI,PHI,DPHI,KER)
IF(KER.NE.0)THEN
WRITE(MAXWRT_MAXBUF(1),9000) T,P,KER
CALL DMS_WRTTRM(1)
ENDIF
IWATER = DMS_KFORMC('H2O')
GAMMA1 = B(PROP1(IWATER))
先用SHS_CPACK压紧物流FD，后调用PPMON_FUGLY子程序。
但是在运行中出现如下错误：
****EXECUTION ERROR
NO PROPERTY CALCULATION WAS REQUIRED
确定是调用PPMON_FUGLY子程序出的问题，因为如果把这行注释掉，程序就能运行了
没人来呀，自顶下{:1106_362:} 搞定了。。。。。
页:
[1]