Fortran subroutine help!
Thread Content
C RETRIVE MOLECULAR WEIGHT OF EACH COMPONENT (KG/KMOL) LMW = DMS_IFCMNC('MW') DO I = 1,NCOMP_NCC LMWI = LMW+I XMW(I) = B(LMWI) END DO This line of code is to obtain the molar mass of all components, DMS_The explanation of IFCMN is to determine the offset for component data areas in the labeled common DMS_PLEX, from the public domain DMS_PLEX gets MW (molar mass) ； NCOMP_NCC is the number of all components, and B is the real PLEX storage space. But I don’t understand how this cycle retrieves the molecular weight of each component.
RETRIEVE TEMPERATURE(K), PRESSURE(ATM), MOLE FLOWS OF COMPONENTS (KMOL/S). T = SOUT(IDXSUB(1)-1+NCOMP_NCC+2) PT = RPROPS_UPRES / PAMBI #IDXSUB 1=MIXED 2=CISOLID 3=NC NO2 = SOUT(IDXSUB(1)-1+1) NCO = SOUT(IDXSUB(1)-1+2) NH2 = SOUT(IDXSUB(1)-1+3) NCO2 = SOUT(IDXSUB(1)-1+4) NH2O = SOUT(IDXSUB(1)-1+5) NCH4 = SOUT(IDXSUB(1)-1+6) NN2 = SOUT(IDXSUB(1)-1+7) NH2S = SOUT(IDXSUB(1)-1+8) NC6H6 = SOUT(IDXSUB(1)-1+9) NCARB = SOUT(IDXSUB(2)-1+10) NSULF = SOUT(IDXSUB(2)-1+11) NTOTG = NO2+NCO+NH2+NCO2+NH2O+NCH4+NN2+NH2S+NC6H6 #SOUT The position of the logistics vector subflow in the flow vector NCOMP_NCC+2 represents the temperature SOUT export logistics array NCOMP_NCC (number of conventional ingredients) #IDXSUB 1=MIXED 2=CISOLID 3=NC ? ? ? ? ? SOUT(IDXSUB(1)-1 What does this string of characters mean? Please help me understand
DMS_The IFCMNC function should get the first address of 'MW', then the address + 1, and then get the content through the B function. In addition, the original poster DMS_Where is the explanation of IFCMNC? Can you share the information?
The IDXSUB() function should return the address, IDXSUB(1) returns the first address of the MIXED logistics property, IDXSUB(2) returns the first address of the CISOLID logistics property, and so on. After having the first address, the SOUT function can obtain the relevant physical properties (temperature and pressure composition, etc.) one by one based on the address.
Sorry, I just saw your valuable reply. Yes, my email is vvddch@163.com
15925614309@163.com , you can send it to my email address, thank you!
IDXSUB() is a calling function, but the code given by the poster is a bit strange. It uses #IDXSUB 1 = MIXED 2 = CIOLID 3 = NC. After looking at its component list, it should be that it defines solid particulate carbon and sulfur in the gas phase exhaust gas. Is this related to the number of components?
Please give me a lesson, sir* Tutorial or guide for aspen fortran subroutines
RATES(NCOMP_NCC * 2-1) = -RCARO2 * 1.0D0 - RCARH2O * 1.0D0 + RCARCO2 * 1.0D0-RCARH2 * 1.0D0 RATES(NCOMP_NCC * 2) = 0.0D0 #It is currently known that these two codes mean to obtain the reaction rate of the components REATS (x). The content of the brackets is related to the order of the components defined by aspen, NCOMP_NCC represents the number of conventional components, then NCOMP_NCC * 2-1 Why does it represent the first component in the CISOLID sub-stream?