projects
/
unres.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1328db2
)
even more verbose swaping log
author
Dawid Jagiela
<lightnir@chem.univ.gda.pl>
Thu, 29 Mar 2012 13:45:04 +0000
(15:45 +0200)
committer
Dawid Jagiela
<lightnir@chem.univ.gda.pl>
Thu, 29 Mar 2012 13:45:04 +0000
(15:45 +0200)
source/ga/GA.f
patch
|
blob
|
history
diff --git
a/source/ga/GA.f
b/source/ga/GA.f
index
ef6ba72
..
aecaebc
100644
(file)
--- a/
source/ga/GA.f
+++ b/
source/ga/GA.f
@@
-215,20
+215,28
@@
c --- debug end ---
write(tmptext2,'(I4)') i
call write2log("Swaping ind"//trim(tmptext)//" from bank to &
&ind "//trim(tmptext2)//" from population")
write(tmptext2,'(I4)') i
call write2log("Swaping ind"//trim(tmptext)//" from bank to &
&ind "//trim(tmptext2)//" from population")
+ write(tmptext2,'(21F7.5)') bank(j,:)
+ call write2log("BANK"//trim(tmptext)//":"//trim(tmptext2))
+
+ write(tmptext,'(I4)') i
+ write(tmptext2,'(21F7.5)') populacja(i,:)
+ call write2log("POP"//trim(tmptext)//":"//trim(tmptext2))
+
bank(j,:)=populacja(i,:)
endif
else ! W banku nie ma podobnego
j=FindWorst(banksize,bank)
write(tmptext,'(I4)') j
bank(j,:)=populacja(i,:)
endif
else ! W banku nie ma podobnego
j=FindWorst(banksize,bank)
write(tmptext,'(I4)') j
- write(tmptext2,'(I4)') i
if (populacja(i,20).lt.bank(j,20)) then
call write2log("Worst in bank is "//trim(tmptext))
if (populacja(i,20).lt.bank(j,20)) then
call write2log("Worst in bank is "//trim(tmptext))
- write(tmptext,'(21F7.5)') bank(j,:)
- call write2log("BANK:"//trim(tmptext))
+ write(tmptext2,'(21F7.5)') bank(j,:)
+ call write2log("BANK"//trim(tmptext)//":"//trim(tmptext2))
+
+ write(tmptext,'(I4)') i
call write2log("Swaping worst ind in bank to "//trim(tmptext&
call write2log("Swaping worst ind in bank to "//trim(tmptext&
- &2))
- write(tmptext,'(21F7.5)') populacja(i,:)
- call write2log("POP :"//trim(tmptext))
+ &))
+ write(tmptext2,'(21F7.5)') populacja(i,:)
+ call write2log("POP"//trim(tmptext)//":"//trim(tmptext2))
bank(j,:)=populacja(i,:)
endif
endif
bank(j,:)=populacja(i,:)
endif
endif