24小时热门版块排行榜    

查看: 1285  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿985,本科211,0817化学工程与技术319求调剂 +4 Liwangman 2026-03-15 4/200 2026-03-16 08:01 by wang_dand
[考研] 梁成伟老师课题组欢迎你的加入 +6 一鸭鸭哟 2026-03-14 7/350 2026-03-15 22:12 by Winj1e
[考研] 268求调剂 +5 一定有学上- 2026-03-14 6/300 2026-03-14 22:20 by 运气yunqi
[考研] 297一志愿上交085600求调剂 +5 指尖八千里 2026-03-14 5/250 2026-03-14 17:26 by a不易
[考研] 复试调剂 +3 呼呼?~+123456 2026-03-14 3/150 2026-03-14 16:53 by WTUChen
[考研] 328求调剂 +3 5201314Lsy! 2026-03-13 6/300 2026-03-14 15:31 by hyswxzs
[考研] 267一志愿南京工业大学0817化工求调剂 +5 SUICHILD 2026-03-12 5/250 2026-03-14 14:53 by jean5056
[考研] 材料与化工 一志愿山大 321分 求调剂 +7 每天散步 2026-03-09 8/400 2026-03-14 02:18 by JourneyLucky
[考研] 0856材料与化工309分求调剂 +6 ZyZy…… 2026-03-10 6/300 2026-03-14 00:38 by JourneyLucky
[考研] 材料工程专硕,一志愿中国矿业大学,总分314,求调剂 +5 无懈可击的巨人 2026-03-10 5/250 2026-03-14 00:37 by JourneyLucky
[考研] 279求调剂 +3 抓着星星的女孩 2026-03-10 3/150 2026-03-13 23:47 by userper
[考研] 336求调剂 +6 Iuruoh 2026-03-11 6/300 2026-03-13 22:06 by JourneyLucky
[考研] 材料工程调剂 +9 咪咪空空 2026-03-12 9/450 2026-03-13 22:05 by 星空星月
[考研] 0856材料与化工301求调剂 +5 奕束光 2026-03-13 5/250 2026-03-13 22:00 by 星空星月
[考研] (081700)化学工程与技术-298分求调剂 +12 11啦啦啦 2026-03-11 35/1750 2026-03-13 21:25 by JourneyLucky
[考研] 315求调剂 +9 小羊小羊_ 2026-03-11 10/500 2026-03-13 21:13 by SXNU李老师
[考研] 求调剂 +5 一定有学上- 2026-03-12 5/250 2026-03-13 18:31 by ms629
[考研] 求b区学校调剂 +3 周56 2026-03-11 3/150 2026-03-13 16:20 by JourneyLucky
[考研] 0703一志愿211 285分求调剂 +4 ly3471z 2026-03-13 4/200 2026-03-13 13:00 by JourneyLucky
[考研] 420求调剂 +4 莫向外求11 2026-03-10 6/300 2026-03-12 14:41 by ruiyingmiao
信息提示
请填处理意见