LOAD FUNCTION *Operation((IntervalIndex*10000000)+ 123000) MASS_ACCELERATIONS VALUE *IntvData(Ground_Accelerogram_Direction) 1

*If(IntvData(Ground_Accelerogram2,real)==1 && ApplyInSubIncrement==1)
*# Begin block of Ground_accelerogram2
LOAD FUNCTION *Operation((IntervalIndex*10000000)+ 124000) MASS_ACCELERATIONS VALUE *IntvData(Ground_Accelerogram_Direction2) 1
*# End block of Ground_accelerogram2
*EndIf
*If(IntvData(Ground_Accelerogram3,real)==1 && ApplyInSubIncrement==1)
*# Begin block of Ground_accelerogram2
LOAD FUNCTION *Operation((IntervalIndex*10000000)+ 125000) MASS_ACCELERATIONS VALUE *IntvData(Ground_Accelerogram_Direction3) 1
*# End block of Ground_accelerogram2
*EndIf