$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                       Converted SACS Model                          @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$****************************************          Set Dimensions
$
&dimen -save -dimen  Feet     Kips
$
$****************************************          Defaults
$
&LOCAL xfac = 1 yfac = 1 zfac = 1
&default -save
&default -fyield 36 -alpha 6.5E-6 -density 490 -emodulus 2.9E4 -poi_ratio 0.3 \ 
       -kfac 1 1 -cmfac 0.85 0.85 -flood no -use @
$
$****************************************          Macros
$
use_mac sac.mac
$
$****************************************          doload?
$
&if .not. &v_exist(doload) &then
   &local doload = .true.
&endif
$
$****************************************          flood?
$
&if .not. &v_exist(flood) &then
   &local flood = yes
&endif
$
$****************************************          plate local axes
$
&default -dir_pla nodes
$
$****************************************          load cat
$
&default -ext_cat load000
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                           Ignored Cards                             @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$LDOPT       NF+Z  64.200  490.00    0.00    0.00
$
$****************************************          Change Dimensions
$
&dimen -dimen feet kips
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                              Classes                                @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                               Nodes                                 @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
*J1
*J2         10.000*%xfac
*J4         10.000*%xfac     0.000*%yfac    10.000*%zfac
*J5          0.000*%xfac     0.000*%yfac    10.000*%zfac
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                             Elements                                @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                           Loads Factors                             @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
&local wt_air  = .true.
&local smargin = 1.
&local use_comments = .true.
&local load000 = &number(real 1.00/%smargin)
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                               Loads                                 @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
&if %doload &then
sarea 12 #area 100 10 10  -cen 5 5 5 *J1 *J2 *J4 *J5 -wind  1.1 -drag 0 -amass 0
&endif
$
$****************************************          Finish Up
$
&dimen -remember
&default -remember