eulerian_set_Info Subroutine

    impure subroutine eulerian_set_Info(this)
      !> Prints info about this collection of eulerian objects
      implicit none
      class(eulerian_set), intent(inout) :: this                               !! An Eulerian Set
      ! Work variables
      integer :: n

      if (allocated(this%field)) then
        write(stdout,"(a20,a, i16)") 'fields'   , repeat('-',19)//'>', size(this%field)
        do n=1,size(this%field)
          write(stdout,"(a,i2,a)"  ) repeat('-',26)//" ",n," "//repeat('-',26)
          call this%field(n)%p%Info
        end do
        write(stdout,"(a56)"  ) repeat('-',56)
        write(stdout,"(a56)"  ) repeat('-',56)
      else
        write(stdout,"(a20,a, a)"  ) 'fields'  , repeat('-',19)//'>', "NOT ALLOCATED"
      end if
      write(stdout,"(a20,a, a)"  ) 'File to read'        , repeat('-',19)//'>', this%read_file
      write(stdout,"(a20,a, a)"  ) 'File to write'       , repeat('-',19)//'>', this%write_file
      write(stdout,"(a20,a, l16)") 'IO 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)

      return
    end subroutine eulerian_set_Info