! 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 Cohesive Macro
!
!ARG1 --> MATID
!ARG2 --> NSTATV
!ARG3 --> CRIT
!ARG4 --> KNN
!ARG5 --> KSS
!ARG6 --> KTT
!ARG7 --> SN
!ARG8 --> SS
!ARG9 --> ST
!AR10 --> CRIT PARAM 1
!AR11 --> CRIT PARAM 2
!AR12 --> CRIT PARAM 3
!AR14 --> CRIT PARAM 3
!

MATID = ARG1
NSTATV = ARG2
CRIT = ARG3
KNN = ARG4
KSS = ARG5
KTT = ARG6
SN = ARG7
ST = ARG8
SS = ARG9
AUX1 = AR10
AUX2 = AR11
AUX3 = AR12
AUX4 = AR13

MAT,MATID
TB,STATE,MATID,,NSTATV

TB,CZM,MATID,,11,USER
TBTEMP,0.0
TBDATA,1,CRIT,KNN,KSS,KTT,SN,SS
TBDATA,7,ST,AUX1,AUX2,AUX3,AUX4

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

/GOPR
