Parent Directory
| 
Revision Log
Initial revision
| 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 |