我正在尝试使用已经存在的common
块编写一个子程序。而且我不明白他们如何使用指针功能。
有这样一段:
parameter (ncvarmx=101)
pointer (pfmxarcval,fmxarcval(ncvarmx,*))! max/min values for current postvalue and body
! min for this inc and ibody
! max for this inc and ibody
! min from begin to this inc and ibody
! max from begin to this inc and ibody
common/marc_archp/parcelcd,parcellbl,parcndcd,parcndlbl,pfmxarcval
real*8 fmxarcval
我基本上需要来自fmxarcval
. 我假设其中有 3 个,尽管它不是向量。
我怎样才能使用这样的指针?