anchor.diff:    end if
   
     ! Display message
  -  if(main_process()) call message(1,' [main] starting final iteration')
  +  if(main_process()) write(*,'(" [main] starting final iteration")')
   
     ! Do the RT
     if(use_exact_nu) then
  
positive.code:      call mp_join()
  
       ! Display message
       if(main_process()) call message(1,' [main] exiting Lucy iteration')
  
       ! Output files
       if(main_process()) call output_grid(handle_out, iter, n_lucy_iter)
  
negative.code:      stop "Usage: bin/rt input_file output_file"
    end if
  
    ! Start up multi-processing if needed
    call mp_initialize()
  
    if(main_process()) then
       write(*,*) repeat('-',60)
       write(*,'(" Started on ",A)') trim(now())
  