User Subroutine Interface
SUBROUTINE UDAMAGEMF(SDEGMACRO,SDEGMICRO,NPHASES,CMNAME,CPHASENAME,
1 NMICROI,NMICROR,IMICROPROPS,RMICROPROPS,STATEV,
2 NSTATEV,PROPS,NPROPS,COORDS,NDI,NSHR,
3 SECLAYO, JPHASE2MAT, JMAC, JMATYP, LACCFLG,
4 NOEL, NPT, LAYER, KSPT,
5 KSTEP, KINC, DT, TIME)
C
INCLUDE 'ABA_PARAM.INC'
C
C PROPERTIES IN IMICROPROPS
PARAMETER (I_PHASETYPE=1, I_SHAPE=2)
C PROPERTIES IN RMICROPROPS
PARAMETER (I_VOLFRAC=1, I_AR=2)
C
C PHASE TYPES
PARAMETER (I_TYPE_MATRIX=1, I_TYPE_INCLUSION=2, I_TYPE_VOID=3)
C
C SHAPE TYPES
PARAMETER (I_SHAPE_SPHERE=1, I_SHAPE_CYLINDER=2, I_SHAPE_PENNY=3,
1 I_SHAPE_OBLATE=4, I_SHAPE_PROLATE=5, I_SHAPE_ELLIPCYL=9)
DIMENSION TIME(2), SDEGMICRO(NPHASES), JPHASE2MAT(NPHASES)
DIMENSION IMICROPROPS(NMICROI, NPHASES), RMICROPROPS(NMICROR,NPHASES)
1 STATEV(NSTATEV), PROPS(NPROPS), ARRAY(15), JARRAY(15), COORDS(*)
2 JMAC(*), JMATYP(*)
CHARACTER*3 FLGRAY(15)
CHARACTER*80 CMNAME
CHARACTER*80 CPHASENAME(NPHASES)
user coding to define SDEGMICRO
RETURN
END