| /dports/science/berkeleygw/BGW-2.0.0/Epsilon/ |
| H A D | inread.f90 | 66 pol%nfreq_imag=15
381 pol%nfreq_imag = 0
415 pol%nfreq_imag = 0
501 do i = 1, pol%nfreq_imag
517 do i = 1, pol%nfreq_imag
524 …pol%rpa_freq_grid(pol%nfreq_imag) = PI_D * 0.5D+00 / (pol%nfreq_imag*(SIN(omega_CC(pol%nfreq_imag)…
525 do i = 1, pol%nfreq_imag
530 do i = 1, pol%nfreq_imag
531 pol%dFreqBrd(i + (pol%Nfreq - pol%nfreq_imag)) = omega_CC(pol%nfreq_imag-i+1) * (0.0,1.0)
591 pol%nfreq_imag=1
[all …]
|
| H A D | epsinv.f90 | 400 SAFE_ALLOCATE(integ_rpa_pol, (pol%nfreq_imag))
472 freq_offset = pol%nFreq-pol%nfreq_imag
473 do iw = 1, pol%nfreq_imag
478 do iw = 1, pol%nfreq_imag
479 E_rpa = E_rpa + pol%rpa_freq_grid(pol%nfreq_imag-iw+1) * integ_rpa_pol(iw) * 0.5D+00
645 do iw = 2, pol%nFreq-pol%nfreq_imag
975 real(DP), intent(out) :: integ_rpa_pol(pol%nfreq_imag)
1003 if(iw > pol%nFreq-pol%nfreq_imag .and. pol%do_rpa) then
1004 integ_rpa_pol(iw-(pol%nFreq-pol%nfreq_imag)) = integ_rpa_val
|
| H A D | epsmat_old2hdf5.f90 | 106 pol%nfreq_imag = count(is_imag)
110 pol%nfreq_imag = 0
|
| H A D | eps0sym.f90 | 31 ii,qgrid(3),freq_dep,nFreq,nfreq_imag,& variable
73 call read_eps_grid_sizes_hdf5(ngq, nq, ecuts, nfreq, nfreq_imag, nmtx, qgrid, freq_dep, infile)
|
| H A D | epsinvomega.f90 | 45 integer :: freq_dep,nFreq_tmp,nFreq,nfreq_imag,ii,nq,ng,nmtx,kgrid(3) variable
125 call read_eps_grid_sizes_hdf5(ng, nq, ecuts, nfreq_tmp, nfreq_imag, nmtx, qgrid, freq_dep, infile)
|
| H A D | epsomega.f90 | 54 integer :: freq_dep,nFreq,nfreq_imag,ii,nq,ng,nmtx,kgrid(3) variable
148 call read_eps_grid_sizes_hdf5(ng, nq, ecuts, nfreq, nfreq_imag, nmtx, qgrid, freq_dep, infile)
|
| H A D | epsmat.h5.spec | 126 Dataset: nfreq_imag
|
| /dports/science/berkeleygw/BGW-2.0.0/Sigma/ |
| H A D | mtxel_cor.f90 | 2310 ( imag_freqs(3:sig%nfreq_imag) - imag_freqs(2:sig%nfreq_imag-1) ) + &
2312 ( imag_freqs(2:sig%nfreq_imag-1) - imag_freqs(1:sig%nfreq_imag-2) )
2313 mm(sig%nfreq_imag) = mm(sig%nfreq_imag-1) + &
2314 (imag_freqs(sig%nfreq_imag)-imag_freqs(sig%nfreq_imag-1)) * &
2315 (mm(sig%nfreq_imag-1)-mm(sig%nfreq_imag-2)) / &
2316 (imag_freqs(sig%nfreq_imag-1)-imag_freqs(sig%nfreq_imag-2))
2839 ( imag_freqs(2:sig%nfreq_imag-1) - imag_freqs(1:sig%nfreq_imag-2) )
2840 mm(sig%nfreq_imag) = mm(sig%nfreq_imag-1) + &
2841 (imag_freqs(sig%nfreq_imag)-imag_freqs(sig%nfreq_imag-1)) * &
2842 (mm(sig%nfreq_imag-1)-mm(sig%nfreq_imag-2)) / &
[all …]
|
| H A D | epscopy.f90 | 50 integer :: nFreq, nfreq_imag, freq_dep_flag local
79 sig%nfreq_imag, nmtxmax, ngarbage3, freq_dep_flag, 'eps0mat.h5')
122 call read_eps_grid_sizes_hdf5(ngarbage1, sig%nq1, dgarbage1, nfreq, nfreq_imag, &
127 if (nfreq_imag/=sig%nfreq_imag) then
194 sig%nfreq_imag = count(is_imag)
286 if (sig%nfreq_imag/=count(is_imag)) then
366 call MPI_Bcast(sig%nfreq_imag, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, mpierr)
395 write(6,'(1x,a,i0/)') 'Number of imag. frequencies in the dielectric matrix: ', sig%nfreq_imag
558 integer :: freq_dep_flag, nFreq, nfreq_imag, ng_old, ngq, nmtx local
617 call read_eps_grid_sizes_hdf5(ng_old, nq_tmp, ecuts, nfreq, nfreq_imag, &
|
| H A D | inread.f90 | 98 sig%nfreq_imag=0
|
| H A D | input.f90 | 163 sig%nfreq_imag = nfreq_imag_eps
|
| /dports/science/berkeleygw/BGW-2.0.0/Common/ |
| H A D | typedefs.f90 | 245 integer :: nfreq_imag component
407 integer :: nfreq_imag !< number of imaginary freqs for CD (also 1 for GN GPP) component
|
| H A D | epsread_hdf5.f90 | 88 integer, intent(out) :: nfreq_imag local
113 call hdf5_read_int(file_id, 'eps_header/freqs/nfreq_imag', nfreq_imag, error)
115 nfreq_imag = 0
|
| H A D | epswrite_hdf5.f90 | 119 call hdf5_write_int(file_id, 'eps_header/freqs/nfreq_imag', pol%nfreq_imag, error)
|
| /dports/science/berkeleygw/BGW-2.0.0/BSE/ |
| H A D | input_kernel.f90 | 517 integer :: ng, nq, nfreq, nfreq_imag, nmtx_max, qgrid(3), freq_dep local
533 nfreq_imag, nmtx_max, qgrid, freq_dep, 'eps0mat.h5')
|