/[PAMELA software]/eventviewer/flight/src/libptlevel1.C
ViewVC logotype

Contents of /eventviewer/flight/src/libptlevel1.C

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations) (download)
Fri Jul 14 14:18:11 2006 UTC (18 years, 5 months ago) by mocchiut
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +0 -0 lines
File MIME type: text/plain
FILE REMOVED
New _BETA_ and buggy version

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

  ViewVC Help
Powered by ViewVC 1.1.23