Searched refs:s2aux (Results 1 – 1 of 1) sorted by relevance
| /dports/science/quantum-espresso/q-e-qe-6.7.0/Modules/ |
| H A D | dgcxc_drivers.f90 | 319 REAL(DP), DIMENSION(4*length) :: raux, s2aux local
336 raux(i1:f1) = r_in+dr ; s2aux(i1:f1) = s2_in
337 raux(i2:f2) = r_in-dr ; s2aux(i2:f2) = s2_in
408 REAL(DP), ALLOCATABLE :: raux(:,:), s2aux(:,:) local
431 ALLOCATE( raux(length*8,2), s2aux(length*8,2) )
461 raux(i1:f1,:) = r+drup ; s2aux(i1:f1,:) = s2
462 raux(i2:f2,:) = r-drup ; s2aux(i2:f2,:) = s2
466 raux(i5:f5,:) = r+drdw ; s2aux(i5:f5,:) = s2
467 raux(i6:f6,:) = r-drdw ; s2aux(i6:f6,:) = s2
489 DEALLOCATE( raux, s2aux )
[all …]
|