lagrangian_set_Info Subroutine

    impure subroutine lagrangian_set_Info(this)
      !> Prints diagnostics information about the derived type
      ! to the standard output.
      use iso_fortran_env, only : stdout => output_unit
      implicit none
      class(lagrangian_set), intent(inout) :: this                             !! A set of Lagrangian objects

      write(stdout,"(a20,a, a)"  ) 'name '               , repeat('-',19)//'>', this%name
      if (allocated(this%p)) then
        write(stdout,"(a20,a, i16)") 'size of l'  , repeat('-',19)//'>', size(this%p)
      else
        write(stdout,"(a20,a, a)"  ) 'size of l'  , repeat('-',19)//'>', "NOT ALLOCATED"
      end if
      write(stdout,"(a20,a, i16)") 'count_'              , repeat('-',19)//'>', this%count_
      write(stdout,"(a20,a, i16)") 'count'               , repeat('-',19)//'>', this%count
      write(stdout,"(a20,a, a)"  ) 'read_file '          , repeat('-',19)//'>', this%read_file
      write(stdout,"(a20,a, a)"  ) 'write_file'          , repeat('-',19)//'>', this%write_file
      write(stdout,"(a20,a, l16)") 'overwrite'           , repeat('-',19)//'>', this%overwrite
      write(stdout,"(a20,a, l16)") 'associated(parallel)', repeat('-',19)//'>', associated(this%parallel)
      write(stdout,"(a20,a, l16)") 'associated(block)'   , repeat('-',19)//'>', associated(this%block)
      write(stdout,"(a20,a, i16)") 'MPI_TYPE'            , repeat('-',19)//'>', this%MPI_TYPE
      write(stdout,"(a20,a, i16)") 'MPI_SIZE'            , repeat('-',19)//'>', this%MPI_SIZE

      return
    end subroutine lagrangian_set_Info