$
$     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.                                
$
$
$
$     dmigtrna.v69 -  updated for v69 -- jml - 9-25-96
$
$    updated for system built on on 3-14-95   VERSION 68.2 
$  
$ This run/alter will transform the dmig matrix selected by the K2GG
$ Case Control command from the coordinate system listed on PARAM XCID to 
$ the basic coordinate system. It will then punch the transformed
$ DMIG matrix into the punch file.
$
echooff $
COMPILE USERDMAP $
$
ALTER 2
TYPE PARM,,I,Y,XCID=0
PVT      PVT,CASECC/PVTC/ $ load parameter values
$ execute GP1 to generate EQEXIN for MTRXIN module
GP1      GEOM1,GEOM2,,,/
         GPL,EQEXIN,GPDT,CSTM,BGPDT,SIL,/
         S,N,LUSET/0/0 $
MTRXIN  CASECC,MATPOOL,EQEXIN,SIL,/K2GG,,,,/LUSET/S,N,NOM1/////1 $
$ add slashes for v2004
IF (NOM1 < 0) THEN $
  MESSAGE //'FATAL ERROR -- DMIG MATRIX COULD NOT BE READ IN.'/ $
  MESSAGE //'CHECK SPELLING ON K2GG CASE CONTROL COMMAND.'/ $
  EXIT $
ENDIF $
$ GENERATE TRANSFORMATION MATRIX
MATMOD CSTM,SIL,,,,/TRANSG,/5//XCID $
$ TRANSFORM
MPYAD  K2GG,TRANSG,/KGGT/ $
MPYAD  TRANSG,KGGT,/KNGG2/1 $
MODTRL KNGG2////6 $
$
$ GENERATE DMIG MATRIX FOR KNGG2
$
MATMOD KNGG2,EQEXIN,,,,/MATPOOL1,/16/1 $
EXIT $
$
echooff $