write_padding_init Subroutine

    subroutine write_padding_init(state)
      implicit none
      type(write_state_t), intent(inout) :: state

      ! Don't treat the header line as data. Add padding to align the
      ! other columns. We also add a # to the first line of data, so
      ! that there aren't repeats if starting from POPSFILES
      if (state%init .or. state%prepend) then
         write(state%funit, '("#")', advance='no')
         if (tMCOutput) write(stdout, '("#")', advance='no')
         state%prepend = state%init
      else if (.not. state%prepend) then
         write(state%funit, '(" ")', advance='no')
         if (tMCOutput) write(stdout, '(" ")', advance='no')
      end if
    end subroutine write_padding_init