RPN_COMM

(RPN_COMM_globalsum)

 
SUBROUTINE RPN_COMM_globalsum (real4array,minx,maxx,miny,maxy,nk,ni,nj,njlmax,gnj, sum)

ARGUMENTS

real4array tableau local REAL*4 SEULEMENT I
minx,maxx, miny, maxy, nk Dimensions du tableau real4array integer I
ni,nj Taille du problème local integer I
njlmax Maximum de nj sur toutes les tuiles integer I
sum Somme du tableau global REAL*4 O

Dimensions du tableau local: real4array(minx:maxx,miny:maxy,nk)
Taille du problème local: g(1:ni,1:nj,1:nk)

DESCRIPTION

Cette routine calcule la somme globale de format REAL*4 d'un tableau de format REAL*4 et donne une réponse indépendante de la topologie des processeurs. Cet algorithme est très inefficace et ne devrait être utilisé que pour des fins de déboguage.

EXEMPLE

call rpn_comm_globalsum(tableau,minx,maxx,miny,maxy,nk,ni,nj,njlmax,sum) 

VOIR AUSSI

RPN_COMM_*