From: Dawid Jagiela <lightnir@chem.univ.gda.pl>
Date: Thu, 29 Mar 2012 13:45:04 +0000 (+0200)
Subject: even more verbose swaping log
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=commitdiff_plain;h=5eb407964903815242c59de10960f42761139e10;p=unres.git

even more verbose swaping log
---

diff --git a/source/ga/GA.f b/source/ga/GA.f
index ef6ba72..aecaebc 100644
--- 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,'(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
-           write(tmptext2,'(I4)') i
            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&
-     &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