HYPLOT: fortran.h Source File

00001 /* -*- c++ -*- */
00002 
00003 #ifndef __FORTRAN_H__
00004 #define __FORTRAN_H__
00005 
00006 #include "enums.hpp"
00007 
00008 /* --- declaration of the fortran functions --- */
00009 
00010 /* need this: C++ botches up the program names, we want them unchanged
00011  * to allow linking with the object files spit out by the fortran 
00012  * compiler
00013  */
00014 #ifdef __cplusplus
00015 extern "C" {
00016 #endif 
00017 
00018 void  agelum_(double * age, double * time, double *val);
00019 void  binner_(double * val1, double * val2, int * index);
00020 void  checksf_(double *val1, double*val2, double*val3, double*val4, double*val5,
00021               double *val6, double*val7, double*val8);
00022 void  cnt_(double *val1, double*val2, double*val3, double*val4, double*val5);
00023 void  cumulm_(double * d1, int * i1, int * i2, int * i3, int * i4);
00024 void  dens_(int * type, double * time);
00025 void  disp_(int * i1, int * i2, double *val1, double *val2, int * bl, double *time);
00026 void  docomrecenter_(void);
00027 void  fortransetparams_(void);
00028 void  feh_(double *val);
00029 void  flat_(int * i1, int * i2, double *xpl, double *val1);
00030 void  getluminosity_(float * mass, float * fe, double star[8], double * age, 
00031                      double * galage);
00032 void  halfl_(int * i1, int * i2, double * age, double *dum, 
00033             double *time, double *val2, double *val3, int * i3);
00034 void  histmet_(double * time);
00035 void  kine_(int * i1, int * i2, double *val1);
00036 void  maggal_(double * time, double * age, double *offset, double arr[]);
00037 void  massre_(double *re, double *val1, double*val2, double*val3, double*val4, 
00038              double*val5, double *val6, double*val7, double*val8);
00039 void  metallt_(double *val);
00040 void  metallum_(double * age, double *time, double *val2, double *val3);
00041 void  mgfe_(double *val);
00042 void  plotadd_(void);
00043 void  plotcolor_(double * val1);
00044 void  plotcolorstars_(double * time);
00045 void  plot_interpol_data_(double * time, int * n, int * type);
00046 void  plotmet_(void);
00047 void  plotter_(void);
00048 void  pot_(void);
00049 void  printpartinfo_(void);
00050 void  readheader_(int eval[]);
00051 void  setunits_(void);
00052 void  sfr_(double arr[]);
00053 void  sfradvanced_(double * val1, double * time);
00054 void  sfradvancedmetall_(double * val1, double * time);
00055 void  sfr_cumul_(double arr[]);
00056 void  spectrum_(double * usergalage, double * time);
00057 void  temperature_grid_(void);
00058 void  totmass_(double *val1, double *val2, double *val3, double *val4, double *val5);
00059 void  unitconv_(void);
00060 void  userinp_(int * first);
00061 void  writecolumns_(void);
00062 void  writesumfile_(double * baseval);
00063 void  wrsum_(void);
00064 
00065 #ifdef __cplusplus
00066 }
00067 #endif 
00068 
00069 /* --- declaration of the C++ wrapper functions --- */
00070 
00071 void  agelum(double age, double time, double *val);
00072 void  binner(double val1, double val2, int index);
00073 void  checksf(double *val1, double*val2, double*val3, double*val4, double*val5,
00074               double *val6, double*val7, double*val8);
00075 void  cnt(double *val1, double*val2, double*val3, double*val4, double*val5);
00076 void  cumulm(double d1, int i1, int i2, int i3, int i4);
00077 void  dens(enums::types_t type, double time);
00078 void  disp(int i1, int i2, double *val1, double *val2, bool bl, double time);
00079 void  docomrecenter(void);
00080 void  fortransetparams(void);
00081 void  feh(double *val);
00082 void  flat(int i1, int i2, double xpl, double *val1);
00083 void  getluminosity(float mass, float fe, double star[8], double age, 
00084                     double galage);
00085 void  halfl(int i1, int i2, double age, double dum, 
00086             double time, double *val2, double *val3, int i3);
00087 void  histmet(double time);
00088 void  kine(int i1, int i2, double *val1);
00089 void  maggal(double time, double age, double offset, double arr[]);
00090 void  massre(double re, double *val1, double*val2, double*val3, double*val4, 
00091              double*val5, double *val6, double*val7, double*val8);
00092 void  metallt(double *val);
00093 void  metallum(double age, double time, double *val2, double *val3);
00094 void  mgfe(double *val);
00095 void  plotadd(void);
00096 void  plotcolor(double * val1);
00097 void  plotcolorstars(double time);
00098 void  plot_interpol_data(double time, int n, enums::types_t type);
00099 void  plotmet(void);
00100 void  plotter(void);
00101 void  pot(void);
00102 void  printpartinfo(void);
00103 void  readheader(void);
00104 void  setunits(void);
00105 void  sfr(double arr[]);
00106 void  sfradvanced(double * val1, double time);
00107 void  sfradvancedmetall(double * val1, double time);
00108 void  sfr_cumul(double arr[]);
00109 void  spectrum(double usergalage, double time);
00110 void  temperature_grid(void);
00111 void  totmass(double *val1, double *val2, double *val3, double *val4, double *val5);
00112 void  unitconv(void);
00113 void  userinp(bool first);
00114 void  writecolumns(void);
00115 void  writesumfile(double baseval);
00116 void  wrsum(void);
00117 
00118 #endif // __FORTRAN_H__