Fortran 77 dynamic memory allocation 1 - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>Computation - 科学计算

Fortran 77 dynamic memory allocation 1

Fortran 77 dynamic memory allocation 1# Computation - 科学计算

y*r2003-07-04 07:07

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*r2003-07-04 07:07

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*s2003-07-04 07:07

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*r2003-07-04 07:07

4 楼

一般的Fortran 77编译器可以编译，g77不行。
是弄了lahey

【在 a******s 的大作中提到】

: 这个不是普通的fortran 77吧？现在手头没有manual，问一下。
: 你是不是前几天弄了一下lahey? :)