freeMemory Subroutine

public subroutine freeMemory(this)

Type Bound

kMat_t

Arguments

Type IntentOptional Attributes Name
class(kMat_t) :: this

Contents

Source Code

freeMemory

Source Code

    subroutine freeMemory(this)
        implicit none
        class(kMat_t) :: this

        if (associated(this%kMat_p)) call shared_deallocate_mpi(this%shm_win, this%kMat_p)
    end subroutine freeMemory