$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                      Converted STRUDL Model                         @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$****************************************          Set Dimensions
$
&dimen -save -dimen Meters   M-Tons
$
$****************************************          Defaults
$
&LOCAL xfac = 1 yfac = 1 zfac = 1
&default -save
&default -fyield 248.04 -alpha 3.6111E-6 -spgravit 7.8492 -emodulus 1.9981E5 \ 
       -poi_ratio 0.3 -kfac 1 1 -cmfac 0.85 0.85 -flood no -use @
$
$****************************************          Macros
$
use_mac strudl.mac
$
$****************************************          doload?
$
&if .not. &v_exist(doload) &then
   &local doload = .true.
&endif
$
$****************************************          flood?
$
&if .not. &v_exist(flood) &then
   &local flood = yes
&endif
$
$****************************************          Strudl Axis
$
&default -stgaxis 0 1 0 -1 0 0
$
$****************************************          plate local axes
$
&default -dir_pla nodes
$
$****************************************          load cat
$
&default -ext_cat load000
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                           Ignored Cards                             @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$STRUDL
$TYPE SPACE FRAME
&default -ext_cat loaTOTO
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                              Classes                                @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
~ULTRAM0 TUBE 500 100 -dens 8.8905
~ULTRAM1 TUBE 500 100 -dens 8.8905
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                               Nodes                                 @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
*J10
*J20        20.000*%xfac
*J30        40.000*%xfac
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                             Elements                                @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
BEAM CA651.02 ~ULTRAM0 *J10 *J20
BEAM CA651.03 ~ULTRAM1 *J20 *J30
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                           Loads Factors                             @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
&local wt_air  = .false.
&local smargin = 1.
&local use_comments = .true.
&local loaTOTO = &number(real 1.00/%smargin)
&local load000 = &number(real 1.00/%smargin)
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                               Loads                                 @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
&if %doload &then
LMEM CA651.02 5.2619E-2 0 0 0 0 0 -loc 0 0 -sgrav 7.6563 -fact %loaTOTO
LMEM CA651.03 5.2619E-2 0 0 0 0 0 -loc 0 0 -sgrav 7.6563 -fact %loaTOTO
&endif
$
$****************************************          Finish Up
$
&dimen -remember
&default -remember