comp-chem/cp2k
1
0
Fork 0
mirror of https://github.com/cp2k/cp2k.git synced 2026-07-29 06:35:28 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add initializers in xc_derivative_types

Browse source
This commit is contained in:
Frederick Stein 2023-06-21 12:14:35 +02:00 • committed by Frederick Stein
parent 8bed8263df
commit 8e79dd0f64
3 changed files with 3 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/xc/xc_derivative_set_types.F
View file

@ -53,8 +53,8 @@ MODULE xc_derivative_set_types
!> in form of a linked list
! **************************************************************************************************
TYPE xc_derivative_set_type
TYPE(pw_pool_type), POINTER, PRIVATE :: pw_pool
TYPE(cp_sll_xc_deriv_type), POINTER :: derivs
TYPE(pw_pool_type), POINTER, PRIVATE :: pw_pool => NULL()
TYPE(cp_sll_xc_deriv_type), POINTER :: derivs => NULL()
END TYPE xc_derivative_set_type
CONTAINS
@ -124,7 +124,6 @@ CONTAINS
NULLIFY (pw_grid)
NULLIFY (derivative_set%derivs)
IF (PRESENT(pw_pool)) THEN
derivative_set%pw_pool => pw_pool
CALL pw_pool_retain(pw_pool)
@ -137,7 +136,6 @@ CONTAINS
CPASSERT(PRESENT(local_bounds))
CALL pw_grid_create(pw_grid, mp_comm_self)
pw_grid%bounds_local = local_bounds
NULLIFY (derivative_set%pw_pool)
CALL pw_pool_create(derivative_set%pw_pool, pw_grid)
CALL pw_grid_release(pw_grid)
END IF

2
src/xc/xc_derivative_types.F
View file

@ -43,7 +43,7 @@ MODULE xc_derivative_types
!> \author fawzi
! **************************************************************************************************
TYPE xc_derivative_p_type
TYPE(xc_derivative_type), POINTER :: deriv
TYPE(xc_derivative_type), POINTER :: deriv => NULL()
END TYPE xc_derivative_p_type
CONTAINS

2
tools/conventions/conventions.supp
View file

@ -832,8 +832,6 @@ xas_tdp_types.F: Found type xas_atom_env_type without initializer https://cp2k.o
xas_tdp_types.F: Found type xas_tdp_control_type without initializer https://cp2k.org/conv#c016
xas_tdp_types.F: Found type xas_tdp_env_type without initializer https://cp2k.org/conv#c016
xas_tdp_utils.F: Found type dbcsr_soc_package_type without initializer https://cp2k.org/conv#c016
xc_derivative_set_types.F: Found type xc_derivative_set_type without initializer https://cp2k.org/conv#c016
xc_derivative_types.F: Found type xc_derivative_p_type without initializer https://cp2k.org/conv#c016
xc.F: Found CLOSE statement in procedure "xc_vxc_pw_create_debug" https://cp2k.org/conv#c204
xc.F: Found CLOSE statement in procedure "xc_vxc_pw_create_test_lsd" https://cp2k.org/conv#c204
xc.F: Found OPEN statement in procedure "xc_vxc_pw_create_debug" https://cp2k.org/conv#c203