|
real(c_double) function | cosimp (a, b, aux, eps, isub, emax, z) |
| cosimp is a routine for evaluating definite integrals using an adaptive simpsons algorithm. integral estimated over interval (a,b) of function aux, where eps is the error tolerance and isub is the number of subdivisions within (a,b) used in evaluation. cosimp makes two evaluations using isub and isub+1 and and compares values for agreement within eps. estimates made using est1 = f(a)+4*f(a+b/2)+f(b) and est2 = f(a)+4*f(3a+b/4)+ 2*f(a+b/2)+4*f(a+3b/4)+f(b) More...
|
|
subroutine | normalize (v1, v2, a, b, dist2, dist1, eps, isub, emax, z) |
| return normalizing factors v1 and v2 More...
|
|
real(c_double) function | dist1f (e, emax, z) |
| beta energy distribution for first forbidden transitions More...
|
|
real(c_double) function | dist2f (e, emax, z) |
| beta energy distribution of second forbidden transitions More...
|
|
real(c_double) function | dist3f (e, emax, z) |
| beta energy distribution of third forbidden transitions More...
|
|
real(c_double) function | dista (e, emax, z) |
| beta energy distribution for allowed transitions More...
|
|
real(c_double) function | diste1f (e, emax, z) |
| energy-weighted distribution first forbidden unique transition More...
|
|
real(c_double) function | diste2f (e, emax, z) |
| energy-weighted distribution second forbidden unique transition More...
|
|
real(c_double) function | diste3f (e, emax, z) |
| energy-weighted dist for third forbidden unique transitions More...
|
|
real(c_double) function | distea (e, emax, z) |
| energy-weighted distribution for allowed transitions More...
|
|