求助各位：

yyily-100 · 发表于 2009-3-1 19:28

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？我要加入

x

请问各位高手：我想先把一组数据x(i)和y(i)读入,然后数组y(i)中序号大于95的数据提出来赋给yy（i）用了这样的语句：
do i=1,1200,1
read(2,*) x(i),y(i)
if(i.ge.95) then yy(i)=y（i）
enddo
在运行的时候它总是显示错误，请问各位到底是怎么回事啊？

欧阳中华 · 发表于 2009-3-1 20:43

.
写出来的这段没有看出问题，但这段程序不完整，没有说明部分，加上说明部分也许才能看出有什么问题...

yyily-100 · 发表于 2009-3-2 09:51

原来就是把 then 去掉就可以了，呵呵……

账号		自动登录	找回密码
密码			我要加入

[Fortran] 求助各位：

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

问题解决了！

评分