freeKMat Subroutine

public subroutine freeKMat()

Arguments

None

Contents

Source Code

freeKMat

Source Code

    subroutine freeKMat()
        implicit none

        call kMatLin%freeMemory()
        call kMatSq%freeMemory()
        if (allocated(kMatProjEContrib)) deallocate(kMatProjEContrib)
    end subroutine freeKMat