Searched refs:zeta_store (Results 1 – 8 of 8) sorted by relevance
/dports/science/quantum-espresso/q-e-qe-6.7.0/TDDFPT/tools/ |
H A D | tddfpt_calculate_spectrum.f90 | 806 IF (allocated(zeta_store)) DEALLOCATE(zeta_store) 1015 READ(158,*) zeta_store (ip,:,i) 1081 READ(158,*) zeta_store (1,1,i) 1082 zeta_store (2,2,i)=zeta_store (1,1,i) 1083 zeta_store (3,3,i)=zeta_store (1,1,i) 1084 zeta_store (1,2,i)=(0.0d0,0.0d0) 1085 zeta_store (1,3,i)=(0.0d0,0.0d0) 1086 zeta_store (2,1,i)=(0.0d0,0.0d0) 1087 zeta_store (2,3,i)=(0.0d0,0.0d0) 1088 zeta_store (3,1,i)=(0.0d0,0.0d0) [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/TDDFPT/src/ |
H A D | stop_lr.f90 | 17 & gamma_store, zeta_store, norm0, code1,code2, & 110 WRITE(158,*) zeta_store (ip,j,i) 121 WRITE(158,*) zeta_store (ip,j,itermax)
|
H A D | lr_restart.f90 | 24 bgz_suffix, beta_store, gamma_store, zeta_store, norm0, & 127 READ(158,*,end=301,err=303) zeta_store (pol_index,:,i) 132 READ(158,*,end=301,err=303) zeta_store (pol_index,:,iter_restart) 142 CALL mp_bcast (zeta_store(pol_index,:,:), ionode_id, world_comm)
|
H A D | lr_write_restart.f90 | 20 USE lr_variables, ONLY : beta_store, gamma_store, zeta_store, norm0, & 119 WRITE(158,*) zeta_store (pol_index,j,i) 130 WRITE(158,*) zeta_store (pol_index,j,LR_iteration)
|
H A D | lr_lanczos.f90 | 49 alpha_store, beta_store, gamma_store, zeta_store, & 236 zeta_store (pol_index,ip,LR_iteration) = zeta(ip) 253 zeta_store (pol_index,ip,LR_iteration) = zeta(ip)
|
H A D | lr_dealloc.f90 | 95 IF (allocated(zeta_store)) DEALLOCATE(zeta_store)
|
H A D | lr_alloc_init.f90 | 218 ALLOCATE(zeta_store(n_ipol,n_ipol,itermax)) 222 zeta_store(:,:,:) = (0.0d0,0.0d0)
|
H A D | lr_variables.f90 | 129 COMPLEX(kind=dp), ALLOCATABLE :: zeta_store(:,:,:) ! polarization of external field, variable
|