+#define ALBE_LC_SI 5.429
+
+#define ALBE_R_C (2.00-0.15)
+#define ALBE_S_C (2.00+0.15)
+#define ALBE_A_C (6.00*EV/1.167)
+#define ALBE_B_C (-2.167*6.00*EV/1.167)
+#define ALBE_R0_C 1.4276
+#define ALBE_LAMBDA_C (2.0099*sqrt(2.0*2.167))
+#define ALBE_MU_C (2.0099*sqrt(2.0/2.167))
+#define ALBE_GAMMA_C 0.11233
+#define ALBE_C_C 181.910
+#define ALBE_D_C 6.28433
+#define ALBE_H_C 0.5556
+
+#define ALBE_LC_C 3.566
+
+#define ALBE_R_SIC (2.40-0.20)
+#define ALBE_S_SIC (2.40+0.20)
+#define ALBE_A_SIC (4.36*EV/0.847)
+#define ALBE_B_SIC (-1.847*4.36*EV/0.847)
+#define ALBE_R0_SIC 1.79
+#define ALBE_LAMBDA_SIC (1.6991*sqrt(2.0*1.847))
+#define ALBE_MU_SIC (1.6991*sqrt(2.0/1.847))
+#define ALBE_GAMMA_SIC 0.011877
+#define ALBE_C_SIC 273987
+#define ALBE_D_SIC 180.314
+#define ALBE_H_SIC 0.68
+
+#define ALBE_LC_SIC 4.359
+
+
+/*
+ * lattice types
+ */
+
+#define CUBIC 0x01
+#define FCC 0x02
+#define DIAMOND 0x04
+
+/*
+ *
+ * function prototypes
+ *
+ */
+
+typedef int (*pf_func1b)(t_moldyn *,t_atom *);
+typedef int (*pf_func2b)(t_moldyn *,t_atom *,t_atom *,u8);
+typedef int (*pf_func3b)(t_moldyn *,t_atom *,t_atom *,t_atom *,u8);
+
+int moldyn_init(t_moldyn *moldyn,int argc,char **argv);
+int moldyn_shutdown(t_moldyn *moldyn);
+
+int set_int_alg(t_moldyn *moldyn,u8 algo);
+int set_cutoff(t_moldyn *moldyn,double cutoff);
+int set_bondlen(t_moldyn *moldyn,double b0,double b1,double bm);
+int set_temperature(t_moldyn *moldyn,double t_ref);
+int set_pressure(t_moldyn *moldyn,double p_ref);
+int set_pt_scale(t_moldyn *moldyn,u8 ptype,double ptc,u8 ttype,double ttc);
+int set_dim(t_moldyn *moldyn,double x,double y,double z,u8 visualize);
+int set_nn_dist(t_moldyn *moldyn,double dist);
+int set_pbc(t_moldyn *moldyn,u8 x,u8 y,u8 z);
+int set_potential1b(t_moldyn *moldyn,pf_func1b func);
+int set_potential2b(t_moldyn *moldyn,pf_func2b func);
+int set_potential3b_j1(t_moldyn *moldyn,pf_func2b func);
+int set_potential3b_j2(t_moldyn *moldyn,pf_func2b func);
+int set_potential3b_j3(t_moldyn *moldyn,pf_func2b func);
+int set_potential3b_k1(t_moldyn *moldyn,pf_func3b func);
+int set_potential3b_k2(t_moldyn *moldyn,pf_func3b func);
+int set_potential_params(t_moldyn *moldyn,void *params);
+
+int set_avg_skip(t_moldyn *moldyn,int skip);
+
+int moldyn_set_log_dir(t_moldyn *moldyn,char *dir);
+int moldyn_set_report(t_moldyn *moldyn,char *author,char *title);
+int moldyn_set_log(t_moldyn *moldyn,u8 type,int timer);
+int moldyn_log_shutdown(t_moldyn *moldyn);
+
+int create_lattice(t_moldyn *moldyn,u8 type,double lc,int element,double mass,
+ u8 attr,u8 brand,int a,int b,int c,t_3dvec *origin);
+int add_atom(t_moldyn *moldyn,int element,double mass,u8 brand,u8 attr,
+ t_3dvec *r,t_3dvec *v);
+int del_atom(t_moldyn *moldyn,int tag);
+int cubic_init(int a,int b,int c,double lc,t_atom *atom,t_3dvec *origin);
+int fcc_init(int a,int b,int c,double lc,t_atom *atom,t_3dvec *origin);
+int diamond_init(int a,int b,int c,double lc,t_atom *atom,t_3dvec *origin);
+int destroy_atoms(t_moldyn *moldyn);
+
+int thermal_init(t_moldyn *moldyn,u8 equi_init);
+double total_mass_calc(t_moldyn *moldyn);
+double temperature_calc(t_moldyn *moldyn);
+double get_temperature(t_moldyn *moldyn);
+int scale_velocity(t_moldyn *moldyn,u8 equi_init);
+double virial_sum(t_moldyn *moldyn);
+double pressure_calc(t_moldyn *moldyn);
+int average_reset(t_moldyn *moldyn);
+int average_and_fluctuation_calc(t_moldyn *moldyn);
+int get_heat_capacity(t_moldyn *moldyn);
+double thermodynamic_pressure_calc(t_moldyn *moldyn);
+double get_pressure(t_moldyn *moldyn);
+int scale_volume(t_moldyn *moldyn);
+int scale_dim(t_moldyn *moldyn,u8 dir,double scale,u8 x,u8 y,u8 z);
+int scale_atoms(t_moldyn *moldyn,u8 dir,double scale,u8 x,u8 y,u8 z);
+
+double e_kin_calc(t_moldyn *moldyn);
+double get_total_energy(t_moldyn *moldyn);
+t_3dvec get_total_p(t_moldyn *moldyn);
+
+double estimate_time_step(t_moldyn *moldyn,double nn_dist);
+
+int link_cell_init(t_moldyn *moldyn,u8 vol);
+int link_cell_update(t_moldyn *moldyn);
+#ifdef STATIC_LISTS
+int link_cell_neighbour_index(t_moldyn *moldyn,int i,int j,int k,int **cell);
+#else
+int link_cell_neighbour_index(t_moldyn *moldyn,int i,int j,int k,t_list *cell);