write (iout,*) "time_fric",time_fric," time_stoch",time_stoch,
& " time_fricmatmult",time_fricmatmult," time_fsample ",
& time_fsample
write (iout,*) "time_fric",time_fric," time_stoch",time_stoch,
& " time_fricmatmult",time_fricmatmult," time_fsample ",
& time_fsample