check diconnect fortran

grisinv/vfisv_src/vfisv_spec.f90

@@ -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