// Coordinate definition. Suma= *npoin
JOINT COORDINATES
*loop nodes
*format "%8i %10.5f %10.5f %10.5f "
*NodesNum *NodesCoord
*End nodes

SET MAX_REF_ID NODES_SMART_IDS_MAP *Operation((npoin/100+1)*100)
SET MAX_REF_ID LOAD_CASES_SMART_IDS_MAP 2000000

*# // section For deleting of free joints
*# *loop Intervals
*# *Set Cond Reinforcement_Elems_Identification *elems   
*# *Set Var ReinfElemBars=nelem(Linear)
*# *If(CondNumEntities(Int)!=nelem(Linear))
*# *MessageBox error: Some Reinforcements have not assignate condition For identification - Reinforcement_Elem_Identification (Line condition)
*# *EndIf
*# *break
*# *End intervals
*# 
*# *If(ReinfElemBars>0)
*# *loop Intervals
*# *Set Cond Reinforcement_Nodes_Identification *nodes   
*# *If(CondNumEntities(Int)>0)
*# *loop nodes *OnlyInCond
*#   Delete Joint *NodesNum
*# *End nodes
*#  ;
*# *EndIf
*# *break
*# *End Intervals
*# *EndIf
*# 
