## 5.13. Crushable Foam (Isotropic)

To access local data

    USE matdef
    USE str_isocrush

          INTEGER(INT4) :: IF_LOAD_FROM_FILE, NUM_POINTS, IF_LOADED=0
          REAL(REAL8) :: TTMAX, YIELD_CRUSH
          REAL(REAL8), DIMENSION(:), POINTER :: R_LNVOL, R_STRESS

SHRMDZ | Shear Modulus
TTMAX | Maximum Tensile Stress
IF_LOAD_FROM_FILE | Flag to get compaction data from file
NUM_POINTS | Number of compaction data points
IF_LOADED | Flag to indicate if compaction data is in memory
YIELD_CRUSH | Current crush strength
TTMAX | Tension cutoff stress
R_LNVOL | Compaction curve volumetric strain
R_STRESS | Compaction curve stress

Release 18.2 - © ANSYS, Inc. All rights reserved.