/*******************************************************************
 * FUNCTION: adiabatic - Stirling cycle machine simulation         *
 *                       Ideal Adiabatic solution Analysis         *
 * FILENAME adiabatic.c                                            *
 * PROGRAMMER I.Urieli    (FORTRAN)                                *
 *            E. Malroy   (C Translation)                          *
 * DATE:      11/30/94  (FORTRAN), 03/12/96 (C Translation)        *
 * LAST MODIFIED: 01/01/97 by I.Urieli                             *
 * SYMBOLIC CONSTANTS: ROWV, ROWD, COL                             *
 * PROTOTYPE: void adiabatic(void);                                *
 * PRE:   none                                                     *
 * POST:  The Ideal Adiabatic simulation has been completed        *
 *        Thus the var and dvar matrices have values               *
 *******************************************************************/
#include <stdio.h>
#include "adiabatic.h"

void adiabatic()
{
   double var[ROWV][COL];     /* matrix of variables   */
   double dvar[ROWD][COL];    /* matrix of derivatives */

   adiab(var, dvar);    /* Ideal Adiabatic simulation */
   prntad(var, dvar);   /* Ideal Adiabatic printout routine */

}