如何在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
相关阅读
今年圣诞庆祝节目: Kaggle文本分类比赛这里需要考虑避免C++ vector的复制吗？本版在线人数伪随机数能够产生智能吗？100伪币悬赏：CNN这个东西本质上处理不了形变帮国内朋友把涉赌App上传到apple store （求意见）visual studio community 版和 profession 版不能共存？乱棍打死老拳师求版上大神指点迷津如今CS是不是会这三样也就算得道了Re: oracle cloud这就裁员了？ (转载)最近工作和业余编程的一点感想说到政治，问个跟高级别的老印合作的事从数据压缩角度理解CNN请人做网站+app一个算法问题set operation in luaguvest老哥不好意思了Gcc出来的exe,被防病毒软件block了......我妈的ipad 9.7 无法输入指纹