projects
/
unres.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4dc5460
)
modified: GA.f
author
Dawid Jagiela
<lightnir@chem.univ.gda.pl>
Wed, 7 Mar 2012 10:52:19 +0000
(11:52 +0100)
committer
Dawid Jagiela
<lightnir@chem.univ.gda.pl>
Wed, 7 Mar 2012 10:52:19 +0000
(11:52 +0100)
source/ga/GA.f
patch
|
blob
|
history
diff --git
a/source/ga/GA.f
b/source/ga/GA.f
index
8e2225d
..
47922c9
100644
(file)
--- a/
source/ga/GA.f
+++ b/
source/ga/GA.f
@@
-462,7
+462,7
@@
c ======================================================================
c GetNBest subroutine
c ======================================================================
c Fills up the bank population up to banksize with individuals from
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)
c ----------------------------------------------------------------------
subroutine GetNBest(inputpop,bank,banksize)
@@
-1521,6
+1521,8
@@
c ----------------------------------------------------------------------
endif
end do
if (pop(i,20).eq.0) then
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)
call write2log("ERROR while reading FFV from "//filename)
endif
close(izenergy)