root2paw/src/libcltrklev1.C

//     closentuple shared library        v. 0.2
//     Written by Emiliano Mocchiutti
//
#include "ctrkstruct.h"
#define cltrklev1 cltrklev1_
extern "C" int cltrklev1();
void ccltrklev1(Tracklev1 & trklev1) {
  extern struct Tracklev1 trklev1_;
  memcpy(&trklev1_, &trklev1, sizeof(trklev1));
  cltrklev1();
  printf("\nClose rz file! \n\n");
};  
1	mocchiut	1.1	// closentuple shared library v. 0.2
2			// Written by Emiliano Mocchiutti
3			//
4			#include "ctrkstruct.h"
5			#define cltrklev1 cltrklev1_
6			extern "C" int cltrklev1();
7			void ccltrklev1(Tracklev1 & trklev1) {
8			extern struct Tracklev1 trklev1_;
9			memcpy(&trklev1_, &trklev1, sizeof(trklev1));
10			cltrklev1();
11			printf("\nClose rz file! \n\n");
12			};