Skip to content
Snippets Groups Projects
Commit e60aa08f authored by Dmitry Alexeev's avatar Dmitry Alexeev
Browse files

Merge tag '2.0.2' into HEAD

ICON Fortran support library release 2.0.2
parents 9694fb35 7041b0ca
No related branches found
No related tags found
1 merge request!115init and copy APIs are always async and accept optional queue argument.
Pipeline #100148 passed
......@@ -25,8 +25,7 @@ MODULE fortran_support
& init_contiguous_dp, init_contiguous_sp, init_contiguous_i4, &
& init_contiguous_l, minval_1d, minval_2d, resize_arr_c1d, DO_DEALLOCATE, &
& DO_PTR_DEALLOCATE, insert_dimension, assert_acc_host_only, &
& assert_acc_device_only, assert_lacc_equals_i_am_accel_node, &
& set_acc_host_or_device
& assert_acc_device_only, set_acc_host_or_device
USE mo_hash_table, ONLY: t_HashTable, hashTable_make, t_HashIterator
USE mo_io_units, ONLY: filename_max, nerr, nlog, nnml, nstat, ngmt, nin, &
& nout, nnml_output, find_next_free_unit
......@@ -92,8 +91,7 @@ MODULE fortran_support
& init_contiguous_dp, init_contiguous_sp, init_contiguous_i4, &
& init_contiguous_l, minval_1d, minval_2d, resize_arr_c1d, DO_DEALLOCATE, &
& DO_PTR_DEALLOCATE, insert_dimension, assert_acc_host_only, &
& assert_acc_device_only, assert_lacc_equals_i_am_accel_node, &
& set_acc_host_or_device
& assert_acc_device_only, set_acc_host_or_device
! From mo_hash_table
PUBLIC :: t_HashTable, hashTable_make, t_HashIterator
......
......@@ -53,7 +53,6 @@ MODULE mo_fortran_tools
PUBLIC :: insert_dimension
PUBLIC :: assert_acc_host_only
PUBLIC :: assert_acc_device_only
PUBLIC :: assert_lacc_equals_i_am_accel_node
PUBLIC :: set_acc_host_or_device
PUBLIC :: set_acc_async_queue
......@@ -2384,19 +2383,6 @@ CONTAINS
#endif
END SUBROUTINE assert_acc_device_only
SUBROUTINE assert_lacc_equals_i_am_accel_node(routine_name, lacc, i_am_accel_node)
CHARACTER(len=*), INTENT(IN) :: routine_name
LOGICAL, INTENT(IN) :: lacc
LOGICAL, INTENT(IN) :: i_am_accel_node
#ifdef _OPENACC
IF (lacc .NEQV. i_am_accel_node) THEN
CALL finish(routine_name, 'lacc /= i_am_accel_node')
END IF
#endif
END SUBROUTINE assert_lacc_equals_i_am_accel_node
PURE SUBROUTINE set_acc_host_or_device(lzacc, lacc)
LOGICAL, INTENT(OUT) :: lzacc
LOGICAL, INTENT(IN), OPTIONAL :: lacc
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment