+ write(iout,*) 'REMD exchange time 8-0=',time08-time00
+ write(iout,*) 'REMD exchange time 8-7=',time08-time07
+ write(iout,*) 'REMD exchange time 7-6=',time07-time06
+ write(iout,*) 'REMD exchange time 6-5=',time06-time05
+ write(iout,*) 'REMD exchange time 5-4=',time05-time04
+ write(iout,*) 'REMD exchange time 4-3=',time04-time03
+ write(iout,*) 'REMD exchange time 3-2=',time03-time02
+ write(iout,*) 'REMD exchange time 2-1=',time02-time01
+ write(iout,*) 'REMD exchange time 1-0=',time01-time00