1

我正在尝试使用已经存在的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 个，尽管它不是向量。

我怎样才能使用这样的指针？

4

0 回答 0