anchor.diff:          end select
   
           write (logging_info%calc_unit, '(1X,"Verbosity Settings:")')
  -        write (logging_info%calc_unit, '(1X,10X,"Write Calculation Values:",2X,L)') &
  +        write (logging_info%calc_unit, '(1X,10X,"Write Calculation Values:",2X,L1)') &
                           logging_info%write_highlevel_values
   
           write (logging_info%calc_unit,'()')
  
positive.code:         end select
  
          write (logging_info%death_unit, '(1X,"Verbosity Settings:")')
          write (logging_info%death_unit, '(1X,10X,"Write Successful Deaths:",2X,L)') &
                          logging_info%write_successful_death
          write (logging_info%death_unit, '(1X,10X,"Write Failed Deaths:",2X,L)') &
                          logging_info%write_failed_death
  
          write (logging_info%spawn_unit,'()')
  
negative.code:         end select
  
          write (logging_info%spawn_unit, '(1X,"Verbosity Settings:")')
          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,L1)') &
                          logging_info%write_failed_spawn
  
          write (logging_info%spawn_unit,'()')
  