constants_epw.f90 Source File

Files Dependent On This One

sourcefile~~constants_epw.f90~~AfferentGraph sourcefile~constants_epw.f90 constants_epw.f90 sourcefile~eliashberg_aniso_iaxis.f90 eliashberg_aniso_iaxis.f90 sourcefile~constants_epw.f90->sourcefile~eliashberg_aniso_iaxis.f90 sourcefile~elphon_shuffle.f90 elphon_shuffle.f90 sourcefile~constants_epw.f90->sourcefile~elphon_shuffle.f90 sourcefile~selfen_elec.f90 selfen_elec.f90 sourcefile~constants_epw.f90->sourcefile~selfen_elec.f90 sourcefile~a2f.f90 a2f.f90 sourcefile~constants_epw.f90->sourcefile~a2f.f90 sourcefile~elphel2_shuffle.f90 elphel2_shuffle.f90 sourcefile~constants_epw.f90->sourcefile~elphel2_shuffle.f90 sourcefile~elphon_shuffle_wrap.f90 elphon_shuffle_wrap.f90 sourcefile~constants_epw.f90->sourcefile~elphon_shuffle_wrap.f90 sourcefile~eliashberg_readfiles.f90 eliashberg_readfiles.f90 sourcefile~constants_epw.f90->sourcefile~eliashberg_readfiles.f90 sourcefile~eliashberg_setup.f90 eliashberg_setup.f90 sourcefile~constants_epw.f90->sourcefile~eliashberg_setup.f90 sourcefile~dynwan2bloch.f90 dynwan2bloch.f90 sourcefile~constants_epw.f90->sourcefile~dynwan2bloch.f90 sourcefile~pw2wan90epw.f90 pw2wan90epw.f90 sourcefile~constants_epw.f90->sourcefile~pw2wan90epw.f90 sourcefile~eliashberg_iso_iaxis.f90 eliashberg_iso_iaxis.f90 sourcefile~constants_epw.f90->sourcefile~eliashberg_iso_iaxis.f90 sourcefile~eliashberg_pp.f90 eliashberg_pp.f90 sourcefile~constants_epw.f90->sourcefile~eliashberg_pp.f90 sourcefile~plot_band.f90 plot_band.f90 sourcefile~constants_epw.f90->sourcefile~plot_band.f90 sourcefile~nesting_fn.f90 nesting_fn.f90 sourcefile~constants_epw.f90->sourcefile~nesting_fn.f90 sourcefile~setphases.f90 setphases.f90 sourcefile~constants_epw.f90->sourcefile~setphases.f90 sourcefile~hamwan2bloch.f90 hamwan2bloch.f90 sourcefile~constants_epw.f90->sourcefile~hamwan2bloch.f90 sourcefile~eliashberg_write.f90 eliashberg_write.f90 sourcefile~constants_epw.f90->sourcefile~eliashberg_write.f90 sourcefile~wannierize.f90 wannierize.f90 sourcefile~constants_epw.f90->sourcefile~wannierize.f90 sourcefile~rotate_epmat.f90 rotate_epmat.f90 sourcefile~constants_epw.f90->sourcefile~rotate_epmat.f90 sourcefile~hambloch2wan.f90 hambloch2wan.f90 sourcefile~constants_epw.f90->sourcefile~hambloch2wan.f90 sourcefile~ephwan2bloch.f90 ephwan2bloch.f90 sourcefile~constants_epw.f90->sourcefile~ephwan2bloch.f90 sourcefile~rigid_epw.f90 rigid_epw.f90 sourcefile~constants_epw.f90->sourcefile~rigid_epw.f90 sourcefile~dmebloch2wan.f90 dmebloch2wan.f90 sourcefile~constants_epw.f90->sourcefile~dmebloch2wan.f90 sourcefile~loadumat.f90 loadumat.f90 sourcefile~constants_epw.f90->sourcefile~loadumat.f90 sourcefile~kernels_raxis.f90 kernels_raxis.f90 sourcefile~constants_epw.f90->sourcefile~kernels_raxis.f90 sourcefile~ephwan2blochp.f90 ephwan2blochp.f90 sourcefile~constants_epw.f90->sourcefile~ephwan2blochp.f90 sourcefile~eliashberg_aniso_cont_raxis.f90 eliashberg_aniso_cont_raxis.f90 sourcefile~constants_epw.f90->sourcefile~eliashberg_aniso_cont_raxis.f90 sourcefile~eliashberg_iso_raxis.f90 eliashberg_iso_raxis.f90 sourcefile~constants_epw.f90->sourcefile~eliashberg_iso_raxis.f90 sourcefile~selfen_phon.f90 selfen_phon.f90 sourcefile~constants_epw.f90->sourcefile~selfen_phon.f90 sourcefile~readmat_shuffle2.f90 readmat_shuffle2.f90 sourcefile~constants_epw.f90->sourcefile~readmat_shuffle2.f90 sourcefile~kernels_aniso_iaxis.f90 kernels_aniso_iaxis.f90 sourcefile~constants_epw.f90->sourcefile~kernels_aniso_iaxis.f90 sourcefile~write_ephmat.f90 write_ephmat.f90 sourcefile~constants_epw.f90->sourcefile~write_ephmat.f90 sourcefile~spectral_func.f90 spectral_func.f90 sourcefile~constants_epw.f90->sourcefile~spectral_func.f90 sourcefile~epw_setup.f90 epw_setup.f90 sourcefile~constants_epw.f90->sourcefile~epw_setup.f90 sourcefile~vmebloch2wan.f90 vmebloch2wan.f90 sourcefile~constants_epw.f90->sourcefile~vmebloch2wan.f90 sourcefile~kernels_iso_iaxis.f90 kernels_iso_iaxis.f90 sourcefile~constants_epw.f90->sourcefile~kernels_iso_iaxis.f90 sourcefile~dynbloch2wan.f90 dynbloch2wan.f90 sourcefile~constants_epw.f90->sourcefile~dynbloch2wan.f90 sourcefile~ephbloch2wanp.f90 ephbloch2wanp.f90 sourcefile~constants_epw.f90->sourcefile~ephbloch2wanp.f90 sourcefile~dmewan2bloch.f90 dmewan2bloch.f90 sourcefile~constants_epw.f90->sourcefile~dmewan2bloch.f90 sourcefile~epw_init.f90 epw_init.f90 sourcefile~constants_epw.f90->sourcefile~epw_init.f90 sourcefile~ephbloch2wane.f90 ephbloch2wane.f90 sourcefile~constants_epw.f90->sourcefile~ephbloch2wane.f90 sourcefile~epw_readin.f90 epw_readin.f90 sourcefile~constants_epw.f90->sourcefile~epw_readin.f90 sourcefile~gmap_sym.f90 gmap_sym.f90 sourcefile~constants_epw.f90->sourcefile~gmap_sym.f90 sourcefile~rotate_eigenm.f90 rotate_eigenm.f90 sourcefile~constants_epw.f90->sourcefile~rotate_eigenm.f90 sourcefile~vmewan2bloch.f90 vmewan2bloch.f90 sourcefile~constants_epw.f90->sourcefile~vmewan2bloch.f90 sourcefile~eliashberg_iso_cont_raxis.f90 eliashberg_iso_cont_raxis.f90 sourcefile~constants_epw.f90->sourcefile~eliashberg_iso_cont_raxis.f90 sourcefile~ephwann_shuffle.f90 ephwann_shuffle.f90 sourcefile~constants_epw.f90->sourcefile~ephwann_shuffle.f90
Help

