[u/mrichter/AliRoot.git] / EVGEN / AliStructFuncType.cxx

/**************************************************************************
 * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
 *                                                                        *
 * Author: The ALICE Off-line Project.                                    *
 * Contributors are mentioned in the code where appropriate.              *
 *                                                                        *
 * Permission to use, copy, modify and distribute this software and its   *
 * documentation strictly for non-commercial purposes is hereby granted   *
 * without fee, provided that the above copyright notice appears in all   *
 * copies and that both the copyright notice and this permission notice   *
 * appear in the supporting documentation. The authors make no claims     *
 * about the suitability of this software for any purpose. It is          *
 * provided "as is" without express or implied warranty.                  *
 **************************************************************************/

/* $Id$ */

#include "AliStructFuncType.h"

#ifndef WIN32
# define structa  structa_ 
# define pdfset   pdfset_
# define type_of_call
#else
# define structa  STRUCTA
# define pdfset   PDFSET
# define type_of_call _stdcall
#endif


extern "C" {
    void type_of_call pdfset(char parm[20][20], Double_t value[20]);
    
    void type_of_call structa(Double_t& xx, Double_t& qq, Double_t& a,
			       Double_t& upv, Double_t& dnv, Double_t& usea,
			       Double_t& dsea,
			       Double_t& str, Double_t& chm, Double_t& bot,
			       Double_t& top, Double_t& gl);
}

ClassImp(AliStructFuncType)

void AliStructFuncType::PdfSet(char parm[20][20], Double_t value[20])
{
    pdfset(parm, value);
}

void AliStructFuncType::StructA(Double_t xx, Double_t qq, Double_t a,
				Double_t& upv, Double_t& dnv, Double_t& usea,
				Double_t& dsea,
				Double_t& str, Double_t& chm, Double_t& bot,
				Double_t& top, Double_t& gl)
{
    structa(xx, qq, a, upv, dnv, usea, dsea, str, chm, bot, top, gl);
}
Commit	Line	Data
bcdb51cc	1	/**************************************************************************
	2	* Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
	3	* *
	4	* Author: The ALICE Off-line Project. *
	5	* Contributors are mentioned in the code where appropriate. *
	6	* *
	7	* Permission to use, copy, modify and distribute this software and its *
	8	* documentation strictly for non-commercial purposes is hereby granted *
	9	* without fee, provided that the above copyright notice appears in all *
	10	* copies and that both the copyright notice and this permission notice *
	11	* appear in the supporting documentation. The authors make no claims *
	12	* about the suitability of this software for any purpose. It is *
	13	* provided "as is" without express or implied warranty. *
	14	**************************************************************************/
	15
803d1ab0	16	/* $Id$ */
bcdb51cc	17
	18	#include "AliStructFuncType.h"
	19
	20	#ifndef WIN32
	21	# define structa structa_
	22	# define pdfset pdfset_
	23	# define type_of_call
	24	#else
	25	# define structa STRUCTA
	26	# define pdfset PDFSET
	27	# define type_of_call _stdcall
	28	#endif
	29
	30
	31	extern "C" {
	32	void type_of_call pdfset(char parm[20][20], Double_t value[20]);
	33
	34	void type_of_call structa(Double_t& xx, Double_t& qq, Double_t& a,
	35	Double_t& upv, Double_t& dnv, Double_t& usea,
	36	Double_t& dsea,
	37	Double_t& str, Double_t& chm, Double_t& bot,
	38	Double_t& top, Double_t& gl);
	39	}
	40
	41	ClassImp(AliStructFuncType)
	42
	43	void AliStructFuncType::PdfSet(char parm[20][20], Double_t value[20])
	44	{
	45	pdfset(parm, value);
	46	}
	47
	48	void AliStructFuncType::StructA(Double_t xx, Double_t qq, Double_t a,
	49	Double_t& upv, Double_t& dnv, Double_t& usea,
	50	Double_t& dsea,
	51	Double_t& str, Double_t& chm, Double_t& bot,
	52	Double_t& top, Double_t& gl)
	53	{
	54	structa(xx, qq, a, upv, dnv, usea, dsea, str, chm, bot, top, gl);
	55	}
	56
	57