ASSIGN INPUTT4='ddam.f12',unit=13, formatted
RESTART, VERSION=1, KEEP $
ASSIGN MASTER='ddam1.MASTER'
$ ID GUN,DDAM
ID GUN, DDAM2
SOL 103
DIAG 8,56
TIME 999
INCLUDE 'ddama.v707'
CEND
TITLE=MOCK GUN MODEL - TEST PARTITION VECTOR                   DDAM2
SUBTI=DDAM ANALYSIS - TEST WITH UPSTREAM S.E.s
LABEL=RUN 2PART - READ INPUT FROM NAVSHOK AND RUN
$SEALL=ALL - REMOVED FOR RESTART RUN
$SET 99 = 0
$SEMG = 99 $ R.S. SOLUTION
DISPLACEMENT=ALL
VELOCITY=ALL
ACCELERATION=ALL
STRESS=ALL
FORCE=ALL
SEDR = ALL
SUBCASE 1
SUPER = 1      $ SUPERELEMENT 1
METHOD = 198   $ PERFORM COMPONENT MODAL SYNTHESIS - LANCZOS
DISPLACEMENT=ALL
VELOCITY=ALL
ACCELERATION=ALL
STRESS=ALL
FORCE=ALL
SUBCASE 2      $ RESIDUAL STRUCTURE
METHOD=199     $ LANCZOS
SPC=101
BEGIN BULK
$
$ change value of SCRSPEC to +1
/,93
param,scrspec,1
$
$  PARTITION VECTOR FOR SELECTED RESULTS
$
DMI,PARTNVEC,0,2,1,,,39,3
$  FIRST SET = ALL 39 MODES USED
DMI,PARTNVEC,1,1,1.,THRU,39
$  SECOND SET = USE MODES 1-4
DMI,PARTNVEC,2,1,1.,4,1.
$  THIRD SET = USE MODE 12 ONLY
DMI,PARTNVEC,3,12,1.
enddata