Rename coindices args to cosubscripts to reflect PRIF v0.3

BerkeleyLab · May 2, 2024 · a39097d · a39097d
1 parent c717ab2
commit a39097d
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 9 deletions.
diff --git a/src/caffeine/coarray_access_s.f90 b/src/caffeine/coarray_access_s.f90
@@ -11,7 +11,7 @@
     integer(c_int) :: image
     integer(c_intptr_t) :: remote_base, remote_ptr
 
-    call prif_image_index(coarray_handle, coindices, image_index=image)
+    call prif_image_index(coarray_handle, cosubscripts, image_index=image)
     call prif_base_pointer(coarray_handle, image, remote_base)
     remote_ptr = &
         remote_base &
@@ -40,7 +40,7 @@
     integer(c_int) :: image
     integer(c_intptr_t) :: remote_base, remote_ptr
 
-    call prif_image_index(coarray_handle, coindices, image_index=image)
+    call prif_image_index(coarray_handle, cosubscripts, image_index=image)
     call prif_base_pointer(coarray_handle, image, remote_base)
     remote_ptr = &
         remote_base &

diff --git a/src/prif.f90 b/src/prif.f90
@@ -164,10 +164,10 @@ module subroutine prif_deallocate_non_symmetric(mem, stat, errmsg, errmsg_alloc)
     end subroutine
 
     module subroutine prif_put( &
-        coarray_handle, coindices, value, first_element_addr, team, team_number, notify_ptr, stat, errmsg, errmsg_alloc)
+        coarray_handle, cosubscripts, value, first_element_addr, team, team_number, notify_ptr, stat, errmsg, errmsg_alloc)
       implicit none
       type(prif_coarray_handle), intent(in) :: coarray_handle
-      integer(c_intmax_t), intent(in) :: coindices(:)
+      integer(c_intmax_t), intent(in) :: cosubscripts(:)
       type(*), intent(in), contiguous, target :: value(..)
       type(c_ptr), intent(in) :: first_element_addr
       type(prif_team_type), optional, intent(in) :: team
@@ -208,10 +208,10 @@ module subroutine prif_put_raw_strided( &
     end subroutine
 
     module subroutine prif_get( &
-        coarray_handle, coindices, first_element_addr, value, team, team_number, stat, errmsg, errmsg_alloc)
+        coarray_handle, cosubscripts, first_element_addr, value, team, team_number, stat, errmsg, errmsg_alloc)
       implicit none
       type(prif_coarray_handle), intent(in) :: coarray_handle
-      integer(c_intmax_t), intent(in) :: coindices(:)
+      integer(c_intmax_t), intent(in) :: cosubscripts(:)
       type(c_ptr), intent(in) :: first_element_addr
       type(*), intent(inout), contiguous, target :: value(..)
       type(prif_team_type), optional, intent(in) :: team

diff --git a/test/caf_rma_test.f90 b/test/caf_rma_test.f90
@@ -60,7 +60,7 @@ function check_put() result(result_)
 
         call prif_put( &
                 coarray_handle = coarray_handle, &
-                coindices = [neighbor], &
+                cosubscripts = [neighbor], &
                 value = me, &
                 first_element_addr = allocated_memory)
         call prif_sync_all
@@ -143,7 +143,7 @@ function check_get() result(result_)
 
         call prif_get( &
                 coarray_handle = coarray_handle, &
-                coindices = [neighbor], &
+                cosubscripts = [neighbor], &
                 first_element_addr = allocated_memory, &
                 value = retrieved)
 
@@ -194,4 +194,4 @@ function check_get_raw() result(result_)
 
         call prif_deallocate([coarray_handle])
     end function
-end module
+end module