PARAMETER ( xsize = exch2_domain_nxt * sNx )
& + ( tGy-1 + (j-1)*jGjLoc )*exch2_domain_nxt
& )*y_size*exch2_domain_nxt
PARAMETER ( x_size = exch2_domain_nxt * sNx )
xSize = exch2_domain_nxt * sNx
INTEGER exch2_domain_nxt
PARAMETER ( exch2_domain_nxt=6)