file: ../SURF/Cfort.h


#include "f2c.h"

Extern struct {
  integer mrlu[6];
  real rrlu[100];
} ludatr_;

Extern struct {
    integer n, k[20000]	/* was [4000][5] */;
    real p[20000]	/* was [4000][5] */, v[20000]	/* was [4000][5] */;
} lujets_;

#define lujets_1 lujets_

Extern union {
    struct {
	integer mstp[200];
	real parp[200];
	integer msti[200];
	real paripy[200];
    } _1;
    struct {
	integer mstp[200];
	real parp[200];
	integer msti[200];
	real pari[200];
    } _2;
} pypars_;

#define pypars_1 (pypars_._1)
#define pypars_2 (pypars_._2)

Extern struct {
    integer mstu[200];
    real paru[200];
    integer mstj[200];
    real parj[200];
} ludat1_;

#define ludat1_1 ludat1_

Extern struct {
    integer kchg[1500]	/* was [500][3] */;
    real pmas[2000]	/* was [500][4] */, parf[2000], vckm[16]	/* 
	    was [4][4] */;
} ludat2_;

#define ludat2_1 ludat2_

Extern union {
    struct {
	integer mdcy[1500]	/* was [500][3] */, mdme[4000]	/* was [2000][
		2] */;
	real brat[2000], kfdp[10000]	/* was [2000][5] */;
    } _1;
    struct {
	integer mdcy[1500]	/* was [500][3] */, mdme[4000]	/* was [2000][
		2] */;
	real brat[2000];
	integer kfdp[10000]	/* was [2000][5] */;
    } _2;
} ludat3_;

#define ludat3_1 (ludat3_._1)
#define ludat3_2 (ludat3_._2)

Extern struct {
    char chaf[4000];
} ludat4_;

#define ludat4_1 ludat4_

//have to pass pointers to real things to fortran code
static long int zeroi=0;
static float zerof=0.;
static float neg_ten_k=-10000.;
static float hundredf=0.;
static float onef=1.;
static float neg_four_f=-4.;
static float fourf=4.;
static doublereal zerodr=(doublereal)0.;
static int one=1;
static int two=2;
static int three=3;
static int four=4;
static int five=5;
static int six=6;
static int seven=7;
static int ten=10;
static int eleven=11;
static int seventeen=17;
static int hundred_k=100000;
static int ten_k=10000;
static int one_k=1024;

//The fortran functions called
extern "C"
{
  hlimit_();
  hropen_();
  hbook1_();
  hf1_();
  plu_();
  hopera_();
  hrout_();
  hrend_();
  pyinit_();
  mnexcm_();
  doublereal ulmass_(int *);
  mnparm_();
  mninit_();
  mnseti_();
  int s_copy(char *, char *, ftnlen, ftnlen);
  doublereal rlu_(integer *);
  luexec_();
  lulist_();
  lurobo_();
}



Back to Source File Index


C++ to HTML Conversion by ctoohtml