$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                         &SURFACE Results                            @
$@                                                                     @
$@ block debugging                                                     @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$****************************************          Set Dimensions
$
&dimen -save -dimen  Feet     Kips
$
$****************************************          Defaults
$
&LOCAL xfac = 1 yfac = 1 zfac = 1
&default -save
&default -fyield 36 -alpha 6.5E-6 -density 490 -emodulus 2.9E4 -poi_ratio 0.3 \ 
       -kfac 1 1 -cmfac 0.85 0.85 -flood no -use @
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                           Define Points                             @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$****************************************          Set factors
$
&set xfac = 1
&set yfac = 1
&set zfac = 1
$
$****************************************          Set body to CUBE3
$
&describe body CUBE3   _wind
$
$****************************************          Define Coordinates
$
**S00025     0.083*%xfac     0.000*%yfac     0.168*%zfac
**S00026     0.083*%xfac     0.042*%yfac     0.167*%zfac
**S00027     0.083*%xfac     0.042*%yfac     0.083*%zfac
**S00028     0.083*%xfac     0.000*%yfac     0.083*%zfac
**S00029     0.083*%xfac    -0.042*%yfac     0.083*%zfac
**S00030     0.083*%xfac    -0.042*%yfac     0.167*%zfac
**S00013     0.083*%xfac     0.000*%yfac     0.209*%zfac
**S00014     0.083*%xfac     0.083*%yfac     0.208*%zfac
**S00015     0.083*%xfac     0.083*%yfac     0.042*%zfac
**S00016     0.083*%xfac     0.000*%yfac     0.041*%zfac
**S00017     0.083*%xfac    -0.083*%yfac     0.042*%zfac
**S00018     0.083*%xfac    -0.083*%yfac     0.208*%zfac
**S00019     0.250*%xfac     0.000*%yfac     0.209*%zfac
**S00020     0.250*%xfac     0.083*%yfac     0.208*%zfac
**S00021     0.250*%xfac     0.083*%yfac     0.042*%zfac
**S00022     0.250*%xfac     0.000*%yfac     0.041*%zfac
**S00023     0.250*%xfac    -0.083*%yfac     0.042*%zfac
**S00024     0.250*%xfac    -0.083*%yfac     0.208*%zfac
**S00007     0.167*%xfac     0.000*%yfac     0.168*%zfac
**S00008     0.167*%xfac     0.042*%yfac     0.167*%zfac
**S00009     0.167*%xfac     0.042*%yfac     0.083*%zfac
**S00010     0.167*%xfac     0.000*%yfac     0.083*%zfac
**S00011     0.167*%xfac    -0.042*%yfac     0.083*%zfac
**S00012     0.167*%xfac    -0.042*%yfac     0.167*%zfac
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                           Define CUBE3                              @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$****************************************          Set Piece to CUBE3
$
&describe piece CUBE3    -diftype 3d
$
$****************************************          Define Panels
$
PANEL **S00013 **S00014 **S00020 **S00019
PANEL **S00014 **S00015 **S00021 **S00020
PANEL **S00015 **S00016 **S00022 **S00021
PANEL **S00016 **S00017 **S00023 **S00022
PANEL **S00017 **S00018 **S00024 **S00023
PANEL **S00018 **S00013 **S00019 **S00024
PANEL **S00019 **S00020 **S00021 **S00022 **S00023 **S00024
$
$****************************************          Finish Up
$
&dimen -remember
&default -remember