*#     // for line
*#
*#  begin of MACRO_JOINTS
*#          && IntervalIndex==1
*#If(nrods>0)
*Set Cond Load_universally_for_Line *elems  
*If(CondNumEntities(Int)>0)
// load universally lines macro_joint selection has *CondNumEntities entities
*realformat " %5g"
MACRO_JOINT COORDINATES
*loop elems *OnlyInCond
   *elemsConec(1) *tcl(GetNodeCoordinates *elemsConec(1))
   *elemsConec(2) *tcl(GetNodeCoordinates *elemsConec(2)) 

*End elems
*EndIf
*#
*#
*#
*Set Cond Load_universally_for_Line *elems  
*If(CondNumEntities(Int)>0)
// load universally lines selection has *CondNumEntities entities
*realformat " %5g"
*loop elems *OnlyInCond
SELECTION "LOAD_UNIVERSALLY_ELEM_*ElemsNum_Interval*IntervalNum" LIST *elemsConec(1) *elemsConec(2) 
SELECTION_REAL "LOAD_UNIVERSALLY_ELEM_*ElemsNum_Interval*IntervalNum_LOAD" LIST *Cond(Force_Value,Real) *Cond(Force_Value,Real) 

*End elems
*EndIf
*#
*#
*#     // for surface
*#
*#  begin of MACRO_JOINTS
*#          && IntervalIndex==1
*#If(nrods>0)
*Set Cond Load_universally_for_Surface *elems  
*If(CondNumEntities(Int)>0)
// load universally surfaces macro_joint selection has *CondNumEntities entities
*realformat " %5g"
MACRO_JOINT COORDINATES
*loop elems *OnlyInCond
   *elemsConec(1) *tcl(GetNodeCoordinates *elemsConec(1))
   *elemsConec(2) *tcl(GetNodeCoordinates *elemsConec(2)) 
   *elemsConec(3) *tcl(GetNodeCoordinates *elemsConec(3))
   *elemsConec(4) *tcl(GetNodeCoordinates *elemsConec(4)) 

*End elems
*EndIf
*#
*#
*#
*Set Cond Load_universally_for_Surface *elems  
*If(CondNumEntities(Int)>0)
// load universally surfaces selection has *CondNumEntities entities
*realformat " %5g"
*loop elems *OnlyInCond
SELECTION "LOAD_UNIVERSALLY_ELEM_*ElemsNum_Interval*IntervalNum" LIST *elemsConec(1) *elemsConec(2) *elemsConec(3) *elemsConec(4)
SELECTION_REAL "LOAD_UNIVERSALLY_ELEM_*ElemsNum_Interval*IntervalNum_LOAD" LIST *Cond(Force_Value,Real) *Cond(Force_Value,Real) *Cond(Force_Value,Real) *Cond(Force_Value,Real)

*End elems
*EndIf