GFT_end.f90

Go to the documentation of this file.

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -*- Mode: F90 -*- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!! GFT_end.f90 --- Free/Reset GFT common objects
!! 
!! Auteur          : Jalel Chergui (CNRS/IDRIS) <Jalel.Chergui@idris.fr>
!! Créé le         : Tue Feb 19 10:03:47 2002
!! Dern. mod. par  : Jalel Chergui (CNRS/IDRIS) <Jalel.Chergui@idris.fr>
!! Dern. mod. le   : Mon Apr 15 14:22:48 2002
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! Permission is granted to copy and distribute this file or modified
! versions of this file for no fee, provided the copyright notice and
! this permission notice are preserved on all copies.
! Copyright (C) Februry 2002, CNRS/IDRIS, Jalel.Chergui@idris.fr.
!
MODULE gft_end
  USE gft_common
 
  IMPLICIT NONE
 
  PRIVATE
 
  PUBLIC :: gft_end_fft
  INTERFACE gft_end_fft
     MODULE PROCEDURE gft_end_cc, gft_end_rcr, gft_end_mcc, gft_end_mrcr
  END INTERFACE gft_end_fft
 
  CONTAINS
 
  SUBROUTINE gft_end_cc(FFT, code)
    IMPLICIT NONE
 
    !... Input dummy arguments
    TYPE(gft_cc), INTENT(INOUT) :: FFT
 
    !... Output dummy arguments
    INTEGER, OPTIONAL, INTENT(OUT) :: code
 
    fft%Nx    = -1
    fft%Ny    = -1
    fft%Nz    = -1
    fft%BF    =  1
    fft%Scale =  1.0_gft_prec
    fft%Isign =  0
    fft%Init  = .false.
 
    IF ( ASSOCIATED(fft%Table) ) DEALLOCATE(fft%Table)
    IF ( ASSOCIATED(fft%Work) )  DEALLOCATE(fft%Work)
 
    IF( PRESENT(code) ) code=0
  END SUBROUTINE gft_end_cc
 
  SUBROUTINE gft_end_rcr(FFT, code)
    IMPLICIT NONE
 
    !... Input dummy arguments
    TYPE(gft_rcr), INTENT(INOUT) :: FFT
 
    !... Output dummy arguments
    INTEGER, OPTIONAL, INTENT(OUT) :: code
 
    fft%Nx    = -1
    fft%Ny    = -1
    fft%Nz    = -1
    fft%BF    =  1
    fft%Scale =  1.0_gft_prec
    fft%Isign =  0
    fft%Init  = .false.
 
    IF ( ASSOCIATED(fft%Table) ) DEALLOCATE(fft%Table)
    IF ( ASSOCIATED(fft%Work) )  DEALLOCATE(fft%Work)
 
    IF( PRESENT(code) ) code=0
  END SUBROUTINE gft_end_rcr
 
  SUBROUTINE gft_end_mcc(FFT, code)
    IMPLICIT NONE
 
    !... Input dummy arguments
    TYPE(gft_mcc), INTENT(INOUT) :: FFT
 
    !... Output dummy arguments
    INTEGER, OPTIONAL, INTENT(OUT) :: code
 
    fft%Nx    = -1
    fft%Ny    = -1
    fft%BF    =  1
    fft%Scale =  1.0_gft_prec
    fft%Isign =  0
    fft%Init  = .false.
 
    IF ( ASSOCIATED(fft%Table) ) DEALLOCATE(fft%Table)
    IF ( ASSOCIATED(fft%Work) )  DEALLOCATE(fft%Work)
 
    IF( PRESENT(code) ) code=0
  END SUBROUTINE gft_end_mcc
 
  SUBROUTINE gft_end_mrcr(FFT, code)
    IMPLICIT NONE
 
    !... Input dummy arguments
    TYPE(gft_mrcr), INTENT(INOUT) :: FFT
 
    !... Output dummy arguments
    INTEGER, OPTIONAL, INTENT(OUT) :: code
 
    fft%Nx    = -1
    fft%Ny    = -1
    fft%BF    =  1
    fft%Scale =  1.0_gft_prec
    fft%Isign =  0
    fft%Init  = .false.
 
    IF ( ASSOCIATED(fft%Table) ) DEALLOCATE(fft%Table)
    IF ( ASSOCIATED(fft%Work) )  DEALLOCATE(fft%Work)
 
    IF( PRESENT(code) ) code=0
  END SUBROUTINE gft_end_mrcr
END MODULE gft_end