Multiple output from UAMP abaqus subroutine

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!