/******************************************************************
 * PROGRAM: stimadiab - ideal adiabatic Stirling cycle simulation *
 * FILENAME stimadiab.c                                           *
 * PROGRAMMER I.Urieli    (FORTRAN)                               *
 *            E. Malroy   (C Translation)                         *
 * DATE:      02/19/94  (FORTRAN), 03/16/96 (C Translation)       *
 * LAST MODIFICATION: 02/02/97 by I.Urieli                        *
 * INCLUDE:  <stdio.h>                                            *
 * GLOBAL VARIABLES: none                                         *
 ******************************************************************/
#include <stdio.h>

void define(void); 
void adiabatic(void); 

int main()
{
   char choice;

   define();

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