change api to be able to pass array(:,:,:) kind of objects

abagusetty · Oct 5, 2022 · c47936f · c47936f
1 parent 9004d29
commit c47936f
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/api/sirius.f90 b/src/api/sirius.f90
@@ -3862,7 +3862,7 @@ subroutine sirius_get_gvec_arrays(handler,gvec,gvec_cart,gvec_len,index_by_gvec,
 integer, optional, target, intent(in) :: gvec(:,:)
 real(8), optional, target, intent(in) :: gvec_cart(:,:)
 real(8), optional, target, intent(in) :: gvec_len(:)
-integer, optional, target, intent(in) :: index_by_gvec
+integer, optional, target, intent(in) :: index_by_gvec(:,:,:)
 integer, optional, target, intent(out) :: error_code
 !
 type(C_PTR) :: handler_ptr
@@ -3958,7 +3958,7 @@ subroutine sirius_get_fft_index(handler,fft_index,error_code)
 implicit none
 !
 type(sirius_context_handler), target, intent(in) :: handler
-integer, target, intent(out) :: fft_index
+integer, target, intent(out) :: fft_index(:)
 integer, optional, target, intent(out) :: error_code
 !
 type(C_PTR) :: handler_ptr

diff --git a/src/api/sirius_api.cpp b/src/api/sirius_api.cpp
@@ -3794,7 +3794,7 @@ sirius_get_num_gvec(void* const* handler__, int* num_gvec__, int* error_code__)
       doc: Length of G-vectors.
     index_by_gvec:
       type: int
-      attr: in, optional
+      attr: in, optional, dimension(:,:,:)
       doc: G-vector index by lattice coordinates.
     error_code:
       type: int
@@ -3893,7 +3893,7 @@ sirius_get_num_fft_grid_points(void* const* handler__, int* num_fft_grid_points_
       doc: Simulation context handler
     fft_index:
       type: int
-      attr: out, required
+      attr: out, required, dimension(:)
       doc: Index inside FFT buffer
     error_code:
       type: int