$
$*********************************************      basics
$
&dimen -dimen feet kips
$&title Aisc Tube Check
&subtitle
&device    -g_default device
$
$*********************************************      read model
$
inmodel
&instate -loc 0 0 -100
&weight -compute 6
medit
   ~pin fix   y z
   ~fix fix x y z rx
   connector pin ~pin *1
   connector fix ~fix *2
end
&status force
struct
   lcase -process 1
   ssolve
end
strpost
   rest         -detail
   beam stress  -detail
   beam h_col   -detail
end
$
$*********************************************      all done
$
&fini
