Home
last modified time | relevance | path

Searched refs:cube_save (Results 1 – 5 of 5) sorted by relevance

/dports/science/quantum-espresso/q-e-qe-6.7.0/TDDFPT/src/
H A Dlr_set_boxes_density.f9020 USE lr_variables, ONLY : cube_save
36 ALLOCATE( cube_save(dfftp%nnr,3) )
37 cube_save = 0
52 cube_save(ir,1) = i
53 cube_save(ir,2) = j
54 cube_save(ir,3) = k
H A Dlr_dealloc.f90107 IF (allocated(cube_save)) DEALLOCATE(cube_save)
H A Dlr_charg_resp.f90865 USE lr_variables, ONLY : LR_polarization, LR_iteration, cube_save
882 IF ( .not. allocated(cube_save) ) CALL lr_set_boxes_density()
893 i=cube_save(ir,1)+1
894 j=cube_save(ir,2)+1
895 k=cube_save(ir,3)+1
951 USE lr_variables, ONLY : LR_polarization, LR_iteration, cube_save
1201 USE lr_variables, ONLY : LR_polarization, LR_iteration, cube_save
1403 USE lr_variables, ONLY : LR_polarization, LR_iteration, cube_save
1657 USE lr_variables, ONLY : LR_polarization, LR_iteration, cube_save
H A Dlr_calc_dens.f9036 & cube_save, LR_iteration,&
228 i=cube_save(ir,1)+1
229 j=cube_save(ir,2)+1
230 k=cube_save(ir,3)+1
H A Dlr_variables.f9094 INTEGER, ALLOCATABLE :: cube_save(:,:) !used in response charge density mode 1 variable