I V F中Cray pointer 怎么用

yllf

I V F中Cray pointer 怎么用，或者怎么改成可执行的？

fcode

也许以下帮助文档里的内容可以给你启发：

Consider the following:

[Fortran] 查看源码 复制源码

pointer (pb, b)
pb = getstorage()
do i = 1, n
  b(i) = a(i) + 1
enddo

By default, the compiler assumes that b and a are aliased. To prevent such an assumption, specify the -safe-cray-ptr (Linux* OS and OS X*) or /Qsafe-cray-ptr (Windows* OS) option, and the compiler will treat b(i) and a(i) as independent of each other.

However, if the variables are intended to be aliased with Cray pointers, using the option produces incorrect results. In the following example, you should not use the option:

[Fortran] 查看源码 复制源码

pointer (pb, b)
pb = loc(a(2))
do i=1, n
  b(i) = a(i) +1
enddo