24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1301  |  回复: 4

whf199022

新虫 (初入文坛)

[求助] 菜鸟求助fortran数组声明及子程序的一些问题啊

用fortran编程时出现这样的问题,求助啊
CALL INITI(NX,NY,DX,DY,X0,XE,X,Y,P,POLD)
SUBROUTINE INITI(NX,NY,DX,DY,X0,XE,X,Y,P,POLD)                                          !子程序INITI给定节点初始坐标和初始(赫兹)压力
DIMENSION X(0:NX),Y(0:NY),P(0:NX,0:NY),POLD(0:NX,0:NY)
DX=(XE-X0)/NX
Y0=-0.5*(XE-X0)
DY=(XE-X0)/NY
DO I=0,NX
X(I)=X0+(I-1)*DX       
END DO
DO J=0,NY
Y(J)=Y0+(J-1)*DY
END DO
DO I=0,NX
D=1.-X(I)*X(I)
DO J=0,NY/2
C=D-Y(J)*Y(J)
IF(C.LE.0.0)P(I,J)=0.0
IF(C.GT.0.0)P(I,J)=SQRT(C)
END DO
END DO
DO I=0,NX
DO J=(NY/2+1),NY
JJ=NY-J
P(I,J)=P(I,JJ)
END DO
END DO
DO I=0,NX
DO J=0,NY
POLD(I,J)=P(I,J)
ENDDO
ENDDO
RETURN
END
这个是出错程序
下面是出错的问题
E:\DIANJIECHU\DIANJIECHU.F90(75) : Error: A specification statement cannot appear in the executable section.
SUBROUTINE INITI(NX,NY,DX,DY,X0,XE,X,Y,P,POLD)                                          !子程序INITI给定节点初始坐标和初始(赫兹)压力
^
E:\DIANJIECHU\DIANJIECHU.F90(76) : Error: A specification statement cannot appear in the executable section.
DIMENSION X(0:NX),Y(0:NY),P(0:NX,0:NY),POLD(0:NX,0:NY)
^
E:\DIANJIECHU\DIANJIECHU.F90(81) : Error: This name has not been declared as an array.   [X]
X(I)=X0+(I-1)*DX
^
E:\DIANJIECHU\DIANJIECHU.F90(84) : Error: This name has not been declared as an array.   [Y]
Y(J)=Y0+(J-1)*DY
^
E:\DIANJIECHU\DIANJIECHU.F90(90) : Error: This name has not been declared as an array.   [P]
IF(C.LE.0.0)P(I,J)=0.0
------------^
E:\DIANJIECHU\DIANJIECHU.F90(91) : Error: This name has not been declared as an array.   [P]
IF(C.GT.0.0)P(I,J)=SQRT(C)
------------^
E:\DIANJIECHU\DIANJIECHU.F90(97) : Error: This name has not been declared as an array.   [P]
P(I,J)=P(I,JJ)
^
E:\DIANJIECHU\DIANJIECHU.F90(102) : Error: This name has not been declared as an array.   [POLD]
POLD(I,J)=P(I,J)
^
E:\DIANJIECHU\DIANJIECHU.F90(105) : Error: A RETURN statement is invalid in the main program.
RETURN
^
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

相信自己,相信未来
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

btx97

金虫 (小有名气)

找本书好好看看基本概念吧。
2楼2014-03-24 15:58:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

whf199022

新虫 (初入文坛)

引用回帖:
2楼: Originally posted by btx97 at 2014-03-24 15:58:20
找本书好好看看基本概念吧。

是边看书边编的程序,因为参考了别人编的程序,在别人程序里这个是没问题的,这只是程序的一小部分,我在想是不是我主程序的声明有问题啊
相信自己,相信未来
3楼2014-03-24 16:28:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

whf199022

新虫 (初入文坛)

引用回帖:
2楼: Originally posted by btx97 at 2014-03-24 15:58:20
找本书好好看看基本概念吧。

是边看书边编的程序,因为参考了别人编的程序,在别人程序里这个是没问题的,这只是程序的一小部分,我在想是不是我主程序的声明有问题啊
相信自己,相信未来
4楼2014-03-24 16:31:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

whf199022

新虫 (初入文坛)

已解决,原来是自己主程序声明全局变量的时候加了个end
相信自己,相信未来
5楼2014-03-24 17:02:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 whf199022 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 08600生物与医药-327 +8 18755400796 2026-04-05 8/400 2026-04-06 11:59 by lijunpoly
[考研] 285求调剂 +4 AZMK 2026-04-05 6/300 2026-04-06 11:41 by cql1109
[考研] 297分083200求助 +8 aekx 2026-04-05 8/400 2026-04-06 10:35 by imissbao
[考研] 调剂 一志愿吉林大学357分 +5 .Starry. 2026-04-04 5/250 2026-04-06 09:28 by cql1109
[考研] 生物与医药调剂 +4 十七sa 2026-04-05 4/200 2026-04-05 20:05 by lys0704
[考研] 本科211,293分请求调剂 +8 莲菜就是藕吧 2026-04-03 9/450 2026-04-05 19:12 by 蓝云思雨
[考研] 材料调剂 +9 革微桂 2026-04-04 9/450 2026-04-05 08:27 by 544594351
[考研] 材料与化工306分找调剂 +12 沧海轻舟e 2026-04-03 13/650 2026-04-04 23:45 by lqwchd
[考研] 调剂 +11 JLLLLLLLLLL 2026-04-03 11/550 2026-04-04 22:21 by hemengdong
[考研] 342求调剂 +3 Liang7111 2026-04-04 5/250 2026-04-04 19:47 by dongzh2009
[考研] 材料调剂 +11 吴棂颖! 2026-04-03 11/550 2026-04-04 09:56 by 小小树2024
[考研] 五邑大学土木工程招调剂生2026 +3 wyutj 2026-03-31 4/200 2026-04-03 18:21 by zengxj_7201
[考研] 326分求调剂 +3 于是乎呢 2026-04-01 5/250 2026-04-03 14:23 by 于是乎呢
[考研] 11408,284分,二战真诚求调剂 +4 12.27 2026-04-02 4/200 2026-04-03 14:14 by dxiaoxin
[考研] 求调剂 +3 usbdndj 2026-04-03 3/150 2026-04-03 14:10 by dxiaoxin
[考研] 315求调剂 +6 顺理成张 2026-04-03 8/400 2026-04-03 14:04 by 百灵童888
[考研] 350求调剂 +7 阿佳~ 2026-03-31 7/350 2026-04-01 16:12 by yanflower7133
[考研] 一志愿 南京航空航天大学 ,080500材料科学与工程学硕 +10 @taotao 2026-03-31 11/550 2026-04-01 09:43 by xiayizhi
[考研] 080500-315分复试调剂 +9 上岸3821 2026-03-31 9/450 2026-03-31 17:29 by 唐沐儿
[考研] 313求调剂 +6 卖个关子吧 2026-03-31 6/300 2026-03-31 10:58 by Jaylen.
信息提示
请填处理意见