
*#// elemsType = *ElemsType ElemsNode = *ElemsNnode Non-Quadratic-Neighbour= *Cond(Non-Quadratic-Neighbour,Int)
*If( (ElemsType==4 && ElemsNnode==4 && Cond(Non-Quadratic-Neighbour,Int)==0)   ||  (ElemsType==4 && ElemsNnode==10 && Cond(Non-Quadratic-Neighbour,Int)==1)     )
*#  LIST *GlobalNodes(1) *GlobalNodes(2) *GlobalNodes(3) ;
  	*index *GlobalNodes(1) *GlobalNodes(2) *GlobalNodes(3)
*include ..\include.src.bas\SpringNumbering.bas
*ElseIf(ElemsType==4 && ElemsNnode==10 && Cond(Non-Quadratic-Neighbour,Int)==0)
*#  LIST *GlobalNodes(1) *GlobalNodes(2) *GlobalNodes(3) *GlobalNodes(4) *GlobalNodes(5) *GlobalNodes(6) ;
  	*index *GlobalNodes(1) *GlobalNodes(4) *GlobalNodes(6)
*include ..\include.src.bas\SpringNumbering.bas
  	*index *GlobalNodes(4) *GlobalNodes(2) *GlobalNodes(5)
*include ..\include.src.bas\SpringNumbering.bas
  	*index *GlobalNodes(4) *GlobalNodes(5) *GlobalNodes(6)
*include ..\include.src.bas\SpringNumbering.bas
  	*index *GlobalNodes(5) *GlobalNodes(3) *GlobalNodes(6)
*include ..\include.src.bas\SpringNumbering.bas
*ElseIf( (ElemsType==5 && ElemsNnode==8 && Cond(Non-Quadratic-Neighbour,Int)==0 )  ||  (ElemsType==5 && ElemsNnode==20 && Cond(Non-Quadratic-Neighbour,Int)==1)   )
*#  LIST *GlobalNodes(1) *GlobalNodes(2) *GlobalNodes(3) *GlobalNodes(4) ;
        *index *GlobalNodes(1) *GlobalNodes(2) *GlobalNodes(3)
*include ..\include.src.bas\SpringNumbering.bas
        *index *GlobalNodes(1) *GlobalNodes(3) *GlobalNodes(4)
*include ..\include.src.bas\SpringNumbering.bas
*ElseIf(ElemsType==5 && ElemsNnode==20 && Cond(Non-Quadratic-Neighbour,Int)==0)
*# LIST *GlobalNodes(1) *GlobalNodes(2) *GlobalNodes(3) *GlobalNodes(4) *GlobalNodes(5) *GlobalNodes(6) *GlobalNodes(7) *GlobalNodes(8) ;
  	*index *GlobalNodes(3) *GlobalNodes(6) *GlobalNodes(7)
*include ..\include.src.bas\SpringNumbering.bas
 	*index *GlobalNodes(6) *GlobalNodes(2) *GlobalNodes(5)
*include ..\include.src.bas\SpringNumbering.bas
 	*index *GlobalNodes(5) *GlobalNodes(1) *GlobalNodes(8)
*include ..\include.src.bas\SpringNumbering.bas
 	*index *GlobalNodes(8) *GlobalNodes(4) *GlobalNodes(7)
*include ..\include.src.bas\SpringNumbering.bas
 	*index *GlobalNodes(7) *GlobalNodes(6) *GlobalNodes(8)
*include ..\include.src.bas\SpringNumbering.bas
 	*index *GlobalNodes(6) *GlobalNodes(5) *GlobalNodes(8)
*include ..\include.src.bas\SpringNumbering.bas
*ElseIf(ElemsType==5 && ElemsNnode==27)
*#  LIST *GlobalNodes(1) *GlobalNodes(2) *GlobalNodes(3) *GlobalNodes(4) *GlobalNodes(5) *GlobalNodes(6) *GlobalNodes(7) *GlobalNodes(8) *GlobalNodes(9) ;
*ElseIf(ElemsType==6 && ElemsNnode==6)
*#  LIST *GlobalNodes(1) *GlobalNodes(2) *GlobalNodes(3) ;
*If(ElemsNnodeFace==3)
  	*index *GlobalNodes(1) *GlobalNodes(2) *GlobalNodes(3)
*include ..\include.src.bas\SpringNumbering.bas
Else
  	*index *GlobalNodes(1) *GlobalNodes(2) *GlobalNodes(4)
*include ..\include.src.bas\SpringNumbering.bas
  	*index *GlobalNodes(3) *GlobalNodes(4) *GlobalNodes(2)