Source Code


Source Code

  !                                                                            
  ! Copyright (C) 2010-2016 Samuel Ponce', Roxana Margine, Carla Verdi, Feliciano Giustino 
  ! Copyright (C) 2007-2009 Jesse Noffsinger, Brad Malone, Feliciano Giustino  
  !                                                                            
  ! This file is distributed under the terms of the GNU General Public         
  ! License. See the file `LICENSE' in the root directory of the               
  ! present distribution, or http://www.gnu.org/copyleft.gpl.txt . 
  !
  !-----------------------------------------------------------------------
  MODULE constants_epw
  !-----------------------------------------------------------------------
  !
  USE kinds, ONLY : DP
  !
  IMPLICIT NONE
  !
  SAVE
  !
  ! Mathematical constants
  ! 
  REAL(DP), PARAMETER :: pi     = 3.141592653589793238462643383279502884197169399375105820974944d0
  REAL(DP), PARAMETER :: twopi  = 2.d0 * pi
  REAL(DP), PARAMETER :: fpi    = 4.d0 * pi
  REAL(DP), PARAMETER :: pibytwo=3.141592653589793238462643383279502884197169399375105820974944d0 / 2.d0
  REAL(DP), PARAMETER :: one    = 1.d0
  REAL(DP), PARAMETER :: two    = 2.d0
  REAL(DP), PARAMETER :: zero   = 0.d0
  REAL(DP), PARAMETER :: e2     = 2.0_DP      ! the square of the electron charge
  COMPLEX(DP), PARAMETER :: ci   = (0.d0, 1.d0)
  COMPLEX(DP), PARAMETER :: cone = (1.d0, 0.d0)
  COMPLEX(DP), PARAMETER :: czero = (0.d0, 0.d0)
  !
  ! Unit conversion factors
  !
  REAL(DP), PARAMETER :: ang2cm   = 1.0d-8
  REAL(DP), PARAMETER :: ang2m    = 1.0d-10  
  REAL(DP), PARAMETER :: bohr     = 0.52917721092d0
  REAL(DP), PARAMETER :: ryd2mev  = 13605.6981d0
  REAL(DP), PARAMETER :: ryd2ev   = 13.6056981d0
  REAL(DP), PARAMETER :: rydcm1   = 13.6056981d0 * 8065.541d0
  REAL(DP), PARAMETER :: bohr2ang = 0.52917721092d0
  REAL(DP), PARAMETER :: ev2cmm1  = 8065.541d0
  REAL(DP), PARAMETER :: kelvin2eV= 8.6173427909d-05
  REAL(DP), PARAMETER :: ryd2ghz  = 3.289828d6
  REAL(DP), PARAMETER :: mev2ps   = 0.6582119514  ! 1000/((1/hbar)*1e-12)
  REAL(DP), PARAMETER :: mev2invps = 1.0 / meV2ps  
  REAL(DP), PARAMETER :: kb       = 8.6173324d-05 ! eV/K
  REAL(DP), PARAMETER :: electron_SI = 1.602176487d-19
  REAL(DP), PARAMETER :: hbar     = 6.582119514E-16 ! eV*s
  REAL(DP), PARAMETER :: hbarJ    = 1.054571800E-34 ! J*s  
  !
  ! ... zero up to a given accuracy
  !
  REAL(DP), PARAMETER :: eps4  = 1.0E-4_DP
  REAL(DP), PARAMETER :: eps6  = 1.0E-6_DP
  REAL(DP), PARAMETER :: eps8  = 1.0E-8_DP
  REAL(DP), PARAMETER :: eps12 = 1.0E-12_DP
  REAL(DP), PARAMETER :: eps14 = 1.0E-14_DP
  REAL(DP), PARAMETER :: eps16 = 1.0E-16_DP
  REAL(DP), PARAMETER :: eps24 = 1.0E-24_DP
  REAL(DP), PARAMETER :: eps32 = 1.0E-32_DP
  !   
  END MODULE constants_epw

a2f.f90 allocate_epwq.f90 bcast_epw_input.f90 broyden.f90 change.sh check_deps.sh close_epw.f90 constants_epw.f90 create_mesh.f90 createkmap.f90 deallocate_eliashberg.f90 deallocate_epw.f90 distribution.f90 dmebloch2wan.f90 dmewan2bloch.f90 dvanqq2.f90 dvqpsi_us3.f90 dvqpsi_us_only3.f90 dynbloch2wan.f90 dynwan2bloch.f90 eliashberg.f90 eliashberg_aniso_cont_raxis.f90 eliashberg_aniso_iaxis.f90 eliashberg_iso_cont_raxis.f90 eliashberg_iso_iaxis.f90 eliashberg_iso_raxis.f90 eliashberg_pp.f90 eliashberg_readfiles.f90 eliashberg_setup.f90 eliashberg_write.f90 eliashbergcom.f90 elph2.f90 elphel2_shuffle.f90 elphon_shuffle.f90 elphon_shuffle_wrap.f90 ephbloch2wane.f90 ephbloch2wanp.f90 ephwan2bloch.f90 ephwan2blochp.f90 ephwann_shuffle.f90 epw.f90 epw_init.f90 epw_readin.f90 epw_setup.f90 epw_summary.f90 epwcom.f90 fermiwindow.f90 gen_freqgrid.f90 gmap_sym.f90 hambloch2wan.f90 hamwan2bloch.f90 io_dyn_mat2.f90 io_epw.f90 kernels_aniso_iaxis.f90 kernels_iso_iaxis.f90 kernels_raxis.f90 kfold.f90 kpointdivision.f90 ktokpmq.f90 loadkmesh.f90 loadqmesh.f90 loadumat.f90 nesting_fn.f90 openfilepw.f90 pade.f90 plot_band.f90 poolgather.f90 print_clock_epw.f90 pw2wan90epw.f90 readdvscf.f90 readgmap.f90 readmat_shuffle2.f90 readwfc.f90 refold.f90 rigid_epw.f90 rotate_eigenm.f90 rotate_epmat.f90 selfen_elec.f90 selfen_phon.f90 set_ndnmbr.f90 setphases.f90 setphases_wrap.f90 sgama2.f90 sort.f90 spectral_func.f90 star_q2.f90 stop_epw.f90 transportcom.f90 vmebloch2wan.f90 vmewan2bloch.f90 wannier.f90 wannierize.f90 wigner_seitz.f90 wigner_seitz2.f90 write_ephmat.f90