This is wstruct.h in view mode; [Download] [Up]
#define YES 1
#define NO 0
struct {
double TTOL,PTOL,DTOL,XTOL,EXPTOL,FPTOL;
} tolers;
struct {
double ft,fd,fvd,fvk,fs,fp,fh,fst,fc;
} units;
struct {
double Tc,rhoc,Pc,Pcon,Ucon,Scon,dPcon;
} crits;
struct {
double Ptripl,Dltrip,Dvtrip,Ttripl,Utripl,Stripl,Htripl,Atripl,Gtripl;
} tpoint;
struct {
double Ttop,Tbtm,Ptop,Pbtm,Dtop,Dbtm;
} HGKbnd; /* constants? */
struct {
double sDli1,sPli1,sDli37,sPli37,sDIB30,Tli13,Pli13,Dli13,TnIB30,DnIB30;
} liqice;
struct {
double wm,gascon,tz,aa,uref,sref,zb,dzb,yb;
} aconst;
struct {
double rt;
} RTcurr;
struct {
double Dliq,Dvap,DH2O,iphase;
} satur;
struct {
double g1,g2,gf,b1,b2,b1t,b2t,b1tt,b2tt;
} ellcon;
struct {
double tcHGK,dcHGK,pcHGK;
} HGKcrt;
struct {
double wprops[23],wpliq[23];
} wpvals;
struct {
double q,q5;
} qqqq;
struct {
double ad,gd,sd,ud,hd,cvd,cpd,dpdt,dvdt,dpdd,cjtt,cjth;
} fcts;
struct {
double ar,gr,sr,ur,hr,cvr,dpdtr;
} resf;
struct {
double ab,gb,sb,ub,hb,cvb,pb,dpdtb;
} basef;
struct {
double ai,gi,si,ui,hi,cvi,cpi;
} idf;
struct {
double dPdM;
} abc1;
struct {
double r,th;
} abc2;
struct {
double dPdTcd;
} abc3;
struct {
double AE,GE,U,H,Entrop,Cp,Cv,betaw,alphw,heat,Speed;
} therm;
struct {
double amu,s[2],Pw,Tw,dTw,dM0dT,dP0dT,d2PdM2,d2PdMT,d2PdT2,p0th,p1th,xk[2];
} deriv;
struct {
double dPdD,dPdT;
} deri2;
struct {
double r1,th1;
} param;
struct{
double sav2,sav3,sav4,sav5,sav6,sav7,sav8,sav9,sav10,sav11,sav12,sav13,sav14,sav15, sav16,sav17,sav18,sav19;
int isav1;
} store;
/* -----------------------------------------------------------------*/
typedef struct {
double g[40];
int ii[40],jj[40],n;
} nconst_;
typedef struct {
double bp[10],bq[10];
} bconst_;
typedef struct {
double atz[4],adz[4],aat[4],aad[4];
} addcon_;
typedef struct {
double a[20],q[20],x[11];
} coefs1_;
/* -----------------------------------------------------------------*/
nconst_ nconst = {-530.62968529023,2274.4901424408,787.79333020687,
-69.830527374994,17863.832875422,-39514.731563338,33803.884280753, -13855.050202703,-256374.36613260,482125.75981415,-341830.16969660, 122231.56417448,1179743.3655832,-2173481.0110373,1082995.2168620, -254419.98064049,-3137777.4947767,5291191.0757704,-1380257.7177877, -251099.14369001,4656182.6115608,-7275277.3275387,417742.46148294, 1401635.8244614,-3155523.1392127,4792966.6384584,409126.64781209,-1362636.9388386,696252.20862664,-1083490.0096447,-227228.27401688,383654.86000660, 6883.3257944332,21757.245522644,-2662.7944829770,-70730.418082074, -.22500000000000,-1.6800000000000,0.05500000000000,-93.000000000000,0,0,0,0,1,1, 1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,6,6,6,6,8,8,8,8,2,2,0,4,2,2,2,4,2,3,5,7,2, 3,5,7,2,3,5,7,2,3,5,7,2,3,5,7,2,3,5,7,2,3,5,7,2,3,5,7,1,4,4,4,0,2,0,0,36};
bconst_ bconst = {0.7478629,-0.3540782,0.0,0.0,0.007159876,0.0,-0.003528426, 0.0,0.0,0.0,1.1278334,0.0,-.5944001,-5.010996,0.0,0.63684256,0.0,0.0,0.0,0.0};
addcon_ addcon = {640.0,640.0,641.6,270.0,0.319,0.319,0.319,1.55,20000.0, 20000.0,40000.0,25.0,34.0,40.0,30.0,1050.0};
coefs1_ coefs1 = {-0.017762,5.238000,0.000000,-25.49150,6.844500, 0.325000,1.440300,0.000000,1.375700,23.66660,4.820000,0.294200,-11.23260, -22.65470,-17.88760,-4.933200,1.109430391161019373812391218008,-1.981395981400671095301629432211,0.246912528778663959151808173743,-0.843411332867484343974055795059,-0.006000,-0.003000,0.000000,647.0670,322.7780,22.04600,0.267000,-1.600000,0.491775937675717720291497417773,0.108500,0.586534703230779473334597524774,-1.026243389120214352553706598564,0.612903225806451612903225804745,0.500000,-0.391500,0.825000,0.741500,0.103245882826119154987166286332,0.160322434159191991394857495360,-0.169859514687100893997445721324,643.0000,645.3000,695.0000,199.7750,420.0400,20.9945691135940719075293945960,21.5814057875264119875397458907,30.135,40.484,0.175777517046267847932127026995,0.380293646126229135059562456934};
/* -----------------------------------------------------------------*/
void HGKsat();
double TdPsdT();
double TdegK();
double viscos();
void pcorr(),denLVS(),bb(),denHGK();
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.