WriteUMatCacheStats Subroutine

public subroutine WriteUMatCacheStats()

Arguments

None

Contents

Source Code

WriteUMatCacheStats

Source Code

    SUBROUTINE WriteUMatCacheStats
        IF (ASSOCIated(UMatCacheData)) THEN
            write(stdout, *) "UMAT Cache Statistics"
            write(stdout, *) NHITS, " hits"
            write(stdout, *) NMISSES, " misses"
            write(stdout, *) iCacheOvCount, " overwrites"
            if (NHITS + NMISSES > 0) then
                write(stdout, "(F6.2,A)")(NHITS / (NHITS + NMISSES + 0.0_dp)) * 100, "% success"
            end if
        end if
    END SUBROUTINE WriteUMatCacheStats