Search
Close this search box.
Notifications
Clear all

VUSDFLD + Error in connection to analysis

1 Posts
1 Users
0 Reactions
501 Views
Posts: 16
Topic starter
(@Poshman)
Active Member
Joined: 8 years ago

Hi all ... am trying to change Youngs modulus based on strain rate using VUSDFLD, but the code compiles fine but when the analysis is about to start it exits with Error in connection to analysis msg. I am pasting the VUSDFLD code below. Please help me to identify the error. Thanks.

c

c User subroutine VUSDFLD for user-defined fields

c

subroutine vusdfld(

c Read only -

* nblock, nstatev, nfieldv, nprops, ndir, nshr,

* jElemUid, kIntPt, kLayer, kSecPt,

* stepTime, totalTime, dt, cmname,

* coordMp, direct, T, charLength, props,

* stateOld,

c Write only -

* stateNew, field )

c

include vaba_param.inc

dimension field(nblock, nfieldv)

character*80 cmname

c

character*3 cData(maxblk)

dimension jData(maxblk)

dimension eps(maxblk)

c

parameter ( zero = 0.d0 )

c

c Get strains from previous increment

jStatus = 1

call vgetvrm( LE, eps, jData, cData, jStatus )

do k = 1, nblock

c Calculate strain rate.

davg=(-eps(1)-eps(2)-eps(3))/3.

d1d=eps(1)+davg

d2d=eps(2)+davg

d3d=eps(3)+davg

d4d=eps(4)

d5d=eps(5)

d6d=eps(6)

ds=d4d*d4d+d5d*d5d+d6d*d6d

effs=sqrt(2.*(d1d*d1d+d2d*d2d+d3d*d3d+2.*ds)/3.)

if (totalTime.ne.0) then

effsr=effs/dt

endif

field(k,1) = effsr

end do

c

return

end

Topic Tags
Share: