ground/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	mocchiut	1.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