/***************************************************************************

	TITLE:		engine.c
	
----------------------------------------------------------------------------

	FUNCTION:	dummy engine routine

----------------------------------------------------------------------------

	MODULE STATUS:	incomplete

----------------------------------------------------------------------------

	GENEALOGY:	Created 15 OCT 92 as dummy routine for checkout. EBJ

----------------------------------------------------------------------------

	DESIGNED BY:	designer
	
	CODED BY:	programmer
	
	MAINTAINED BY:	maintainer

----------------------------------------------------------------------------

	MODIFICATION HISTORY:
	
	DATE	PURPOSE						BY

	CURRENT RCS HEADER INFO:

$Header$

 * Revision 1.1  92/12/30  13:21:46  bjax
 * Initial revision
 * 

----------------------------------------------------------------------------

	REFERENCES:

----------------------------------------------------------------------------

	CALLED BY:	ls_model();

----------------------------------------------------------------------------

	CALLS TO:	none

----------------------------------------------------------------------------

	INPUTS:

----------------------------------------------------------------------------

	OUTPUTS:

--------------------------------------------------------------------------*/
#include <math.h>
#include "ls_types.h"
#include "ls_constants.h"
#include "ls_generic.h"
#include "ls_cockpit.h"
#include "ls_sim_control.h"


void engine( SCALAR dt, int init )

{
    if (init || sim_control_.sim_type != cockpit) 
	Throttle[3] = Throttle_pct;

    /* F_X_engine = Throttle[3]*813.4/0.2; */  /* original code */
    /* F_Z_engine = Throttle[3]*11.36/0.2; */  /* original code */
    F_X_engine = Throttle[3]*813.4/0.85;
    F_Z_engine = Throttle[3]*11.36/0.85;

    Throttle_pct = Throttle[3];
}