/******************************************************************
 * Stirling cycle engine simulation                               *
 * FILENAME stim.c                                                *
 * PROGRAMMER I.Urieli    (FORTRAN)                               *
 *            E. Malroy   (C Translation)                         *
 * DATE:      02/19/94  (FORTRAN), 06/25/96 (C Translation)       *
 * LAST MODIFICATION:  12/27/96 I. Urieli                         *
 * INCLUDE:  <stdio.h>                                            *
 * GLOBAL VARIABLES:  none                                        *
 ******************************************************************/
#include <stdio.h>

void define(void);     /* defines parameters   */
void adiabatic(void);  /* adiabatic simulation */
void simple(void);     /* simple simulation    */

main()
{
   char choice;

   define();

   do
   {
      printf("\na)diabatic, s)imple, q)uit?");
      fflush(stdin);
      choice = getchar();
      if(choice == 'a')
         adiabatic();
      else if(choice == 's')
         simple();
   } while(choice != 'q');

   return(0);
}