==> [email protected] (无心插柳柳橙汁) 提到: : program test : open(11,file="in.dat") ~~~~~~~~~~~~~~~~~~~~~~~~ : open(12,file="out.txt") ~~~~~~~~~~~~~~~~~~~~~~~~~ 首先，这两行最好放在下面两行的後面，一个program、subroutine 或是function的结构应该是先有宣告才有statement。 其次，请确认你在编译後的可执行档所在的目录（资料夹）也有 in.dat档案，并确定档案内容是两个浮点数。 : real a,b ~~~~~~~~~~ : real :: c(100) ~~~~~~~~~~~~~~~~ 麻烦把上面两行开档案的程式码移到这里。 : read(11,*)a,b : close(11) : do i=1,100 : c(i)=a+i**b : write(12,*)c(i) : enddo : close(12) : end : 结果out.txt中没有写入任何文字，这是什麽原因啊? : 找好久找不出原因，请明白的版友指点一下吧! : m(_ _)m 我这样做就可以编译且执行结果正常。 -- ◎龙猫资讯天地(bbs.mgt.ncu.edu.tw) ◎[Tailss]From: 237-200.dorm.ncu.edu.tw