| 查看: 1695 | 回复: 11 | |||
[交流]
【求助】求助个Fortran计算，应该不难，半天搞不定，请高手帮忙已有5人参与
|
|
问题描述：求一个400*400方阵各个点之间的距离 PROGRAM TEST INTEGER rmax,cmax,xmax,ymax REAL x(160000),y(160000),r(25600000000) rmax=400 cmax=400 xmax=rmax*cmax ymax=xmax d=2 DO j=1,rmax DO i=1,cmax x(n)=(i-1)*d y(n)=(j-1)*d n=n+1 ENDDO ENDDO DO i=1,ymax DO j=1,xmax IF (i.NE.j)THEN r(l)=SQRT((y(j)-y(i))**2+(x(j)-x(i))**2) l=l+1 ENDIF ENDDO ENDDO END 数组定义过大溢出，有什么办法吗？ 好久没用Fortran了，  |
回复此楼» 猜你喜欢
三甲基碘化亚砜的氧化反应
已经有4人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有5人回复
-
孩子确诊有中度注意力缺陷
已经有12人回复
-
2025冷门绝学什么时候出结果
已经有3人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
-
AI论文写作工具：是科研加速器还是学术作弊器？
已经有3人回复
-
论文投稿，期刊推荐
已经有4人回复
-
硕士和导师闹得不愉快
已经有13人回复
» 本主题相关价值贴推荐，对您同样有帮助:
求助计算机高人，编写个Fortran程序
已经有13人回复- 【求助】Fortran语言赋值问题？
已经有3人回复
- 【求助】如何写FORTRAN程序实现求平均最近邻距离
已经有34人回复
- 【求助】CASTEP计算出错，运行失败，请高手帮忙。
已经有11人回复
- 【求助】用fortran怎么描述下面这样的情况，我是新手，请大家帮忙
已经有8人回复
- 【求助】有关fortran进行数值模拟
已经有10人回复
- 【求助】fortran计算时出现NaN
已经有11人回复
老虎大王
木虫 (著名写手)
- 应助: 26 (小学生)
- 贵宾: 0.17
- 金币: 4774.1
- 散金: 8
- 红花: 42
- 帖子: 1361
- 在线: 215.2小时
- 虫号: 659094
- 注册: 2008-11-21
- 专业: 金属结构材料
2楼2010-04-22 21:11:58
3楼2010-04-22 21:19:20
4楼2010-04-22 22:23:23
5楼2010-04-22 22:55:32
tjyl
金虫 (正式写手)
- 程序强帖: 2
- 应助: 0 (幼儿园)
- 金币: 3218.1
- 红花: 2
- 帖子: 576
- 在线: 156.6小时
- 虫号: 765184
- 注册: 2009-05-07
- 专业: 生物无机化学
- 管辖: 程序语言
6楼2010-04-23 08:30:07
hakekill
木虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1709.3
- 帖子: 131
- 在线: 19小时
- 虫号: 246017
- 注册: 2006-04-29
- 性别: GG
- 专业: 水环境与生态水利
7楼2010-04-23 08:46:41
8楼2010-04-23 09:13:52
老虎大王
木虫 (著名写手)
- 应助: 26 (小学生)
- 贵宾: 0.17
- 金币: 4774.1
- 散金: 8
- 红花: 42
- 帖子: 1361
- 在线: 215.2小时
- 虫号: 659094
- 注册: 2008-11-21
- 专业: 金属结构材料
9楼2010-04-23 11:16:24
holmescn
金虫 (正式写手)
- 程序强帖: 37
- 应助: 1 (幼儿园)
- 金币: 1918.8
- 散金: 275
- 红花: 1
- 帖子: 699
- 在线: 102.6小时
- 虫号: 913482
- 注册: 2009-11-26
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
10楼2010-04-23 13:02:48