clean.F90

Go to the documentation of this file.

! This file is part of the 'atomes' software.
!
! 'atomes' is free software: you can redistribute it and/or modify it under the terms
! of the GNU Affero General Public License as published by the Free Software Foundation,
! either version 3 of the License, or (at your option) any later version.
!
! 'atomes' is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
! without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
! See the GNU General Public License for more details.
!
! You should have received a copy of the GNU Affero General Public License along with 'atomes'.
! If not, see <https://www.gnu.org/licenses/>
!
! Copyright (C) 2022-2024 by CNRS and University of Strasbourg
!
 
#if defined (HAVE_CONFIG_H)
#  include <config.h>
#endif
#include "version.h"
 
SUBROUTINE profree () bind (C,NAME='profree_')
 
USE parameters
 
IMPLICIT NONE
 
! deallocation of possibly remaining data
 
if (allocated(fullpos)) deallocate(fullpos)
if (allocated(tab_of_type)) deallocate(tab_of_type)
if (allocated(lot)) deallocate(lot)
if (allocated(nbspbs)) deallocate(nbspbs)
if (allocated(tl)) deallocate(tl)
if (allocated(atomid)) deallocate(atomid)
if (allocated(mass)) deallocate(mass)
if (allocated(rvdw)) deallocate(rvdw)
if (allocated(xi)) deallocate(xi)
 
END SUBROUTINE