Commit 440bdcb4 authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfixes for paralle version

parent 2868883a
......@@ -132,6 +132,7 @@ CONTAINS
d%qmtp_data(1),d%orbcomp_data(1))
ENDIF
IF (PRESENT(filename).AND..NOT.create) CALL priv_readfromfile()
CALL MPI_BARRIER(MPI_COMM,e)
CALL timestop("create data spaces in ei66_mpi")
CONTAINS
SUBROUTINE priv_create_memory(slot_size,local_slots,handle,int_data_ptr,real_data_ptr,cmplx_data_ptr)
......
......@@ -157,9 +157,9 @@ CONTAINS
IF (.NOT.l_debug) RETURN
#ifdef CPP_MPI
CALL MPI_COMM_RANK(MPI_COMM_WORLD,irank,ierr)
WRITE(*,"(i3,3a,f10.3)") irank,startstop,name," at:",cputime()
WRITE(*,"(i3,3a,f20.3)") irank,startstop,name," at:",cputime()
#else
WRITE(*,"(3a,f10.3)") startstop,name," at:",cputime()
WRITE(*,"(3a,f20.3)") startstop,name," at:",cputime()
#endif
END SUBROUTINE priv_debug_output
......
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