您所在位置：主题：请问排序问题该怎么编程
hj90801
[专家分：0] 发布于 2011-10-09 14:32:00
do i=1,n
w(i)=real(eval(i))
yy(i)=i
enddo
do i=1,n
do j=1,i
if(w(i).gt.w(j)) then
t=w(i)
w(i)=w(j)
w(j)=t
s1=yy(i)
yy(i)=yy(j)
yy(j)=s1
endif
enddo;enddo
程序老出错，是怎么回事？（eval（i）是指一系列本征值）
w(i)=real(eval(i))
yy(i)=i
enddo
do i=1,n
do j=1,i
if(w(i).gt.w(j)) then
t=w(i)
w(i)=w(j)
w(j)=t
s1=yy(i)
yy(i)=yy(j)
yy(j)=s1
endif
enddo;enddo
程序老出错，是怎么回事？（eval（i）是指一系列本征值）
