00001 #ifndef KALSILITE_H
00002 #define KALSILITE_H
00003
00004 #include "MeltsSolution.h"
00005 #include "BermanPhase.h"
00006
00020 class Kalsilite: public MeltsSolution {
00021 public:
00023 Kalsilite();
00025 virtual ~Kalsilite();
00027 const int NCOMP;
00029 const int NANEPHELINE;
00031 const int KNEPHELINE;
00033 const int VCNEPHELINE;
00035 const int CANEPHELINE;
00036 protected:
00038 virtual void init();
00040 static BermanData ssdata[];
00041 };
00042
00044
00046
00049 extern int testKal(int mask, double t, double p,int na,int nr,char **names,
00050 char **formulas,double *r,double *m);
00051
00054 extern void conKal(int inpMask,int outMask,double t,double p,
00055 double *e,double *m,double *r,double *x,double **dm,
00056 double ***d2m,double **dr,double ****d3m);
00057
00060 extern void actKal(int mask,double t,double p,double *x,
00061 double *a,double *mu,double **dr);
00062
00065 extern void gmixKal(int mask,double t,double p,double *x,
00066 double *gmix,double *dr,double **dr2,
00067 double ***dr3);
00068
00071 extern void hmixKal(int mask,double t,double p,double *x,
00072 double *hmix);
00075 extern void smixKal(int mask,double t,double p,double *x,
00076 double *smix,double *dr,double **dr2);
00077
00080 extern void cpmixKal(int mask,double t,double p,double *x,
00081 double *cpmix,double *dt,double *dr);
00082
00085 extern void vmixKal(int mask,double t,double p,double *x,
00086 double *vmix,double *dr,double **dr2,
00087 double *dt,double *dp,double *dt2,
00088 double *dtdp,double *dp2,double *drdt,
00089 double *drdp);
00090
00091 #endif
00092
