!   TITLE:  constants.mac (CALCULATION)
!
!                 Add logic to account for degree versus radian mode
!
!   This sub-macro creates a standard set of numerical constants. These
!   constants are used for standard modeling purposes, and are used as
!   compact short-hand notations that are easy to remember.
!
!
pi=acos(-1)                 ! the constant 'pi'
!
*if,pi,eq,180,then          !Angular function units set to degrees
  *afun,rad
  pi=acos(-1)
*endif
!
*afun,deg
!
rconv=pi/180                ! radian conversion constant (degrees to radians)
!
dconv=180/pi                ! degree conversion constant (radians to degrees)
!
rtangle=(pi/2)*dconv        ! right angle (90)
!
mtr=0.010                   ! machine tool radius
!
g_si=9.807                  ! g (m/sec^2)
!
g_bin=386.089               ! g (in/sec^2)
!
gram=453.59237              ! 1 lb = 453.59237 grams