eulerian_obj_Info Subroutine

private impure subroutine eulerian_obj_Info(this)

Prints info about this structure.

Type Bound

eulerian_obj_base

Arguments

Type IntentOptional Attributes Name
class(eulerian_obj_base), intent(inout) :: this

An Eulerian object

Called by

proc~~eulerian_obj_info~~CalledByGraph proc~eulerian_obj_info eulerian_obj_base%eulerian_obj_Info proc~eulerian_set_info eulerian_set%eulerian_set_Info proc~eulerian_set_info->proc~eulerian_obj_info

Source Code

    impure subroutine eulerian_obj_Info(this)
      !> Prints info about this structure.
      implicit none
      class(eulerian_obj_base), intent(inout) :: this                          !! An Eulerian object

      write(stdout,"(a20,a, a)"  ) 'name'                , repeat('-',19)//'>', this%name
      write(stdout,"(a20,a, i16)") 'staggering'          , repeat('-',19)//'>', this%staggering
      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_obj_Info