module cta_f90_mem implicit none public ! \brief Free memory that has been allocated with CTA_Malloc or CTA_Realloc ! ! \param ptr I pointer to memory block to deallocate ! !interface CTA_F90_Free ! subroutine CTA_Free( ptr ) ! void , intent(in ) :: ptr(*) ! end subroutine CTA_Free !end interface end module cta_f90_mem