$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$           ----------    SWAY DECAY SAMPLE  --------
$
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$*********************************************      SET BASIC PARAMETERS
$
&dimen -DIMEN FEET KIPS
&DEVICE   -g_default device
&TITLE Sample of Sway Decay In Calm Seas
&Subtitle Moored Barge
$
$*********************************************      Read Model
$
INMODEL
$
$*********************************************      Set Initial Condition
$
&INSTATE -CONDITION 9
$
$*********************************************      Define Mooring Lines
$
MEDIT
   *MLA 400    50   20
   *MLB 400   -50   20
   *MLC   0   -50   20
   *MLD   0    50   20
   ~WIRE b_cat  4.19 -dep 500 -len 4000 -buoy 0 -wtpl .008
   CONNECTOR A ~WIRE   *MLA -ANC   45   20
   CONNECTOR B ~WIRE   *MLB -ANC  -45   20
   CONNECTOR C ~WIRE   *MLC -ANC -135   20
   CONNECTOR D ~WIRE   *MLD -ANC  135   20
END
$
$*********************************************     Move Anchors
$
&connector @ -a_TENSION 50
&dcptime Time to Connect
$
$*********************************************      Frequency Domain
$
hydro
   g_press -HEADING 90
end
$
$*********************************************     Env. and Time Domain
$
&ENV TEST  -TIME 800 .5
&instat -locat 0 -25 -9
TDOM -newmar
&DCPTIME Time For Time Domain
$
$*********************************************     Time Domain Post
$
PRCPOST
  TRAJ
    REPORT LOCA
    p 1 6 -n
  END
  confor
     report
     extr 1 2 3 8 -mag
     end
END
&DCPTIME Time For Time Post Processing
$
$*********************************************     All Done
$
&FINI