Hello everyone,
I have a question regarding the possibility of calculating multiple outputs using the UAMP subroutine. For example, I am interested in computing forces in both the x- and z-directions, defined as: fx=a1cos(ωt) and fz= a1sin(ωt). These forces would then be applied as concentrated loads in the inp file like the following.
*Amplitude, Name=Amp-1, Definition=User
*CLOAD, amplitude=Amp-1
Node_1, 1, 1
Node_1, 3, 1
uamp subroutine
SUBROUTINE UAMP(ampName, time, ampValueOld, dt, nProps, props, nSvars, svars, &
lFlagsInfo, nSensor, sensorValues, sensorNames,jSensorLookUpTable, &
ampValueNew,lFlagsDefine, AmpDerivative, AmpSecDerivative, AmpIncIntegral, AmpIncDoubleIntegral)
include 'aba_param.inc'
dimension ampValueNew(2)
DOUBLE PRECISION time, ampValueNew, OMEGA, F_X, F_Z
F_X = 100* COS(OMEGA * time)
F_Z = 100* SIN(OMEGA * time)
ampValueNew(1) = F_X
ampValueNew(2) = F_Z
RETURN
END SUBROUTINE
Thank you!