Aspen用户模型中调用PPMON_FUGLY问题

zenglanmu · 发表于 1970-1-1 08:00:00

用户模型中要用到对应物流中的活度系数，按手册上的先调用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子程序出的问题，因为如果把这行注释掉，程序就能运行了

zenglanmu · 发表于 1970-1-1 08:00:00

没人来呀，自顶下{:1106_362:}

zenglanmu · 发表于 1970-1-1 08:00:00

搞定了。。。。。

Aspen用户模型中调用PPMON_FUGLY问题

相关帖子