12 #include "./base/base_uses.f90"
22 INTEGER,
POINTER,
DIMENSION(:) :: list_exclude_vdw
23 INTEGER,
POINTER,
DIMENSION(:) :: list_exclude_ei
24 INTEGER,
POINTER,
DIMENSION(:) :: list_onfo
27 PUBLIC :: exclusion_type, &
30 CHARACTER(len=*),
PARAMETER,
PRIVATE :: moduleN =
'exclusion_types'
42 TYPE(exclusion_type),
DIMENSION(:),
POINTER :: exclusions
46 IF (
ASSOCIATED(exclusions))
THEN
47 DO iatom = 1,
SIZE(exclusions)
48 IF (
ASSOCIATED(exclusions(iatom)%list_exclude_vdw, &
49 exclusions(iatom)%list_exclude_ei))
THEN
50 DEALLOCATE (exclusions(iatom)%list_exclude_vdw)
52 IF (
ASSOCIATED(exclusions(iatom)%list_exclude_vdw))
THEN
53 DEALLOCATE (exclusions(iatom)%list_exclude_vdw)
55 IF (
ASSOCIATED(exclusions(iatom)%list_exclude_ei))
THEN
56 DEALLOCATE (exclusions(iatom)%list_exclude_ei)
59 IF (
ASSOCIATED(exclusions(iatom)%list_onfo))
THEN
60 DEALLOCATE (exclusions(iatom)%list_onfo)
63 DEALLOCATE (exclusions)
subroutine, public exclusion_release(exclusions)
Release exclusion type.