root2paw/src/libcltoflev1.C

//     closentuple shared library        v. 0.2
//     Written by Emiliano Mocchiutti
//
#include "ctofstruct.h"
#define cltoflev1 cltoflev1_
extern "C" int cltoflev1();
void ccltoflev1(Toflev1 & toflev1) {
  extern struct Toflev1 toflev1_;
  memcpy(&toflev1_, &toflev1, sizeof(toflev1));
  cltoflev1();
  printf("\n Close rz file! \n\n");
};  
1	// closentuple shared library v. 0.2
2	// Written by Emiliano Mocchiutti
3	//
4	#include "ctofstruct.h"
5	#define cltoflev1 cltoflev1_
6	extern "C" int cltoflev1();
7	void ccltoflev1(Toflev1 & toflev1) {
8	extern struct Toflev1 toflev1_;
9	memcpy(&toflev1_, &toflev1, sizeof(toflev1));
10	cltoflev1();
11	printf("\n Close rz file! \n\n");
12	};