$
$     eigrl2.dat - plate model
$
SOL 103
TIME 30
diag 8
CEND
TITLE= use lanczos
ECHO= UNSORTED
SPC= 100
$DISPLACEMENT= ALL
SUBCASE 1
METHOD= 100
BEGIN BULK
$
$ PLATE DESCRIBED IN NORMAL MODES EXAMPLE PROBLEM
$
$INCLUDE 'plate.bulk' 
$*** BEGIN FILE: PLATE.BULK
$
$ GENERATE GRID CARDS
$
$ CONSTRAIN IN-PLANE MOTION, ALLOW ONLY BENDING
$
GRDSET,,,,,,,126
$
GRID,1000,,0.,0.,0.
GRID,*(1),,*(0.5),==
=(9)
GRID,2000,,0.,0.5,0.
GRID,*(1),,*(0.5),==
=(9)
GRID,3000,,0.,1.0,0.
GRID,*(1),,*(0.5),==
=(9)
GRID,4000,,0.,1.5,0.
GRID,*(1),,*(0.5),==
=(9)
GRID,5000,,0.,2.0,0.
GRID,*(1),,*(0.5),==
=(9)
$
$ CONNECT GRIDS WITH QUAD4S
$
CQUAD4,1000,100,1000,1001,2001,2000
CQUAD4,*(1),=,*(1),*(1),*(1),*(1)
=(8)
CQUAD4,2000,100,2000,2001,3001,3000
CQUAD4,*(1),=,*(1),*(1),*(1),*(1)
=(8)
CQUAD4,3000,100,3000,3001,4001,4000
CQUAD4,*(1),=,*(1),*(1),*(1),*(1)
=(8)
CQUAD4,4000,100,4000,4001,5001,5000
CQUAD4,*(1),=,*(1),*(1),*(1),*(1)
=(8)
$
$ PROPERTY ENTRY ( SPECIFY BENDING PROPERTIES ONLY ).
$ BENDING PROPERTIES ARE SPECIFIED BY THE MATERIAL ID
$ IN FIELD 5 OF THE PSHELL ENTRY, BUT MASS PROPERTIES ARE 
$ BASED ON THE MATERIAL ID SPECIFIED IN FIELD 2.
$ MAKE TWO MAT1 ENTRIES, ONE TO SPECIFY THE MATERIAL
$ FOR BENDING PROPERTIES AND THE OTHER TO SPECIFY MASS
$ DENSITY AND REFERENCE THEM APPROPRIATELY.
$
PSHELL,100,10,.1,100
$
$ MATERIAL ENTRY FOR BENDING PROPERTIES (STEEL)
$
MAT1,100,3.0E+7,,0.3
$
$ DUMMY MATERIAL ENTRY TO COMPUTE MASS
$
MAT1,10,.1,,.1,7.4E-3
$
$ USE COUPLED MASS
$
PARAM,COUPMASS,1
$
$ APPLY CONSTRAINTS TO FIX EDGE
$
SPC1,100,12345,1000,2000,3000,4000,5000
$*** END FILE: PLATE.BULK
$
$ EIGENVALUE EXTRACTION PARAMETERS
$
$EIGR,100,AGIV,,,,5
eigrl,100,,,5
$
ENDDATA