/* propath.h */
/* Headder to use PROPATH with C-language */

#ifdef __MS_VC
#define __MS_C 1
#endif

#ifdef __MS_C
#ifndef __MS_VC
#define __MS_C_ONLY 1
#endif
#endif




#define real              float *
#define double_precision  double *
#define  integer          int *  

#ifdef __MS_VC
#define  fortran   __stdcall
#endif
#ifdef __MS_C
#define  subroutine        extern void    fortran
#define  function_int      extern int     fortran 
#define  function_real     extern float   fortran 
#define  function_double   extern double  fortran 
#define  function_char     extern char *  fortran 
#else
#define  subroutine        extern void     
#define  function_int      extern int      
#define  function_real     extern float    
#define  function_double   extern double   
#define  function_char     extern char *   
#endif



struct{
  /* Working Mode  */
  int MESS;  /* 0: Quie mode: 1: verbose mode */
  
  /* System Units and Reference Values of Enthalpy and Entropy  */
  int KPA;    /* 0:Pa&K, 1:bar&C, 2:bar&K, 3:Pa&C, others:Pa&K */
  int KAS;    /* 0:kg-mol, 1:kg,  others:kg-mol */ 

  /*  Reference State of Enthalpy and Entropy  */
  int KSTAN;/*
              0: when 298.15K and 1bar, h=0[kJ/kg-mol],s=0[kJ/kg-mol]
			  1: for saturated liquid at 273.15K, h=200[kJ/kg-mol],s=1[kJ/kg-mol]
         others: same as 0   */
}PROPATH;