As for previous sections, the first thing to do set the conditions.

*Set Cond Point-Load *nodes

As in the previous section, the next loop will only be executed if there is a condition in the selection.

*if(CondNumEntities(int)>0)

Here begins the loop over the nodes.

PUNCTUAL ON NODES 
*loop nodes *OnlyInCond
*NodesNum *cond(1) *cond(2) *\

The next *if sentences determine the output writing of the end of the line.

*if(GenData(Degrees_Free,int)>=3) 
*cond(3) *\ 
*endif 
*if(GenData(Degrees_Free,int)==5) 
0 0 *\ 
*endif 
*end nodes

To end the section, once again you have to include the end label and the closing *endif.

END_PUNCTUAL ON NODES 
*endif

Finally, a message is written if the value of the second field in the interval data section inside the problem file is equal to "si" (yes).

*if(strcasecmp(IntvData(2),"Si")==0) 
SELF_WEIGHT 
*endif

To signal the end of this part of the forces section, the following line is entered.

END_LOADS

Before the end of the section it remains to tell the solver what the postprocess file will be. This information is gathered from the *IntvData command. The argument that this command receives (3) specifies that the name of the file is in the third field of the loop iteration of the interval.

$----------------------------------------------------- 
$POSTPROCESS FILE FEMV = *IntvData(3)

To end the forces interval loop the *end command is entered.

$----------------------------------------------------- 
*end nodes

Finally, the complete file is ended with the sentence required by the solver.

END_CALSEF $-----------------------------------------------------

The preceding section is compiled completely into the following lines:

*Set Cond Point-Load *nodes
*if(CondNumEntities(int)>0)
PUNCTUAL ON NODES
*loop nodes *OnlyInCond
      *NodesNum *cond(1) *cond(2) *\
*if(GenData(Degrees_Free,int)>=3)
*cond(3) *\
*endif
*if(GenData(Degrees_Free,int)==5)
0 0  *\
*endif
*end
END_PUNCTUAL ON NODES
*endif
*if(strcasecmp(IntvData(2),"Si")==0)
SELF_WEIGHT
*endif
END_LOADS
$-----------------------------------------------------
$POSTPROCESS FILE
FEMV = *IntvData(3)
$-----------------------------------------------------
*end nodes
END_CALSEF
$-----------------------------------------------------

This is the end of the template file example.

Browser not supported