| 查看: 1174 | 回复: 4 | ||
[求助]
菜鸟求助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 ^ |
回复此楼» 猜你喜欢
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有7人回复
-
到新单位后，换了新的研究方向，没有团队，持续积累2区以上论文，能申请到面上吗
已经有8人回复
-
申请2026年博士
已经有6人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有5人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有5人回复
-
2025冷门绝学什么时候出结果
已经有7人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有6人回复
-
Bioresource Technology期刊，第一次返修的时候被退回好几次了
已经有7人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
fortran程序在SSH计算中心上运行的问题！
已经有13人回复- fortran中的数组越界问题，
已经有3人回复
- 关于fortran子程序调用内部函数
已经有7人回复
- fortran里一个子程序不运行是怎么回事
已经有13人回复
- fortran中运行中出现无穷大的数怎么处理
已经有9人回复
- fortran数组输出，行与列请教
已经有7人回复
- Fortran 声明变量
已经有5人回复
- 想问一下影响fortran计算速度的因素都有哪些？
已经有12人回复
- 求助：关于fortran建数组问题，谢谢！
已经有4人回复
- Fortran中数组的使用
已经有4人回复
- FORTRAN新手 求助主程序循环问题
已经有10人回复
- intel fortran局部变量自动更新
已经有19人回复
- 请教一个fortran小程序编译出错的问题，谢谢
已经有9人回复
- Fortran中关于数组的变化
已经有5人回复
- 【求助】用fortran怎么描述下面这样的情况，我是新手，请大家帮忙
已经有8人回复
- 【求助】求指点，在Fortran里面，怎样实现“数组维度可调”的数组?
已经有5人回复
- 【求助】fortran中怎么存储不确定长度的数据【已完结】
已经有6人回复
- 【求助】win7 的 用什么fortran 编译器啊？【已完成】
已经有14人回复
- 【交流】Fortran语言答疑专帖
已经有157人回复
2楼2014-03-24 15:58:20
3楼2014-03-24 16:28:33
4楼2014-03-24 16:31:48
5楼2014-03-24 17:02:48