初学者,请大家帮帮忙阿
我程序运行出现WARN。我不是很清楚是什么意思。希望谁能帮我解答一下!谢谢
Warning: Variable WEI is used before its value has been defined
allocate(energy1(wei));allocate(kai1(wei,wei));allocate(zb(wei))
这是我的程序:
program main
implicit none
real*8,allocatable::energy1(:),kai1(:,:),energy(:),kai(:,:),zb(:)
real*8::ee
integer::i,j,wei
allocate(energy1(wei));allocate(kai1(wei,wei));allocate(zb(wei))
energy1=energy;kai1=kai;
do i=1,wei
ee=-1d10;
do j=1,wei
if (energy1(j)>ee)then
ee=energy1(j);zb(i)=j;
endif
enddo
energy1(zb(i))=-1d9;
enddo
energy1=energy;
do i=1,wei
energy(i)=energy1(zb(i));
do j=1,wei
kai(j,i)=kai1(j,zb(i));
enddo;
enddo
end
Warning: Variable WEI is used before its value has been defined
allocate(energy1(wei));allocate(kai1(wei,wei));allocate(zb(wei))
这是我的程序:
program main
implicit none
real*8,allocatable::energy1(:),kai1(:,:),energy(:),kai(:,:),zb(:)
real*8::ee
integer::i,j,wei
allocate(energy1(wei));allocate(kai1(wei,wei));allocate(zb(wei))
energy1=energy;kai1=kai;
do i=1,wei
ee=-1d10;
do j=1,wei
if (energy1(j)>ee)then
ee=energy1(j);zb(i)=j;
endif
enddo
energy1(zb(i))=-1d9;
enddo
energy1=energy;
do i=1,wei
energy(i)=energy1(zb(i));
do j=1,wei
kai(j,i)=kai1(j,zb(i));
enddo;
enddo
end