addnew.f

来自「用Visuanl C++开发的遗传算法程序」· F 代码 · 共 18 行

      real phast(200),fom
      integer popc,nparam
      
      open (10,file='hold.genes')
      open (11,file='calculated.log',access='append')
      open (12,file='rhelp')
      open (13,file='helpfile')
 
60    format (i4,f12.6,200f9.4)

      read(13,*) nparam
      read(10,60)popc,fom,(phast(i),i=1,nparam)
      read(12,*) fom
      write(11,60)popc,fom,(phast(i),i=1,nparam)
           
      end