aspen fortran代码求教

fangxinhui

#include "dms_plex.cmn"
Real*8 B(1)
Equivalence (B(1),IB(1))

aspen用户模型中经常出现这句代码，请问各位高手这是什么意思呢？官方介绍说 Dms_plex.cmn passes
arrays containing component data such as molecular weight.可是还是不懂Equivalence 在这有什么作用。