Lines Matching refs:ivort

62       integer :: ierror, numphavg, ivort, idwal, idebug, iphavg  local
85           read(72,*) ivort
105         call mpi_bcast(ivort,1,MPI_INTEGER,0,mpi_comm_world,ierr)
134         if(ivort .gt. 0) then
136           ivort = 1 ! security
481       if(ivort == 1) then
508           ivort = 0
653           if(ivort == 1) then
742       if(ivort == 1) then
784       nsynciofieldswriterestart = 1+iybar+ierror+numphavg+ivort+idwal
814       if(ivort == 1) then