abdu90
Structural
- Jan 18, 2021
- 9
Hello,
I am traying to define young modulus of a soil medium as a function of a 3D coordinates E(x,y,z). The coordinates and the average young modulus will be given in a table format (from excel sheet or .txt file) see example bellow. Is there is a way to do that using user subroutine USDFLD?
- example
x(m) y(m) z(m) E (MPa)
0 0 0 5000e6
1 1.2 5.1 5050e6
2 2.1 8.15 6007e6
- fortran code example (not complete)
c------------------------------------------------------------------------------
c USDFLD subroutine
c------------------------------------------------------------------------------
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,
3 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(*),
1 coord(*)
c -------------------------------------------------------------------------
c read x,y,z-coordinates
x = coord(1)
y = coord(2)
z = coord(3)
c define depend state variable (E(x,y,z))
field(1) = x
field(2) = y
field(2) = z
c save E value in state varaible
statev(1) = E
c assign initial values
field(1) = statev(1)
--------------------------------------------------------------------------
return
end
I am traying to define young modulus of a soil medium as a function of a 3D coordinates E(x,y,z). The coordinates and the average young modulus will be given in a table format (from excel sheet or .txt file) see example bellow. Is there is a way to do that using user subroutine USDFLD?
- example
x(m) y(m) z(m) E (MPa)
0 0 0 5000e6
1 1.2 5.1 5050e6
2 2.1 8.15 6007e6
- fortran code example (not complete)
c------------------------------------------------------------------------------
c USDFLD subroutine
c------------------------------------------------------------------------------
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,
3 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(*),
1 coord(*)
c -------------------------------------------------------------------------
c read x,y,z-coordinates
x = coord(1)
y = coord(2)
z = coord(3)
c define depend state variable (E(x,y,z))
field(1) = x
field(2) = y
field(2) = z
c save E value in state varaible
statev(1) = E
c assign initial values
field(1) = statev(1)
--------------------------------------------------------------------------
return
end