*     This is the include file for the Ballastic program.
*     The file includes the parameters needed for the
*     program.

* PARAMETERS: These define the constants in the program that
*     the user would not change

      real*8 Pi    ! Pi for converting degs to rads
      real*8 rad_to_deg  ! Conversion from radians to degrees
      real*8 deg_to_rad  ! Conversion from degrees to radians
      real*8 g_0   ! Value of gravity at surface (m/s**2)
      real*8 rho_air  ! Density of air at surface (kg/m**3)

      parameter ( Pi    = 3.1415926535897932D0 )
      parameter ( rad_to_deg = 180.d0/Pi       )
      parameter ( deg_to_rad = Pi/180.d0       )

      parameter ( g_0    =  9.8d0      )   ! m/s**2
      parameter ( rho_air = 1.225d0    )   ! kg/m**3


***********************************************************************
* COMMON BLOCK FOR "constants" in problem

      real*8 Mass        ! Mass of object (kg)
      real*8 Cl          ! Lift coefficient of Plane
      real*8 Cd          ! Drag coefficient of Plane
      real*8 Area        ! Wing area (m**2)
      real*8 Terr        ! Error on hitting target (m).
      real*8 Ltheta_deg  ! Launch angle (deg)
      real*8 Launch_vel  ! Launch Velocity (m/s): Computed by program
      real*8 Launch_hgt  ! Launch height (m)

      common / Object / Mass, Cl, Cd, Area, Terr, Ltheta_deg,
     .                  Launch_vel, Launch_hgt 

      logical outT       ! Logical set true to output the trajectory
  
      common / control / outT