libcollier_wrapper.cpp File Reference

Go to the source code of this file.

Macros
#define	DUMMY(a)   a ## _dummy
#define	four_point(NAME, N1, N2, N3, N4)
#define	IMPL(a)   STR(a ## _impl)
#define	STR(a)   #a
#define	three_point(NAME, N1, N2, N3)
#define	two_point(NAME, N1, N2)

Functions
either version of the	!or (at your option) any later version. ! ! FlexibleSUSY is distributed in the hope that it will be useful

Variables
either version of the	License
without even the implied warranty of !MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE See the GNU !General Public License for more details !You should have received a copy of the GNU General Public License !along with FlexibleSUSY If	not
either version of the but !WITHOUT ANY	WARRANTY

Macro Definition Documentation

DUMMY

#define DUMMY

(

a

)

a ## _dummy

four_point

#define four_point	(		NAME,
			N1,
			N2,
			N3,
			N4
	)

Value:

@subroutine DUMMY(NAME)(res,p10,p21,p32,p30,p20,p31,m02,m12,m22,m32) bind(C, name=IMPL(NAME)) \
@   complex(C_DOUBLE_COMPLEX), intent(in) :: p10, p21, p32, p30, p20, p31 \
@   complex(C_DOUBLE_COMPLEX), intent(in) :: m02, m12, m22, m32 \
@   complex(C_DOUBLE_COMPLEX), intent(out) :: res \
@   complex(REAL64), allocatable :: Dcoeff(:,:,:,:), Dcoeffuv(:,:,:,:) \
@\
@   allocate(Dcoeff(0:1, 0:2, 0:2, 0:2)) \
@   allocate(Dcoeffuv(0:1, 0:2, 0:2, 0:2)) \
@   call D_cll(Dcoeff,Dcoeffuv,p10,p21,p32,p30,p20,p31,m02,m12,m22,m32,2) \
@\
@   res = Dcoeff(N1,N2,N3,N4) \
@\
@   deallocate(Dcoeff, Dcoeffuv) \
@end

IMPL

#define IMPL

(

a

)

STR(a ## _impl)

STR

#define STR

(

a

)

#a

three_point

#define three_point	(		NAME,
			N1,
			N2,
			N3
	)

Value:

@subroutine DUMMY(NAME)(res, p10, p21, p20, m02, m12, m22) bind(C, name=IMPL(NAME)) \
@   complex(C_DOUBLE_COMPLEX), intent(in) :: p10, p21, p20 \
@   complex(C_DOUBLE_COMPLEX), intent(in) :: m02, m12, m22 \
@   complex(C_DOUBLE_COMPLEX), intent(out) :: res \
@   complex(REAL64), allocatable :: Ccoeff(:,:,:), Ccoeffuv(:,:,:) \
@\
@   allocate(Ccoeff(0:1, 0:2, 0:2)) \
@   allocate(Ccoeffuv(0:1, 0:2, 0:2)) \
@   call C_cll(Ccoeff, Ccoeffuv, p10, p21, p20, m02, m12, m22, 2) \
@\
@   res = Ccoeff(N1,N2,N3) \
@\
@   deallocate(Ccoeff, Ccoeffuv) \
@end

two_point

#define two_point	(		NAME,
			N1,
			N2
	)

Value:

@subroutine DUMMY(NAME)(res, p10, m02, m12) bind(C, name=IMPL(NAME))\
@   complex(C_DOUBLE_COMPLEX), intent(in) :: p10 \
@   complex(C_DOUBLE_COMPLEX), intent(in) :: m02, m12 \
@   complex(C_DOUBLE_COMPLEX), intent(out) :: res \
@   complex(REAL64), allocatable :: Bcoeff(:,:), Bcoeffuv(:,:) \
@\
@   allocate(Bcoeff(0:1, 0:2)) \
@   allocate(Bcoeffuv(0:1, 0:2)) \
@   call B_cll(Bcoeff, Bcoeffuv, p10, m02, m12, 2) \
@\
@   res = Bcoeff(N1,N2) \
@\
@   deallocate(Bcoeff, Bcoeffuv) \
@end

Function Documentation

!or()

either version of the !or

(

at your

option

)

Variable Documentation

License

either version of the License

Definition at line 6 of file libcollier_wrapper.cpp.

not

without even the implied warranty of !MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE See the GNU !General Public License for more details !You should have received a copy of the GNU General Public License !along with FlexibleSUSY If not

Definition at line 15 of file libcollier_wrapper.cpp.

WARRANTY

either version of the but !WITHOUT ANY WARRANTY

Definition at line 10 of file libcollier_wrapper.cpp.