Line data Source code
1 : !--------------------------------------------------------------------------------------------------!
2 : ! CP2K: A general program to perform molecular dynamics simulations !
3 : ! Copyright 2000-2026 CP2K developers group <https://cp2k.org> !
4 : ! !
5 : ! SPDX-License-Identifier: GPL-2.0-or-later !
6 : !--------------------------------------------------------------------------------------------------!
7 :
8 : ! **************************************************************************************************
9 : !> \brief contains information regarding the decoupling/recoupling method of Bloechl
10 : !> \author Teodoro Laino
11 : ! **************************************************************************************************
12 : MODULE cp_ddapc_types
13 : USE cell_methods, ONLY: read_cell
14 : USE cell_types, ONLY: cell_release,&
15 : cell_type
16 : USE cp_ddapc_methods, ONLY: ddapc_eval_AmI,&
17 : ddapc_eval_gfunc,&
18 : ewald_ddapc_pot,&
19 : solvation_ddapc_pot
20 : USE cp_log_handling, ONLY: cp_get_default_logger,&
21 : cp_logger_type
22 : USE cp_output_handling, ONLY: cp_printkey_is_on
23 : USE ewald_spline_util, ONLY: Setup_Ewald_Spline
24 : USE input_section_types, ONLY: section_vals_get,&
25 : section_vals_get_subs_vals,&
26 : section_vals_type,&
27 : section_vals_val_get
28 : USE kinds, ONLY: dp
29 : USE mathconstants, ONLY: pi
30 : USE mathlib, ONLY: det_3x3
31 : USE message_passing, ONLY: mp_para_env_type
32 : USE particle_types, ONLY: particle_type
33 : USE pw_grid_types, ONLY: pw_grid_type
34 : USE pw_grids, ONLY: pw_grid_release
35 : USE pw_poisson_types, ONLY: pw_poisson_multipole
36 : USE pw_pool_types, ONLY: pw_pool_release,&
37 : pw_pool_type
38 : USE pw_types, ONLY: pw_c1d_gs_type,&
39 : pw_r3d_rs_type
40 : #include "./base/base_uses.f90"
41 :
42 : IMPLICIT NONE
43 : PRIVATE
44 : LOGICAL, PRIVATE, PARAMETER :: debug_this_module = .TRUE.
45 : CHARACTER(len=*), PARAMETER, PRIVATE :: moduleN = 'cp_ddapc_types'
46 :
47 : PUBLIC :: cp_ddapc_type, cp_ddapc_create, cp_ddapc_release
48 : PUBLIC :: cp_ddapc_ewald_type, cp_ddapc_ewald_create, cp_ddapc_ewald_release
49 :
50 : ! **************************************************************************************************
51 : !> \author Teodoro Laino
52 : ! **************************************************************************************************
53 : TYPE cp_ddapc_type
54 : REAL(KIND=dp) :: c0 = 0.0_dp
55 : REAL(KIND=dp), DIMENSION(:, :), POINTER :: AmI => NULL()
56 : REAL(KIND=dp), DIMENSION(:, :), POINTER :: Md => NULL() ! decoupling
57 : REAL(KIND=dp), DIMENSION(:, :), POINTER :: Mr => NULL() ! recoupling
58 : REAL(KIND=dp), DIMENSION(:, :), POINTER :: Mt => NULL() ! decoupling+recoupling
59 : REAL(KIND=dp), DIMENSION(:, :), POINTER :: Ms => NULL() ! solvation
60 : REAL(KIND=dp), POINTER, DIMENSION(:, :) :: gfunc => NULL()
61 : REAL(KIND=dp), POINTER, DIMENSION(:) :: w => NULL()
62 : END TYPE cp_ddapc_type
63 :
64 : ! **************************************************************************************************
65 : TYPE cp_ddapc_ewald_type
66 : LOGICAL :: do_decoupling = .FALSE.
67 : LOGICAL :: do_qmmm_periodic_decpl = .FALSE.
68 : LOGICAL :: do_solvation = .FALSE.
69 : LOGICAL :: do_property = .FALSE.
70 : LOGICAL :: do_restraint = .FALSE.
71 : TYPE(section_vals_type), POINTER :: ewald_section => NULL()
72 : TYPE(pw_pool_type), POINTER :: pw_pool_qm => NULL(), pw_pool_mm => NULL()
73 : TYPE(pw_grid_type), POINTER :: pw_grid_qm => NULL(), pw_grid_mm => NULL()
74 : TYPE(pw_r3d_rs_type), POINTER :: coeff_qm => NULL(), coeff_mm => NULL()
75 : END TYPE cp_ddapc_ewald_type
76 :
77 : CONTAINS
78 :
79 : ! **************************************************************************************************
80 : !> \brief ...
81 : !> \param cp_para_env ...
82 : !> \param cp_ddapc_env ...
83 : !> \param cp_ddapc_ewald ...
84 : !> \param particle_set ...
85 : !> \param radii ...
86 : !> \param cell ...
87 : !> \param super_cell ...
88 : !> \param rho_tot_g ...
89 : !> \param gcut ...
90 : !> \param iw2 ...
91 : !> \param Vol ...
92 : !> \param force_env_section ...
93 : !> \author Tedoro Laino
94 : !> \note NB receive cp_para_env to pass down to parallelized ewald_ddapc_pot()
95 : ! **************************************************************************************************
96 248 : SUBROUTINE cp_ddapc_create(cp_para_env, cp_ddapc_env, cp_ddapc_ewald, &
97 : particle_set, radii, cell, super_cell, rho_tot_g, gcut, iw2, Vol, &
98 : force_env_section)
99 : TYPE(mp_para_env_type), POINTER :: cp_para_env
100 : TYPE(cp_ddapc_type), INTENT(OUT) :: cp_ddapc_env
101 : TYPE(cp_ddapc_ewald_type), POINTER :: cp_ddapc_ewald
102 : TYPE(particle_type), DIMENSION(:), POINTER :: particle_set
103 : REAL(kind=dp), DIMENSION(:), POINTER :: radii
104 : TYPE(cell_type), POINTER :: cell, super_cell
105 : TYPE(pw_c1d_gs_type), INTENT(IN) :: rho_tot_g
106 : REAL(KIND=dp), INTENT(IN) :: gcut
107 : INTEGER, INTENT(IN) :: iw2
108 : REAL(KIND=dp), INTENT(IN) :: Vol
109 : TYPE(section_vals_type), POINTER :: force_env_section
110 :
111 : CHARACTER(len=*), PARAMETER :: routineN = 'cp_ddapc_create'
112 :
113 : INTEGER :: handle
114 : TYPE(section_vals_type), POINTER :: param_section, solvation_section
115 :
116 248 : CALL timeset(routineN, handle)
117 : NULLIFY (cp_ddapc_env%AmI, &
118 248 : cp_ddapc_env%Md, &
119 248 : cp_ddapc_env%Mt, &
120 248 : cp_ddapc_env%Mr, &
121 248 : cp_ddapc_env%Ms, &
122 248 : cp_ddapc_env%gfunc, &
123 248 : cp_ddapc_env%w)
124 : ! Evaluates gfunc and AmI
125 248 : CALL ddapc_eval_gfunc(cp_ddapc_env%gfunc, cp_ddapc_env%w, gcut, rho_tot_g, radii)
126 : CALL ddapc_eval_AmI(cp_ddapc_env%AmI, &
127 : cp_ddapc_env%c0, &
128 : cp_ddapc_env%gfunc, &
129 : cp_ddapc_env%w, &
130 : particle_set, &
131 : gcut, &
132 : rho_tot_g, &
133 : radii, &
134 : iw2, &
135 248 : Vol)
136 248 : IF (cp_ddapc_ewald%do_qmmm_periodic_decpl .OR. &
137 : cp_ddapc_ewald%do_decoupling) THEN
138 : !
139 : ! Evaluate the matrix for the Classical contribution to the coupling/decoupling scheme
140 : !
141 114 : param_section => cp_ddapc_ewald%ewald_section
142 : !NB parallelized ewald_ddapc_pot() needs cp_para_env
143 : CALL ewald_ddapc_pot(cp_para_env, cp_ddapc_ewald%coeff_qm, &
144 : 1.0_dp, &
145 : cell, &
146 : param_section, &
147 : particle_set, &
148 : cp_ddapc_env%Md, &
149 114 : radii)
150 114 : IF (cp_ddapc_ewald%do_qmmm_periodic_decpl .OR. cp_ddapc_ewald%do_decoupling) THEN
151 456 : ALLOCATE (cp_ddapc_env%Mt(SIZE(cp_ddapc_env%Md, 1), SIZE(cp_ddapc_env%Md, 2)))
152 114 : IF (cp_ddapc_ewald%do_decoupling) THEN
153 : ! Just decoupling
154 4900 : cp_ddapc_env%Mt = cp_ddapc_env%Md
155 : ELSE
156 : ! QMMM periodic calculation
157 : !NB parallelized ewald_ddapc_pot() needs cp_para_env
158 : CALL ewald_ddapc_pot(cp_para_env, cp_ddapc_ewald%coeff_mm, -1.0_dp, super_cell, param_section, &
159 62 : particle_set, cp_ddapc_env%Mr, radii)
160 41762 : cp_ddapc_env%Mt = cp_ddapc_env%Md + cp_ddapc_env%Mr
161 : END IF
162 : END IF
163 : END IF
164 248 : IF (cp_ddapc_ewald%do_solvation) THEN
165 : ! Spherical Solvation model
166 26 : solvation_section => section_vals_get_subs_vals(force_env_section, "DFT%SCRF")
167 : CALL solvation_ddapc_pot(solvation_section, &
168 26 : particle_set, cp_ddapc_env%Ms, radii)
169 : END IF
170 248 : CALL timestop(handle)
171 248 : END SUBROUTINE cp_ddapc_create
172 :
173 : ! **************************************************************************************************
174 : !> \brief ...
175 : !> \param cp_ddapc_env ...
176 : !> \par History
177 : !> none
178 : !> \author Teodoro Laino - [tlaino]
179 : ! **************************************************************************************************
180 248 : SUBROUTINE cp_ddapc_release(cp_ddapc_env)
181 : TYPE(cp_ddapc_type), INTENT(INOUT) :: cp_ddapc_env
182 :
183 248 : IF (ASSOCIATED(cp_ddapc_env%AmI)) THEN
184 248 : DEALLOCATE (cp_ddapc_env%AmI)
185 : END IF
186 248 : IF (ASSOCIATED(cp_ddapc_env%Mt)) THEN
187 114 : DEALLOCATE (cp_ddapc_env%Mt)
188 : END IF
189 248 : IF (ASSOCIATED(cp_ddapc_env%Md)) THEN
190 114 : DEALLOCATE (cp_ddapc_env%Md)
191 : END IF
192 248 : IF (ASSOCIATED(cp_ddapc_env%Mr)) THEN
193 62 : DEALLOCATE (cp_ddapc_env%Mr)
194 : END IF
195 248 : IF (ASSOCIATED(cp_ddapc_env%Ms)) THEN
196 26 : DEALLOCATE (cp_ddapc_env%Ms)
197 : END IF
198 248 : IF (ASSOCIATED(cp_ddapc_env%gfunc)) THEN
199 248 : DEALLOCATE (cp_ddapc_env%gfunc)
200 : END IF
201 248 : IF (ASSOCIATED(cp_ddapc_env%w)) THEN
202 248 : DEALLOCATE (cp_ddapc_env%w)
203 : END IF
204 :
205 248 : END SUBROUTINE cp_ddapc_release
206 :
207 : ! **************************************************************************************************
208 : !> \brief ...
209 : !> \param cp_ddapc_ewald ...
210 : !> \param qmmm_decoupl ...
211 : !> \param qm_cell ...
212 : !> \param force_env_section ...
213 : !> \param subsys_section ...
214 : !> \param para_env ...
215 : !> \par History
216 : !> none
217 : !> \author Teodoro Laino - [tlaino]
218 : ! **************************************************************************************************
219 38710 : SUBROUTINE cp_ddapc_ewald_create(cp_ddapc_ewald, qmmm_decoupl, qm_cell, &
220 : force_env_section, subsys_section, para_env)
221 : TYPE(cp_ddapc_ewald_type), POINTER :: cp_ddapc_ewald
222 : LOGICAL, INTENT(IN) :: qmmm_decoupl
223 : TYPE(cell_type), POINTER :: qm_cell
224 : TYPE(section_vals_type), POINTER :: force_env_section, subsys_section
225 : TYPE(mp_para_env_type), POINTER :: para_env
226 :
227 : INTEGER :: my_val, npts(3)
228 7742 : INTEGER, DIMENSION(:), POINTER :: ngrids
229 : LOGICAL :: analyt, decoupling, &
230 : do_qmmm_periodic_decpl, do_restraint, &
231 : do_restraintB, do_solvation
232 : REAL(KIND=dp) :: hmat(3, 3)
233 7742 : REAL(KIND=dp), DIMENSION(:), POINTER :: gx, gy, gz, LG
234 : TYPE(cell_type), POINTER :: dummy_cell, mm_cell
235 : TYPE(cp_logger_type), POINTER :: logger
236 : TYPE(section_vals_type), POINTER :: cell_section, grid_print_section, multipole_section, &
237 : poisson_section, printC_section, qmmm_per_section, restraint_section, restraint_sectionB, &
238 : solvation_section
239 :
240 15484 : logger => cp_get_default_logger()
241 7742 : CPASSERT(.NOT. ASSOCIATED(cp_ddapc_ewald))
242 7742 : ALLOCATE (cp_ddapc_ewald)
243 : NULLIFY (cp_ddapc_ewald%pw_grid_mm, &
244 : cp_ddapc_ewald%pw_grid_qm, &
245 : cp_ddapc_ewald%ewald_section, &
246 : cp_ddapc_ewald%pw_pool_mm, &
247 : cp_ddapc_ewald%pw_pool_qm, &
248 : cp_ddapc_ewald%coeff_mm, &
249 : cp_ddapc_ewald%coeff_qm)
250 7742 : NULLIFY (multipole_section)
251 :
252 7742 : poisson_section => section_vals_get_subs_vals(force_env_section, "DFT%POISSON")
253 7742 : solvation_section => section_vals_get_subs_vals(force_env_section, "DFT%SCRF")
254 7742 : qmmm_per_section => section_vals_get_subs_vals(force_env_section, "QMMM%PERIODIC")
255 7742 : printC_section => section_vals_get_subs_vals(force_env_section, "PROPERTIES%FIT_CHARGE")
256 7742 : restraint_section => section_vals_get_subs_vals(force_env_section, "DFT%QS%DDAPC_RESTRAINT")
257 : restraint_sectionB => section_vals_get_subs_vals(force_env_section, &
258 7742 : "PROPERTIES%ET_COUPLING%DDAPC_RESTRAINT_A")
259 7742 : CALL section_vals_get(solvation_section, explicit=do_solvation)
260 7742 : CALL section_vals_get(poisson_section, explicit=decoupling)
261 7742 : CALL section_vals_get(restraint_section, explicit=do_restraint)
262 7742 : CALL section_vals_get(restraint_sectionB, explicit=do_restraintB)
263 7742 : do_qmmm_periodic_decpl = qmmm_decoupl
264 7742 : cp_ddapc_ewald%do_solvation = do_solvation
265 7742 : cp_ddapc_ewald%do_qmmm_periodic_decpl = do_qmmm_periodic_decpl
266 7742 : cp_ddapc_ewald%do_property = cp_printkey_is_on(logger%iter_info, printC_section)
267 7742 : cp_ddapc_ewald%do_restraint = do_restraint .OR. do_restraintB
268 : ! Determining the tasks and further check
269 7742 : IF (do_qmmm_periodic_decpl .AND. decoupling) THEN
270 : CALL cp_warn(__LOCATION__, &
271 : "A calculation with the QMMM periodic model has been requested. "// &
272 : "The explicit POISSON section in DFT section will be IGNORED. "// &
273 0 : "QM Electrostatic controlled only by the PERIODIC section in QMMM section")
274 0 : decoupling = .FALSE.
275 : END IF
276 7742 : IF (decoupling) THEN
277 : ! Simple decoupling technique
278 2276 : CALL section_vals_val_get(poisson_section, "POISSON_SOLVER", i_val=my_val)
279 20 : SELECT CASE (my_val)
280 : CASE (pw_poisson_multipole)
281 20 : multipole_section => section_vals_get_subs_vals(poisson_section, "MULTIPOLE")
282 : CASE DEFAULT
283 2276 : decoupling = .FALSE.
284 : END SELECT
285 : END IF
286 7742 : cp_ddapc_ewald%do_decoupling = decoupling
287 7742 : IF (cp_ddapc_ewald%do_qmmm_periodic_decpl) THEN
288 : ! QMMM periodic
289 38 : multipole_section => section_vals_get_subs_vals(qmmm_per_section, "MULTIPOLE")
290 : END IF
291 7742 : cp_ddapc_ewald%ewald_section => multipole_section
292 7742 : IF (cp_ddapc_ewald%do_decoupling .OR. cp_ddapc_ewald%do_qmmm_periodic_decpl) THEN
293 : ! Do we do the calculation analytically or interpolating the g-space factor?
294 58 : CALL section_vals_val_get(multipole_section, "ANALYTICAL_GTERM", l_val=analyt)
295 58 : IF (.NOT. analyt) THEN
296 22 : CALL section_vals_val_get(multipole_section, "ngrids", i_vals=ngrids)
297 88 : npts = ngrids
298 :
299 22 : NULLIFY (LG, gx, gy, gz)
300 286 : hmat = qm_cell%hmat
301 22 : CALL eval_lg(multipole_section, hmat, LG, gx, gy, gz)
302 22 : grid_print_section => section_vals_get_subs_vals(force_env_section, "PRINT%GRID_INFORMATION")
303 : CALL Setup_Ewald_Spline(pw_grid=cp_ddapc_ewald%pw_grid_qm, pw_pool=cp_ddapc_ewald%pw_pool_qm, &
304 : coeff=cp_ddapc_ewald%coeff_qm, LG=LG, gx=gx, gy=gy, gz=gz, hmat=hmat, npts=npts, &
305 : param_section=multipole_section, tag="ddapc", &
306 22 : print_section=grid_print_section)
307 22 : DEALLOCATE (LG)
308 22 : DEALLOCATE (gx)
309 22 : DEALLOCATE (gy)
310 22 : DEALLOCATE (gz)
311 22 : IF (cp_ddapc_ewald%do_qmmm_periodic_decpl) THEN
312 16 : NULLIFY (mm_cell, dummy_cell)
313 16 : cell_section => section_vals_get_subs_vals(subsys_section, "CELL")
314 16 : CALL read_cell(mm_cell, dummy_cell, cell_section=cell_section, para_env=para_env)
315 208 : hmat = mm_cell%hmat
316 16 : CALL eval_lg(multipole_section, hmat, LG, gx, gy, gz)
317 16 : grid_print_section => section_vals_get_subs_vals(force_env_section, "PRINT%GRID_INFORMATION")
318 : CALL Setup_Ewald_Spline(pw_grid=cp_ddapc_ewald%pw_grid_mm, pw_pool=cp_ddapc_ewald%pw_pool_mm, &
319 : coeff=cp_ddapc_ewald%coeff_mm, LG=LG, gx=gx, gy=gy, gz=gz, hmat=hmat, npts=npts, &
320 : param_section=multipole_section, tag="ddapc", &
321 16 : print_section=grid_print_section)
322 16 : DEALLOCATE (LG)
323 16 : DEALLOCATE (gx)
324 16 : DEALLOCATE (gy)
325 16 : DEALLOCATE (gz)
326 16 : CALL cell_release(dummy_cell)
327 16 : CALL cell_release(mm_cell)
328 : END IF
329 : END IF
330 : END IF
331 7742 : END SUBROUTINE cp_ddapc_ewald_create
332 :
333 : ! **************************************************************************************************
334 : !> \brief ...
335 : !> \param multipole_section ...
336 : !> \param hmat ...
337 : !> \param LG ...
338 : !> \param gx ...
339 : !> \param gy ...
340 : !> \param gz ...
341 : !> \par History
342 : !> none
343 : !> \author Teodoro Laino - [tlaino]
344 : ! **************************************************************************************************
345 38 : SUBROUTINE eval_lg(multipole_section, hmat, LG, gx, gy, gz)
346 : TYPE(section_vals_type), POINTER :: multipole_section
347 : REAL(KIND=dp), INTENT(IN) :: hmat(3, 3)
348 : REAL(KIND=dp), DIMENSION(:), POINTER :: LG, gx, gy, gz
349 :
350 : INTEGER :: i, k1, k2, k3, n_rep, ndim, nmax1, &
351 : nmax2, nmax3
352 : REAL(KIND=dp) :: alpha, deth, eps, fac, fs, fvec(3), &
353 : galpha, gsq, gsqi, rcut, tol, tol1
354 :
355 38 : deth = ABS(det_3x3(hmat))
356 38 : rcut = MIN(hmat(1, 1), hmat(2, 2), hmat(3, 3))/2.0_dp
357 38 : CALL section_vals_val_get(multipole_section, "RCUT", n_rep_val=n_rep)
358 38 : IF (n_rep == 1) CALL section_vals_val_get(multipole_section, "RCUT", r_val=rcut)
359 38 : CALL section_vals_val_get(multipole_section, "EWALD_PRECISION", r_val=eps)
360 38 : eps = MIN(ABS(eps), 0.5_dp)
361 38 : tol = SQRT(ABS(LOG(eps*rcut)))
362 38 : alpha = SQRT(ABS(LOG(eps*rcut*tol)))/rcut
363 38 : galpha = 1.0_dp/(4.0_dp*alpha*alpha)
364 38 : tol1 = SQRT(-LOG(eps*rcut*(2.0_dp*tol*alpha)**2))
365 38 : nmax1 = NINT(0.25_dp + hmat(1, 1)*alpha*tol1/pi)
366 38 : nmax2 = NINT(0.25_dp + hmat(2, 2)*alpha*tol1/pi)
367 38 : nmax3 = NINT(0.25_dp + hmat(3, 3)*alpha*tol1/pi)
368 38 : fac = 1.e0_dp/deth
369 152 : fvec = 2.0_dp*pi/[hmat(1, 1), hmat(2, 2), hmat(3, 3)]
370 38 : ndim = (nmax1 + 1)*(2*nmax2 + 1)*(2*nmax3 + 1) - 1
371 114 : ALLOCATE (LG(ndim))
372 76 : ALLOCATE (gx(ndim))
373 76 : ALLOCATE (gy(ndim))
374 76 : ALLOCATE (gz(ndim))
375 :
376 38 : i = 0
377 216 : DO k1 = 0, nmax1
378 2234 : DO k2 = -nmax2, nmax2
379 30350 : DO k3 = -nmax3, nmax3
380 28154 : IF (k1 == 0 .AND. k2 == 0 .AND. k3 == 0) CYCLE
381 28116 : i = i + 1
382 28116 : fs = 2.0_dp; IF (k1 == 0) fs = 1.0_dp
383 28116 : gx(i) = fvec(1)*REAL(k1, KIND=dp)
384 28116 : gy(i) = fvec(2)*REAL(k2, KIND=dp)
385 28116 : gz(i) = fvec(3)*REAL(k3, KIND=dp)
386 28116 : gsq = gx(i)*gx(i) + gy(i)*gy(i) + gz(i)*gz(i)
387 28116 : gsqi = fs/gsq
388 30172 : LG(i) = fac*gsqi*EXP(-galpha*gsq)
389 : END DO
390 : END DO
391 : END DO
392 :
393 76 : END SUBROUTINE eval_lg
394 :
395 : ! **************************************************************************************************
396 : !> \brief ...
397 : !> \param cp_ddapc_ewald ...
398 : !> \par History
399 : !> none
400 : !> \author Teodoro Laino - [tlaino]
401 : ! **************************************************************************************************
402 7751 : SUBROUTINE cp_ddapc_ewald_release(cp_ddapc_ewald)
403 : TYPE(cp_ddapc_ewald_type), POINTER :: cp_ddapc_ewald
404 :
405 7751 : IF (ASSOCIATED(cp_ddapc_ewald)) THEN
406 7742 : IF (ASSOCIATED(cp_ddapc_ewald%coeff_qm)) THEN
407 22 : CALL cp_ddapc_ewald%pw_pool_qm%give_back_pw(cp_ddapc_ewald%coeff_qm)
408 22 : DEALLOCATE (cp_ddapc_ewald%coeff_qm)
409 : END IF
410 7742 : IF (ASSOCIATED(cp_ddapc_ewald%coeff_mm)) THEN
411 16 : CALL cp_ddapc_ewald%pw_pool_mm%give_back_pw(cp_ddapc_ewald%coeff_mm)
412 16 : DEALLOCATE (cp_ddapc_ewald%coeff_mm)
413 : END IF
414 7742 : IF (ASSOCIATED(cp_ddapc_ewald%pw_pool_qm)) THEN
415 22 : CALL pw_pool_release(cp_ddapc_ewald%pw_pool_qm)
416 22 : CPASSERT(.NOT. ASSOCIATED(cp_ddapc_ewald%pw_pool_qm))
417 : END IF
418 7742 : IF (ASSOCIATED(cp_ddapc_ewald%pw_pool_mm)) THEN
419 16 : CALL pw_pool_release(cp_ddapc_ewald%pw_pool_mm)
420 16 : CPASSERT(.NOT. ASSOCIATED(cp_ddapc_ewald%pw_pool_mm))
421 : END IF
422 7742 : IF (ASSOCIATED(cp_ddapc_ewald%pw_grid_qm)) THEN
423 22 : CALL pw_grid_release(cp_ddapc_ewald%pw_grid_qm)
424 22 : CPASSERT(.NOT. ASSOCIATED(cp_ddapc_ewald%pw_grid_qm))
425 : END IF
426 7742 : IF (ASSOCIATED(cp_ddapc_ewald%pw_grid_mm)) THEN
427 16 : CALL pw_grid_release(cp_ddapc_ewald%pw_grid_mm)
428 16 : CPASSERT(.NOT. ASSOCIATED(cp_ddapc_ewald%pw_grid_mm))
429 : END IF
430 7742 : DEALLOCATE (cp_ddapc_ewald)
431 : END IF
432 :
433 7751 : END SUBROUTINE cp_ddapc_ewald_release
434 :
435 0 : END MODULE cp_ddapc_types
|
