- call write2log("Worst in bank is "//trim(tmptext))
- write(tmptext2,'(21F7.5)') bank(j,:)
- call write2log("BANK"//trim(tmptext)//":"//trim(tmptext2))
-
+ call write2log(" Worst in bank is "//trim(tmptext2))
+ write(tmptext,'(I4)') i
+ call write2log(" Swaping worst ind in bank to "//trim(tmpte&
+ &xt))
+ write(tmptext,'(I4)') j
+ write(tmptext2,'(19F8.5,E15.7,F8.5)') bank(j,:)
+ call write2log(" BANK"//trim(tmptext)//":"//trim(tmptext2))