Question

【急！】高手帮看看，我的一个fortran程序，不知道错在什么地方

c transed channel into energy

dimension energybook(0:2048,0:100)

dimension channelbook(0:2048,0:100)

dimension channeltoenergybook(0:2048,0:100)

open(1,file='Sheet1.dat')
open(2,file='Sheet2.dat')

open(3,file='Sheet3.dat',status='new')

read(1,*) energybook
read(2,*) channelbook
read(3,*) channeltoenergybook

do 10 j=1,100
do k=10,2038
do i=1,2048
!if (AND((energybook(i,j) .LE. channeltoenergybook(k,0)),(channeltoenergybook(k,0) .LE. energybook(i+1,j)))
IF ((energybook(i,j) .LE. channeltoenergybook(k,0)) .AND. (channeltoenergybook(k,0) .LE. energybook(i+1,j)))
THEN channeltoenergybook(k,j)=(( channeltoenergybook(i,0) - energybook(i,j))*channelbook(i,j)+ (energybook(i+1,j)-channeltoenergybook(k,0))*channelbook(i+1,j))
END IF
continue
continue
10 continue

write(3,200) ((channeltoenergybook(i,j),i=10,2038),j=1,100)

200 format(1x,40f6.2)

end
---------------------------------------------------------
---------------------------------------------------------
上面是程序，这个是错误提示：

Compiling Fortran...
F:\files\zhuanhuan.F
F:\files\zhuanhuan.F(26): error FOR3852: syntax error detected between ) and %
F:\files\zhuanhuan.F(27): error FOR3852: syntax error
F:\files\zhuanhuan.F(28): error FOR3567: END IF without IF-THEN
F:\files\zhuanhuan.F(31): error FOR3844: overlapping DO/IF/SELECT/WHERE at label 10
F:\files\zhuanhuan.F(40): error FOR3597: missing 2 END DO statements
F:\files\zhuanhuan.F(40): warning FOR4265: symbol ENE referenced but not set
F:\files\zhuanhuan.F(40): warning FOR4270: unused symbol THENCHANNELTOENERGYBOOK
F:\files\zhuanhuan.F(40): warning FOR4270: unused symbol IF
Error executing fl32.exe.
zhuanhuan.obj - 5 error(s), 3 warning(s)


Answer 1

1. energybook等需要指定数据类型。 2. 读取Sheet1，Sheet2的数据时需要循环语句，如do i=0,2048。 3. Sheet3是新建的（status='new'），无法读取。 4. if语句里，then跟if写在同一行，then之后换行。 5. 删除do 10 j=***当中的"10"，并且删除end if之后的3个continue。 6. 200 format有问题，你想以什么格式输出？如果是想按write(3,***形式输出的话，还需要修改open(3,***。