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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (hide 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 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    

  ViewVC Help
Powered by ViewVC 1.1.23