block_obj_Info Subroutine

private impure subroutine block_obj_Info(this)

Prints to stdout information about this block

Type Bound

block_obj

Arguments

Type IntentOptional Attributes Name
class(block_obj), intent(in) :: this

A block object

Source Code

    impure subroutine block_obj_Info(this)
      !> Prints to stdout information about this block
      implicit none
      class(block_obj), intent(in) :: this                                     !! A block object

      write(stdout,"(a20,a,3i16)"   ) 'lo',                   repeat('-',19)//'>', this%lo
      write(stdout,"(a20,a,3i16)"   ) 'hi',                   repeat('-',19)//'>', this%hi
      write(stdout,"(a20,a,3f16.10)") 'xlo',                  repeat('-',19)//'>', this%xlo
      write(stdout,"(a20,a,3f16.10)") 'xhi',                  repeat('-',19)//'>', this%xhi
      write(stdout,"(a20,a, i16)"   ) 'ngc',                  repeat('-',19)//'>', this%ngc
      write(stdout,"(a20,a,3f16.10)") 'dx',                   repeat('-',19)//'>', this%dx
      write(stdout,"(a20,a, l16)"   ) 'associated(parallel)', repeat('-',19)//'>', associated(this%parallel)
      write(stdout,"(a20,a, l16)"   ) 'associated(x)',        repeat('-',19)//'>', associated(this%x)
      write(stdout,"(a20,a, l16)"   ) 'associated(xm)',       repeat('-',19)//'>', associated(this%xm)
      write(stdout,"(a20,a, l16)"   ) 'associated(y)',        repeat('-',19)//'>', associated(this%y)
      write(stdout,"(a20,a, l16)"   ) 'associated(ym)',       repeat('-',19)//'>', associated(this%ym)
      write(stdout,"(a20,a, l16)"   ) 'associated(z)',        repeat('-',19)//'>', associated(this%z)
      write(stdout,"(a20,a, l16)"   ) 'associated(zm)',       repeat('-',19)//'>', associated(this%zm)

      return
    end subroutine block_obj_Info