pc_debug_print Subroutine

private subroutine pc_debug_print(self)

Debug printing

Type Bound

pc_type

Arguments

Type IntentOptional Attributes Name
class(pc_type), intent(in) :: self

Contents

Source Code

pc_debug_print

Source Code

  subroutine pc_debug_print(self)
    implicit none
    class(pc_type), intent(in) :: self
    write(dlun,'("Proc type debug print. Index nrow=",I0)') &
         self%current_nresp()
  end subroutine pc_debug_print