Searched refs:stopjob (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | rerun_check.f | 1 subroutine rerun_check(stopjob) argument
6 integer stopjob local
8 stopjob = -1
12 if(ierr.eq.0) read(772,*)stopjob
16 call MPI_BCAST(stopjob,1,MPI_INTEGER,master,
|
| /phasta/phSolver/incompressible/ |
| H A D | itrdrv.f | 77 integer stopjob local
298 call rerun_check(stopjob)
300 & 'stopjob,lstep,istep', stopjob,lstep,istep
301 if(stopjob.eq.lstep) then
302 stopjob=-2 ! this is the code to finish
561 else if(stopjob.eq.-2) then
577 if(stopjob.eq.-2) goto 2003
739 if(stopjob.eq.-2) goto 2002
|