TABLE OF CONTENTS
- 1. /clebschGordan
- 1.1. clebschGordan/clebschSquared
- 1.2. clebschGordan/CG
/clebschGordan [ 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