24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 754  |  回复: 11
当前主题已经存档。

老虎大王

木虫 (著名写手)


下雪的古堡(金币+1,VIP+0):恩,这样啊,这样数组xyz就解决了,谢谢了 5-14 15:39
那,Npart又是多少呢?
你可以定义如下
dimension x(1:npart), y(1:npart),z(1:npart)

但是这样做的前提是,npart必须是常量而不是变量,也就是说,在这之前,你必须有
Parameter(npart=1000)  之类的语句(假设npart=1000)
或者,如果是在子程序中,也可以在参数列表里把NPART传过来。总之,你在定义数组的时候,数组的大小必须是已知常量。要不就用动态数组。

好了,请你现在去把X, y, Z数组定义了,不管是出现在子程序,再是主程序,都要定义。然后这个程序就差不多了。

[ Last edited by 老虎大王 on 2009-5-14 at 10:43 ]
11楼2009-05-14 10:40:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

老虎大王

木虫 (著名写手)

★ ★ ★ ★ ★
下雪的古堡(金币+1,VIP+0):呵呵,好的,我是刚学程序,程序包也是别人的,谢谢给我指出这些问题,我再好好看看,真是麻烦你了。还有别叫我老兄啊!多不好意思啊 5-14 15:42
woshilsh(金币+4,VIP+0):常来哈!这版因为兄弟,增色不少哈 5-16 15:54
老兄,我把X,y,z数组定义了,却发现你的问题竟然还在。很多问题我无法理解。

比如子程序judge (在文件Judge.f中):
double precision volxx,x(i),y(i),z(i),volxm
为什么要这样写? 而且程序中的xc,yc,zc数组也没有定义。

另外,比如eneri中有这样的语句:
        call judge(sign,npart,volx)
但是到了子程序Judge中,却是这样:
               subroutine Judge(sign,npart,volxx,volxm,npart1,npart2,volxc)
为什么要这样写?实参个数与虚参差这么多?这样虽然语法允许,但是子程序中没有对npart1,npart2,volxc等变量设置任何初值,就直接使用了。

诸如此类的问题,数组不定义,实虚参数个数不一致,变量不赋初值,也不从主程序中传过来,就直接使用等等,这些问题在你的程序中很多处出现。我晕很晕。   

你可否先把这些问题弄一下,改一改,然后我们再一步步来?

[ Last edited by 老虎大王 on 2009-5-14 at 15:17 ]
12楼2009-05-14 15:13:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 下雪的古堡 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 086000生物与医药调剂 +3 Feisty。 2026-03-28 7/350 2026-03-29 00:41 by 544594351
[考研] 316求调剂 +7 江辞666 2026-03-26 7/350 2026-03-28 21:28 by sanrepian
[考研] 332求调剂 +4 @MZB382400 2026-03-28 4/200 2026-03-28 21:02 by 唐沐儿
[考研] 085602 化工专硕 338分 求调剂 +12 路痴小琪 2026-03-27 12/600 2026-03-28 15:41 by L135790
[考研] 求化学调剂 +4 wulanna 2026-03-28 4/200 2026-03-28 13:37 by 唐沐儿
[考研] 266分,求材料冶金能源化工等调剂 +7 哇呼哼呼哼 2026-03-27 9/450 2026-03-28 12:22 by zllcz
[考研] 283求调剂 +7 A child 2026-03-28 7/350 2026-03-28 12:05 by zllcz
[考研] 调剂 +3 好好读书。 2026-03-28 3/150 2026-03-28 12:04 by 王保杰33
[考研] 291求调剂 +6 HanBeiNingZC 2026-03-24 6/300 2026-03-28 07:55 by baoball
[考研] 一志愿上海理工能源动力(085800)310分求调剂 +3 zhangmingc 2026-03-27 4/200 2026-03-27 19:01 by 给你你注意休息
[考研] 08开头275求调剂 +4 拉谁不重要 2026-03-26 4/200 2026-03-27 14:12 by Delta2012
[考研] 276求调剂。有半年电池和半年高分子实习经历 +10 材料学257求调剂 2026-03-23 11/550 2026-03-27 10:13 by YCIT- LHL
[考研] 359求调剂 +4 王了个楠 2026-03-25 4/200 2026-03-27 08:43 by 不吃魚的貓
[考研] 303求调剂 +6 蓝山月 2026-03-25 6/300 2026-03-25 22:47 by 418490947
[考研] 332求调剂 +6 032500 2026-03-25 6/300 2026-03-25 22:45 by 418490947
[考研] 考研一志愿苏州大学初始315(英一)求调剂 +3 sbdksD 2026-03-24 4/200 2026-03-25 18:16 by xcjcqu
[考研] 生物技术与工程 +3 1294608413 2026-03-25 4/200 2026-03-25 18:02 by 1294608413
[考研] 材料专硕331求调剂 +4 鲜当牛 2026-03-24 4/200 2026-03-24 15:58 by JourneyLucky
[考研] 接收2026硕士调剂(学硕+专硕) +4 allen-yin 2026-03-23 6/300 2026-03-23 15:04 by 汪!?!
[考研] 280分求调剂 一志愿085802 +4 PUMPT 2026-03-22 7/350 2026-03-22 22:13 by 星空星月
信息提示
请填处理意见