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	mocchiut	1.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			};