#include "udf.h"

double Props(char*, char, double, char, double, char*);

DEFINE_ON_DEMAND(call_coolprop) {
    real p, t, r;

    p = 100000.0;
    t = 300.0;

    r = Props((char*)"D", 'T', t, 'P', p / 1000, (char*)"Air");

    Message("p = %lf, t = %lf => r = %lf\n", p, t, r);
}