1*59599516SKenneth E. Jansen subroutine rerun_check(stopjob) 2*59599516SKenneth E. Jansen 3*59599516SKenneth E. Jansen include "common.h" 4*59599516SKenneth E. Jansen include "mpif.h" 5*59599516SKenneth E. Jansen 6*59599516SKenneth E. Jansen integer stopjob 7*59599516SKenneth E. Jansen 8*59599516SKenneth E. Jansen stopjob = 0 9*59599516SKenneth E. Jansen 10*59599516SKenneth E. Jansen if(myrank.eq.master) then 11*59599516SKenneth E. Jansen open(unit=772,file='rerun-check',status='old',iostat=ierr) 12*59599516SKenneth E. Jansen if(ierr.eq.0) read(772,*)stopjob 13*59599516SKenneth E. Jansen close(772) 14*59599516SKenneth E. Jansen endif 15*59599516SKenneth E. Jansen 16*59599516SKenneth E. Jansen call MPI_BCAST(stopjob,1,MPI_INTEGER,master, 17*59599516SKenneth E. Jansen . MPI_COMM_WORLD,ierr) 18*59599516SKenneth E. Jansen 19*59599516SKenneth E. Jansen return 20*59599516SKenneth E. Jansen end 21