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	// 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	};