Commit 49ce60c2 authored by Daniel Wortmann's avatar Daniel Wortmann

Made call to t_mat%alloc in t_mpimat%init to ensure proper initialization of matrices in MPI case

parent 2347d607
...@@ -325,13 +325,8 @@ CONTAINS ...@@ -325,13 +325,8 @@ CONTAINS
mat%global_size2=templ%global_size2 mat%global_size2=templ%global_size2
mat%blacsdata=>templ%blacsdata mat%blacsdata=>templ%blacsdata
mat%blacsdata%no_use=mat%blacsdata%no_use+1 mat%blacsdata%no_use=mat%blacsdata%no_use+1
IF (mat%l_real) THEN CALL mat%alloc()
ALLOCATE(mat%data_r(mat%matsize1,mat%matsize2))
ALLOCATE(mat%data_c(0,0))
ELSE
ALLOCATE(mat%data_c(mat%matsize1,mat%matsize2))
ALLOCATE(mat%data_r(0,0))
END IF
CLASS default CLASS default
CALL judft_error("Mixed initialization in t_mpimat not possible(BUG)") CALL judft_error("Mixed initialization in t_mpimat not possible(BUG)")
END SELECT END SELECT
......
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