reset Subroutine

   subroutine reset(self)
     class(nbprocs_info_t) :: self
     ! .. local ..
     integer               :: i

     do i=1, self%nbprocs_srl
        
        if ( allocated(self%srl_nb(i)%rcv%buffer) ) then
           deallocate(self%srl_nb(i)%rcv%buffer)
           deallocate(self%srl_nb(i)%send%buffer)
           deallocate(self%srl_nb(i)%info_rcv%buffer)
           deallocate(self%srl_nb(i)%info_send%buffer)
        endif

        self%srl_nb(i)%info%nigrids=0
     end do

     do i=1, self%nbprocs_c
        
        if ( allocated(self%course_nb(i)%rcv%buffer) ) then
           deallocate(self%course_nb(i)%rcv%buffer)
           deallocate(self%course_nb(i)%send%buffer)
           deallocate(self%course_nb(i)%info_rcv%buffer)
           deallocate(self%course_nb(i)%info_send%buffer)
        endif

        self%course_nb(i)%info%nigrids=0
     end do

     do i=1, self%nbprocs_f
        
        if ( allocated(self%fine_nb(i)%rcv%buffer) ) then
           deallocate(self%fine_nb(i)%rcv%buffer)
           deallocate(self%fine_nb(i)%send%buffer)
           deallocate(self%fine_nb(i)%info_rcv%buffer)
           deallocate(self%fine_nb(i)%info_send%buffer)
        endif

        self%fine_nb(i)%info%nigrids=0
     end do

     self%nbprocs_srl         = 0
     self%imaxigrids_srl      = 0
     self%ipe_to_inbpe_srl(:) = -1

     self%nbprocs_c           = 0
     self%imaxigrids_c        = 0
     self%ipe_to_inbpe_c(:)   = -1

     self%nbprocs_f           = 0
     self%imaxigrids_f        = 0
     self%ipe_to_inbpe_f(:)   = -1

   end subroutine reset