| /dports/science/berkeleygw/BGW-2.0.0/Common/ |
| H A D | gmap.f90 | 69 …call gmap_base(gvec, syms, ngk, itran, kgq, isortc, isorti, ind, die_outside_sphere, zphase = phas…
88 complex(DPC), optional, intent(out) :: zphase(:) !< exp(-i*(g+kgq).dot.syms%tnp(itran)) (ngk) local
96 if(present(dphase) .and. present(zphase)) then
98 else if(.not. present(dphase) .and. .not. present(zphase)) then
119 if(ubound(zphase, 1) < ngk) call die("gmap: zphase size < ngk")
170 if(present(zphase)) then
171 zphase(ig) = CMPLX(0d0, 0d0)
189 if(present(zphase)) then
190 zphase(ig) = CMPLX(cos(fi), -sin(fi))
|
| /dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/gfortran.dg/ |
| H A D | pr68379-1.f90 | 24 COMPLEX(dp) :: zi(3), zphase(3) local
28 zi = zi * zphase
|
| /dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/ |
| H A D | pr68379-1.f90 | 24 COMPLEX(dp) :: zi(3), zphase(3) local
28 zi = zi * zphase
|
| /dports/lang/gcc8/gcc-8.5.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr68379-1.f90 | 24 COMPLEX(dp) :: zi(3), zphase(3) local
28 zi = zi * zphase
|
| /dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr68379-1.f90 | 24 COMPLEX(dp) :: zi(3), zphase(3) local
28 zi = zi * zphase
|
| /dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr68379-1.f90 | 24 COMPLEX(dp) :: zi(3), zphase(3) local
28 zi = zi * zphase
|
| /dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/gfortran.dg/ |
| H A D | pr68379-1.f90 | 24 COMPLEX(dp) :: zi(3), zphase(3) local
28 zi = zi * zphase
|
| /dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr68379-1.f90 | 24 COMPLEX(dp) :: zi(3), zphase(3) local
28 zi = zi * zphase
|
| /dports/devel/avr-gcc/gcc-10.2.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr68379-1.f90 | 24 COMPLEX(dp) :: zi(3), zphase(3) local
28 zi = zi * zphase
|
| /dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr68379-1.f90 | 24 COMPLEX(dp) :: zi(3), zphase(3) local
28 zi = zi * zphase
|
| /dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/gfortran.dg/ |
| H A D | pr68379-1.f90 | 24 COMPLEX(dp) :: zi(3), zphase(3) local
28 zi = zi * zphase
|
| /dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr68379-1.f90 | 24 COMPLEX(dp) :: zi(3), zphase(3) local
28 zi = zi * zphase
|
| /dports/lang/gcc9-aux/gcc-9.1.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr68379-1.f90 | 24 COMPLEX(dp) :: zi(3), zphase(3) local
28 zi = zi * zphase
|
| /dports/lang/gnat_util/gcc-6-20180516/gcc/testsuite/gfortran.dg/ |
| H A D | pr68379-1.f90 | 24 COMPLEX(dp) :: zi(3), zphase(3) local
28 zi = zi * zphase
|
| /dports/devel/riscv64-gcc/gcc-8.3.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr68379-1.f90 | 24 COMPLEX(dp) :: zi(3), zphase(3) local
28 zi = zi * zphase
|
| /dports/lang/gcc11/gcc-11.2.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr68379-1.f90 | 24 COMPLEX(dp) :: zi(3), zphase(3) local
28 zi = zi * zphase
|
| /dports/lang/gcc10-devel/gcc-10-20211008/gcc/testsuite/gfortran.dg/ |
| H A D | pr68379-1.f90 | 24 COMPLEX(dp) :: zi(3), zphase(3) local
28 zi = zi * zphase
|
| /dports/lang/gcc9/gcc-9.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr68379-1.f90 | 24 COMPLEX(dp) :: zi(3), zphase(3) local
28 zi = zi * zphase
|
| /dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr68379-1.f90 | 24 COMPLEX(dp) :: zi(3), zphase(3) local
28 zi = zi * zphase
|
| /dports/science/cp2k-data/cp2k-7.1.0/src/ |
| H A D | fist_efield_methods.F | 200 COMPLEX(KIND=dp) :: dzeta, dzphase(3), zeta, zphase(3) local
242 zphase = CMPLX(COS(ria), SIN(ria), dp)**charge_tot
269 dggamma = dggamma*zphase + ggamma*dzphase
270 ggamma = ggamma*zphase
|
| H A D | qs_loc_dipole.F | 71 COMPLEX(KIND=dp), DIMENSION(3) :: ggamma, zphase local
108 zphase = CMPLX(COS(ria), SIN(ria), KIND=dp)**charge_tot
142 ggamma = ggamma*zphase
|
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
| H A D | fist_efield_methods.F | 200 COMPLEX(KIND=dp) :: dzeta, dzphase(3), zeta, zphase(3) local
242 zphase = CMPLX(COS(ria), SIN(ria), dp)**charge_tot
269 dggamma = dggamma*zphase + ggamma*dzphase
270 ggamma = ggamma*zphase
|
| H A D | qs_loc_dipole.F | 71 COMPLEX(KIND=dp), DIMENSION(3) :: ggamma, zphase local
108 zphase = CMPLX(COS(ria), SIN(ria), KIND=dp)**charge_tot
142 ggamma = ggamma*zphase
|
| H A D | molecular_dipoles.F | 68 COMPLEX(KIND=dp), DIMENSION(3) :: ggamma, zphase local
151 zphase = CMPLX(COS(ria), SIN(ria), KIND=dp)**charge_tot
186 ggamma = ggamma*zphase
|
| /dports/science/octopus/octopus-10.5/src/system/ |
| H A D | stress.F90 | 195 CMPLX :: zphase
249 zphase = TOCMPLX(cos(gx), sin(gx))
250 rho_total_fs(ii,jj,kk) = conjg(cf%fs(ii, jj, kk))*zphase
251 rho_total_fs(iit,jjt,kkt) = cf%fs(ii, jj, kk)*conjg(zphase)
515 CMPLX :: zphase, zfact
636 zphase = M_Z0
639 zphase = zphase + species_zval(geo%atom(iatom)%species) &
646 *rho_total_fs(ii,jj,kk)*conjg(zphase)
658 * TOFLOAT(rho_total_fs(ii,jj,kk)*conjg(zphase))
|