File indexing completed on 2018-03-02 18:40:22 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
a456aa407c Andr*0001 #include "FIZHI_OPTIONS.h"
bc1872d592 Andr*0002 subroutine my_finalize
0003 implicit none
0004 #ifdef ALLOW_USE_MPI
175684e43e Andr*0005 integer ierror
bc1872d592 Andr*0006 call mpi_finalize (ierror )
0007 #endif
0008 return
0009 end
0010
0011 subroutine my_exit (irc)
0012 implicit none
0013 integer irc
0014 #ifdef ALLOW_USE_MPI
0015 integer ierror
0016 call system ('touch gcm_error')
0017 call mpi_finalize (ierror)
0018 #endif
0019 call exit (irc)
0020 return
0021 end
0022
