LaRCsim/navion_engine.c

   1 /***************************************************************************
   2
   3         TITLE:          engine.c
   4
   5 ----------------------------------------------------------------------------
   6
   7         FUNCTION:       dummy engine routine
   8
   9 ----------------------------------------------------------------------------
  10
  11         MODULE STATUS:  incomplete
  12
  13 ----------------------------------------------------------------------------
  14
  15         GENEALOGY:      Created 15 OCT 92 as dummy routine for checkout. EBJ
  16
  17 ----------------------------------------------------------------------------
  18
  19         DESIGNED BY:    designer
  20
  21         CODED BY:       programmer
  22
  23         MAINTAINED BY:  maintainer
  24
  25 ----------------------------------------------------------------------------
  26
  27         MODIFICATION HISTORY:
  28
  29         DATE    PURPOSE                                         BY
  30
  31         CURRENT RCS HEADER INFO:
  32
  33 $Header$
  34
  35  * Revision 1.1  92/12/30  13:21:46  bjax
  36  * Initial revision
  37  *
  38
  39 ----------------------------------------------------------------------------
  40
  41         REFERENCES:
  42
  43 ----------------------------------------------------------------------------
  44
  45         CALLED BY:      ls_model();
  46
  47 ----------------------------------------------------------------------------
  48
  49         CALLS TO:       none
  50
  51 ----------------------------------------------------------------------------
  52
  53         INPUTS:
  54
  55 ----------------------------------------------------------------------------
  56
  57         OUTPUTS:
  58
  59 --------------------------------------------------------------------------*/
  60 #include <math.h>
  61 #include "ls_types.h"
  62 #include "ls_constants.h"
  63 #include "ls_generic.h"
  64 #include "ls_cockpit.h"
  65 #include "ls_sim_control.h"
  66
  67
  68 void engine( SCALAR dt, int init )
  69
  70 {
  71     if (init || sim_control_.sim_type != cockpit)
  72         Throttle[3] = Throttle_pct;
  73
  74     F_X_engine = Throttle[3]*813.4/0.2;
  75     F_Z_engine = Throttle[3]*11.36/0.2;
  76
  77     Throttle_pct = Throttle[3];
  78 }
  79
  80