Cambridge-ICCS/FTorch

overload `torch_tensor_delete`

Closed this issue ยท 2 comments

overload torch_tensor_delete so we no longer have to delete each element of input/output tensor manually.

It could just take the array and loop over the bounds ๐Ÿ‘Œ

FTorch/src/ftorch.f90

Lines 274 to 286 in 490272e

subroutine torch_tensor_delete(tensor)
type(torch_tensor), intent(in) :: tensor !! Input tensor
interface
subroutine torch_tensor_delete_c(tensor) &
bind(c, name = 'torch_tensor_delete')
use, intrinsic :: iso_c_binding, only : c_ptr
type(c_ptr), value, intent(in) :: tensor
end subroutine torch_tensor_delete_c
end interface
call torch_tensor_delete_c(tensor%p)
end subroutine torch_tensor_delete

@TomMelt Was this closed in #156 ?

This was indeed closed.