mpp_chksum_int.h

Go to the documentation of this file.

00001     function MPP_CHKSUM_INT_( var, pelist )
00002       MPP_TYPE_ :: MPP_CHKSUM_INT_
00003       MPP_TYPE_, intent(in) :: var MPP_RANK_
00004       integer, optional :: pelist(:)
00005       MPP_CHKSUM_INT_ = sum(var)
00006       call mpp_sum( MPP_CHKSUM_INT_, pelist )
00007       return
00008     end function MPP_CHKSUM_INT_