y***r
发帖数: 1845 | 1 这个是使用cray pointer的方法，很简单啊。
INTEGER*8 MALLOC
EXTERNAL MALLOC
INTEGER WORK(10)
POINTER (P, WORK)
C
READ(*,*) N
P = MALLOC(N*4)
DO I=1,N
WORK(I) = I
ENDDO
C
CALL FREE(P)
END | y***r
发帖数: 1845 | 2 g77是不支持cray pointer的.
【在 y***r 的大作中提到】
: 这个是使用cray pointer的方法，很简单啊。
: INTEGER*8 MALLOC
: EXTERNAL MALLOC
: INTEGER WORK(10)
: POINTER (P, WORK)
: C
: READ(*,*) N
: P = MALLOC(N*4)
: DO I=1,N
: WORK(I) = I
| a******s
发帖数: 232 | 3 这个不是普通的fortran 77吧？现在手头没有manual，问一下。
你是不是前几天弄了一下lahey? :)
【在 y***r 的大作中提到】
: 这个是使用cray pointer的方法，很简单啊。
: INTEGER*8 MALLOC
: EXTERNAL MALLOC
: INTEGER WORK(10)
: POINTER (P, WORK)
: C
: READ(*,*) N
: P = MALLOC(N*4)
: DO I=1,N
: WORK(I) = I
| y***r
发帖数: 1845 | 4 一般的Fortran 77编译器可以编译，g77不行。
是弄了lahey
【在 a******s 的大作中提到】
: 这个不是普通的fortran 77吧？现在手头没有manual，问一下。
: 你是不是前几天弄了一下lahey? :)
|
|
