$
$*********************************************      basics
$
&dimen -dimen feet kips
&device   -oecho no
$
&default -co_scf  k&s -len_factor 1. -max_chd_length 10.
$
$*********************************************      read model
$
inmodel
&env null -time 0 0
&summary
   &status pile -hard
   class soil
end
$
&apply -load @ 100
&apply -force #loadx 84.86 \
       -force #loady 84.86 -force #loadz -100
&status lset
struct
   lcase -static null
   ssolve
end
&env       -depth 150
strpost
   rest
   joint deflection s_fat -life 40 -wl_ran -50 15 \
                           -sn xp
   beam code -load @ -sum
end
$
$*********************************************      all done
$
&fini
