mirror of
https://github.com/CoolProp/CoolProp.git
synced 2026-01-14 16:38:00 -05:00
16 lines
264 B
C
16 lines
264 B
C
#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);
|
|
}
|