! Copyright (c) 2014 Autodesk, Inc.  All Rights Reserved. This
! software is protected by United States and International Law, including
! copyrights, trademarks, patents and pending patents.  Copying, duplication,
! reproduction, or Distribution is strictly prohibited.

/NOPR
!ASCA Composite Macro
!
!ARG1 --> MATID
!ARG2 --> NSTATV
!ARG3 --> UNITS
!ARG4 --> PFIB_DIR
!ARG5 --> PFA
!ARG6 --> PREFAIL
!ARG7 --> POSTFAIL
!ARG8 --> PRESS
!ARG9 --> TEMPERATURE
!AR10 --> FAILCRIT
!AR11 --> AUX CRIT PARAM 1
!AR12 --> AUX CRIT PARAM 2
!AR13 --> AUX CRIT PARAM 3
!AR14 --> MDEG
!AR15 --> FDEG
!AR16 --> MOIST
!

MATID = ARG1
NSTATV = ARG2
UNITS = ARG3
PFIB_DIR = ARG4
PFA = ARG5
PREFAIL = ARG6
POSTFAIL = ARG7
PRESS = ARG8
TEMPERATURE = ARG9
FAILCRIT = AR10
AUX1 = AR11
AUX2 = AR12
AUX3 = AR13
MDEG = AR14
FDEG = AR15
MOIST = AR16

MAT,MATID
TB,STATE,MATID,,NSTATV

TB,USER,MATID,,16
TBTEMP,0.0
TBDATA,1,UNITS,PFIB_DIR,PFA,PREFAIL,POSTFAIL,PRESS
TBDATA,7,TEMPERATURE,FAILCRIT,AUX1,AUX2,AUX3,MDEG
TBDATA,13,FDEG,0.0,0.0,MOIST

!--> Tell ANSYS to call USolFin
USRCAL, USOLBEG
USRCAL, ULDBEG
USRCAL, USSBEG
USRCAL, UITBEG
USRCAL, UITFIN
USRCAL, USSFIN
USRCAL, ULDFIN
USRCAL, USOLFIN

/GOPR
