I figured it out. I used wrong base address. I have to use base instead of offsets(1):
call MPI_GET_ADDRESS(obj         , base      , ierr)
offsets = offsets - base
Thanks,
--Ted

On 05/29/2014 09:40 AM, Ted Sariyski wrote:
Hi,

I have difficulties to implement mpi_win/mpi_put. What's strange is, that when a process N puts data on ROOT, ROOT gets most of the data correct, with few exceptions. Attached is a small example, which illustrates the problem and here is a short description.
  1. There is an array BP(nBP) of type DR_boundaryPoint_t = {integer, character*32,real(3),real}.
  2. MPI type MPI_DR_boundaryPoint_t match DR_boundaryPoint_t
  3. ROOT opens a window BP_win for nBP elements of type MPI_DR_boundaryPoint_t
  4. ONE puts BP(3) to root:BP(3)
ROOT receives the real fields dist and ori correctly, but the integer field bcTag is not updated, and the character field bcName is messed up.

0: bcTag=   0 dist=  0.9000E+01 bcName=TEST    A ori=  0.6000E+01  0.9000E+01  0.1200E+02
1: bcTag=  99 dist=  0.9000E+01 bcName=TEST         ori=  0.6000E+01  0.9000E+01  0.1200E+02

I have no idea what I am doing wrong. Any help will be highly appreciated.
Thanks in advance,
--Ted