Commit d7b285d3 authored by Andreas Marek's avatar Andreas Marek

Fix error in template

parent 10548ef6
...@@ -625,7 +625,7 @@ ...@@ -625,7 +625,7 @@
#ifdef USE_ASSUMED_SIZE #ifdef USE_ASSUMED_SIZE
MATH_DATATYPE(kind=C_DATATYPE_KIND) :: b(nrows_b,*), c(nrows_c,*) MATH_DATATYPE(kind=C_DATATYPE_KIND) :: b(nrows_b,*), c(nrows_c,*)
#else #else
MATH_DATATYPE(kind=C_DATATTYPE_KIND) :: b(nrows_b,ncols_b), c(nrows_c,ncols_c) MATH_DATATYPE(kind=C_DATATYPE_KIND) :: b(nrows_b,ncols_b), c(nrows_c,ncols_c)
#endif #endif
type(elpa_impl_t), pointer :: self type(elpa_impl_t), pointer :: self
......
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