我正在尝试使用现有的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个,虽然它不是矢量。
我如何使用这样的指针?