& exch2_xStack_Nx, exch2_xStack_Ny,
INTEGER exch2_xStack_Nx
exch2_xStack_Nx = 0
exch2_xStack_Nx = exch2_xStack_Nx + facet_dims(2*j-1)
exch2_global_Nx = exch2_xStack_Nx
& + ( k-1 + (irecord-1)*kSize )*exch2_xStack_Nx
OBNS_Nx = exch2_xStack_Nx