如何在fortran中定义一个动态的数组？# Programming - 葵花宝典
f*w
1 楼
想在fortran中定义一个动态大小的数组，数组的大小从文件中读入，所以开始不知道。
我知道在C++中可以
int *p2i = new int[size];
//....
在fortran中怎么做？谢谢
我知道在C++中可以
int *p2i = new int[size];
//....
在fortran中怎么做？谢谢
O*e
2 楼
Dynamic allocation in heap memory using Fortran 90/95:
integer,dimension(:),allocatable::p2i
integer::size
integer::alloc_stat
read(some_file,some_format)size
allocate(p2i(1:size),stat=alloc_stat)
if(alloc_stat.ne.0)stop"error allocating p2i"
...
deallocate(p2i,stat=alloc_stat)
if(alloc_stat.ne.0)stop"error deallocating p2i"
If you want to call a subroutine to allocate p2i, return from that
subroutine, use p2i elsewhere, then call another subroutine to deallocate
p2i, you will need to declare p2
【在 f**********w 的大作中提到】
: 想在fortran中定义一个动态大小的数组，数组的大小从文件中读入，所以开始不知道。
: 我知道在C++中可以
: int *p2i = new int[size];
: //....
: 在fortran中怎么做？谢谢
integer,dimension(:),allocatable::p2i
integer::size
integer::alloc_stat
read(some_file,some_format)size
allocate(p2i(1:size),stat=alloc_stat)
if(alloc_stat.ne.0)stop"error allocating p2i"
...
deallocate(p2i,stat=alloc_stat)
if(alloc_stat.ne.0)stop"error deallocating p2i"
If you want to call a subroutine to allocate p2i, return from that
subroutine, use p2i elsewhere, then call another subroutine to deallocate
p2i, you will need to declare p2
【在 f**********w 的大作中提到】
: 想在fortran中定义一个动态大小的数组，数组的大小从文件中读入，所以开始不知道。
: 我知道在C++中可以
: int *p2i = new int[size];
: //....
: 在fortran中怎么做？谢谢
f*w
3 楼
Thank you. Although I still have a question,
what is the meaning of :: here?
I know it is scope operator in C++, does it have a similar meaning here?
Thanks.
what is the meaning of :: here?
I know it is scope operator in C++, does it have a similar meaning here?
Thanks.
O*e
4 楼
The :: is just the new syntax for declarations in Fortran 90/95/2003.
In F77 you would write
INTEGER X
DIMENSION X(1:N)
or more compactly
INTGETER X(1:N)
and in F90+ you would write
integer,dimension(1:n)::x
The :: separates the type and properties from the list of variables.
It does not have the same meaning as :: in C++.
You can probably even omit the :: (at least in some cases you can).
I have gotten into the habit of always writing the :: where possible.
【在 f**********w 的大作中提到】
: Thank you. Although I still have a question,
: what is the meaning of :: here?
: I know it is scope operator in C++, does it have a similar meaning here?
: Thanks.
In F77 you would write
INTEGER X
DIMENSION X(1:N)
or more compactly
INTGETER X(1:N)
and in F90+ you would write
integer,dimension(1:n)::x
The :: separates the type and properties from the list of variables.
It does not have the same meaning as :: in C++.
You can probably even omit the :: (at least in some cases you can).
I have gotten into the habit of always writing the :: where possible.
【在 f**********w 的大作中提到】
: Thank you. Although I still have a question,
: what is the meaning of :: here?
: I know it is scope operator in C++, does it have a similar meaning here?
: Thanks.
f*w
5 楼
thanks
相关阅读
面向数据的编程最好的语言是呼叫Wdong大牛How to exit Vim?等下午有空我写个机器人意识路线图[bssd] 广义相对论=>神经网络几何化?Game over了,兄弟们ｃｎｎ大牛们，这种特征如何提取呢？竟然已经学会了reactjs和angular js 2.[bssd]Formal structure of AI beings (2)[bssd] Formal structure of AI beings (1)求教：如何从dvd里面RIP出繁体字的字幕文件。 包子答谢[bssd]被领导训了一顿CNN 能对输入的image做patch normalization么？强人工智能实现的那一天就是大部分人开始死亡的那一天交什一税就行王垠造剑 (转载)CNN里面不用max pooling但是用更大的stride step我总结下吧[bssd]已经很现实了[bssd] Goog translate, Baidu translate test