00001
00002
00003
00004 #ifndef GRAINS_H_
00005 #define GRAINS_H_
00006
00008 void GrainDrive(void);
00009
00011 void GrainDrift(void);
00012
00015 void GrainZero(void);
00016
00018 void GrainStartIter(void);
00019
00021 void GrainRestartIter(void);
00022
00024 void SetNChrgStates(long);
00025
00027 void GrainsInit(void);
00028
00030 void GrainMakeDiffuse(void);
00031
00033 void qheat(vector<double>&,vector<double>&,long*,size_t);
00034
00036 void InitEnthalpy(void);
00037
00038 struct GrainPar;
00039
00044 void mie_write_opc(const char*,const char*,long int);
00049 void mie_read_opc(const char*,const GrainPar&);
00059 void gauss_init(long int,double,double,const vector<double>&,const vector<double>&,vector<double>&,vector<double>&);
00065 void gauss_legendre(long int,vector<double>&,vector<double>&);
00076 void find_arr(double,const vector<double>&,long int,long int*,bool*);
00077
00078 #endif