ijq.for

用Fortran语言编写的模拟退火算法程序

       program  qaz
	 open(unit=3,file='bb.txt',status='unknown')
	 open(unit=6,file='bb1.txt',status='unknown')
	do 10 i=1,400

	read(3,*,end=30)v(i)
	do 20 j=1,20
	do 25 k=1,20 
	write(6,200)i,k,v(i)
25    continue
20    continue
	
10    continue
30      close(3)
	close(6)

200   format(2i3,f10.4)
      end