mirror of https://gitlab.com/QEF/q-e.git
No reason to use pointers
This commit is contained in:
parent
504098b88f
commit
85c23d54fa
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
!
|
||||
|
|
Loading…
Reference in New Issue