flight/src/libptlevel1.C

//
//     track shared library        v. 0.1
//
//     calls the fortran tracking routine track.f
//
//     Written by Emiliano Mocchiutti
//
#include <trklev1struct.h>
#define ptlevel1 ptlevel1_
extern "C" int ptlevel1();

void projectlev1(Trklev1 &pwcr4) {
  //
  extern struct Trklev1 pwcr4_;
  //
  memcpy(&pwcr4_, &pwcr4, sizeof(pwcr4));
  //
  ptlevel1();
  //
  memcpy(&pwcr4, &pwcr4_, sizeof(pwcr4));
  //
};

1	//
2	// track shared library v. 0.1
3	//
4	// calls the fortran tracking routine track.f
5	//
6	// Written by Emiliano Mocchiutti
7	//
8	#include <trklev1struct.h>
9	#define ptlevel1 ptlevel1_
10	extern "C" int ptlevel1();
11
12	void projectlev1(Trklev1 &pwcr4) {
13	//
14	extern struct Trklev1 pwcr4_;
15	//
16	memcpy(&pwcr4_, &pwcr4, sizeof(pwcr4));
17	//
18	ptlevel1();
19	//
20	memcpy(&pwcr4, &pwcr4_, sizeof(pwcr4));
21	//
22	};
23