$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&apply -load @ 100 -force @ 100
struct
   lcase -dead two 0 0 1
   lcase -dead one 1 0 0
   exp_aload
   ssolve
end
strpost
   &device -use_file ppo explod.ans/exp.loads -oecho no
   beam load -report -file
end
$
$*********************************************      all done
$
&finish
