在编译Aspen Fortran模型时出现下面的错误提示，求解决方案

fengzheng

ASPCOMP: Using compiler C:\Program Files (x86)\Intel\Composer XE 2013 SP1\bin\intel64_mic\ifort.exe  
ASPCOMP: Warning! Microsoft C runtime library msvcrt.lib not found in %LIB%   
ASPCOMP: Warning! Microsoft C runtime library is needed for Dynamic Linking.   
ASPCOMP: Warning!  Intel Fortran runtime library libifcoremd.lib not found in %LIB%   
ASPCOMP: Warning!  Intel Fortran runtime library is needed for Dynamic Linking.   
ifort.exe /nologo /c     -DAWINNTN -DWIN32 -I. "-IC:\Program Files (x86)\AspenTech\AprSystem V7.3.2\Engine\commons" "-IC:\Program Files (x86)\AspenTech\Aspen Plus V7.3.2\Engine\commons"      /fpp /Qsave /iface:cvf /MD -object:"HFUM.obj" "HFUM.f"
ifort: error #10236: File not found:  '/nologo'
ifort: error #10236: File not found:  '/c'
ifort: error #10236: File not found:  '/fpp'
ifort: error #10236: File not found:  '/Qsave'
ifort: error #10236: File not found:  '/iface:cvf'
ifort: error #10236: File not found:  '/MD'
ifort: warning #10362: Environment configuration problem encountered.  Please check for proper MPSS installation and environment setup.
HFUM.f(17): warning #5117: Bad # preprocessor line
#include "ppexec_user.cmn"
-^
HFUM.f(18): warning #5117: Bad # preprocessor line
#include "dms_plex.cmn"
-^
HFUM.f(21): warning #5117: Bad # preprocessor line
#include "dms_ncomp.cmn"
-^
HFUM.f(20): error #6229: This EQUIVALENCE object must be an array.   [IB]
      Equivalence(B(1),IB(1))
-----------------------^
HFUM.f(71): error #6404: This name does not have a type, and must have an explicit type.   [USER_NHSTRY]
          WRITE(USER_NHSTRY,*)
