Commit 4ac53a86 authored by degironc's avatar degironc

if statement added to avoid freeing a non assigned communicator



git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@13765 c92efa57-630b-4861-b058-cf58834340f0
parent 7187b6fd
......@@ -290,8 +290,8 @@ CONTAINS
desc%comm = MPI_COMM_NULL
#if defined(__MPI)
CALL MPI_COMM_FREE( desc%comm2, ierr )
CALL MPI_COMM_FREE( desc%comm3, ierr )
IF (desc%comm2 /= MPI_COMM_NULL) CALL MPI_COMM_FREE( desc%comm2, ierr )
IF (desc%comm3 /= MPI_COMM_NULL) CALL MPI_COMM_FREE( desc%comm3, ierr )
#else
desc%comm2 = MPI_COMM_NULL
desc%comm3 = MPI_COMM_NULL
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment