anchor.diff:        endif
       enddo
     end subroutine
  +
     !-----------------------------------------------------------------------------
     subroutine COMM_setup( &
          max_hallo_num,    & !--- IN : number of hallo regions
  
positive.code:       endif
      endif
    end subroutine
    !(20101207) added by teraim
    subroutine show_tempsb
      use mod_adm, only : ADM_rgn_nmax
      implicit none
      integer::i,j
      !
      write(*,*)"show"
      do i=1, ADM_rgn_nmax+2
        do j=1, max_size
          if(tempsb(i)%val(j) > 0) then
            write(*,*)"(i,j)=",i,j," : show_list=(",i,tempsb(i)%col(j),tempsb(i)%val(j),")"
          endif
        enddo
      enddo
    end subroutine
    !(20101207) added by teraim
    subroutine get_tempsb(icol, irow, ret)
      implicit none
  
negative.code:   !
    public :: COMM_setup
    public :: COMM_data_transfer
    public :: COMM_var
    public :: COMM_Stat_sum
    public :: COMM_Stat_sum_eachlayer
  