|
DIPELM 2.0
|
Functions/Subroutines | |
| subroutine | make_dummy_dipoles (trans_dipole, photo_dipole, max_lcon bound_transition_chiral, continuum_t |
| complex(kind=idp) function | dipole_part (trans_dipole, photo_dipole, p1, q1, q1p, r, rp, q2, q2p, l, m |
| complex(kind=idp) function | gamma_part (gamm, q1, q1p, q2, q2p, mep) |
| real(kind=idp) function | beta_part (beta, p1, q1, q1p, r, rp, q2, q2p, ke |
| complex(kind=idp) function | alpha_part (alpha, r, rp, me) |
| complex(kind=idp) function | angular_average_summand (a_grid, b_grid, g |
| subroutine | chiral_drv () |
| integer function | lab_2nd_photon_polarization (r, rp, p2) |
| complex(kind=idp) function chiral_procs::alpha_part | ( | real(kind=idp) | alpha, |
| integer | r, | ||
| integer | rp, | ||
| integer | me ) |

| complex(kind=idp) function chiral_procs::angular_average_summand | ( | real(kind=idp), dimension(:) | a_grid, |
| real(kind=idp), dimension(:) | b_grid, | ||
| g ) |

| real(kind=idp) function chiral_procs::beta_part | ( | real(kind=idp) | beta, |
| integer | p1, | ||
| integer | q1, | ||
| integer | q1p, | ||
| integer | r, | ||
| integer | rp, | ||
| integer | q2, | ||
| integer | q2p, | ||
| integer | ke ) |

| subroutine chiral_procs::chiral_drv |

| complex(kind=idp) function chiral_procs::dipole_part | ( | complex(kind=idp), dimension(:,:) | trans_dipole, |
| complex(kind=idp), dimension(:,:,:,:,:) | photo_dipole, | ||
| integer | p1, | ||
| integer | q1, | ||
| integer | q1p, | ||
| integer | r, | ||
| integer | rp, | ||
| integer | q2, | ||
| q2p, | |||
| l, | |||
| m ) |

| complex(kind=idp) function chiral_procs::gamma_part | ( | real(kind=idp) | gamm, |
| integer | q1, | ||
| integer | q1p, | ||
| integer | q2, | ||
| integer | q2p, | ||
| integer | mep ) |

| integer function chiral_procs::lab_2nd_photon_polarization | ( | integer | r, |
| integer | rp, | ||
| character(len=1) | p2 ) |