*include ..\include.src.bas\SpringNumbering.bas 	
*EndIf  	
*ElseIf(ElemsType==6 && ElemsNnode==15)
*#  LIST *GlobalNodes ;
*If(ElemsNnodeFace==6)
  	*index *GlobalNodes(1) *GlobalNodes(4) *GlobalNodes(6)
*include ..\include.src.bas\SpringNumbering.bas
  	*index *GlobalNodes(4) *GlobalNodes(2) *GlobalNodes(5)
*include ..\include.src.bas\SpringNumbering.bas
  	*index *GlobalNodes(4) *GlobalNodes(5) *GlobalNodes(6)
*include ..\include.src.bas\SpringNumbering.bas
  	*index *GlobalNodes(5) *GlobalNodes(3) *GlobalNodes(6)
*include ..\include.src.bas\SpringNumbering.bas
*Else
*# nebo 8
/* others */ 
  	*index *GlobalNodes(3) *GlobalNodes(6) *GlobalNodes(7)
*include ..\include.src.bas\SpringNumbering.bas
 	*index *GlobalNodes(6) *GlobalNodes(2) *GlobalNodes(5)
*include ..\include.src.bas\SpringNumbering.bas
 	*index *GlobalNodes(5) *GlobalNodes(1) *GlobalNodes(8)
*include ..\include.src.bas\SpringNumbering.bas
 	*index *GlobalNodes(8) *GlobalNodes(4) *GlobalNodes(7)
*include ..\include.src.bas\SpringNumbering.bas
 	*index *GlobalNodes(7) *GlobalNodes(6) *GlobalNodes(8)
*include ..\include.src.bas\SpringNumbering.bas
 	*index *GlobalNodes(6) *GlobalNodes(5) *GlobalNodes(8)
*include ..\include.src.bas\SpringNumbering.bas
*EndIf
*ElseIf(ElemsType==3 && ElemsNnode==8 && Cond(Non-Quadratic-Neighbour,Int)==0)
 	*index *GlobalNodes(1) *GlobalNodes(3)
*include ..\include.src.bas\SpringMaterialNumbering.bas
 	*index *GlobalNodes(3) *GlobalNodes(2)
*include ..\include.src.bas\SpringMaterialNumbering.bas
*ElseIf(  (ElemsType==3 && ElemsNnode==4 && Cond(Non-Quadratic-Neighbour,Int)==0)    ||  (ElemsType==3 && ElemsNnode==8 && Cond(Non-Quadratic-Neighbour,Int)==1)        )
 	*index *GlobalNodes(1) *GlobalNodes(2) 
*include ..\include.src.bas\SpringMaterialNumbering.bas
*ElseIf( (ElemsType==2 && ElemsNnode==3 && Cond(Non-Quadratic-Neighbour,Int)==0)    ||  (ElemsType==2 && ElemsNnode==6 && Cond(Non-Quadratic-Neighbour,Int)==1)        )
 	*index *GlobalNodes(1) *GlobalNodes(2) *GlobalNodes(3)
*include ..\include.src.bas\SpringMaterialNumbering.bas
*ElseIf(ElemsType==2 && ElemsNnode==6 && Cond(Non-Quadratic-Neighbour,Int)==0)
 	*index *GlobalNodes(1) *GlobalNodes(2) *GlobalNodes(3)
*include ..\include.src.bas\SpringMaterialNumbering.bas
 	*index *GlobalNodes(2) *GlobalNodes(3) *GlobalNodes(5)
*include ..\include.src.bas\SpringMaterialNumbering.bas
 	*index *GlobalNodes(2) *GlobalNodes(5) *GlobalNodes(4)
*include ..\include.src.bas\SpringMaterialNumbering.bas
 	*index *GlobalNodes(3) *GlobalNodes(6) *GlobalNodes(5)
*include ..\include.src.bas\SpringMaterialNumbering.bas
*ElseIf( (ElemsType==1 && ElemsNnode==2 && Cond(Non-Quadratic-Neighbour,Int)==0)    ||  (ElemsType==1 && ElemsNnode==3 && Cond(Non-Quadratic-Neighbour,Int)==1)     )
 	*index *GlobalNodes(1) *GlobalNodes(2)
*include ..\include.src.bas\SpringMaterialNumbering.bas
*ElseIf(ElemsType==1 && ElemsNnode==3 && Cond(Non-Quadratic-Neighbour,Int)==0)
 	*index *GlobalNodes(1) *GlobalNodes(2)
*include ..\include.src.bas\SpringMaterialNumbering.bas
 	*index *GlobalNodes(2) *GlobalNodes(3)
*include ..\include.src.bas\SpringMaterialNumbering.bas
*Else
*#  LIST *GlobalNodes ;
// *\
*WarningBox Info: "Attention !!! Definition of elemental spring is programmed only for face of shell elements. It si in Write_Elemental_Springs.bas" ;
*EndIf
