$
$     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.                                
$
$  tempmata.v705 - 3-27-98
$
$ ALTER FOR SOL 106 (VER 69) TO ALLOW TEMPERATURE DEPENDENT LINEAR ELEM
$   USE: TEMP(INIT) IN CASE CONTROL
$        HEXA(20) AND TET(10) ARE INPUT AS IF TEMP(MATE)
$	 PARAM TEMPMATE SELECTS "MATE" TEMPERATURE SET
$ EXPERIMENTAL ALTER, MORE TESTING IS NEEDED.   4/29/97      BOB HARDER
ECHOOFF
$
COMPILE	PHASE1A NOLIST NOREF $
ALTER 'TA1 *MPTS','' $ FIX LINEAR EMG, TEMP DEP MAT
TA1	MPTS,ECTS,EPTS,BGPDTS,SILS,ETT,CSTMS,DIT,,/EST,ESTNL,GEI,GPECT,
	EXTL,VGFD,DITID/LUSETS/S,N,NXESTL/S,N,NOSIMP/2/S,N,NOGENL/SEID/
	LGDISP/NLAYERS/S,N,FREQDEPS $
PARAM	//'STSR'/S,N,INIT/+10 $
PARAM	//'STSR'/V,Y,TEMPMATE/-10 $
TA1	MPTS,ECTS,EPTS,BGPDTS,SILS,ETT,CSTMS,DIT,,/EXT,EXTNL,GXI,GXECT,
	ESTL,VXFD,DXTID/LUSETS/S,N,NOESTL/S,N,NOSIMP/2/S,N,NOGENL/SEID/
	LGDISP/NLAYERS/S,N,FREQDEPS $
PARAM	//'STSR'/V,N,INIT/-10 $
$
COMPILE	SEMG NOLIST NOREF $
ALTER 'EMG *ESTL'(,-1) $ FIX LINEAR EMG, TEMP DEP MAT
PARAM	//'STSR'/S,N,INIT/+10 $
PARAM	//'STSR'/V,Y,TEMPMATE/-10 $
ALTER 'EMG *ESTL' $
PARAM	//'STSR'/V,N,INIT/-10 $
$
COMPILE	NLSTATIC $
ALTER 'SSG1 *SLT','' $ FIX LINEAR SSG1, TEMP DEP MAT
SSG1	SLT,BGPDTH,CSTMS,SILS,ESTNC,MPTS,ETT,EDT,MJJ,CASESX2,DIT,,,,
	GPSNTS,CSTM0,SCSTM/PGRESN,PTELMNL1,SLT1/LUSETS/1//APP//TABS $
PARAM	//'STSR'/S,N,INIT/+10 $
PARAM	//'STSR'/V,Y,TEMPMATE/-10 $
SSG1,	,BGPDTH,CSTMS,SILS,ESTL,MPTS,ETT,EDT,MJJ,CASESX2,DIT,,,,
	GPSNTS,CSTM0,SCSTM/PGRESL,PTELL,SLTL/LUSETS/1//APP//TABS $
PARAM	//'STSR'/V,N,INIT/-10 $
$ADD	PGRESN,PGRESL/PGRES $
ADD	PGRESN,PGRESL/PGRES0 $
$
COMPILE	SEDRCVR NOLIST NOREF $
ALTER 'OQG1,OUGV1,OES1,OEF1'(,-1) $ FIX LINEAR SDR2, TEMP DEP MAT
PARAM	//'STSR'/S,N,INIT/+10 $
PARAM	//'STSR'/V,Y,TEMPMATE/-10 $
ALTER 'OQG1,OUGV1,OES1,OEF1' $
PARAM	//'STSR'/V,N,INIT/-10 $
ENDALTER $