Commit efb56bb4 authored by Vigeesh Gangadharan's avatar Vigeesh Gangadharan
Browse files

free intra, disconnect inter

parent 56d85c6a
Pipeline #3115 passed with stage
in 3 minutes and 3 seconds
......@@ -273,7 +273,7 @@ def vfisv(
common_comm.Recv([svfit, MPI.FLOAT], source=1, tag=6663)
# disengage vifisv:master+slaves
common_comm.Disconnect()
common_comm.Free()
pycomm.Disconnect()
......
......@@ -241,13 +241,13 @@ PROGRAM VFISV_SPEC
IF (STRAYCASE /= 0) DEALLOCATE(STRAY)
DEALLOCATE(SFIT,SIFIT,SQFIT,SUFIT,SVFIT)
PRINT*,'Disconnecting.1',MYTASK,NTASKS
CALL MPI_BARRIER(intracomm)
print*,'after barrier'
CALL MPI_COMM_DISCONNECT(intracomm, ierr)
PRINT*,'Disconnecting.2'
!CALL MPI_BARRIER(intracomm, ierr)
print*,'after disconnect.1',ierr,MYTASK,NTASKS
CALL MPI_COMM_FREE(intracomm, ierr)
PRINT*,'after disconnect.2',ierr,MYTASK,NTASKS
CALL MPI_COMM_DISCONNECT(intercomm, ierr)
!CALL MPI_FINALIZE(IERR)
PRINT*,'Disconnected'
CALL MPI_FINALIZE(IERR)
!PRINT*,'Disconnected'
!
END PROGRAM VFISV_SPEC
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