@compressNodeElems()

Syntax

@compressNodeElems ()

Type

HyperMesh Template Function

Description

Returns 0 if HM_NODEELEMS_SET_COMPRESS_SKIP is passed via *feoutputwithdata.

Example

*if([@compressNodeElems()])
// counter7 is 1 that means for resp. type we have to compress node/elems
*counterset(counter7,1)
*counterset(counter1,0)
*loopif([counter1 < idsmax])
*pointerset(pointer1,ids,counter1)
*rangeadd(pointer1.pointervalue)
*counterinc(counter1)
*endloop()
*counterset(counter1,[@rangecount()])
*counterset(counter2,0)
*counterset(counter3,0)
*counterset(counter4,0)
*counterset(counter5,0)
*counterset(counter6,0)
*counterset(counter8,0)
*if([counter1 > 0])
*loopif([counter2 < counter1])
*counterset(counter3,[@rangestart(counter2+1)])
*counterset(counter4,[@rangeend(counter2+1)])
// Store ids
*if([counter3==counter4])
*tablestore(counter6,counter3)
*counterinc(counter6)
*endif()
*if([(counter3+1)==counter4])
*tablestore(counter6,counter3)
*counterinc(counter6)
*tablestore(counter6,counter4)
*counterinc(counter6)
*endif()
//Write Ranges first
*if([counter4>(counter3+1)])
// Check if it is first line or next continuation line
*if([counter8==1])
*end()
*string("+       ")
*endif()
*fieldleft(integer,counter3,8)
*string("  THRU  ")
*fieldleft(integer,counter4,8)
*counterset(counter8,1)
*endif()
*counterinc(counter2)
*endloop()
// Write ids
*if([counter6>=1])
*counterset(counter9,2)
// Check if it is first line or next continuation line
*if([counter8==1])
*counterset(counter9,0)
*endif()
*loopif([counter5 < counter6])
*if([(counter9 % 8) == 0])
*end()
*string("+       ")
*endif()
*fieldleft(integer,[@lookup(counter5)],8)
*counterinc(counter5)
*counterinc(counter9)
*endloop()
*tablereset()
*endif()
*endif()
*rangereset()
*if([counter1== 0])
*end()
*endif()
*endif()

Version History

14.0.110