Commit 6587c331 authored by Vigeesh Gangadharan's avatar Vigeesh Gangadharan
Browse files

check diconnect fortran

parent 42ec585c
Pipeline #3102 passed with stage
in 3 minutes and 2 seconds
......@@ -240,11 +240,12 @@ PROGRAM VFISV_SPEC
DEALLOCATE(SI,SQ,SU,SV,INV,ICONT)
IF (STRAYCASE /= 0) DEALLOCATE(STRAY)
DEALLOCATE(SFIT,SIFIT,SQFIT,SUFIT,SVFIT)
PRINT*,'Disconnecting.1'
CALL MPI_COMM_DISCONNECT(intracomm, ierr)
PRINT*,'Disconnecting.2'
CALL MPI_COMM_DISCONNECT(intercomm, ierr)
!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