pkg/fizhi/fizhi_mpistuff.F

C $Header:  $
C $Name:  $

      subroutine my_finalize
      implicit none
      integer  ierror
#ifdef ALLOW_USE_MPI
      call mpi_finalize (ierror )
#endif
      return
      end
                                                                                
      subroutine my_exit (irc)
      implicit none
      integer irc
#ifdef ALLOW_USE_MPI
      integer  ierror
      call system ('touch gcm_error')
      call mpi_finalize (ierror)
#endif
      call exit (irc)
      return
      end

1	C $Header: $
2	C $Name: $
3
4	subroutine my_finalize
5	implicit none
6	integer ierror
7	#ifdef ALLOW_USE_MPI
8	call mpi_finalize (ierror )
9	#endif
10	return
11	end
12
13	subroutine my_exit (irc)
14	implicit none
15	integer irc
16	#ifdef ALLOW_USE_MPI
17	integer ierror
18	call system ('touch gcm_error')
19	call mpi_finalize (ierror)
20	#endif
21	call exit (irc)
22	return
23	end
24