| 查看: 1212 | 回复: 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 ^ |
回复此楼» 猜你喜欢
上海工程技术大学张培磊教授团队招收博士生
已经有3人回复
-
上海工程技术大学【激光智能制造】课题组招收硕士
已经有5人回复
-
求助院士们，这个如何合成呀
已经有4人回复
-
临港实验室与上科大联培博士招生1名
已经有9人回复
-
想换工作。大多数高校都是 评职称时 认可5年内在原单位取得的成果吗？
已经有7人回复
-
需要合成515-64-0，50g，能接单的留言
已经有4人回复
-
自荐读博
已经有4人回复
-
写了一篇“相变储能技术在冷库中应用”的论文，论文内容以实验为主，投什么期刊合适？
已经有6人回复
-
带资进组求博导收留
已经有10人回复
-
最近几年招的学生写论文不引自己组发的文章
已经有11人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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