Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=int_8), | intent(out) | :: | free | |||
integer(kind=int_8), | intent(out) | :: | total |
SUBROUTINE acc_devmem_info(free, total)
INTEGER(KIND=int_8), INTENT(OUT) :: free, total
#if defined(__DBCSR_ACC)
INTEGER(KIND=C_INT) :: istat
INTEGER(KIND=C_SIZE_T) :: free_c, total_c
istat = acc_interface_dev_mem_info(free_c, total_c)
IF (istat /= 0) &
DBCSR_ABORT("acc_devmem_info: failed")
free = free_c
total = total_c
#else
free = 0
total = 0
#endif
END SUBROUTINE acc_devmem_info