| 查看: 1937 | 回复: 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了，  |
回复此楼» 猜你喜欢
071000生物学调剂
已经有3人回复
-
085600材料与化工301分求调剂院校
已经有5人回复
-
081700，311，求调剂
已经有15人回复
-
一志愿北京化工085600 310分求调剂
已经有18人回复
-
材料与化工371求调剂
已经有14人回复
-
336材料与化工085600求调剂
已经有7人回复
-
材料334求调剂
已经有18人回复
-
331求调剂
已经有8人回复
-
332求调剂
已经有17人回复
-
一志愿南京航空航天大学 材料与化工329分求调剂
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求助计算机高人，编写个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
