$
$*********************************************      SET BASIC PARAMETERS
$
&dimen -DIMEN FEET KIPS
&DEVICE   -oecho no -g_default devi
&TITLE Test of Time Load Multipliers
$
$*********************************************      Read Model
$
INMODEL
$
$*********************************************      Set Initial Condition
$
&INSTATE -loc 0  0  0
$
$*********************************************     status 
$
&loop name ( linear periodic hump30 hump50 )
   &TITLE Test of Time Load Multipliers for %name
   &status curves %name -plot
      view @ -hard
      plot 1 2 -n
      end
&endloop
$
$*********************************************      Define Mooring Lines
$
MEDIT
   ~WIRE fix
   CONNECTOR b  ~WIRE   *MLB
   CONNECTOR d  ~WIRE   *MLC
   CONNECTOR f  ~WIRE   *MLD
   CONNECTOR h  ~WIRE   *MLA
END
$
$*********************************************     Move Anchors
$
&dcptime Time to Connect
$
$*********************************************     Find Equilibrium
$
&ENV TEST -TIME 100 .5 -ramp -1
$
$*********************************************     loop
$
&loop n ( 1 2 3 4 5 6 )
$
$*********************************************     apply
$
&if %n .eq. 1 &then
   &apply -percent -force #force  100
   &set title = Constant
&elseif %n .eq. 2 &then
   &set title = Linear
   &apply -time #force linear
&elseif %n .eq. 3 &then
   &set title = Periodic
   &apply -time     #force periodic 
&elseif %n .eq. 4 &then
   &set title = Load Group
   &apply -percent -force #force 0 #cow 100 \
          -periodic cow periodic
&elseif %n .eq. 5 &then
   &set start = 30
   &set title = One Hump  @ %start
   &apply -force @ 0 #force 1 -time  #force hump%start
&else
   &set start = 50
   &set title = One Hump  @ %start
   &apply -force @ 0 #force 1 -time  #force hump%start
&endif
&type %title
&title %title
&status Force
$
$*********************************************     Time Domain Post
$
TDOM -new
&DCPTIME Time For Time Domain
$
$*********************************************     Time Domain Post
$
&describe interest -assoc *mla
PRCPOST
  TOT_CFORCE -event
     plot 1 2 -n
     report
     END
END
&DCPTIME Time For Time Post Processing
&set wave = a_pres tbrg -wave_run yes
&endloop
$
$*********************************************     All Done
$
&FINI