摩托车加什么汽油机器用汽油清洗好吗

来源：蜘蛛抓取(WebSpider) 时间：2017-12-25 20:05 标签： 摩托车汽油过滤器
小木虫 --- 600万学术达人喜爱的学术科研平台
&&查看话题
菜鸟求助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
X(I)=X0+(I-1)*DX& & & &
Y(J)=Y0+(J-1)*DY
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)
DO J=(NY/2+1),NY
P(I,J)=P(I,JJ)
POLD(I,J)=P(I,J)
这个是出错程序
下面是出错的问题
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(I)=X0+(I-1)*DX
E:\DIANJIECHU\DIANJIECHU.F90(84) : Error: This name has not been declared as an array.& &
Y(J)=Y0+(J-1)*DY
E:\DIANJIECHU\DIANJIECHU.F90(90) : Error: This name has not been declared as an array.& &
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.& &
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(I,J)=P(I,JJ)
E:\DIANJIECHU\DIANJIECHU.F90(102) : Error: This name has not been declared as an array.& &
POLD(I,J)=P(I,J)
E:\DIANJIECHU\DIANJIECHU.F90(105) : Error: A RETURN statement is invalid in the main program.
是边看书边编的程序，因为参考了别人编的程序，在别人程序里这个是没问题的，这只是程序的一小部分，我在想是不是我主程序的声明有问题啊
是边看书边编的程序，因为参考了别人编的程序，在别人程序里这个是没问题的，这只是程序的一小部分，我在想是不是我主程序的声明有问题啊
北京学而思教育科技有限公司 地址：北京市海淀区北三环甲18号中鼎大厦A座1层102室 电话：010-

我要回帖

更多关于 摩托车汽油过滤器 的文章

 

随机推荐