if (me.eq.king) then
- write(iout,*)
+ if(homol_nset.gt.1) write(iout,*)
& 'energy_c temperature iset energy_c(iset+1) energy_c(iset-1)'
do i=1,nodes
remd_t_bath(i)=remd_ene(n_ene+1,i)
iremd_iset(i)=remd_ene(n_ene+2,i)
- write(iout,'(i4,f10.3,f6.0,i3,2f10.3)')
+ if(homol_nset.gt.1)
+ & write(iout,'(i4,f10.3,f6.0,i3,2f10.3)')
& i,remd_ene(i_econstr,i),
& remd_ene(n_ene+1,i),iremd_iset(i),
& remd_ene(n_ene+3,i),remd_ene(n_ene+4,i)
C DO NOT EDIT THIS FILE - IT HAS BEEN GENERATED BY COMPINFO.C
-C 3 2 191
+C 3 2 192
subroutine cinfo
include 'COMMON.IOUNITS'
write(iout,*)'++++ Compile info ++++'
- write(iout,*)'Version 3.2 build 191'
- write(iout,*)'compiled Fri Nov 7 14:25:21 2014'
+ write(iout,*)'Version 3.2 build 192'
+ write(iout,*)'compiled Fri Nov 7 14:45:39 2014'
write(iout,*)'compiled by czarek@piasek4'
write(iout,*)'OS name: Linux '
write(iout,*)'OS release: 3.2.0-70-generic '