$
$     THIS ALTER IS CONFIDENTIAL AND A TRADE SECRET OF THE 
$     MSC.Software CORP.  THE RECEIPT OR POSSESSION OF
$     THIS ALTER DOES NOT CONVEY ANY RIGHTS TO REPRODUCE OR
$     DISCLOSE ITS CONTENTS, OR TO MANUFACTURE, USE, OR SELL
$     ANYTHING HEREIN, IN WHOLE OR IN PART, WITHOUT THE 
$     SPECIFIC WRITTEN CONSENT OF THE MSC.Software CORPORATION.                                
$
echooff $
$
$
$  glforcea.v69 -  updated for v69 -- jml - 9-25-96
$
$       updated for system built on on 3-14-95   VERSION 68.2 
$     
$       filename - glforcea.v68
$
$  ALTER FOR GLOBAL-LOCAL ANALYSIS USING FORCE METHOD - CREATE BOUNDARY
$    FORCE VECTOR FOR LOCAL S.E. AND THEN CREATE DMIG CARDS IN PUNCH FILE
$    TO BE USED IN ANALYSIS OF LOCAL MODEL IN SEPARATE RUN
$
$    THIS ALTER SHOULD NOT BE USED IF INERTIA RELIEF IS PRESENT IN THE MODEL
$
$ *******USES PARAMETER SELOCAL - SET TO I.D. OF S.E. IN GLOBAL MODEL
$       WHICH GETS REPLACED BY LOCAL MODEL*********
$
$  ALTER IS FOR VERSION 68
$
compile sestatic $
alter 1 $
putsys(0,192) $
$
COMPILE SUPER3 $
ALTER 1 $
TYPE DB,ZUZR01,KAA,PA $ INTEXT
TYPE PARM,NDDL,I,N,ZUZR1,SEID $
TYPE PARM,,I,Y,(SELOCAL=-1) $
$
$ALTER 129  $ after SEDR
$alter 'sedr.*slt'
alter 'call.*setq' $
$
$ CALCULATE BOUNDARY FORCES AND CREATE DMIG CARDS FOR S.E. NUMBER SELOCAL
$
$ IF SELOCAL NOT SET BY USER DON'T CREATE FORCE DMIG CARDS
$
IF (SELOCAL=SEID) THEN
 PARAML  SILS//'TRAILER'/2/S,N,LUSETS $
 MATGEN    EQEXINS/intext/9/0/LUSETS $
 ZUZR1=SEID $

 MPYAD     KAA,ULS,PA/BFORCEL///-1 $ CALC BOUNDARY FORCES
 UMERGE    USET,BFORCEL,/BFORCE/'G'/'L'/'O' $ EXPAND TO GLOBAL SIZE
 MPYAD     intext,BFORCE,/BFEXT/1 $ CHANGE TO EXTERNAL SORT
 VECPLOT   BFORCE,BGPDTS,EQEXINS,CSTMS,CASES,,,/BFG/GRDPNT/0/+1/'BFORC' $
 MATMOD    BFEXT,EQEXINS,,,,/MATPOOL,/16/1//////////'BF' $ PUNCH DMIG CARDS
ENDIF
$
endalter $
echoon $