Set CAF dimensions by means of intrinsic inquiring functions.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(hash_table), | intent(inout) | :: | self | The hash table. |
pure subroutine set_caf_dimensions(self)
!---------------------------------------------------------------------------------------------------------------------------------
!< Set CAF dimensions by means of intrinsic inquiring functions.
!---------------------------------------------------------------------------------------------------------------------------------
class(hash_table), intent(inout) :: self !< The hash table.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
#ifdef CAF
self%me = this_image()
self%images_number = num_images()
#else
self%me = 1
self%images_number = 1
#endif
!---------------------------------------------------------------------------------------------------------------------------------
endsubroutine set_caf_dimensions