&set num = 1
inmodel
&env -curr 10 90 -wind 100 90
&instate -loc 0 0 -50
&stat force
&fini