anchor.diff:          end select
   
           write (logging_info%spawn_unit, '(1X,"Verbosity Settings:")')
  -        write (logging_info%spawn_unit, '(1X,10X,"Write Successful Spawns:",2X,L)') &
  +        write (logging_info%spawn_unit, '(1X,10X,"Write Successful Spawns:",2X,L1)') &
                           logging_info%write_successful_spawn
  -        write (logging_info%spawn_unit, '(1X,10X,"Write Failed Spawns:",2X,L)') &
  +        write (logging_info%spawn_unit, '(1X,10X,"Write Failed Spawns:",2X,L1)') &
                           logging_info%write_failed_spawn
   
           write (logging_info%spawn_unit,'()')
  
positive.code:         ! In:
          !   in_name: base name of log to give (eg. CALC)
          ! Out:
          !   out_name: filename to be used. If running in parallel with be of
          !       form in_name.Y.pX.log for process number X.
  
          use parallel, only: iproc, nprocs
          use utils, only: get_unique_filename
          character(255), intent(in) :: in_name
          character(255) :: suffix
  
negative.code:         end select
  
          write (logging_info%death_unit, '(1X,"Verbosity Settings:")')
          write (logging_info%death_unit, '(1X,10X,"Write Successful Deaths:",2X,L1)') &
                          logging_info%write_successful_death
          write (logging_info%death_unit, '(1X,10X,"Write Failed Deaths:",2X,L1)') &
                          logging_info%write_failed_death
  
          write (logging_info%spawn_unit,'()')
  