$
$     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 $
$
$
$   dtranra.v69 -  updated for v69 -- jml - 9-25-96
$
$
$
$   updated for system built on on 3-14-95   VERSION 68.2 
$
$ DMAP ALTER FOR RESTART IN DIRECT TRANSIENT ANALYSIS
$  FOR STRUCTURED SOL 109 
$
$ 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:
$                NOAP = 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 sedtran 
alter 1 $
putsys(0,192)
$
$ ALTER TO PERFORM RESTART FROM EXISTING SOLUTION IF NOAP>0
$
$
ALTER 2
TYPE PARM,,I,Y,NOAP=-1 $
TYPE DB,UDT $
alter 'trd1.*udt'(,-1)
IF (NOAP<=0) THEN $  NOT A RESTART FROM EXISTING SOLN
$
$ NORMAL DIRECT TRANSIENT SOLUTION
$
alter 'trd1.*udt'
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=UDT (WHERE VERSION=RESTART AND WILDCARD=TRUE) $ get old solution
  APPEND MIC1,/MIC/2 $
$
$ perform solution from restart point - use direct soln
$
  trd1  caset,trl,nlft,dit,kdd,bdd,mdd,pdt,sild,usetd,/
        mic,pnld/'direct'/noue/1/noap//'d' $
  EQUIVX MIC/UDT/ALWAYS $
ENDIF $
echoon $