1  /******************************************************************
     2  * FUNCTION: adiabatic - Stirling cycle machine simulation         *
     3  *                       Ideal Adiabatic solution Analysis         *
     4  * FILENAME adiabatic.c                                            *
     5  * PROGRAMMER I.Urieli    (FORTRAN)                                *
     6  *            E. Malroy   (C Translation)                          *
     7  * DATE:      11/30/94  (FORTRAN), 03/12/96 (C Translation)        *
     8  * LAST MODIFIED: 08/16/96 by I.Urieli                             *
     9  * INCLUDE:  <stdio.h>,"adiabatic.h"                               *
    10  * GLOBAL VARIABLES: none                                          *
    11  * SYMBOLIC CONSTANTS: ROWV, ROWD, COL                             *
    12  * PROTOTYPE: void adiabatic(void);                                * 
    13  * PRE:   none                                                     *
    14  * POST:  none                                                     *
    15  ******************************************************************/
    16  #include <stdio.h>
    17  #include "adiabatic.h"
    18  
    19  void adiabatic()
    20  {
    21     double var[ROWV][COL];     /* matrix of variables   */
    22     double dvar[ROWD][COL];    /* matrix of derivatives */
    23     int i,j;
    24     for(j=0; j<COL; j++)
    25        for(i=0; i<ROWV; i++)
    26           var[i][j]=0.0;
    27     for(j=0; j<COL; j++)
    28        for(i=0; i<ROWD; i++)
    29           dvar[i][j]=0.0;
    30  
    31     adiab(var, dvar);    /* adiab:  Ideal Adiabatic analysis         */
    32     prntad(var, dvar);   /* prntad: Ideal Adiabatic printout routine */
    33           
    34  }
condor{t.gentry}5: