Continue to Site

Eng-Tips is the largest engineering community on the Internet

Intelligent Work Forums for Engineering Professionals

  • Congratulations waross on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Seeking Help with Defining VUSDFLD Subroutine from USDFLD in ABAQUS

Status
Not open for further replies.

DemonMelon

Student
Aug 10, 2023
2
I am currently facing a technical challenge regarding the transition from static analysis in ABAQUS Standard to explicit dynamics analysis.

Specifically, I have been using the USDFLD subroutine to define a material with varying elastic modulus and Poisson's ratio based on the thickness direction of a plate.

However, I am now required to perform an explicit dynamics analysis with the same material properties, and I am unsure about how to define the VUSDFLD subroutine accordingly.

Can anyone help my problem?

Thanks.


Code:
 
Replies continue below

Recommended for you

SUBROUTINE USDFLD(FIELD,STATEV,PNEWDT,DIRECT,T,CELENT,
1 TIME,DTIME,CMNAME,ORNAME,NFIELD,NSTATV,NOEL,NPT,LAYER,
2 KSPT,KSTEP,KINC,NDI,NSHR,COORD,JMAC,JMATYP,MATLAYO,LACCFLA)
C
INCLUDE 'ABA_PARAM.INC'
C
CHARACTER*80 CMNAME,ORNAME
CHARACTER*3 FLGRAY(15)
DIMENSION FIELD(NFIELD),STATEV(NSTATV),DIRECT(3,3),
1 T(3,3),TIME(2)
DIMENSION ARRAY(15),JARRAY(15),JMAC(*),JMATYP(*),COORD(*)

C-----------------------------------------------------------------------
C user coding to define FIELD and, if necessary, STATEV and PNEWDT
C-----------------------------------------------------------------------
C CENTER OF COORDINATE SYSTEM
X0=0.0
Y0=0.0
Z0=0.0
C READ X,Y,Z COORDINATES OF THE NODE
X=COORD(1)
Y=COORD(2)
Z=COORD(3)
C CALCULATE YOUNG`S MODULUS IN CYLINDRICAL COORDINATES
E=SQRT((Z-Z0)**2+(Y-Y0)**2)
C DEFINE DEPENDENT VARIABLE E(X,Y)
FIELD(1)=E
C SAVE E IN STATEV(1)
STATEV(1)= -4112*E**3 + 1.727e+05*E**2 - 2.397e+06*E + 1.101e+07

C------------------ END OF USER CODE ---------------------------------
RETURN
END


Above is the usdfld subroutine.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor