gibuu is hosted by Hepforge, IPPP Durham
GiBUU

## /clebschGordan [ Modules ]

[ Top ] [ Modules ]

NAME

module clebschGordan

PURPOSE

Provides Clebsch-Gordan factors

## clebschGordan/clebschSquared [ Functions ]

[ Top ] [ clebschGordan ] [ Functions ]

NAME

real function clebschSquared (is1, is2, is3, iz1, iz2, iz3)

PURPOSE

This function determines the isospin-factors for the processes 1 2 -> 3, namely squares of the Clebsch-Gordan factors <is1, iz1; is2, iz2 | is3, iz3 >**2. The argument "iz3" is optional. If it is omitted, it's assumed to be iz3=iz1+iz2.

INPUTS

• real, intent(in) :: is1,is2,is3 -- total isospins of the involved particles
• real, intent(in) :: iz1,iz2,iz3 -- z-component of the isospin of the incoming particles

OUTPUT

• real -- Square of the clebsch gordan factor

## clebschGordan/CG [ Functions ]

[ Top ] [ clebschGordan ] [ Functions ]

NAME

real function CG (j1, j2, j3, m1, m2, m3)

PURPOSE

A function to compute arbitrary Clebsch-Gordan coefficients. Works for isospin values of up to j=50. The argument "m3" is optional. If it is omitted, it's assumed to be m3=m1+m2.

INPUTS

• integer, intent(in) :: j1,j2,j3 -- total isospins of the involved particles (doubled, in order to be integer)
• integer, intent(in) :: m1,m2,m3 -- z-component of the isospin of the incoming particles (doubled, in order to be integer)

OUTPUT

• real -- Clebsch-Gordan coefficient <j1,m1;j2,m2|j3,m3>

NOTE This code is based on the original 'f3j' routine by Caswell & Maximon, cf. http://archive.org/details/fortranprogramsf409casw