*HEADING
 Substructure generations: FAN=HUB+4xBLADES
**
   Z100: a substructure for a single blade;
**
*NODE
*NGEN,LINE=C,NSET=NBLADE
*NODE
**
*ELEMENT,TYPE=S4R
*ELGEN,ELSET=CYLBLADE
**
*SHELL SECTION,ELSET=CYLBLADE,MATERIAL=MAT
 0.125, 3
*MATERIAL,NAME=MAT
*DENSITY
 7850.,
*ELASTIC,TYPE=ISOTROPIC
 2.E+11, 0.29
*nset, nset=nlook
**
** PRELOAD
**
*STEP,NLGEOM,INC=1000
*STATIC
 .1,1.
*BOUNDARY
 NBLADE,ENCASTRE
*DLOAD
 CYLBLADE, CENT, 6.3e6, 3., 3., 0., 0., 0., -1.
**
*EL PRINT,FREQ=0
*NODE PRINT,FREQ=99, NSET=NLOOK
U,
RF,
*END STEP
**
*STEP
*FREQUENCY
 20,
*EL PRINT,FREQ=0
*NODE PRINT,FREQ=0
*BOUNDARY, OP=NEW
  57, 1, 6, 0.
  58, 1, 6, 0.
  59, 1, 6, 0.
  60, 1, 6, 0.
  61, 1, 6, 0.
 118, 1, 6, 0.
*END STEP
**
**
*STEP
*SUBSTRUCTURE GENERATE,TYPE=Z100,LIBRARY=FAN,RECOVERY MATRIX=YES,MASS MATRIX=YES,OVERWRITE
*RETAINED NODAL DOFS,SORTED=NO
**
*RETAINED EIGENMODES, GENERATE
*BOUNDARY,OP=NEW
*SUBSTRUCTURE LOAD CASE,NAME=SCENTFGL
*DLOAD
 CYLBLADE, CENT, 6.3e6, 3., 3., 0., 0., 0., -1.
**
*SUBSTRUCTURE LOAD CASE,NAME=SDLOAD
*DLOAD
 CYLBLADE,P,100.
**
*END STEP