mirror of https://gitlab.com/QEF/q-e.git
56 lines
1.4 KiB
Fortran
56 lines
1.4 KiB
Fortran
!
|
|
! Copyright (C) 2002-2005 FPMD-CPV groups
|
|
! This file is distributed under the terms of the
|
|
! GNU General Public License. See the file `License'
|
|
! in the root directory of the present distribution,
|
|
! or http://www.gnu.org/copyleft/gpl.txt .
|
|
!
|
|
!----------------------------------------------------------------------------
|
|
MODULE dqrad_mod
|
|
!----------------------------------------------------------------------------
|
|
!
|
|
USE kinds, ONLY : DP
|
|
!
|
|
IMPLICIT NONE
|
|
SAVE
|
|
!
|
|
REAL(DP), ALLOCATABLE :: dqrad(:,:,:,:,:,:)
|
|
!
|
|
CONTAINS
|
|
!
|
|
SUBROUTINE deallocate_dqrad_mod()
|
|
!
|
|
IF ( ALLOCATED( dqrad ) ) DEALLOCATE( dqrad )
|
|
!
|
|
END SUBROUTINE deallocate_dqrad_mod
|
|
!
|
|
END MODULE dqrad_mod
|
|
!
|
|
!----------------------------------------------------------------------------
|
|
module betax
|
|
!----------------------------------------------------------------------------
|
|
!
|
|
USE kinds, ONLY : DP
|
|
!
|
|
IMPLICIT NONE
|
|
SAVE
|
|
!
|
|
INTEGER :: mmx = 5000
|
|
REAL(DP) :: refg
|
|
REAL(DP),ALLOCATABLE :: betagx(:,:,:), dbetagx(:,:,:), &
|
|
qradx(:,:,:,:), dqradx(:,:,:,:)
|
|
!
|
|
CONTAINS
|
|
!
|
|
SUBROUTINE deallocate_betax()
|
|
!
|
|
IF ( ALLOCATED( betagx ) ) DEALLOCATE( betagx )
|
|
IF ( ALLOCATED( dbetagx ) ) DEALLOCATE( dbetagx )
|
|
IF ( ALLOCATED( qradx ) ) DEALLOCATE( qradx )
|
|
IF ( ALLOCATED( dqradx ) ) DEALLOCATE( dqradx )
|
|
!
|
|
END SUBROUTINE deallocate_betax
|
|
!
|
|
END MODULE betax
|
|
!
|