159599516SKenneth E. Jansen subroutine rerun_check(stopjob) 259599516SKenneth E. Jansen 359599516SKenneth E. Jansen include "common.h" 459599516SKenneth E. Jansen include "mpif.h" 559599516SKenneth E. Jansen 659599516SKenneth E. Jansen integer stopjob 759599516SKenneth E. Jansen 8*c89b8efeSKenneth E. Jansen stopjob = -1 959599516SKenneth E. Jansen 1059599516SKenneth E. Jansen if(myrank.eq.master) then 1159599516SKenneth E. Jansen open(unit=772,file='rerun-check',status='old',iostat=ierr) 1259599516SKenneth E. Jansen if(ierr.eq.0) read(772,*)stopjob 1359599516SKenneth E. Jansen close(772) 1459599516SKenneth E. Jansen endif 1559599516SKenneth E. Jansen 1659599516SKenneth E. Jansen call MPI_BCAST(stopjob,1,MPI_INTEGER,master, 1759599516SKenneth E. Jansen . MPI_COMM_WORLD,ierr) 1859599516SKenneth E. Jansen 1959599516SKenneth E. Jansen return 2059599516SKenneth E. Jansen end 21