*Set Var PreviousType=0
*Set Var CurrentType=-1
*Set Var PreviousIndex=-2
*Set Var groupID=-3
*#
*Set Var nshells=0
*Set Var nbeam=0
*loop elems
*If(ElemsType!=1)
*#
*include ..\include.src.bas\CurrentElementGroupID.bas
*#
*# // PreviousType CurrentType PreviousIndex groupID ElemsType
*# *PreviousType *CurrentType *PreviousIndex *groupID *ElemsType
*If((PreviousType!=CurrentType || PreviousIndex!=groupID) && ElemsType!=1)
*# CurrentType= *CurrentType ElemsType= *ElemsType
*If((CurrentType==16 || CurrentType==46) && ElemsType==5 && ElemsNnode==20)
ELEMENT TYPE ID *groupID PREPARE_CALCULATION ;
*Set Var PreviousType=CurrentType
*Set Var PreviousIndex=groupID
*Set Var oldElemsMat=ElemsMat(Int)
*EndIf
*EndIf
*EndIf
*End elems
