[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.                  *
 **************************************************************************/

/*
$Log$
*/


#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
	16	/*
	17	$Log$
	18	*/
	19
	20
	21	#include "AliStructFuncType.h"
	22
	23	#ifndef WIN32
	24	# define structa structa_
	25	# define pdfset pdfset_
	26	# define type_of_call
	27	#else
	28	# define structa STRUCTA
	29	# define pdfset PDFSET
	30	# define type_of_call _stdcall
	31	#endif
	32
	33
	34	extern "C" {
	35	void type_of_call pdfset(char parm[20][20], Double_t value[20]);
	36
	37	void type_of_call structa(Double_t& xx, Double_t& qq, Double_t& a,
	38	Double_t& upv, Double_t& dnv, Double_t& usea,
	39	Double_t& dsea,
	40	Double_t& str, Double_t& chm, Double_t& bot,
	41	Double_t& top, Double_t& gl);
	42	}
	43
	44	ClassImp(AliStructFuncType)
	45
	46	void AliStructFuncType::PdfSet(char parm[20][20], Double_t value[20])
	47	{
	48	pdfset(parm, value);
	49	}
	50
	51	void AliStructFuncType::StructA(Double_t xx, Double_t qq, Double_t a,
	52	Double_t& upv, Double_t& dnv, Double_t& usea,
	53	Double_t& dsea,
	54	Double_t& str, Double_t& chm, Double_t& bot,
	55	Double_t& top, Double_t& gl)
	56	{
	57	structa(xx, qq, a, upv, dnv, usea, dsea, str, chm, bot, top, gl);
	58	}
	59
	60