$
$*********************************************      basics
$
&dimen -dimen feet kips
$&title Aisc Tube Check
&subtitle
&device    -g_default device -oecho no
$
$*********************************************      read model
$
inmodel
&instate -loc 0 0 100
&type ends of chord are: &element(ends chord)
&apply -load @ 100 -force @ 100
struct
   lc_doit big #1001.00
   ssolve
end
strpost
   cases -amod 1.3 @
   &status combine
   &status s_case
   rest         -detail
   beam code    -detail -code aisc
end
&status
&summary
   class dim
end
medit
   cl_d/t_resize @ 25 100
end
&summary
   class dim
end
$
$*********************************************      all done
$
&fini