----------------^
HFUM.f(148): error #6404: This name does not have a type, and must have an explicit type.   [NCOMP_NCC]
      CALL PPMON_VISCL(MSIN(NCOMP_NCC+2,1),MSIN(NCOMP_NCC+3,1),
----------------------------^
HFUM.f(20): error #6404: This name does not have a type, and must have an explicit type.   [IB]
      Equivalence(B(1),IB(1))
-----------------------^
compilation aborted for HFUM.f (code 1)

ifort: error #10236: File not found:  '/nologo'
ifort: error #10236: File not found:  '/c'
ifort: error #10236: File not found:  '/fpp'
ifort: error #10236: File not found:  '/Qsave'
ifort: error #10236: File not found:  '/iface:cvf'
ifort: error #10236: File not found:  '/MD'
ifort: warning #10362: Environment configuration problem encountered.  Please check for proper MPSS installation and environment setup.
HFUM.f(17): warning #5117: Bad # preprocessor line
#include "ppexec_user.cmn"
-^
HFUM.f(18): warning #5117: Bad # preprocessor line
#include "dms_plex.cmn"
-^
HFUM.f(21): warning #5117: Bad # preprocessor line
#include "dms_ncomp.cmn"
-^
HFUM.f(20): error #6229: This EQUIVALENCE object must be an array.   [IB]
      Equivalence(B(1),IB(1))
-----------------------^
HFUM.f(71): error #6404: This name does not have a type, and must have an explicit type.   [USER_NHSTRY]
          WRITE(USER_NHSTRY,*)
----------------^
HFUM.f(148): error #6404: This name does not have a type, and must have an explicit type.   [NCOMP_NCC]
      CALL PPMON_VISCL(MSIN(NCOMP_NCC+2,1),MSIN(NCOMP_NCC+3,1),
----------------------------^
HFUM.f(20): error #6404: This name does not have a type, and must have an explicit type.   [IB]
      Equivalence(B(1),IB(1))
-----------------------^
compilation aborted for HFUM.f (code 1)


--------------------------------------------------------------
在官方帮助文档里面，跟着教程做里面的第四节一个案例，遇到了上面的问题
自己分析一下问题：
自认为已经排除了拼写的错误，很可能官方给点程序代码有关（个人认为与下面三条关系较大，代码参见参考部分）：
#include "ppexec_user.cmn"
#include "dms_plex.cmn"
#include "dms_ncomp.cmn"
补充：原本来没有将C:\Program Files (x86)\Intel\Composer XE\bin\intel64_mic添加到系统变量path中时提示的错误信息是这样子的：
ASPCOMP: Warning!  Intel Fortran compiler ifort.exe not found in %PATH%   
ASPCOMP: Warning! Microsoft C runtime library msvcrt.lib not found in %LIB%   
ASPCOMP: Warning! Microsoft C runtime library is needed for Dynamic Linking.   
ASPCOMP: Warning!  Intel Fortran runtime library libifcoremd.lib not found in %LIB%   
ASPCOMP: Warning!  Intel Fortran runtime library is needed for Dynamic Linking.   
ifort.exe /nologo /c     -DAWINNTN -DWIN32 -I. "-IC:\Program Files (x86)\AspenTech\AprSystem V7.3.2\Engine\commons" "-IC:\Program Files (x86)\AspenTech\Aspen Plus V7.3.2\Engine\commons"      /fpp /Qsave /iface:cvf /MD -object:"HFUM.obj" "HFUM.f"
'ifort.exe' 不是内部或外部命令，也不是可运行的程序
或批处理文件。

'ifort.exe' 不是内部或外部命令，也不是可运行的程序
或批处理文件。


参考资料:AspenPlusCustomizingV732-Start.pdf  4 Creating an Aspen Plus Fortran Model

fengzheng

补充代码：

1. C$ #1 BY: ANAVI DATE:  1-JUL-1994 NEW FOR USER MODELS
   
2. C
   
3. C     User Unit Operation Model (or Report) Subroutine for USER2
   
4. C
   
5.       SUBROUTINE HFUM (NMATI,  MSIN,    NINFI,   SINFI,  NMATO,
   
6.      2                   SOUT,   NINFO,  SINFO,   IDSMI,  IDSII,
   
7.      3                   IDSMO,  IDSIO,  NTOT,    NSUBS,  IDXSUB,
   
8.      4                   ITYPE,  NINT,   INT,     NREAL,  REAL,
   
9.      5                   IDS,    NPO,    NBOPST,  NIWORK, IWORK,
   
10.      6                   NWORK,  WORK,   NSIZE,   SIZE,   INTSIZ,
    
11.      7                   LD   )
    
12. C
    
13.       IMPLICIT NONE
    
14. C
    
15. C     DECLARE VARIABLES USED IN DIMENSIONING
    
16. C
    
17. #include "ppexec_user.cmn"
    
18. #include "dms_plex.cmn"
    
19.       Real*8 B(1)
    
20.       Equivalence(B(1),IB(1))
    
21. #include "dms_ncomp.cmn"
    
22.       
    
23. C
    
24. 
    
25. C
    
26. C     THIS SUBROUTINE WILL SEPARATE WATER INTO THE SECOND OUTLET
    
27. C
    
28. C     FIRST COPY FIRST INLET TO FIRST OUTLET
    
29. C
    
30. C
    
31. C     DECLARE ARGUMENTS
    
32. C
    
33.       INTEGER NMATI, NINFI, NMATO, NINFO, NTOT,
    
34.      +        NSUBS, NINT,  NPO,   NIWORK,NWORK,
    
35.      +        NSIZE,NREAL
    
36.       
    
37.       INTEGER IDSMI(2,NMATI),      IDSII(2,NINFI),
    
38.      +        IDSMO(2,NMATO),      IDSIO(2,NINFO),
    
39.      +        IDXSUB(NSUBS),ITYPE(NSUBS), INT(NINT),
    
40.      +        IDS(2,3),     NBOPST(6,NPO),
    
41.      +        IWORK(NIWORK),INTSIZ(NSIZE), LD
    
42.       
    
43.       REAL*8 MSIN(NTOT,NMATI),     SINFI(NINFI),
    
44.      +       SOUT(NTOT,NMATO),    SINFO(NINFO),
    
45.      +       WORK(NWORK),  SIZE(NSIZE),REAL(NREAL)
    
46. C
    
47. C     DECLARE LOCAL VARIABLES
    
48. C
    
49.       INTEGER OFFSET,IERR,LDATA,KDIAG,IDX(10),NCP,I,J,INDEX,
    
50.      +        LMW,NTUBES,IPERM,IRET,IFAIL
    
51.       
    
52.       REAL*8  DIAM, LEN, DIFF, CG, REJ_COEF, C1, C2, C3, C4, P_PERM,
    
53.      +        DELTA_P,RHO,MU,FIN,CIN,PIN,UAVE,RE,SC,
    
54.      +        CP,CR,KM,JM,FP,PRET,XMW,X(10),FLOW
    
55. C
    
56. C     Declare Functions
    
57. C
    
58.       INTEGER USRUTL_GET_REAL_PARAM,USRUTL_GET_INT_PARAM,
    
59.      +        USRUTL_SET_REAL_PARAM
    
60.       
    
61.       INTEGER DMS_IFCMNC
    
62.       REAL*8  DLOG
    
63. C
    
64. C     BEGIN EXECUTABLE CODE
    
65. C     GET CONFIGURED REAL VARIABLES FORM ASPEN PLUS
    
66.       IFAIL = 0
    
67.       INDEX = 0
    
68.       IERR = USRUTL_GET_REAL_PARAM('DIAM',INDEX,DIAM)
    
69.       
    
70.       IF (IERR .NE. 0) THEN
    
71.           WRITE(USER_NHSTRY,*)
    
72.           IFAIL = 1
    
73.       END IF
    
74.       
    
75.       IERR = USRUTL_GET_REAL_PARAM('LEN',INDEX,LEN)
    
76.       IF (IERR .NE. 0) THEN
    
77.           WRITE(USER_NHSTRY,*)
    
78.           IFAIL = 1
    
79.       END IF
    
80.       
    
81.       IERR = USRUTL_GET_REAL_PARAM('DIFF',INDEX,DIFF)
    
82.       IF (IERR .NE. 0) THEN
    
83.           WRITE(USER_NHSTRY,*)
    
84.           IFAIL = 1
    
85.       END IF
    
86.       
    
87.       
    
88.       IERR = USRUTL_GET_REAL_PARAM('GET_CONC',INDEX,CG)
    
89.       IF (IERR .NE. 0) THEN
    
90.           WRITE(USER_NHSTRY,*)
    
91.           IFAIL = 1
    
92.       END IF
    
93.       
    
94.       IERR = USRUTL_GET_REAL_PARAM('REJ_COEF',INDEX,REJ_COEF)
    
95.       IF (IERR .NE. 0) THEN
    
96.           WRITE(USER_NHSTRY,*)
    
97.           IFAIL = 1
    
98.       END IF
    
99.       
    
100.       IERR = USRUTL_GET_REAL_PARAM('COEF1',INDEX,C1)
     
101.       IF (IERR .NE. 0) THEN
     
102.           WRITE(USER_NHSTRY,*)
     
103.           IFAIL = 1
     
104.       END IF
     
105.       
     
106.       IERR = USRUTL_GET_REAL_PARAM('COEF2',INDEX,C2)
     
107.       IF (IERR .NE. 0) THEN
     
108.           WRITE(USER_NHSTRY,*)
     
109.           IFAIL = 1
     
110.       END IF
     
111.       
     
112.       IERR = USRUTL_GET_REAL_PARAM('COEF3',INDEX,C3)
     
113.       IF (IERR .NE. 0) THEN
     
114.           WRITE(USER_NHSTRY,*)
     
115.           IFAIL = 1
     
116.       END IF
     
117.       
     
118.       IERR = USRUTL_GET_REAL_PARAM('COEF4',INDEX,C4)
     
119.       IF (IERR .NE. 0) THEN
     
120.           WRITE(USER_NHSTRY,*)
     
121.           IFAIL = 1
     
122.       END IF
     
123.       
     
124.       IERR = USRUTL_GET_REAL_PARAM('PERM_PRES',INDEX,P_PERM)
     
125.       IF (IERR .NE. 0) THEN
     
126.           WRITE(USER_NHSTRY,*)
     
127.           IFAIL = 1
     
128.       END IF
     
129.       
     
130.       IERR = USRUTL_GET_REAL_PARAM('DELTA_P',INDEX,DELTA_P)
     
131.       IF (IERR .NE. 0) THEN
     
132.           WRITE(USER_NHSTRY,*)
     
133.           IFAIL = 1
     
134.       END IF
     
135. C
     
136. C     GET CONGIGURED INTEGER VARIABLES FROM ASPEN PLUS
     
137. C
     
138.       IERR = USRUTL_GET_INT_PARAM('NTUBES',INDEX,NTUBES)
     
139.       IF (IERR .NE. 0) THEN
     
140.           WRITE(USER_NHSTRY,*)
     
141.           IFAIL = 1
     
142.       END IF
     
143. C
     
144. C     CALCULATE VISCOSITY
     
145. C
     
146.       CALL SHS_CPACK(MSIN(1,1),NCP,IDX,X,FLOW)
     
147.       KDIAG = 4
     
148.       CALL PPMON_VISCL(MSIN(NCOMP_NCC+2,1),MSIN(NCOMP_NCC+3,1),
     
149.      +                 IDX,NBOPST,KDIAG,MU,IERR)
     
150.       IF (IERR .NE. 0) THEN
     
151.           WRITE(USER_NHSTRY,*)
     
152.           IFAIL = 1
     
153.       END IF
     
154.       
     
155.       IF (IFAIL .EQ. 1) RETURN
     
156. C
     
157. C     GET LOCATION OF MOLECULAR WEIGHT DATA
     
158. C
     
159.       LMW = DMS_IFCMNC('MW')
     
160. C
     
161. C     MODEL EQUATIONS
     
162. C
     
163.       RHO = MSIN(NCOMP_NCC+8,1)/1000.
     
164.       
     
165.       MU = MU * 10.
     
166.       FIN = MSIN(NCOMP_NCC+1,1)
     
167.       CIN = MSIN(2,1) * B(LMW+2)/FIN*360000.
     
168.       PIN = MSIN(NCOMP_NCC+3,1)/101325.
     
169.       
     
170.       UAVE = FIN/(DIAM**2*3.14*NTUBES/4.)
     
171.       
     
172.       RE = DIAM*UAVE*RHO/MU
     
173.       SC = MU/(RHO*DIFF)
     
174.       CP = CG * (1-REJ_COEF)
     
175.       KM = C1*RE**C2 * SC**C3 * (DIAM/LEN)**C4 *DIFF/DIAM/100.
     
176.       JM = KM * DLOG(CG-CP)/(CIN-CP)
     
177.       FP = JM *DIAM*LEN*3.14*NTUBES*100*3600/1000.
     
178.       CR = (CIN -FP/FIN*CP)/(1-FP/FIN)
     
179.       PRET = PIN -DELTA_P
     
180. C
     
181. C     ASSUME PERMEATE STREAM IS FIRST,SWITCH IF NOT
     
182.       IPERM =1
     
183.       IRET =2
     
184.       IF (IDSMO(1,1) .EQ. 'RETE' ) THEN
     
185.           IPERM =2
     
186.           IRET =1
     
187.       END IF
     
188. C
     
189. C     FILL SOUT ARRAY FOR PERMEATE STREAM
     
190. C
     
191.       SOUT(1,IPERM) = FP * RHO /3600.
     
192.       SOUT(2,IPERM) = FP * CP /1000. / 3600. /B(LMW+2)
     
193.       SOUT(3,IPERM) =SOUT(1,IPERM)+SOUT(2,IPERM)
     
194.       SOUT(4,IPERM) = MSIN(4,1)
     
195.       SOUT(5,IPERM) = P_PERM * 101325.
     
196. C
     
197. C     FILL SOUT ARRAY FOR RETENTAT STREAM USING VALUES FORM PERMEATE STREAM
     
198. C
     
199.       SOUT(1,IRET) = MSIN(1,1) -SOUT(1,IPERM)
     
200.       SOUT(2,IRET) = MSIN(2,1) - SOUT(2,IPERM)
     
201.       SOUT(3,IRET) = SOUT(1,IRET) + SOUT(2,IRET)
     
202.       SOUT(4,IRET) = MSIN(4,1)
     
203.       SOUT(5,IRET) = PRET *101325.
     
204. C
     
205. C     NOW SET VALUES OF THE TWO VARIABLES DESIGNATED AS OUTPUT PARAMETERS
     
206. C
     
207.       IERR = USRUTL_SET_REAL_PARAM('CP_PROT',INDEX,CP)
     
208.       
     
209.       IF (IERR .NE. 0) THEN
     
210.           WRITE(USER_NHSTRY,*)
     
211.           IFAIL = 1
     
212.       END IF
     
213.       
     
214.       IERR = USRUTL_SET_REAL_PARAM('CR_PROT',INDEX,CR)
     
215.       
     
216.       IF (IERR .NE. 0) THEN
     
217.           WRITE(USER_NHSTRY,*)
     
218.           IFAIL = 1
     
219.       END IF
     
220.       
     
221.       RETURN
     
222.       END
     

复制代码

fengzheng

补充：
系统环境为Aspen 7.3、 Intel Fortran 2013 、Visual Studio 2010 系统win7 64位 旗舰版

fengzheng

不知道是不是一开始就一堆英文把人都吓走了。。。

1040534752

问下楼上fortran是怎么学的呢，整个内容自己写，还是有模板呢

fengzheng

1040534752 发表于 2014-5-22 08:39
问下楼上fortran是怎么学的呢，整个内容自己写，还是有模板呢

Fortran学习可以参考Fortran 编程指南；
上面的代码是官方文档里面就有的，我只是敲出来验证一下。

大海航行L

我也有此问题，是不是fortran软件的问题

fengzheng

问题已经解决，贴出来方便大家吧。

出现上面错误提示的主要原因应该是编译时找不到相关的Fortran编译文件，所以可以:
先打开Fortran自带的命令行（我用的是ia32这一个），
再在命令行里打开Aspen simulation engine对于的bat文件（可以在属性里找到它的位置，对于的脚本为aspsetup.bat），
这样就进入了Aspen simulation engine的环境了，接着用aspcomp.bat来对要编译的Fortran文件进行编译。

fengzheng

感谢老师的帮助，要不然这个问题就没法解决了

848380668

fengzheng 发表于 2014-5-30 20:06
问题已经解决，贴出来方便大家吧。

出现上面错误提示的主要原因应该是编译时找不到相关的Fortran编译文 ...

请问你说的Fortran自带命令行指的是什么？我是初学者，遇到和你一样的问题，求解答

dada0926

请问我在做AspenPlusCustomizingV732-Start.pdf-2 customizing the Excel/Aspen Plus Interface部分，出现以下问题，在将f文件转换成obj文件时，aspcomp Mem2时出现错误，跟这个帖子http://meng.horse/thread-41150-1-1.html是一样的错误，请问你知道为什么吗？

小羊

大家好，我是初学者，还不太懂怎么把Fortran和Aspen联系到一起来，我也在看这个帮助文档，我想请问一下HFUM是什么意思啊？是一个程序吗？

小羊

楼主你好，我在做Aspen链接的时候也遇到了这个问题，请问您是怎么解决的呢？

2446867118

dada0926 发表于 2015-5-22 20:42
请问我在做AspenPlusCustomizingV732-Start.pdf-2 customizing the Excel/Aspen Plus Interface部分，出现 ...

我也遇到了这个问题，请问你解决了吗，求分享{:1106_361:}

dada0926

2446867118 发表于 2016-7-22 09:40
我也遇到了这个问题，请问你解决了吗，求分享

已结解决

watermelon

dada0926 发表于 2015-5-22 20:42
请问我在做AspenPlusCustomizingV732-Start.pdf-2 customizing the Excel/Aspen Plus Interface部分，出现 ...

请问你解决了吗？求分享

18562317750

fengzheng 发表于 2014-5-30 20:06
问题已经解决，贴出来方便大家吧。

出现上面错误提示的主要原因应该是编译时找不到相关的Fortran编译文 ...

大神能不能说的详细一点

wendyKing

fengzheng 发表于 2014-5-21 22:31
不知道是不是一开始就一堆英文把人都吓走了。。。

请问楼主怎么解决的呀，可以交流一下吗

wendyKing

fengzheng 发表于 2014-5-21 21:34
补充：
系统环境为Aspen 7.3、 Intel Fortran 2013 、Visual Studio 2010 系统win7 64位 旗舰版

可以邮件或者微信交流一下吗，slinw@outlook.com

wendyKing

fengzheng 发表于 2014-5-21 21:34
补充：
系统环境为Aspen 7.3、 Intel Fortran 2013 、Visual Studio 2010 系统win7 64位 旗舰版

可以邮件或者微信交流一下吗，slinw@outlook.com