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 :: is1,is2,is3 -- total isospins
• real :: iz1,iz2,iz3 -- z-component of the isospins

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.

Input values are 'isospin times 2' to have integer values

INPUTS

• integer :: j1,j2,j3 -- isospin (times 2)
• integer :: m1,m2,m3 -- z-component of the isospin (times 2)

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