Commit aa4bfad7 authored by Uliana Alekseeva's avatar Uliana Alekseeva

Win create bug fixed

parent d42bd499
......@@ -121,21 +121,21 @@ CONTAINS
#else
ALLOCATE(real_data_ptr(length))
#endif
CALL MPI_WIN_CREATE(real_data_ptr, length,slot_size*type_size,Mpi_INFO_NULL, MPI_COMM,handle, e)
CALL MPI_WIN_CREATE(real_data_ptr, length*type_size,slot_size*type_size,Mpi_INFO_NULL, MPI_COMM,handle, e)
ELSEIF(PRESENT(int_data_ptr)) THEN
#ifdef CPP_MPI_ALLOC
CALL C_F_POINTER(ptr,int_data_ptr,(/length/type_size/))
#else
ALLOCATE(int_data_ptr(length))
#endif
CALL MPI_WIN_CREATE(int_data_ptr, length,slot_size*type_size,Mpi_INFO_NULL, MPI_COMM,handle, e)
CALL MPI_WIN_CREATE(int_data_ptr, length*type_size,slot_size*type_size,Mpi_INFO_NULL, MPI_COMM,handle, e)
ELSE
#ifdef CPP_MPI_ALLOC
CALL C_F_POINTER(ptr,cmplx_data_ptr,(/length/type_size/))
#else
ALLOCATE(cmplx_data_ptr(length))
#endif
CALL MPI_WIN_CREATE(cmplx_data_ptr, length,slot_size*type_size,Mpi_INFO_NULL, MPI_COMM,handle, e)
CALL MPI_WIN_CREATE(cmplx_data_ptr, length*type_size,slot_size*type_size,Mpi_INFO_NULL, MPI_COMM,handle, e)
ENDIF
#endif
END SUBROUTINE priv_create_memory
......@@ -180,7 +180,6 @@ CONTAINS
! Get current values
CALL MPI_GET(neig,1,MPI_INTEGER,pe,slot,1,MPI_INTEGER,d%neig_handle,e)
CALL MPI_WIN_UNLOCK(pe,d%neig_handle,e)
ENDIF
IF (PRESENT(eig).or.PRESENT(w_iks)) THEN
ALLOCATE(tmp_real(MIN(SIZE(eig),d%size_eig)))
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment