c --- debug end ---
call WriteBank(bank)
- csacutoff=csacutoff-(cicutoff/maxgen)
+ csacutoff=csacutoff-(generation*cicutoff/maxgen)
c csacutoff=cicutoff*(0.8**(iter-1))
write(tmptext,'(F7.5)') csacutoff
c GetNBest subroutine
c ======================================================================
c Fills up the bank population up to banksize with individuals from
-c inputpop heving the best(lowest) score
+c inputpop having the best(lowest) score
c ----------------------------------------------------------------------
subroutine GetNBest(inputpop,bank,banksize)
last=0.0
idx=1
do j=1,banksize
- best=100000000000000000.0
+ best=huge(0.0d0)
do i=1,banksize*BANK_MULTIPLIER
if ((inputpop(i,20).lt.best).and.(inputpop(i,20).gt.last)) then
best=inputpop(i,20)
endif
end do
if (pop(i,20).eq.0) then
+c Setting FFV to a realy big valiue or otherwise CalcFittness will have problems
+ pop(i,20)=huge(0.0d0)
call write2log("ERROR while reading FFV from "//filename)
endif
close(izenergy)