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

In fft_types deallocation of fft_dlay_descriptor objects is done without 

checking if they are allocated or not. Fixed.
C.S.


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@346 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
sbraccia 2003-10-28 14:17:36 +00:00
parent 9019a8fb5e
commit 9de9d052ba
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
Modules/fft_types.f90
View File

@ -70,16 +70,16 @@ CONTAINS
SUBROUTINE fft_dlay_deallocate( desc )
TYPE (fft_dlay_descriptor) :: desc
DEALLOCATE( desc%nsp )
DEALLOCATE( desc%nsw )
DEALLOCATE( desc%ngl )
DEALLOCATE( desc%npp )
DEALLOCATE( desc%ipp )
DEALLOCATE( desc%iss )
DEALLOCATE( desc%isind )
DEALLOCATE( desc%ismap )
DEALLOCATE( desc%iplp )
DEALLOCATE( desc%iplw )
IF ( ASSOCIATED( desc%nsp ) ) DEALLOCATE( desc%nsp )
IF ( ASSOCIATED( desc%nsw ) ) DEALLOCATE( desc%nsw )
IF ( ASSOCIATED( desc%ngl ) ) DEALLOCATE( desc%ngl )
IF ( ASSOCIATED( desc%npp ) ) DEALLOCATE( desc%npp )
IF ( ASSOCIATED( desc%ipp ) ) DEALLOCATE( desc%ipp )
IF ( ASSOCIATED( desc%iss ) ) DEALLOCATE( desc%iss )
IF ( ASSOCIATED( desc%isind ) ) DEALLOCATE( desc%isind )
IF ( ASSOCIATED( desc%ismap ) ) DEALLOCATE( desc%ismap )
IF ( ASSOCIATED( desc%iplp ) ) DEALLOCATE( desc%iplp )
IF ( ASSOCIATED( desc%iplw ) ) DEALLOCATE( desc%iplw )
desc%id = 0
END SUBROUTINE