Commit 2943c360 authored by Daniel Wortmann's avatar Daniel Wortmann

Modified MPI one-sided communication. a) simplified code b) made vaiables...

Modified MPI one-sided communication. a) simplified code b) made vaiables asynchronous c) try to use allocate instead of MPI_ALLOC_MEM
parent 959efb83
......@@ -30,9 +30,9 @@ module m_eig66_data
INTEGER,ALLOCATABLE :: pe_basis(:,:),slot_basis(:,:)
INTEGER,ALLOCATABLE :: pe_ev(:,:,:),slot_ev(:,:,:)
INTEGER :: irank
INTEGER,POINTER :: neig_data(:)
REAL,POINTER :: eig_data(:),zr_data(:), w_iks_data(:)
COMPLEX,POINTER :: zc_data(:)
INTEGER,POINTER :: neig_data(:)
REAL,POINTER :: eig_data(:),zr_data(:), w_iks_data(:)
COMPLEX,POINTER :: zc_data(:)
END TYPE
TYPE,EXTENDS(t_data):: t_data_hdf
#ifdef CPP_HDF
......@@ -82,7 +82,7 @@ module m_eig66_data
INTEGER,INTENT(IN),OPTIONAL :: io_mode
CLASS(t_data),pointer::d
TYPE(t_list),POINTER:: listpointer,lastinlist
TYPE(t_list),POINTER,ASYNCHRONOUS:: listpointer,lastinlist
lastinlist=>null()
listpointer=>linked_list
......
This diff is collapsed.
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