$
$     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 $
$
$
$   mtranra.v69 -  updated for v69 -- 9-25-96
$
$
$
$  tested on system built on 3-14-95   VERSION 68.2 
$
$ DMAP ALTER FOR RESTART IN MODAL TRANSIENT ANALYSIS
$  FOR STRUCTURED SOL 112 
$
$ Written Feb 13, 1992 by Ted Rose
$
$  SIMILAR TO USE OF NOAP IN SOL 27
$
$ Excerpt from V65 Users' Manual on NOAP (modified)
$
$ NOAP    default = -1
$
$ In restart runs in SOL 109, a positive value of NOAP defines the
$ displacement, velocity, and acceleration state from the previous run
$ to be used as a starting point for the current analysis. The value
$ assigned to NOAP corresponds to a column number in the displacement
$ vector from the restart version. The value of NOAP is determined
$ from the following relation:
$                MOAP = 3 * NSTEP + 1
$ where NSTEP is the number of time steps in the solution vector
$ prior to the one to be used for initial conditions.
$
$ Example: A previous run created a solution for 75 steps and it
$ is desired to use the solution for the 50th step for the initial
$ conditions for the restart. Then,
$             NOAP = 3 * 49 + 1 = 148
$ New TABLEDi entries for which the starting time (0.0) is at the 50th
$ step of the previous solution are needed, as is a new TSTEP entry.
$
$
COMPILE semtran
alter 1 $
putsys(0,192) $
$
$ ALTER TO PERFORM RESTART FROM EXISTING SOLUTION IF NOAP>0
$
$
ALTER 2
TYPE PARM,,I,Y,NOAP=-1 $
$ALTER 15 
alter 'trd1'(1,-1)
message //'NOAP = '/noap $
IF (NOAP<=0) THEN $  NOT A RESTART FROM EXISTING SOLN
$
$ NORMAL MODAL TRANSIENT SOLUTION
$
$ALTER 16 
alter 'trd1'
ELSE $  RESTART FROM EXISTING SOLUTION
  MESSAGE //' RESTART FROM EXISTING SOLUTION - NOAP ='/noap $
  FILE MIC=APPEND $
$
  PROJVER //'RESTART'/S,N,PROJECT/S,N,RESTART/S,N,EXIST1 $
  DBVIEW MIC1=UHT (WHERE VERSION=RESTART AND WILDCARD=TRUE) $ get old solution
  APPEND MIC1,/MIC/2 $
$
$ perform solution from restart point - use direct soln
$
  TRD1 CASES,TRL,NLFT,DIT,KHH,BHH,MHH,PHt,,,/
       MIC,PLNH/'DIRECT'/NOUE/1/NOAP $
  EQUIVX MIC/UHT/ALWAYS $
ENDIF $
echoon $