scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

No reason to use pointers

This commit is contained in:
Paolo Giannozzi 2021-11-06 23:14:57 +01:00
parent 504098b88f
commit 85c23d54fa
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PHonon/PH/allocate_pert.f90
View File

@ -40,8 +40,8 @@ subroutine deallocate_pert()
! allocate space for the quantities with dimensions that depend
! on the maximum number of perturbations
!
IF (ASSOCIATED(t)) DEALLOCATE ( t )
IF (ASSOCIATED(tmq)) DEALLOCATE ( tmq )
IF (ALLOCATED(t )) DEALLOCATE ( t )
IF (ALLOCATED(tmq)) DEALLOCATE ( tmq )
RETURN
END SUBROUTINE deallocate_pert

2
PHonon/PH/deallocate_phq.f90
View File

@ -68,7 +68,7 @@ subroutine deallocate_phq
IF(ALLOCATED(ikmkmqs)) DEALLOCATE(ikmkmqs)
if(allocated(eigqts)) deallocate (eigqts)
if(allocated(rtau)) deallocate (rtau)
if(associated(u)) deallocate (u)
if(allocated(u)) deallocate (u)
if(allocated(name_rap_mode)) deallocate (name_rap_mode)
if(allocated(num_rap_mode)) deallocate (num_rap_mode)
if(allocated(dyn)) deallocate (dyn)

6
PHonon/PH/phcom.f90
View File

@ -24,11 +24,11 @@ MODULE modes
!! the number of perturbations per IR
INTEGER :: npertx
!! max number of perturbations per IR
COMPLEX (DP), POINTER :: u(:,:) !(3 * nat, 3 * nat)
COMPLEX (DP), ALLOCATABLE :: u(:,:) !(3 * nat, 3 * nat)
!! the transformation modes patterns
COMPLEX (DP), POINTER :: t(:,:,:,:) !(npertx, npertx, 48,3 * nat),
COMPLEX (DP), ALLOCATABLE :: t(:,:,:,:) !(npertx, npertx, 48,3 * nat),
!! the mode for deltarho
COMPLEX (DP), POINTER :: tmq(:,:,:) !(npertx, npertx, 3 * nat)
COMPLEX (DP), ALLOCATABLE :: tmq(:,:,:) !(npertx, npertx, 3 * nat)
!! the symmetry in the base of the pattern
! the symmetry q<->-q in the base of the pa
!