- 积分
- 25
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-4-27
- 最后登录
- 1970-1-1
![未绑定新浪微博用户 新浪微博达人勋](source/plugin/sina_login/img/gray.png)
|
![](static/image/common//ico_lz.png)
楼主 |
发表于 2012-5-7 13:39:00
|
显示全部楼层
随缘 发表于 2012-5-7 13:29
你这信息神也没法回答
--------------------Configuration: 123 - Win32 Debug--------------------
Compiling Fortran...
D:\Program Files\Microsoft Visual Studio\Common\MSDev98\My Projects\123.f90
D:\Program Files\Microsoft Visual Studio\Common\MSDev98\My Projects\123.f90(1) : Error: Syntax error, found END-OF-FILE when expecting one of: <LABEL> <END-OF-STATEMENT> ; BLOCK BLOCKDATA PROGRAM TYPE COMPLEX BYTE CHARACTER ...
-^
Error executing df.exe.
123.exe - 1 error(s), 0 warning(s)
这就是编译程序代码窗口下面的错误提示,你给我看看嘛。下面是我写的程序
INTEGER I,J
DIMENSION AA(10000,100),BB(10000),CC(10000)
REAL AA,BB,CC,N=1.00
OPEN(1,FILE='D:\12.txt')
OPEN(2,FILE='D:\FILEOUT')
READ(1,*)(((AA(I,J)I=1,10000)J=1,100))
do I=1,10000
do J=1,100
IF(I.GT.82.AND.I.LT.656.and.J.ge.1)THEN
AA=AA(I,J)+50000
WRITE(BB,*)
else(I.GT.82.AND.I.LT.656.and.J.ge.4)then
WRITE(CC,*)
END IF
end do
END DO
CLOSE(1)
read(BB,*)
read(CC,*)
write(2,40)
CLOSE(2)
40 FORMAT(1X,3(F14.5,F8.4,N))
END |
|